Pada Kesempatan ini saya akan memberikan Tutorial/contoh penggunaan if else dan case atau biasa di sebut dengan metode percabangan
A.Apa itu if then dan if then else?
Pada bentuk If...Then...Else ada dua percabangan atau bagian. Percabangan yang pertama untuk pernyataan-pernyatan jika kondisi tercapai, dan percabangan yang kedua untuk pernyataan-pernyataan jika kondisi tidak tercapai.
Perbedaan If..Then dan If...Then...Else
If...Then | If...Then...Else |
hanya ada satu percabangan (percabangan tunggal) | terdapat dua percabangan |
hanya jika kondisi tercapai yang dapat dijalankan | kondisi tercapai atau tidak tercapai dapat dijalankan |
Udah Mengertikan? kalau belum Yahh langsung Ke TKP aja..
- Silahkan Buka VB 6.0
- Pilih standar.Exe
- Sediakan komponent yang kita Butuhkan dan ubah captionyya Seperti gambar berikut
- Selanjutnya Masukkan Source Code Berikut...
Source code If..Then.. (2 Percabangan )
==============================================================
Text2.Text = "Lulus"
Else
Text2.Text = "Tidak Lulus"
End If
End Sub
Source code If..then..else..(Lebih dari 2 percabangan)
==============================================================
Private Sub Command3_Click()
If Text3.Text >= 90 Then
Text4.Text = "Nilai A"
ElseIf Text3.Text >= 80 Then
Text4.Text = "Nilai B"
ElseIf Text3.Text >= 60 Then
Text4.Text = "Nilai C"
Else
Text4.Text = "ERROR!"
End If
End Sub
Hasilnya:
B.Apa itu Select Case ?
Select case digunakan untuk menyeleksi kondisi , penggunaannya hampir sama dengan if then else, Tapi Select case hanya menguji 1 variabel saja sedangkan if then dapat menguji lebih dari 1 variabel..
dari pada pusing penjelasannya langsung ke TKP aja Gan....
- Buka VB 6.0 ..
- Pilih standar.exe
- pilih komponen yang dibutuhkan seperti gambar berikut...
- Masukkan Source code dibawah
source code select case
=========================================================
Private Sub Form_Load()
Combo1.AddItem "Merah"
Combo1.AddItem "Biru"
Combo1.AddItem "Hijau"
List1.AddItem "12"
List1.AddItem "16"
List1.AddItem "20"
End Sub
Private Sub List1_Click()
Select Case List1.Text
Case "12":
Label1.FontSize = 12
Case "16":
Label1.FontSize = 16
Case "20":
Label1.FontSize = 20
End Select
End Sub
Hasil:
Atau bisa download Projectnya dibawah .
Type : Rar
Size : 5kb
Kunjung Juga halaman ini untuk pemula http://www.mpampam.tk/2015/04/vb-60-pengenalan-pemprograman-visual.html
Post a Comment