Pada kesempatan ini saya ingin memberikan sedikit ilmu mengenai deret bilangan fibonacci dalam VB 2008. Deret fibonacci merupakan deret bilangan yang memiliki rumus bahwa bilangan berikutnya merupakan hasil penjumlahan dari dua bilangan sebelumnya, kecuali dua bilangan pertama yang sealu diisi dengan angka nol dan satu.

Untuk membuat aplikasi deret bilangan VB ini, hal pertama yang harus kalian lakukan adalah membuat desain form VB seperti yang terlihat pada gambar dibawah ini:

Nah, jika sudah, double click button1 atau button proses, lalu ketikkansyntax berikut:


Dim w, y, z As Integer
y = 0
z = 1
ListBox1.Items.Clear()
ListBox1.Items.Add(y)
ListBox1.Items.Add(z)
For x As Integer = _
1 To NumericUpDown1.Value
w = y + z
y = z
z = w
If w > NumericUpDown1.Value _
Then Exit For
ListBox1.Items.Add(w)
Next

PENJELASAN:

Variabel w berfungsi untuk menampung hasil penjumlahan dua bilangan sebelumnya dari deret yang tersedia yaitu variabel y dan z. Dan pada saat hasil penjumlahan tersebut telah melebihi batas yang telah ditentukan (dengan perintah IF), maka perulangan akan dikeluarkan dari proses dengan menggunakan perintah Exit For.

Jika sudah, double click button2 atau button Exit dan ketikkan syntax berikut:

End

Selanjutnya tekan F5 untuk compile dan menjalankan program, jika sudah maka akan terlihat hasilnya seperti gambar dibawah ini. Dan nilai maksimal dari numericupdown adalah 100.

Semoga tutorial VB 2008 kali ini berguna buat teman-teman sekalian.

Setelah sebelumnya membuat program yang sama dalam C++, kali ini saya ingin membuat program mencari tahun kabisat dalam visual basic 2008. Tentunya kalian masih ingat atau tahu syarat-syarat bagaimana suatu tahun bisa dikatakan sebagai tahun kabisat. Semua itu bisa kalian simak di program mencari tahun habisat dalam C++ buatan saya dulu. Nah, hal pertama yang kalian lakukan adalah mendesain terlebih dahulu form yang akan kalian gunakan nanti. Kalian dapat mendesainnya sesuka hati, tapi untuk tutorial kali ini saya memberikan desain seperti ini.

Dalam form diatas, kalian membutuhkan masing-masing dua buah Label, TextBox, dan Button. Jika sudah, aturlah label, textbox dan button, sehingga tata letak dan tulisannya menjadi gambar seperti diatas.

Kemudian, klik ganda pada button "Keluar", dan masukkan kode berwarna merah berikut ini:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Seperti yang kalian ketahui sebelumnya, fungsi dari kode End tersebut adalah untuk menghentikan program. Selanjutnya, klik ganda pada button "Proses" lalu masukkan kode berwarna merah berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) Mod 4 = 0 Or Val(TextBox1.Text) Mod 400 = 0 And Val(TextBox1.Text) Mod 100 <> 0 Then
TextBox2.Text = "Tahun tersebut adalah tahun kabisat"
End If

If Val(TextBox1.Text) Mod 4 <> 0 Or Val(TextBox1.Text) Mod 400 <> 0 And Val(TextBox1.Text) Mod 100 = 0 Then
TextBox2.Text = "Tahun tersebut bukan tahun kabisat"
End If
End Sub

Disini kita sudah langsung menggunakan statemen If. Hal pertama dalam mencari tahun kabisat, bahwa tahun kabisat selalu bernilai 0 jika dibagi 4 atau 400. Untuk menggunakan sisa hasil bagi, kita menggunakan kode "Mod", berbeda dengan C++ yang menggunakan kode "%" ketika mencari sisa hasil bagi. Kemudian, untuk kode tidak sama dengan (!= dalam C++), dalam visual basic kita menggunakan kode "<>" sebagai tanda tidak sama dengan. Jika sudah, maka kalian telah memahami arti kode diatas.

Jika sudah di run, maka program akan berjalan seperti berikut:

belajar program pake vb

Akhirnya saya bisa memberikan artikel pemrograman visual basic pertama saya. Kita belajar dari yang paling dasar dulu ya teman-teman. Kali ini saya ingin memberikan materi mengenai cara membuat program penjumlahan dalam vb 2008. Nah, setelah kalian berada dihalaman kerja vb 2008, maka yang harus kalian lakukan adalah membuat form seperti dibawah ini.

Maaf kalau desain formnya kurang bagus. Tapi kita coba dulu lah seperti ini. Nah, untuk membuat form seperti ini, caranya drag label yang terdapat pada toolbox kedalam form lalu pada properties box cari tulisan Text, kemudian ganti text label1 dengan A:. Selanjutnya drag Textbox menuju form dan letakkan disamping tulisan A: atau disamping label1. Ikuti langkah diatas untuk membuat B. Kemudian drag Button dan letakkan dibawah textbox2. Pada properties box, ganti Text pada button1 dengan "hitung". Nah, sekarang kalian telah mengetahui bagaimana cara membuat desain program. Selanjutnya, tugas kalian adalah membuat desain form seperti gambar diatas. Anda dapat mendesain program sesuka hati kalian, asalkan rapi dan enak dipandang mata.
Selanjutnya klik dua kali pada button1 atau hitung. Kemudian masukkan kode berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
End Class

Penjelasan: kode berwarna merah diatas adalah kode yang memang terdapat atau langsung ada ketika kita meng klik dua kali pada button1 atau hitung. Sedangkan yang kita tambahkan atau masukkan adalah kode berwarna orange.
Pengertian dari kode berwarna orange adalah, jika button1 di klik maka nilai pada teksbox3 adalah hasil dari penjumlahan nilai teksbox1 dan teksbox2.

Kemudian, klik dua kali pada button2 atau keluar. Selanjutnya tambahkan kode berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

Fungsi dari kode End adalah untuk menghentikan program.
Nah, jika sudah tekan F5 untuk meng compile dan menjalankan program. Jika sudah, dan sukses, maka program akan berjalan, kalian bisa mencoba menginputkan beberapa bilangan. Kira-kira hasilnya akan seperti gambar dibawah ini.

Nah, apabila program sudah berjalan dengan baik, Anda dapat meng-compile program yang Anda buat dengan cara mengklik menu Build, kemudian klik Build Desktop Windows dan tunggu proses compile selesai. Kemudian simpanlah program dengan cara mengklik File, Save All.

Sekian yang dapat saya jelaskan mengenai dasar pemrograman visual basic 2008 kali ini. Maaf jika cara penyampaian saya kurang bagus.