Senin, 29 Juli 2013
Cara membuat program Format Rupiah dan code ascii pada Visual Basic 6.0
Hallo semuanya…!!! Kali ini saya mau memposting cara membuat program yang berformat Rupiah dan penggunaan kode ascii yang memungkinkan textbox hanya bisa di input dengan angka dan tidak dapat dinput dengan huruf..!!
Ok.. sekarang kita langsung ke TKP..!!! he…he…he…
Yang pertama buatlah form dengan bentuk seperti gambar dibawah ini :
Setelah selesai membuat form seperti gambar diatas, mari kita pindah ke bagian code.
Copy coding dibawah ini dan letakkan pada bagian code.
Private Sub Command1_Click()
Text2.Text = "Rp." & Format(Text1.Text, "##,#0.00")
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48) Or (KeyAscii > 57) And (KeyAscii <> 8) Then
KeyAscii = 0
End If
End Sub
lalu Klik start dan program siap untuk digunakan, program ini juga bisa di kombinasikan dengan optionButton . jadi bukan hanya format rupiah saja yang bisa digunakan, format mata uang lain jg bisa.
Dengan menggantikan tulisan “Rp” dengan “$”, dll.
Itu saja tutorial kali ini, akan saya update lagi di lain waktu. Semoga bermanfaat.. ^_^