RSS

Visual Basic

Private Sub Cbokode_Click()
Dim kode, merk, hs As String
kode = Right(cbokode.Text, 5)
If kode = “A43SA” Then
txtmerk.Text = “Asus A43SA-VX090D”
txths.Text = “5500000”
ElseIf kode = “A43SD” Then
txtmerk.Text = “Asus A43SD-VX052D”
txths.Text = “4500000”
ElseIf kode = “A43SJ” Then
txtmerk.Text = “Asus A43SJ-VX792D”
txths.Text = “4300000”
ElseIf kode = “A43TA” Then
txtmerk.Text = “Asus A43TA-VX034D”
txths.Text = “4900000”
ElseIf kode = “N43SL” Then
txtmerk.Text = “Asus N43SL-VX264D”
txths.Text = “4300000”
ElseIf kode = “MC965” Then
txtmerk.Text = “Apple Macbook Air MC965”
txths.Text = “6600000”
ElseIf kode = “MC966” Then
txtmerk.Text = “Apple Macbook Air MC966”
txths.Text = “12800000”
ElseIf kode = “MC969” Then
txtmerk.Text = “Apple Macbook Pro MC969”
txths.Text = “15800000”
ElseIf kode = “MC700” Then
txtmerk.Text = “Apple Macbook Pro MC700”
txths.Text = “11900000”
ElseIf kode = “MC723” Then
txtmerk.Text = “Apple Macbook Pro MC723”
txths.Text = “10800000”
ElseIf kode = “MD311” Then
txtmerk.Text = “Apple Macbook Pro MD311”
txths.Text = “19300000”
ElseIf kode = “MD313” Then
txtmerk.Text = “Apple Macbook Pro MD313”
txths.Text = “24200000”
ElseIf kode = “MD314” Then
txtmerk.Text = “Apple Macbook Pro MD314”
txths.Text = “11900000”
ElseIf kode = “MD322” Then
txtmerk.Text = “Apple Macbook Pro MD322”
txths.Text = “14700000”
End If
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”
s.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim hp As String
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
If txthp.Text > 140000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 135000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 130000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 125000000 Then
txtdis.Text = Val(txthp.Text) * 0.02
End If
Dim tb As String
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub

Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus N43SL”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC966”
cbokode.AddItem “Apple MC969”
cbokode.AddItem “Apple MC700”
cbokode.AddItem “Apple MC723”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
End Sub

Private Sub txttb_Change()
s.Text = terbilang(Val(txttb.Text))
End Sub
Private Function baca(X As Integer) As String
Dim i As Long
Dim Ratus(9) As String
Dim Belas(9) As String
Dim Puluh(9) As String
Dim Satuan(9) As String
Dim Sbaca As String
Satuan(1) = “Satu”
Satuan(2) = “Dua”
Satuan(3) = “Tiga”
Satuan(4) = “Empat”
Satuan(5) = “Lima”
Satuan(6) = “Enam”
Satuan(7) = “Tujuh”
Satuan(8) = “Delapan”
Satuan(9) = “Sembilan”
For i = 1 To 9
If i = 1 Then
Puluh(i) = “Sepuluh”
Else
Puluh(i) = Satuan(i) & ” Puluh”
End If
Next
For i = 1 To 9
If i = 1 Then
Belas(i) = “Sebelas”
Else
Belas(i) = Satuan(i) & ” Belas”
End If
Next
For i = 1 To 9
If i = 1 Then
Ratus(i) = “Seratus”
Else
Ratus(i) = Satuan(i) & ” Ratus”
End If
Next
If X >= 100 Then
Sbaca = Ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
Sbaca = Sbaca & ” ” & Puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
Sbaca = Sbaca & ” ” & Belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
Sbaca = Sbaca & ” ” & Satuan(Val((Str(X))))
End If
baca = Sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” Trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” Milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” Juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” Ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” Rupiah”
End Function


Private Sub Form_Activate()
Dim A, b, C As Integer
C = 1
Do While C < 20
C = C + 2
list1.AddItem C
Loop
A = 0
Do While A < 20
A = A + 2
List2.AddItem A
Loop
For b = 5 To 499 Step 27
List3.AddItem b + 3
Next b
End Sub


Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkls.Text = “”
txtjs.Text = “”
txtprodi.Text = “”
txttama.Text = “”
txtnorut.Text = “”
txtupend.Text = “”
txtbipensem.Text = “”
txtubang.Text = “”
txtbipro.Text = “”
txttobi.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkls.Text = “”
txtjs.Text = “”
txtprodi.Text = “”
txttama.Text = “”
txtnorut.Text = “”
txtupend.Text = “”
txtbipensem.Text = “”
txtubang.Text = “”
txtbipro.Text = “”
txttobi.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim npm As String

