TUGAS VISUAL BASIC 4: MEMBUAT PROGRAM PERHITUNGAN DISKON

TUGAS VISUAL BASIC 4: MEMBUAT PROGRAM PERHITUNGAN DISKON

Posted: 8 Januari 2013 in Visual Basic
Kaitkata:belajar visual basic, Visual Basic

0

Nah, sobat pasti pernah belanja banyak dan pastinya dapet diskon kan,,, sekarang kita akan buat program tentang diskon,, mau tau caranya, yuk liat…

1. Buka visual basic
2. Buat form seperti berikut ini

 

3. Klik 2 kali pada text1, dan masukkan kode berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.2

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

4. Klik 2 kali pada command1, dan masukkan kode berikut:

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

5. Klik 2 kali pada command2, dan masukkan kode berikut:

Private Sub Command2_Click()

End

End Sub

6. Selesai,, mudah kan,, makanya jangan kapok belajar visual basic

Berikut adalah hasilnya: