Skip to main content

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.


deret-angka.png

output-deret-angka-segitiga.png

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.


standard-exe.png

Kemudian atur properties dari form1 menjadi seperti gambar berikut ini :

form1.png

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
Labels:

Comments

Post a Comment

Popular posts from this blog

Tips Jitu Cara Mengatasi Error Pada Saat Compile Aplikasi Menggunakan Visual Basic 6

Sebenarnya ada banyak sekali nih project yang harus saya kerjakan dikantor. Namun terkadang apa yang kita rencanakan sering kali berbeda dengan kenyataan. Maksud hati ingin focus dulu ke satu project, tapi karena adanya satu dan lain hal, akhirnya terpaksa deh harus melakukan modifikasi dan membuka project lama yang sebenarnya saya sudah malas untuk berhubungan lagi dengannya :) Project ini sudah dibangun dari awal tahun 2000-an, jauh sebelum saya join. Ya intinya saya dapat warisannya lah seperti itu. Di bangun masih dengan menggunakan vb5-vb6 waktu itu. Sekarang sudah tahun 2016. Jadi sudah lama ya sob. Sudah ketinggalan jaman lah kurang lebih. Meskipun sudah tua, tapi menurut saya visual basic tetap menjadi bahasa pemrograman yang masih powerful. Masalah Kompatibilitas Nah masalah terbesar dalam menggunakan program-program lawas seperti itu biasanya ada pada kompatibilitas component-componentnya. Karena hardware dan os yang kita gunakan biasanya akan berubah seiring waktu. Jika soba...
Post a Comment
Read more

Youtube Tips 2017 | Cara Mengganti Dark Theme

Pada kesempatan ini saya ingin membahas seputar layout youtube terbaru tahun 2017. Yaitu mengenai cara mengganti tema atau theme baru yang bisa kita temui pada saat kita membuka situs youtube. Mungkin fitur baru ini sengaja disediakan oleh google agar kita tidak jenuh atau bosan dengan tampilan youtube yang itu-itu saja. Fitur ini bisa anda aktifkan dan non aktifkan sesuai dengan selera anda kapan pun anda mau. Kalau menurut saya sih cukup keren. Makanya ketika saya tahu kalau mereka menyediakan fitur tersebut, saya langsung tertarik untuk mencobanya. Dan kesan yang saya dapatkan cukup memuaskan. Karena pada dasarnya saya sebagai developer atau programmer memang sudah terbiasa dengan layout bertema gelap seperti itu. Untuk melihat coding-coding php, vb, dan lain-lain lebih mudah untuk membedakan syntax yang satu dengan syntax yang lainnya. Nah jika anda tertarik untuk mencoba dark theme baru tersebut, kalian bisa langsung menggantinya melalui menu setting. Disana akan ada opsi untuk me...
5 comments
Read more

Belajar PHP Itu Menyenangkan (Memahami Syntax Dasar PHP)

Ngga tahu kenapa saya lagi bersemangat sekali nulis artikel tentang php. Padahal sudah malam nih. Sudah jam 22:40. Waktunya tidur karena besok mesti kerja lagi dan ngga boleh kesiangan pula tuk bangun sholat subuh. Mungkin karena saya merasa kalau saya punya hutang kepada sobat yadishare semua bahwa selama ini saya jarang sekali nulis tentang php. Lebih banyak nulis dan bikin video tentang delphi, visual basic, odoo, photoshop, cara bikin video, grafik, database dan lain-lain. Nah berhubung lagi ada kesempatan dan masih diberikan kesehatan sama yang maha kuasa, jadi saya mau cicil saja sharing tentang php nya dari hal-hal yang sangat sederhana sekali ya. Karena untuk memahami materi bahasa pemrograman tertentu terkadang memang tidak mudah. Termasuk mengenai php. Apalagi untuk menguasai banyak bahasa pemrograman pasti tidak akan mudah. Butuh keseriusan dari diri kita masing-masing. Ibaratnya dulu kalau sekolah kita mungkin suka malas belajar matematika, fisika, kimia, dan lain-lain. Ket...
Post a Comment
Read more