Di dalam dunia pemrograman khususnya program visual basic kita mengenal istilah struktur penyeleksian Kondisi (Conditional Statemaent) dan struktur perulangan (looping). Kedua struktur ini sangat penting dalam mengontrol suatu program yang kita buat. Tanpa menggunakan kontrol ini program yang kita buat tidak berdaya apa-apa. Penyeleksian kondisi atau pernyataan kondisi (conditional statement) merupakan suatu pernyataan yang menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu. Hasil dari penyeleksian jika bernilai benar maka akan dikerjakan instruksi tertentu. Jika salah maka akan dikerjakan instruksi yang lain.
Contoh struktur penulisan If...Then....Else
If <kondisi> then
<statement1>
<statement2>
.........
Else
<statement1>
<statement2>
.........
End if
Selain struktur If Then Else ada juga struktur pemilihan Select Case
Select Case adalah sebuah pernyataan bersyarat. If dan Select Case adalah merupakan suatu perintah untuk mengambil suatu keputusan terhadap sebuah atau beberapa kondisi. Kondisi adalah ungkapan untuk mengevaluasi sebuah pernyataan apakah bernilai benar atau salah.
Contoh struktur pemilihan Select Case adalah
Select case <variabel>
Case <nilai>: <statement1>
Case <nilai>: <statement2>
...........
Case Else: <statement_lainnya>
Dalam artikel kali saya menerapkan kedua struktur tersebut dalam sebuah form.Dimana kita membuat form menghitung nilai yang berdasar kategori dan keterangan.
Misalnya untuk nilai <=100 ketegori pintar dan keterangan sangat memuaskan.
Cara menggunakan Struktur If Then Else dan Select Case di Visual Basic 6.0
Buatlah form seperti gambar di bawah ini
 |
| If Then Else dan select Case |
Lalu masukan kode pada masing masing Commandbutton dibawah ini :
'menggunakan struktur if then else
If Text1.Text <= 50 Then
Label6.Caption = "Bodoh"
ElseIf Text1.Text <= 60 Then
Label6.Caption = "Sedang"
ElseIf Text1.Text <= 70 Then
Label6.Caption = "Pintar"
ElseIf Text1.Text <= 100 Then
Label6.Caption = "Sangat Pintar"
Else
Label6.Caption = "Tidak ada nilai lebih dari " + Text1.Text
End If
End Sub
Private Sub Command2_Click()
'menggunakan struktur select case
Dim nilai As Integer
Dim ket As String
nilai = Text1.Text
Select Case nilai
Case 0 To 50
ket = "Mengecewakan"
Case 51 To 60
ket = "Tidak Memuaskan"
Case 61 To 70
ket = "Memuaskan"
Case 71 To 100
ket = "Sangat Memuaskan"
Case Else
ket = " tidak ada nilai melebihi " + Text1.Text
End Select
Label6.Caption = ket
End Sub
Private Sub Form_Activate()
'fokuskan kursor
Text1.SetFocus
End Sub
Private Sub Form_Load()
'mengosongkan
Text1.Text = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Simpan hasil pekerjaan Anda dan jalankan program.
Hasil dari pemograman diatas dapat disimpulkan bahwa kedua fungsi struktur tersebut hasilnya sama hanya metode yang berbeda, tergantung Anda Mao menggunakan struktur yang mana.
Demikianlah artikel tentang pembahasan struktur if then else dan select case di visual basic 6.0.semoga artikel ini bermanfaat buat kita semua
No comments:
Post a Comment