Cara Membuat Program Deret Angka Segitiga Dengan Visual Basic 6

Halo sob apa kabar, sudah berganti bulan lagi ya ternyata. Sampai lupa saya untuk posting artikel baru. Ok pada artikel vb6 sebelumnya saya sudah memberikan tutorial dasar tentang bahasa pemrograman visual basic 6. Buat teman-teman yang mungkin masih kuliah dan baru saja ingin mempelajari tentang bahasa pemrograman ini, kalian sudah datang ke salah satu tempat yang pas.

Mengapa saya bilang demikian ? Karena disini kalian bisa belajar banyak tentang bermacam-macam bahasa pemrograman termasuk visual basic 6 tentunya. Ok langsung saja ya. Pada materi tutorial kali ini saya akan membahas tentang bagaimana cara membuat program untuk menampilkan deret angka dengan bentuk segi tiga menggunakan bahasa pemrograman vb tentu saja. Ini dia penampakannya.

Dulu waktu saya masih kuliah, materi deret angka ini memang sering kali dijadikan sebagai materi tugas kuliah. Tidak hanya di satu jenis bahasa pemrograman saja. Tapi hampir di setiap jenis bahasa pemrograman prakteknya sama. Baik di pascal, basic, cobol dan lain-lain pada waktu itu. Jadi penguasaan syntax dari setiap bahasa pemrograman memang sangat diperlukan.

Walaupun output yang dihasilkan sama, tapi cara dan syntaxnya bisa jadi berbeda. Ini membuktikan bahwa setiap jenis bahasa pemrograman dapat digunakan untuk membuat sesuatu yang sama dalam tanda kutip. Tinggal gimana kita. Mau pilih yang mana... :)

Pada tutorial sebelumnya kita sudah belajar mengenai perulangan atau looping. Nah kalau kalian sudah mengerti bagaimana cara menggunakan looping for next dan do while, rasanya teman-teman tidak akan kesulitan untuk mempelajari bagaimana cara coding untuk membuat program deret angka berikut ini.

Pertama silahkan buka aplikasi visual studio 6 nya. Kalau sudah pilih tipe project Standard Exe atau VB Enterprise Edition Control. Karena kita tidak akan menggunakan banyak control di sini jadi standard exe saja sudah cukup.

Kemudian atur properties dari form1 menjadi seperti gambar berikut ini :

Jika sudah tambahkan 1 buah label, 1 buah textbox dan 8 buah command button. Ubah properties dari masing-masing captionnya seperti gambar diatas. Saya tidak merubah name dari masing-masing control. Jadi hanya sesuai dengan default namenya saja. Kemudian terakhir masukkan coding di bawah ini ke dalam form1. Jika sudah simpan project tersebut dan coba jalankan aplikasinya menggunakan tombol F5.

 

[code language="html"]

Private Sub Form_Load()
Text1.Text = "0"
End Sub

Private Sub Command1_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next
Print
Next
End Sub

Private Sub Command2_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1)
For i = x To 1 Step -1
For j = 1 To i
Print j;
Next
Print
Next
End Sub

Private Sub Command3_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1.Text)
For i = 1 To x
For j = 1 To i
Print i;
Next
Print
Next
End Sub

Private Sub Command4_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1.Text)
For i = x To 1 Step -1
For j = 1 To i
Print i;
Next
Print
Next
End Sub

Private Sub Command5_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1.Text)
For i = 1 To x
For j = i To 1 Step -1
Print j;
Next
Print
Next
End Sub

Private Sub Command6_Click()
If Text1 = "" Then MsgBox "Harap masukkan angka terlebih dahulu !", vbCritical, "Pesan": Text1.SetFocus: Exit Sub

x = Val(Text1.Text)
For i = x To 1 Step -1
For j = i To 1 Step -1
Print j;
Next
Print
Next
End Sub
Private Sub Command7_Click()
Form1.Cls
Text1.Text = "0"
End Sub

Private Sub Command8_Click()
End
End Sub

[/code]

Masih bingung dan penasaran ? Mau tahu detail penjelasannya dari coding di atas mulai dari awal sampai akhir ? Lets check it out...

https://www.youtube.com/watch?v=kppne73FlJ4

 

Terima kasih sudah mampir dan membaca artikel saya. Jangan lupa untuk terus mensupport blog dan channel youtube saya agar tetap exist dengan cara mensubscribe channelnya dan share ke teman-teman kalian. Semoga artikelnya kali ini bermanfaat, sampai jumpa.

 

https://www.youtube.com/watch?v=XiDxmCbOQ44