Sunday, 1 July 2012

Cara atau Codingan Tekan Enter langsung proses .

jadi cara kerja nya kita kita input kode barang A-001 kita enter nah nama barang dan harga nya muncul otomatis , tapi ini hanya untuk program sederhana saja ,
Private Sub txtkdbrng_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtkdbrng.Text = "A-001" Then
txtnmbrng.Text = "CPU"
    txthrg.Text = 300000
  ElseIf KeyAscii = 13 And txtkdbrng.Text = "B-001" Then
txtnmbrng.Text = "Monitor"
    txthrg.Text = 800000
    ElseIf KeyAscii = 13 And txtkdbrng.Text = "C-001" Then
txtnmbrng.Text = "Printer"
    txthrg.Text = 600000
    End If
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat