Free Naruto Cursors at www.totallyfreecursors.com

4/21/2012

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)