Cara Membuat Perulangan Deret Angka berbentuk Segitiga Siku-siku di Visual Basic 6.0

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 :

Private Sub Command1_Click()

x = Val(Text1)

For i = 1 To x

For j = 1 To i

Print j;

Next j

Print

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

Print

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

Print

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

Print

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

Print

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

Print

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

Demikianlah pembahasan kita tentang Perulangan Deret Angka berbentuk Segitiga Siku-siku di Visual Basic 6.0, jika artikel berguna buat anda dan teman-teman Anda silahkan tekan tombol share yang ada dibawah artikel ini.Terimakasih semoga artikel ini bermanfaat buat kita semua

Related Post: Looping