Pemrograman Visual (VB) P4 Materi Logika Percabangan IF cth2

Tutorial menggunakan percabangan dalam Vb 6.0

Pada kesempatan kali ini kita akan membahas tentang percabangan di Vb 6.0 dan kita juga akan mencoba menerapkan contoh penjelasan yang akan kita bahas , Percabangan merupakan sebuah kondisi yang membandingkan misalnya "Jika rudi pintar maka dia akan peringkat 1 dan jika tidak maka dia tidak akan mendapatkan peringkat" dari keterangan di atas merupakan sebuah perbandingan bila rudi pintar dan bila rudi tidak pintar, seperti itulah maksut dari sistem percabangan

 

Dalam pemograman Visual Basic percabangan bisa menggunakan "IF" bisa juga menggunakan "SELECT CASE" dan yang akan kita bahas kali ini adalah cara menggunakan percabangan "If" pada Visual Basic 6.0, pada dasarnya "If" ada beberapa macam yaitu "if" tunggal dan "If" majemuk

Pada if tunggal penulisannya If...Then...Else...End if sedangkan pada if majemuk penulisannya If...Then...Elseif...Elseif...End if untuk if majemuk ini bisa menggunakan Elseif sebanyak sesuai kebutuhan program , Untuk lebih jelasnya lagi dan agar pembaca bisa mengerti berikut contoh dari perjabangan "IF"

Langkah pertama yang harus anda lakukan adalah membuka apliksi Visual Basic 6.0 siapkan 1 combobox , 3 text , 3 command button , lalu design halaman form paling tidak seperti gambar berikut

pada bagian properties ubah name Text1 menjadi kkm , Text2 menjadi nilai , Text3 menjadi keterangan , Command1 menjadi proses , Command2 menjadi bersih dan Command3 menjadi exit contoh kita akan merubah name dari text 1 anda klik Text 1 lalu ke properties dan pada kolom name rubah menjadi kkm untuk lebih jelasnya liat contoh gambar berikut

langkah selanjutnya yaitu double click pada combo1 lalu tuliskan script kode sebagai berikut

If Combo1.Text = "Bahasa Indonesia" Then
    kkm.Text = "75"
    ElseIf Combo1.Text = "Matematika" Then
        kkm.Text = "70"
    ElseIf Combo1.Text = "Bahasa Inggris" Then
        kkm.Text = "77"
        Else
        kkm.Text = "80"
End If

Setelah itu pada tombol proses double click lalu tuliskan script kode sebagai berikut

If nilai.Text >= Int(kkm.Text) Then
keterangan.Text = "LULUS"
Else
    keterangan.Text = "GAGAL"
    End If

Di tombol bersih tuliskan scritp kode sebagai berikut :

 Combo1.Text = ""
 kkm.Text = ""
 nilai.Text = ""
 keterangan.Text = ""
 

Dan di tombol exit tuliskan script code

 Unload me