Cara Membuat Perulangan Deret Angka berbentuk Segitiga Siku-siku di Visual Basic 6.0
Kemaren kita sudah membahas berbagai macam struktur perulangan dan cara penulisannya. Bagi Anda yang belum membaca artikel tersebut ada baiknya baca terlebih dahulu agar lebih mudah memahami konsep dari pada perulangan.
Kemarin kita juga sudah membahas tentang pengertian perulangan, perulangan atau Looping adalah sebuah kondisi dimana satu atau beberapa baris kode program di eksekusi secara berulang-ulang.
Dalam artikel kali ini kitapun akan membahas perulangan dengan metode yang sama seperti kemarin tetapi hasil dan bentuk deretan yang berbeda.Berbeda yang saya maksud disini adalah hasilnya berbentuk deretan angka yang membentuk segitiga siku-siku.
Jadi inget jaman kuliah dulu ketika diberikan tugas oleh dosen pengajar visual Basic untuk mengerjakan kuis ataupun tugas praktek dimana tugas itu adalah membuat struktur program perulangan yang berbentuk deretan angka yang hasilnya seperti segitiga siku-siku.Dalam bentuk segitiga siku-siku itupun ada berbentuk siku bentuk lain yaitu segitiga miring kekiri dan siku ke kanan.
Untuk lebih memahami lagi tentang perulangan ini mari kita praktekan saja dalam bentuk program yang sebenarnya di dalam sebuah Form VB. Dengan mempraktekannya langsung maka kita dengan jelas dapat melihat seperti apa hasil dari pada perulangan deretan angka yang berbentuk siku-siku sehingga kita dapat membedakannya dengan jelas.
Cara Membuat Perulangan Deret Angka berbentuk Segitiga Siku-siku di Visual Basic 6.0
Bagaimana cara membuatnya ikutilah langkah langkah dibwah ini
Buka Form VB6 Anda dengan standar EXE
Desainlah form seperti gambar dibawah ini :
 |
| Form Desain |
Setelah anda mendesain form seperti diatas isilah masing-masing CommandButon dengan kode di bawah ini :
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Next i
End Sub
Private Sub Command2_Click()
x = Val(Text1)
For i = x To 1 Step -1
For j = 1 To i
Print j;
Next j
Next i
End Sub
Private Sub Command3_Click()
x = Val(Text1.Text)
For a = 1 To x
For b = 1 To a
Print a;
Next b
Next a
End Sub
Private Sub Command4_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = 1 To a
Print a;
Next b
Next a
End Sub
Private Sub Command5_Click()
x = Val(Text1.Text)
For i = 1 To x
For j = i To 1 Step -1
Print j;
Next j
Next i
End Sub
Private Sub Command6_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = a To 1 Step -1
Print b;
Next b
Next a
End Sub
Private Sub Command7_Click()
Form1.Cls
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Form1.FontBold = True
Text1.Text = ""
End Sub
Setelah kode program diisi, jalankan program jika program anda sukses tanpa error tekanlah masing-masing tombol sehingga Anda dapat melihat hasil bentuk perulangan dengan bentuk siku-siku, dimana setiap tombol yang diklik akan menghasilkan bentuk yang berbeda. Gambar dibawah adalah salah satu hasil eksekusi dari deretan angka berbentuk segitiga siku-siku.
 |
| Tipe 1 |
 |
| Tipe 2 |
 |
| Type 3 |
 |
| tipe 4 |
 |
| Tipe 6 |
 |
| Tipe 5 |
No comments:
Post a Comment