Perulangan Pada Visual Basic 6.0

by - 6/15/2017 10:17:00 AM

LAPORAN AKHIR

Logika Program

  1. Pada program gambar dibawah ini saya menggunakan perintah perulangan For-Next untuk membuat sebuah segitiga. Menggunakan For-Next agar perintah yang digunakan terus melakukan perulangan dalam jumlah yang telah ditentukan. Jadi cara kerjanya ketika text1 yang bertipe integer (angka) dimasukan sebuah angka akan memunculkan kata “pretty” (tanpa tanda kutip) pada kolom list1 sebanyak angka yang dimasukan.
  2. Private Sub Command1_Click()
    Dim a As Integer
    Dim b As String
    a = Text1.Text
    b = "pretty"
    List1.AddItem (b)
    For x = 1 To a
    b = b + "pretty"
    Next x
    End Sub

  3. Pada program dibawah ini hanyalah untuk menamakan sebuah kolom agar mengetahui outputan apa yang akan keluar. Dan untuk menamakan sebuah perintah.
  4. Private Sub Form_Load()
    Label1.Caption = "Tinggi Segitiga"
    Text1.Text = " "
    List1.Text = " "
    Command1.Caption = "Tampilkan "
    Label2.Caption = "Segitiga"
    End Sub

Output
  1. Program sebelum dijalankan :
  2. Program setelah dijalankan :
  3. Menampilkan bentuk segitiga dari kata “pretty” sebanyak 10 kali :

Thanks, may be useful!

You May Also Like

0 comments