npm = Left(txtnpm.Text, 1)
If npm = “E” Or npm = “e” Then
txtkls.Text = “Eksekutif”
ElseIf npm = “R” Or npm = “r” Then
txtkls.Text = “Reguler”
End If

npm = Mid(txtnpm.Text, 5, 1)
If npm = “1” Then
txtjs.Text = “Sistem Informasi”
ElseIf npm = “2” Then
txtjs.Text = “Manajemen Informatika”
ElseIf npm = “3” Then
txtjs.Text = “Manajemen dan Komputer Akutansi”
End If

npm = Mid(txtnpm.Text, 6, 2)
If npm = “01” Then
txtprodi.Text = “Strata Satu”
ElseIf npm = “02” Then
txtprodi.Text = “Diploma tiga”
ElseIf npm = “03” Then
txtprodi.Text = “Diploma Satu”
End If

npm = Mid(txtnpm.Text, 3, 2)
txttama.Text = “20” & Mid(txtnpm.Text, 3, 2)

npm = Right(txtnpm.Text, 3)
txtnorut.Text = npm

If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “strata satu” Then
txtupend.Text = “200000”
ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtprodi.Text = “150000”
End If

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Strata Satu” Then
txtbipensem.Text = “1900000”
ElseIf txtprodi.Text = “Diploma Tiga” Then
txtbipensem.Text = “1650000”
ElseIf txtprodi.Text = “Diploma Satu” Then
txtbipensem.Text = “1350000”
ElseIf txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then
txtbipensem.Text = “1500000”
ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtbipensem.Text = “1250000”
End If

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtubang.Text = “1250000”
ElseIf txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then
txtubang.Text = “1000000”
End If

If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Tiga” Then
txtbipro.Text = “600000”
End If

txttobi.Text = Val(txtupend.Text) + Val(txtbipensem.Text) + Val(txtubang.Text) + Val(txtbipro.Text)
txttobi.SetFocus
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdproses.SetFocus
End If
End Sub


Private Sub Cmdproses_Click()
Dim KB As String
KB = Right(txtKB.Text, 1)
If KB = “T” Then
txtNB.Text = “Tape”
txtHJ.Text = “275000”
ElseIf KB = “S” Then
txtNB.Text = “Sound System”
txtHJ.Text = “350000”
ElseIf KB = “C” Then
txtNB.Text = “Compact”
txtHJ.Text = “480000”
End If
txtTJ.SetFocus

End Sub

Private Sub Cmdbatal_Click()
txtKB.SetFocus
txtKB.Text = “”
txtNB.Text = “”
txtJS.Text = “”
txtSS.Text = “”
txtTJ.Text = “”
txtHJ.Text = “”
txtTH.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtKB_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtNB.SetFocus
End If
End Sub
Private Sub txtNB_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtJS.SetFocus
End If
End Sub
Private Sub txtJS_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtTJ.SetFocus
End If
End Sub

Private Sub txtTJ_keypress(keyascii As Integer)
If keyascii = 13 Then
txtSS.Text = Val(txtJS.Text) – Val(txtTJ.Text)
txtTH.Text = Val(txtTJ.Text) * Val(txtHJ.Text)
End If
End Sub
Private Sub txtHJ_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtTH.SetFocus
End If
End Sub


Private Sub Cmdbatal_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbag.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
txtnamakaryawan.Text = “”
txtnik.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbag.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
txtnamakaryawan.Text = “”
txtnik.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim nik As String
nik = Left(txtnik.Text, 3)
If nik = “KEU” Then
txtbag = “Accounting”
ElseIf nik = “ADM” Then
txtbag = “Administrasi”
ElseIf nik = “SDM” Then
txtbag = “General Affair”
ElseIf nik = “EDP” Then
txtbag = “IT Unit”
ElseIf nik = “SPM” Then
txtbag = “security”
End If
txtth.Text = Mid(txtnik.Text, 5, 4)

