Maksud judul postingan kali ini adalah, Membuat nilai nominal angka 100 pada TextBox, jadi kalau kamu memasukan nilai nominal di atas seratus, Misal 101,..Maka akan keluar pesan "Angka tidak boleh melebihi 100"
Berikut langkah-langkah.nya.
1. Buka VB6 kamu, pilih Standard EXE
2. Masukan : 1 TexsBox dan 1 Command Button ke dalam Form
3. Lalu masukan kode di bawah ini :
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text > 100 Then
MsgBox "Angka tidak boleh melebihi = 100"
Text1.Text = 100
End If
End Sub
4. Lalu RUN aplikasi dan bisa langsung di coba...ok
5. ♠ Semoga Bermanfaat ♠
Sumber : CAP info tech
Berikut langkah-langkah.nya.
1. Buka VB6 kamu, pilih Standard EXE
2. Masukan : 1 TexsBox dan 1 Command Button ke dalam Form
3. Lalu masukan kode di bawah ini :
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text > 100 Then
MsgBox "Angka tidak boleh melebihi = 100"
Text1.Text = 100
End If
End Sub
4. Lalu RUN aplikasi dan bisa langsung di coba...ok
5. ♠ Semoga Bermanfaat ♠
Sumber : CAP info tech
3 komentar:
sip. makasih inform nya
kayanya kodingnya salah,
Harusnya:
Private Sub Command1_Click()
On Error Resume Next
If val(Text1.Text) > 100 Then
MsgBox "Angka tidak boleh melebihi = 100"
Text1.Text = 100
End If
End Sub
Permisi Mas Tanpa Nama :
Untuk Koding yang saya tulis itu sudah benar mas, Dan Udah saya coba n Bisa...
Dan kodenya yang Mas itu Punya juga benar mas, Juga berfungsi..
Jadi kedua Koding Tadi sama2 bisa...
Trima Kasih atas koreksinya juga Mas, Dan Makasih sudah berkunjung
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung