Contoh Membuat Keypress di VB 6.0

Ini merupakan sedikit contoh pembuatan aplikasi dengan event keypress di VB 6.0....

1. Pertama-tama kita buat formnya dulu :

 kira - kira seperti gambar ini.. ^_^

2. Setalah itu isi Codingnya :

Private Sub Combo1_keypress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Combo1.Locked = False Else Combo1.Locked = True End If If keyascii = 13 Then With Combo1 .Enabled = True .SelStart = 0 .SelLength = Len(Combo1) .SetFocus Form1.SetFocus End With If Combo1.Text = "" Then MsgBox ("Gender Kosong") Command1.Enabled = False Else End If Combo1.Enabled = False End If End Sub Private Sub Command1_keypress(keyascii As Integer) If keyascii = 32 Then Dim i End If i = MsgBox("LogIn Anda Sukses.!! (Apakah ingin keluar ? tekan Yes bila iya, tekan No bila mengulang dari awal", vbYesNo, "Welcome") If i = vbYes Then End Else Text1.Enabled = True Text1 = "" Text2.Enabled = True Text2 = "" Text3.Enabled = True Text3 = "" Combo1.Enabled = True Combo1 = "" Text1.SetFocus End If End Sub Private Sub Command2_keypress(keyascii As Integer) If keyascii = 32 Then Dim i End If i = MsgBox("Anda yakin ingin keluar ?? ", vbYesNo, "Pertanyaan") If i = vbYes Then End Else End If End Sub Private Sub Command3_keypress(keyascii As Integer) If keyascii = 32 Then Text1.Enabled = True Text1 = "" Text2.Enabled = True Text2 = "" Text3.Enabled = True Text3 = "" Combo1.Enabled = True Combo1 = "" Text1.SetFocus Command1.Enabled = True Else End If End Sub Private Sub Form_Load() Form1.Caption = "ENTRY DATA" With Combo1 .AddItem ("Laki-laki") .AddItem ("Perempuan") End With End Sub Private Sub Text1_KeyPress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Text1.Locked = False Else Text1.Locked = True End If If keyascii = 13 Then With Text1 .Enabled = True .SelStart = 0 .SelLength = Len(Text1) .SetFocus End With If Text1.Text = "" Then MsgBox ("Nama Kosong") Command1.Enabled = False Else End If Text1.Enabled = False End If End Sub Private Sub Text2_KeyPress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Text2.Locked = True Else: Text2.Locked = False End If If keyascii = 13 Then With Text2 .Enabled = True .SelStart = 0 .SelLength = Len(Text2) .SetFocus End With If Text2.Text = "" Then MsgBox ("NIM kosong") Command1.Enabled = False Else End If Text2.Enabled = False End If End Sub Private Sub Text3_KeyPress(keyascii As Integer) If keyascii > 65 Or keyascii > 97 Then Text1.Locked = False Else Text1.Locked = True End If If keyascii = 13 Then With Text3 .Enabled = True .SelStart = 0 .SelLength = Len(Text3) .SetFocus End With If Text3.Text = "" Then MsgBox ("Password Kosong") Command1.Enabled = False Else End If Text3.Enabled = False End If End Sub

Demikian program VB yang dapat ane share...

ini semua masih jauh nilai GOOD, oleh karena itu kritik dan saran yang membangun sangat ane perlukan...

Matur Teng Kyu telah mengunjungi blok ane... ^_^

SEKILAS SEJARAH KOMPUTER...

Sejarah komputer – sejarah perkembangan generasi komputer. Seperti yang kita ketahui dan kita rasakan, bahwa perkembangan teknologi dari tahun ke tahun berkembang begitu pesatnya, misalnya sejarah teknologi internet. Begitu juga komputer, dengan semakin canggihnya teknologi, perkembangan komputer pun tidak kalah hebatnya. Dalam sejarahnya, komputer mengalami beberapa peridoe atau generasi, dimana dari generasi-generasi tersebut semakin memudahkan bagi para penggunanya. Nah, bagi anda yang kebetulan ingin tahu sejarah komputer dan perkembangannya dari generasi ke generasi, berikut duniabaca.com berbagi pengertian komputer, sejarah komputer, awal mula komputer dan perkembangannya yang diambil dari berbagai sumber seperti wikipedia, untuk menambah ilmu pengetahuan anda.

Sebelum lebih jauh membahas sejarah komputer, terlebih dahulu kita mengenal pengertian komputer, karena mungkin kurang etis kita yang menggunakan komputer setiap hari tapi tidak mengetahui secara pasti pengertian komputer yang sebenarnya.

Pengertian Komputer seperti yang di kutip Wikipedia, Komputer adalah alat yang dipakai untuk mengolah data menurut perintah yang telah dirumuskan. Kata komputer semula dipergunakan untuk menggambarkan orang yang perkerjaannya melakukan perhitungan aritmatika, dengan atau tanpa alat bantu, tetapi arti kata ini kemudian dipindahkan kepada mesin itu sendiri. Asal mulanya, pengolahan informasi hampir eksklusif berhubungan dengan masalah aritmatika, tetapi komputer modern dipakai untuk banyak tugas yang tidak berhubungan dengan matematika.

Secara luas, Komputer dapat didefinisikan sebagai suatu peralatan elektronik yang terdiri dari beberapa komponen, yang dapat bekerja sama antara komponen satu dengan yang lain untuk menghasilkan suatu informasi berdasarkan program dan data yang ada. Adapun komponen komputer adalah meliputi : Layar Monitor, CPU, Keyboard, Mouse dan Printer (sbg pelengkap). Tanpa printer komputer tetap dapat melakukan tugasnya sebagai pengolah data, namun sebatas terlihat dilayar monitor belum dalam bentuk print out (kertas).

Dalam definisi seperti itu terdapat alat seperti slide rule, jenis kalkulator mekanik mulai dari abakus dan seterusnya, sampai semua komputer elektronik yang kontemporer. Istilah lebih baik yang cocok untuk arti luas seperti “komputer” adalah “yang memproses informasi” atau “sistem pengolah informasi.”

Saat ini, komputer sudah semakin canggih. Tetapi, sebelumnya komputer tidak sekecil, secanggih, sekeren dan seringan sekarang. Dalam sejarah komputer, ada beberapa generasi dalam sejarah komputer.