LANGKAH-LANGKAH MEMBUAT PERCABANGAN : IF………ELSE …….END IF

LANGKAH-LANGKAH MEMBUAT PERCABANGAN : IF………ELSE …….END IF

1. Membuka aplikasi visual basic 2008 atau 2010, klik new project, klik windows forms application.

2. Membuat nama UAS dengan menggunakan label pada kotak toolbox. kemudian text pada kotak properties diganti dengan UAS.membuat kotak input nilai UAS dengan textbox, textnya di kosongkan. Nama diganti Tuas.

3. Membuat nama UAN dengan menggunakan label pada kotak toolbox. kemudian text pada kotak properties diganti dengan UAN.membuat kotak input nilai UAN dengan textbox, textnya di kosongkan.nama diganti Tuan.

4. Membuat nama HASIL dengan menggunakan label pada kotak toolbox. kemudian text pada kotak properties diganti dengan HASIL.membuat kotak input nilai HASIL dengan textbox, textnya di kosongkan. Nama diganti Ttotal. Enable diganti false.

5. Membuat nama KETERANGAN dengan menggunakan label pada kotak toolbox. kemudian text pada kotak properties diganti dengan KETERANGAN.membuat kotak input nilai KETERANGAN dengan textbox, textnya di kosongkan. Nama diganti Tket. Enable diganti false

6. Membuat tombol PROSES dengan menggunakan button pada kotak toolbox. Text pada kotak properties diganti PROSES.

7. Membuat tombol EXIT dengan menggunakan button pada kotak toolbox.text pada kotak properties diganti EXIT.

8. Double klik tombol PROSES lalu ketikkan coding seperti berikut :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Ttotal.Text = Val((Me.Tuas.Text) + Val(Me.Tuan.Text)) / 2

If Ttotal.Text >= 80 And Me.Ttotal.Text <= 100 Then

Tket.Text = "A"

ElseIf Me.Ttotal.Text >= 65 And Ttotal.Text <= 79 Then

Me.Tket.Text = "B"

ElseIf Me.Ttotal.Text <= 65 Then

Me.Tket.Text = "C"

End If

End Sub

9. Double klik tombol EXIT lalu ketik codingnya :

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

End

End Sub

10. Double klik textbox1 / Tuas kemudian ketik coding :

Private Sub Tuas_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tuas.TextChanged

Dim a As Integer

a = Val(Tuas.Text)

End Sub

11. Double klik textbox2/ Tuan lalu ketik coding :

Private Sub Tuan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tuan.TextChanged

Dim b As Integer

b = Val(Tuan.Text)

End Sub

End Class

12. Jalankan program dengan menekan tombol start debugging pada toolbar (F5)

13. Masukkan nilai UAS dan UAN, missalkan UAS = 90 dan UAN = 80 lalu tekan tombol PROSES, maka muncul HASIL = 85 dengan KETERANGAN = A.

14. Untuk keluar dari program klik stop debugging pada toolbar (CTRL+ALT+BREAK)