nik = Mid(txtnik.Text, 9, 1)
If nik = “A” Then
txtgol.Text = “A”
txtjb.Text = “manajer”
txtgp.Text = “3000000”
txttj.Text = “875000”
ElseIf nik = “B” Then
txtgol.Text = “B”
txtjb.Text = “Ka Seksi”
txtgp.Text = “2500000”
txttj.Text = “525000”
ElseIf nik = “C” Then
txtgol.Text = “C”
txtjb.Text = “STAFF”
txtgp.Text = “2000000”
txttj.Text = “325000”
End If
nik = Right(txtnik.Text, 1)
If nik = “S” Then
txtst.Text = “S”
txtks.Text = “Single”
ElseIf nik = “M” Then
txtst.Text = “M”
txtks.Text = “Menikah”
ElseIf nik = “D” Then
txtst.Text = “D”
txtks.Text = “Duda”
ElseIf nik = “J” Then
txtst.Text = “J”
txtks.Text = “janda”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)

End Sub


Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “11100078”
nama = “septiana”
jurusan = “Sistem Informasi”
Case “11100089”
nama = “rini novita sari”
jurusan = “Manajemen Informatika”
Case “11100090”
nama = “novita destiana sari”
jurusan = “Tehnik Informatika”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text4.SetFocus

End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text4.Text)
TUGAS = Val(Text5.Text)
UTS = Val(Text6.Text)
UAS = Val(Text7.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text8.Text = NA

Select Case Text8.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = "E"
End Select
Text8.Text = HM

End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub
Private Sub Form_Load()
Combo1.AddItem "11100078"
Combo1.AddItem "11100089"
Combo1.AddItem "11100090"
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If

End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value

End Sub

Private Sub Text1_Change()

End Sub


Private Sub Command1_Click()
Dim a, b, c, d, e, f As Double
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * (0.1)
Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()
Text2.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”

End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If

End Sub

Private Sub Command1_Click()
Dim nik As String
Textgolongan.Text = Left(Textnik.Text, 1)
nik = Left(Textnik.Text, 1)
If nik = “A” Then
Textgolongan.Text = “A”
textjabatan.Text = “manager”
textgajipokok.Text = 2500000
texttunjangan.Text = 375000
ElseIf nik = “B” Then
Textgolongan.Text = “B”
textjabatan.Text = “kepala seksi”
textgajipokok.Text = “1500000”
texttunjangan.Text = 375000
ElseIf nik = “C” Then
Textgol.Text = “C”
textjabatan.Text = “staf”
textgajipokok.Text = 1000000
texttunjangan.Text = 250000
End If
texttunjangan.SetFocus

nik = Mid(Textnik.Text, 2, 4)
txttahun.Text = nik

nik = Mid(Textnik.Text, 6, 3)
If nik = “keu” Then
textbagian.Text = “accounting'”
ElseIf nik = “adm” Then
textbagian.Text = “administrasion”
ElseIf nik = “sdm” Then
textbagian.Text = “general affair”
ElseIf nik = “edp” Then
textbagian.Text = “it unit”
ElseIf nik = “spm” Then
textbagian.Text = “security”
End If

nik = Right(Textnik.Text, 1)
If nik = “S” Then
textkodestatus.Text = “S”
textstatus.Text = “Single”
ElseIf nik = “M” Then
textkodestatus.Text = “M”
textstatus.Text = “Menikah”

End Sub

Private Sub Command2_Click()
text1.SetFocus
text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
End Sub

Private Sub Command3_Click()
text1.SetFocus
text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”

End Sub

Private Sub Command4_Click()
Unload Me

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If

End Sub

Private Sub txtKB_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtNB.SetFocus
End If
End Sub
Private Sub txtNB_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtJS.SetFocus
End If
End Sub
Private Sub txtJS_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtTJ.SetFocus
End If
End Sub

Private Sub txtTJ_keypress(keyascii As Integer)
If keyascii = 13 Then
txtSS.Text = Val(txtJS.Text) – Val(txtTJ.Text)
txtTH.Text = Val(txtTJ.Text) * Val(txtHJ.Text)
End If
End Sub
Private Sub txtHJ_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtTH.SetFocus
End If
End Sub


Private Sub txtgol_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtks.SetFocus
End If
End Sub

Private Sub txtks_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtst.SetFocus
End If
End Sub
Private Sub txtst_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtth.SetFocus
End If
End Sub
Private Sub txtth_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjbt.SetFocus
End If
End Sub
Private Sub txtjbt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbag.SetFocus
End If
End Sub
Private Sub txtbag_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgapok.SetFocus
End If
End Sub
Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttnj.SetFocus
End If
End Sub
Private Sub txttnj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgatot.SetFocus
End If
End Sub

Private Sub txtnmakaryawan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: