Contoh program percabangan dan perulangan pada visual basic

LISTING PROGRAM

Listing Program Form1 Login Uname dan Password

Private Sub Command1_Click() If Text1.Text = "fahtulabdulrahman" And Text2.Text = "12345" Then MsgBox "Berhasil Login", vbInformation, "Login Information" Unload Me Form2.Show Else MsgBox "Password atau Username Salah", vbCritical, "Peringatan" End If End Sub

Listing Program Form2

Private Sub Command1_Click()

Unload Me

Form3.Show

End Sub

Private Sub Command2_Click()

Unload Me

Form5.Show

End Sub

Private Sub Command3_Click()

Unload Me

Form4.Show

End Sub

Listing Program Form3

Private Sub Command1_Click()

Text2.Text = ""

Text3.Text = ""

kode = Val(Text1.Text)

Select Case kode

Case 1:

Text2.Text = "Nike"

Text3.Text = "40,41"

Case 2:

Text2.Text = "Adidas"

Text3.Text = "39,42,43"

Case 3:

Text2.Text = "Ardiles"

Text3.Text = "36,39,38"

Case 4:

Text2.Text = "Specs"

Text3.Text = "43,42,41"

Case Else

MsgBox "Kode Barang Tidak Tersedia", vbCritical, "Peringatan"

End Select

End Sub

Private Sub Command2_Click()

Unload Me

Form2.Show

End Sub

Listing Program Form4

Private Sub Command1_Click()

x = Val(Text1.Text)

y = 1

List1.Clear

Do

List1.AddItem y

y = y + 1

Loop Until y > x

End Sub

Private Sub Command2_Click()

Unload Me

Form2.Show

End Sub

Listing Program Form5

Private Sub Command1_Click()

n = Val(Text1.Text)

List1.Clear

k = 0

bil = 2

While k < n

prima = True

For pembagi = 2 To bil - 1

If bil Mod pembagi = 0 Then prima = False

Next pembagi

If prima Then

List1.AddItem bil

k = k + 1

End If

bil = bil + 1

Wend

End Sub

Private Sub Command2_Click()

Unload Me

Form2.Show

End Sub

LOGIKA PROGRAM

Pada program kali ini kita akan membuat contoh program perulangan dan percabangan pada visual basic. Program yang kita buat yaitu Program Select case , Loop Until dan Bilangan Prima . ada lima form yang akan dibuat yaitu form1 sebagai wadah untuk memasukkan atau input username dan password , form2 merupakan tempat untuk memilih perulangan dan percabangan yang diinginkan , form3 sebagai output Dari Select case , form4 sebagai output Loop Until , form4 sebagai output dari Prima .

Untuk form1 kita menggunakan 2 label yaitu untuk username dan password , 2 TextBox untuk input username dan password dan 1 CommandButton untuk Login dan merupakan tempat menuliskan program pada form1.

Untuk form2 kita menggunakan 3 Command button untuk memilih program perulangan dan percabangan yang ingin ditampilkan yang terdiri dari Select Case , Loop Until dan Prima .

Form3 memiliki 3 label ( kode barang , nama barang , dan ukuran barang yang tersedia ) , 3 TextBox ( untuk input dari Kode barang dan output dari nama barang dan ukuran barang yang tersedia ) , Dua CommandButton untuk pilihan agar output dapat ditampilkan sesuai dengan input yang dimasukkan pada kode barang dan juga untuk tombol back yang jika kita pilih akan dialihkan ke form2 

Untuk form4 memiliki satu label untuk banyak perulangan , satu TextBox untuk input banyak perulangan yang diinginkan , satu list untuk output dari perulangan , dan dua CommandButton untuk Loop until dan back

Pada form5 kita menggunakan satu buah label untuk banyak prima , satu buah TextBox untuk input banyak prima yang diinginkan , satu list untuk output dari  prima , dua CommandButton untuk Tombol prima dan Tombol Back

Untuk penulisan program di Form1 kita Double click pada Login lalu memasukkan Penulisan program :

Ø  Private Sub Command1_Click()

Menandakan bahwa kita melakukan penulisan program pada CommandButton1

Ø  If Text1.Text = "fahtulabdulrahman" And Text2.Text = "12345" Then

Ini merupakan suatu percabangan dengan kondisi yaitu jika pada Text1 kita masukkan input “fahtulabdulrahman” dan Text2 kita masukkan “12345” maka akan melakukan statement.

Ø  MsgBox "Berhasil Login", vbInformation, "Login Information"

Ini merupakan statement yaitu menampilkan messagebox dengan pesan “ Berhasil Login “ jika input pada Text1 dan Text2 sesuai dengan kondisi yang

dengan judul messagebox yaitu “Login Information”

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan.

Ø  Form2.Show

Agar form2 ditampilkan

Ø  Else

MsgBox "Password atau Username Salah", vbCritical, "Peringatan"

Statement kedua yang akan ditampilkan jika kondisi tidak terpenuhi yaitu menampilkan messagebox yang merupakan Critical dengan pesan “Password atau Username Salah “  dengan judul messagebox “Peringatan” .

Ø  End If

Untuk menutup statement if

Ø  End Sub

Untuk menutup dari blok CommandButton1.

Untuk penulisan program di Form2 kita Double click pada Select Case , Loop Until dan prima  lalu memasukkan Penulisan program :

Ø  Private Sub Command1_Click()

Menandakan bahwa kita memulai penulisan program pada CommandButton1

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form3.Show

Untuk menampilkan Form3

Ø  End Sub

Akhir dari penulisan program pada CommanButton1

Ø  Private Sub Command2_Click()

Menandakan bahwa kita memulai penulisan program pada CommandButton2

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form5.Show

Untuk menampilkan Form5

Ø  End Sub

Akhir dari penulisan program pada CommanButton2

Ø  Private Sub Command3_Click()

Menandakan bahwa kita memulai penulisan program pada CommandButton3

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form4.Show

Untuk menampilkan Form4

Ø  End Sub

Akhir dari penulisan program pada CommanButton3

Untuk penulisan program di Form3 kita Double click pada Select lalu memasukkan Penulisan program :

Ø  Private Sub Command1_Click()

Menandakan bahwa kita menuliskan program pada CommandButton1

Ø  Text2.Text = ""

Agar Text2 akan kosong

Ø  Text3.Text = ""

Agar Text3 akan kosong

Ø  kode = Val(Text1.Text)

Merupakan Pendeklarasian yang berarti kita akan memasukkan kode pada Text1

Ø  Select Case kode

Merupakan pemilihan pada case kode

Ø  Case 1:

Untuk Case1

Ø  Text2.Text = "Nike"

Text2 akan mengeluarkan output “Nike “ pada Text2 jika kita mengisi “1” pada kode barang atau Text1

Ø  Text3.Text = "40,41"

Text3 akan mengeluarkan output “40,41 “ pada Text3 jika kita mengisi “1” pada kode barang atau Text1

Ø  Case 2:

Untuk Case2

Ø  Text2.Text = "Adidas"

Text2 akan mengeluarkan output “Adidas “ pada Text2 jika kita mengisi “2” pada kode barang atau Text1

Ø  Text3.Text = "39,42,43"

Text3 akan mengeluarkan output “39,42,43 “ pada Text3 jika kita mengisi “2” pada kode barang atau Text1

Ø  Case 3:

Untuk Case3

Ø  Text2.Text = "Ardiles"

Text2 akan mengeluarkan output “Ardiles “ pada Text2 jika kita mengisi “3” pada kode barang atau Text1

Ø  Text3.Text = "36,39,38"

Text3 akan mengeluarkan output “36,39,38 “ pada Text3 jika kita mengisi “3” pada kode barang atau Text1

Ø  Case 4:

Untuk Case4

Ø  Text2.Text = "Specs"

Text2 akan mengeluarkan output “Specs “ pada Text2 jika kita mengisi “4” pada kode barang atau Text1

Ø  Text3.Text = "43,42,41"

Text3 akan mengeluarkan output “43,42,41 “ pada Text3 jika kita mengisi “4” pada kode barang atau Text1

Ø  Case Else

Ini merupakan pilihan atau pengecualian jika kita tidak memasukkan input sesuai dengan case yang telah ditentukan.

Ø  MsgBox "Kode Barang Tidak Tersedia", vbCritical, "Peringatan"

Kode program untuk menampilkan messageBox dengan output “Kode barang Tidak Tersedia “ dengan judul “peringatan”

Ø  End Select

Untuk menuptup program Select Case

Ø  End Sub

Untuk menutup penulisan program.

Untuk Back kita akan menuliskan program sebagai berikut :

Ø  Private Sub Command2_Click()

Menandakan bahwa kita menuliskan program pada CommandButton2

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form2.Show

Untuk menampilkan form2

Ø  End Sub

Untuk menutup penulisan program dari CommandButton2

Untuk penulisan program di Form4 kita Double click pada Loop Until lalu memasukkan Penulisan program :

Ø  Private Sub Command1_Click()

Menandakan bahwa kita menuliskan program pada CommandButton1

Ø  x = Val(Text1.Text)

Merupakan pendeklarasian variabel x yang akan diinput pada Text1

Ø  y = 1

Nilai y yaitu 1

Ø  List1.Clear

Untuk membersihkan atau menghapus List1

Ø  Do

List1.AddItem y

Perintah yaitu menambahkan item y pada list1

Ø  y = y + 1

y akan ditambah dengan 1 secara terus menerus

Ø  Loop Until y > x

Akan terus melakukan perulangan sampai kondisi bernilai benar yaitu y harus lebih dari x

Ø  End Sub

Akhir dari penulisan program.

Untuk Back kita akan menuliskan program sebagai berikut :

Ø  Private Sub Command2_Click()

Menandakan bahwa kita menuliskan program pada CommandButton2

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form2.Show

Untuk menampilkan form2

Ø  End Sub

Untuk menutup penulisan program dari CommandButton2

Untuk penulisan program di Form5 kita Double click pada Prima lalu memasukkan Penulisan program :

Ø  Private Sub Command1_Click()

Menandakan bahwa kita menuliskan program pada Command1

Ø  n = Val(Text1.Text)

Merupakan pendeklarasian variabel n dengan input pada Text1

Ø  List1.Clear

Untuk membersihkan atau menghapus pada list1

Ø  k = 0

Variabel k dimulai dari 0

Ø  bil = 2

Variabel b yaitu 2

Ø  While k < n

Kondisi yaitu k harus kurang dari n

Ø  prima = True

prima harus bernilai benar

Ø  For pembagi = 2 To bil – 1

Perulangan yang dimulai dari 2 sampai -1

Ø  If bil Mod pembagi = 0 Then prima = False

Jika sisa hasil bagi dari bil sama dengan 0 maka otomatis berarti prima bernilai salah

Ø  Next pembagi

Ø  If prima Then

Jika prima maka

Ø  List1.AddItem bil

List1 akan dimasukkan bil

Ø  k = k + 1

k akan ditambah dengan 1

Ø  End If

Penutupan blok program blok if

Ø  bil = bil + 1

bil akan ditambah dengan 1

Ø  Wend

Untuk menutup blok program while ( while end )

Ø  End Sub

Untuk Back kita akan menuliskan program sebagai berikut :

Ø  Private Sub Command2_Click()

Menandakan bahwa kita menuliskan program pada CommandButton2

Ø  Unload Me

Berfungsi untuk menutup form yang sedang digunakan

Ø  Form2.Show

Untuk menampilkan form2

Ø  End Sub

Untuk menutup penulisan program dari CommandButton2