Menampilkan Biaya di Messagebox VB 6.0


Assalamualaikum

Posting kali ini saya akan share bagaimana cara menampilkan sisa uang di msgbox pada vb 6.0 seperti gambar di atas. Cukup mudah kok oke simak step by stepnya yah

1. Buat project baru, lalu desaign form dengan menambahkan 3 label & 3 textbox seperti gambar di bawah ini

2. Lalu tuliskan listing berikut ini

Private Sub Form_Load()
'pada saat dijalankan nilai text1 adalah 5000000
Text1 = 5000000
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3 = Val(Text2) - Val(Text1)
If Val(Text2) < Val(Text1) Then
'memunculkan pesan lalu "+text3" yang berarti menampilkan sisa dari objek text3 yang di dapat dari text2 - text1
MsgBox "Uang ente kurang gan" + Text3, vbOKOnly, "pemberitahuan"
Else
MsgBox "Makasih gan", vbOKOnly, "pemberitahuan"
End If
End If
End Sub

Kalau sudah tinggal di running atau “f5” mudah kan semoga bermanfaat ^-^.

 

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: