Menggunakan komponen maskedbox dengan Visual Basic 6.0 - Pada kasus ini kita menginginkan pada saat memilih Jurusan maka pada Text NIS otomatis muncul NIS sesuai dengan jurusan kemudian kita tinggal menambahkan nomor urutan yang berbeda setiap siswa. Misalnya pada saat kita pilih Combo Box Akuntansi maka pada Text NIS muncul : ___.___.151, saat kita pilih Administrasi Perkantoran maka pada Text NIS muncul : ___.___.152 dan seterusnya. Kemudian kita tinggal menuliskan angka didepannya sesuai urutan siswa.
1. Siapkan Satu Form Kosong kemudian tambahkan komponen baru pada vb 6 : Microsoft Masked Edit Control 6.0(SP3) seperti gambar berikut :
2. Tentukan Property MaskEdBox1 dengan cara Klik kanan lalu pilih Properties, Untuk MaxLength isikan angka 11 karena panjang nis kita rencanakan 11 digit
3. Tuliskan Kode Program Sebagai Berikut :
Tentukan Property MaskEdBox1 dengan cara Klik kanan lalu pilih Properties, Untuk MaxLength isikan angka 11 karena panjang nis kita rencanakan 11 digit
Tuliskan Kode Program Sebagai Berikut :
3. Tuliskan Kode Program Sebagai Berikut :
Tentukan Property MaskEdBox1 dengan cara Klik kanan lalu pilih Properties, Untuk MaxLength isikan angka 11 karena panjang nis kita rencanakan 11 digit
Tuliskan Kode Program Sebagai Berikut :
Private Sub CmbJurusan_Click()If CmbJurusan.Text = �Akuntansi� ThenMskBox.Mask = �###.###.151?ElseIf CmbJurusan.Text = �Administrasi Perkantoran� ThenMskBox.Mask = �###.###.152?ElseMskBox.Mask = �###.###.153?End IfEnd SubPrivate Sub Form_Load()MskBox.Mask = �###.###.###�End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
