data base hendra prasetya

Private Sub Cmdprosess_Click()

kode = Mid(Txtnpm.Text, 3, 1)

If kode = “1” Then

Txtjurusan.Text = “sistem informasi”

ElseIf kode = “2” Then

Txtjurusan.Text = “managemen informatika”

ElseIf kode = “3” Then

Txtjurusan.Text = “teknik informatika”

ElseIf kode = “4” Then

Txtjurusan.Text = “komputer akuntansi”

End If

Txtnpm.SetFocus

kode = Mid(Txtnpm.Text, 4, 2)

If kode = “00” Then

Txtprody.Text = “strata satu”

ElseIf kode = “01” Then

Txtprody.Text = “diploma empat”

ElseIf kode = “02” Then

Txtprody.Text = “diploma tiga”

ElseIf kode = “03” Then

Txtprody.Text = “diploma dua”

End If

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

txtnorut.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Cmdbaru_Click()

Data1.Recordset.AddNew

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjurusan = “”

Txtprody = “”

Txttm = “”

txtnorut = “”

End Sub

 

 

Private Sub cmddelet_Click()

Data1.Recordset.Delete

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjurusan = “”

Txtprody = “”

Txttm = “”

txtnorut = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdsimpan_Click()

Data1.Recordset.Update

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjurusan = “”

Txtprody = “”

Txttm = “”

txtnorut = “”

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Data Buku STMIK 3

Private Sub CmdBATAL_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdPROSES_Click()

Dim A As String

txttahun.Text = “20” & Right(txtkode.Text, 2)

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”

ElseIf A = “EDP” Then

txtjudul.Text = “ELEKTRONIK DATA PROCESSING”

ElseIf A = “MNJ” Then

txtjudul.Text = “MANAJEMEN”

ElseIf A = “CDR” Then

txtjudul.Text = “CORELDRAW”

ElseIf A = “RPL” Then

txtjudul.Text = “REKAYASA PERANGKAT LUNAK”

End If

A = Left(txtkode.Text, 1)

If A = “A” Then

txtpenerbit.Text = “ANDI OFSSET YOGYAKARTA”

ElseIf A = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf A = “S” Then

txtpenerbit.Text = “SALEMBA”

ElseIf A = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf A = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtpengarang.Text = ” YATI NUR OKTAFIA”

ElseIf A = “EDP” Then

txtpengarang.Text = “IMAM TARMIZI”

ElseIf A = “MNJ” Then

txtpengarang.Text = “VALENTINA MARIANA”

ElseIf A = “CDR” Then

txtpengarang.Text = “RYAN SUHANDI”

ElseIf A = “RPL” Then

txtpengarang.Text = “SHINTA UMPU SINGA”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtharga.Text = “83000”

ElseIf A = “EDP” Then

txtharga.Text = “57000”

ElseIf A = “MNJ” Then

txtharga.Text = “42000”

ElseIf A = “CDR” Then

txtharga.Text = “62000”

ElseIf A = “RPL” Then

txtharga.Text = “75900”

End If

End Sub

rivate Sub ChkBOLD_Click()
If ChkBOLD.Value = 1 Then
LBLTEKS.FontBold = True
Else
LBLTEKS.FontBold = False
End If
End Sub

Private Sub ChkITALIC_Click()
If ChkITALIC.Value = 1 Then
LBLTEKS.FontItalic = True
Else
LBLTEKS.FontItalic = False
End If
End Sub

Private Sub ChkSTRIKE_Click()
If ChkSTRIKE.Value = 1 Then
LBLTEKS.FontStrikethru = True
Else
LBLTEKS.FontStrikethru = False
End If
End Sub

Private Sub ChkUNDER_Click()
If ChkUNDER.Value = 1 Then
LBLTEKS.FontUnderline = True
Else
LBLTEKS.FontUnderline = False
End If
End Sub

Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub OptBLUE_Click()
LBLTEKS.ForeColor = vbBlue

End Sub

Private Sub OptGREEN_Click()
LBLTEKS.ForeColor = vbGreen

End Sub

Private Sub OptRED_Click()
LBLTEKS.ForeColor = vbRed
End Sub

Private Sub OptYELLOW_Click()
LBLTEKS.ForeColor = vbYellow

End Sub

tugas vb data buku 3

Private Sub CmdBATAL_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdPROSES_Click()

Dim A As String

txttahun.Text = “20” & Right(txtkode.Text, 2)

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”

ElseIf A = “EDP” Then

txtjudul.Text = “ELEKTRONIK DATA PROCESSING”

ElseIf A = “MNJ” Then

txtjudul.Text = “MANAJEMEN”

ElseIf A = “CDR” Then

txtjudul.Text = “CORELDRAW”

ElseIf A = “RPL” Then

txtjudul.Text = “REKAYASA PERANGKAT LUNAK”

End If

A = Left(txtkode.Text, 1)

If A = “A” Then

txtpenerbit.Text = “ANDI OFSSET YOGYAKARTA”

ElseIf A = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf A = “S” Then

txtpenerbit.Text = “SALEMBA”

ElseIf A = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf A = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtpengarang.Text = ” YATI NUR OKTAFIA”

ElseIf A = “EDP” Then

txtpengarang.Text = “IMAM TARMIZI”

ElseIf A = “MNJ” Then

txtpengarang.Text = “VALENTINA MARIANA”

ElseIf A = “CDR” Then

txtpengarang.Text = “RYAN SUHANDI”

ElseIf A = “RPL” Then

txtpengarang.Text = “SHINTA UMPU SINGA”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtharga.Text = “83000”

ElseIf A = “EDP” Then

txtharga.Text = “57000”

ElseIf A = “MNJ” Then

txtharga.Text = “42000”

ElseIf A = “CDR” Then

txtharga.Text = “62000”

ElseIf A = “RPL” Then

txtharga.Text = “75900”

End If

End Sub

tugas vb data buku 2

Private Sub CmdBATAL_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjudul.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub CmdPROSES_Click()

Dim A As String

txttahun.Text = “20” & Right(txtkode.Text, 2)

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”

ElseIf A = “EDP” Then

txtjudul.Text = “ELEKTRONIK DATA PROCESSING”

ElseIf A = “MNJ” Then

txtjudul.Text = “MANAJEMEN”

ElseIf A = “CDR” Then

txtjudul.Text = “CORELDRAW”

ElseIf A = “RPL” Then

txtjudul.Text = “REKAYASA PERANGKAT LUNAK”

End If

A = Left(txtkode.Text, 1)

If A = “A” Then

txtpenerbit.Text = “ANDI OFSSET YOGYAKARTA”

ElseIf A = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf A = “S” Then

txtpenerbit.Text = “SALEMBA”

ElseIf A = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf A = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtpengarang.Text = ” FADIYA ULFA”

ElseIf A = “EDP” Then

txtpengarang.Text = “NURUL AGUSTINA”

ElseIf A = “MNJ” Then

txtpengarang.Text = “RIAN HIDAYAT”

ElseIf A = “CDR” Then

txtpengarang.Text = “SITI NUR KHOTIMAH”

ElseIf A = “RPL” Then

txtpengarang.Text = “WINDA ERLIANTI”

End If

A = Mid(txtkode.Text, 3, 3)

If A = “SIM” Then

txtharga.Text = “83000”

ElseIf A = “EDP” Then

txtharga.Text = “57000”

ElseIf A = “MNJ” Then

txtharga.Text = “42000”

ElseIf A = “CDR” Then

txtharga.Text = “62000”

ElseIf A = “RPL” Then

txtharga.Text = “75900”

End If

End Sub

pt peluang petang

Private Sub CMDBATAL_Click()

TXTINPUT.SetFocus

TXTINPUT.Text = “”

TXTNIK.Text = “”

End Sub

 

Private Sub CMDEXIT_Click()

Unload Me

End Sub

 

Private Sub CMDLAGI_Click()

TXTINPUT.SetFocus

TXTGOLONGAN.Text = “”

TXTJABATAN.Text = “”

TXTTUNJANGAN.Text = “”

TXTGAPOK.Text = “”

TXTTOGA.Text = “”

TXTNIK.Text = “”

TXTTERBILANG.Text = “”

TXTBAGIAN.Text = “”

TXTTAHUN.Text = “”

TXTKODE.Text = “”

TXTSTATUS.Text = “”

End Sub

 

Private Sub CMDPROSES_Click()

Dim NIK As String

NIK = Mid(TXTNIK.Text, 5, 1)

If NIK = “A” Then

TXTGOLONGAN = “A”

TXTJABATAN = “MANAJER”

TXTTUNJANGAN = “1025000”

TXTGAPOK = “4000000”

ElseIf NIK = “B” Then

TXTGOLONGAN = “B”

TXTJABATAN = “KA SEKSI”

TXTTUNJANGAN = “975000”

TXTGAPOK = “3500000”

ElseIf NIK = “C” Then

TXTGOLONGAN = “C”

TXTJABATAN = “STAFF”

TXTTUNJANGAN = “925000”

TXTGAPOK = “3000000”

End If

TXTTOGA = Val(TXTGAPOK.Text) + Val(TXTTUNJANGAN.Text)

NIK = Left(TXTNIK.Text, 4)

TXTTAHUN.Text = NIK

NIK = Mid(TXTNIK.Text, 9, 3)

If NIK = “KEU” Then

TXTBAGIAN = “ACCOUNTING”

ElseIf NIK = “ADM” Then

TXTBAGIAN = “ADMINISTRASI”

ElseIf NIK = “SDM” Then

TXTBAGIAN = “GENERAL AFFAIR”

ElseIf NIK = “EDP” Then

TXTBAGIAN = “IT UNIT”

ElseIf NIK = “SPM” Then

TXTBAGIAN = “SECURITY”

End If

NIK = Mid(TXTNIK.Text, 7, 1)

If NIK = “S” Then

TXTKODE = “S”

TXTSTATUS = “SINGLE”

ElseIf NIK = “M” Then

TXTKODE = “M”

TXTSTATUS = “MENIKAH”

ElseIf NIK = “D” Then

TXTKODE = “D”

TXTSTATUS = “DUDA”

ElseIf NIK = “J” Then

TXTKODE = “J”

TXTSTATUS = “JANDA”

End If

End Sub

 

 

 

 

Private Sub TXTTOGA_Change()

TXTTERBILANG.Text = terbilang(Val(TXTTOGA.Text))

End Sub

Private Function KeKata(Nomor)

TrjKata = Array(“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”, “delapan”, “sembilan”)

KeKata = TrjKata(Nomor)

End Function

Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = “”)

Angka = Fix(Abs(Nilai_Angka))

des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)

des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)

If des2 = “” Then

If des1 = “” Or des1 = “0” Then

Koma = “”

Else

Koma = “koma” & KeKata(des1)

End If

ElseIf des2 = “0” Then

If des1 = “0” Then

Koma = “”

ElseIf des1 = “1” Then

Koma = “koma sepuluh”

Else

Koma = “koma” & KeKata(des1) & “puluh”

End If

Else

If des1 = “0” Then

Koma = “koma nol” & KeKata(des2)

ElseIf des1 = “1” Then

If des2 = “1” Then

Koma = “koma sebelas”

Else

Koma = “koma” & KeKata(des2) & “belas”

End If

Else

Koma = “koma” & KeKata(des1) & “puluh” & KeKata(des2)

End If

End If

No1 = Left(Right(Angka, 1), 1)

No2 = Left(Right(Angka, 2), 1)

No3 = Left(Right(Angka, 3), 1)

No4 = Left(Right(Angka, 4), 1)

No5 = Left(Right(Angka, 5), 1)

No6 = Left(Right(Angka, 6), 1)

No7 = Left(Right(Angka, 7), 1)

No8 = Left(Right(Angka, 8), 1)

No9 = Left(Right(Angka, 9), 1)

No10 = Left(Right(Angka, 10), 1)

No11 = Left(Right(Angka, 11), 1)

No12 = Left(Right(Angka, 12), 1)

No13 = Left(Right(Angka, 13), 1)

No14 = Left(Right(Angka, 14), 1)

No15 = Left(Right(Angka, 15), 1)

If Len(Angka) >= 1 Then

If Len(Angka) = 1 And No1 = 1 Then

Nomor1 = “satu”

ElseIf Len(Angka) = 1 And No1 = 0 Then

Nomor1 = “Nol”

ElseIf No2 = “1” Then

If No1 = “1” Then

Nomor1 = “sebelas”

ElseIf No1 = “0” Then

Nomor1 = “sepuluh”

Else

Nomor1 = KeKata(No1) & “belas”

End If

Else

Nomor1 = KeKata(No1)

End If

Else

Nomor1 = “”

End If

If Len(Angka) >= 2 Then

If No2 = 1 Or No2 = “0” Then

Nomor2 = “”

Else

Nomor2 = KeKata(No2) & “puluh”

End If

Else

Nomor2 = “”

End If

If Len(Angka) >= 3 Then

If No3 = “1” Then

Nomor3 = “seratus”

ElseIf No3 = “0” Then

Nomor3 = “”

Else

Nomor3 = KeKata(No3) & “ratus”

End If

Else

Nomor3 = “”

End If

If Len(Angka) >= 4 Then

If No6 = “0” And No5 = “0” And No4 = “0” Then

Nomor4 = “”

ElseIf (No4 = “1” And Len(Angka) = 4) Or (No6 = “0” And No5 = “0” And No4 = “1”) Then

 

Nomor4 = “seribu ”

ElseIf No5 = “1” Then

If No4 = “1” Then

Nomor4 = “sebelas ribu”

ElseIf No4 = “0” Then

Nomor4 = “sepuluh ribu”

Else

Nomor4 = KeKata(No4) & “belas ribu”

End If

Else

Nomor4 = KeKata(No4) & “ribu”

End If

Else

Nomor4 = “”

End If

If Len(Angka) >= 5 Then

If No5 = “1” Or No5 = “0” Then

Nomor5 = “”

Else

Nomor5 = KeKata(No5) & “puluh”

End If

Else

Nomor5 = “”

End If

If Len(Angka) >= 6 Then

If No6 = “1” Then

Nomor6 = “seratus”

ElseIf No6 = “0” Then

Nomor6 = “”

Else

Nomor6 = KeKata(No6) & “ratus”

End If

Else

Nomor6 = “”

End If

If Len(Angka) >= 7 Then

If No9 = “0” And No8 = “0” And No7 = “0” Then

Nomor7 = “”

ElseIf No7 = “1” And Len(Angka) = 7 Then

Nomor7 = “satujuta”

ElseIf No8 = “1” Then

If No7 = “1” Then

Nomor7 = “sebelas juta”

ElseIf No7 = “0” Then

Nomor7 = “sepuluh juta”

Else

Nomor7 = KeKata(No7) & “belas juta”

End If

Else

Nomor7 = KeKata(No7) & “juta”

End If

Else

Nomor7 = “”

End If

If Len(Angka) >= 8 Then

If No8 = “1” Or No8 = “0” Then

Nomor8 = “”

Else

Nomor8 = KeKata(No8) & “puluh”

End If

Else

Nomor8 = “”

End If

If Len(Angka) >= 9 Then

If No9 = “1” Then

Nomor9 = “seratus”

ElseIf No9 = “0” Then

Nomor9 = “”

Else

Nomor9 = KeKata(No9) & “ratus”

End If

Else

Nomor9 = “”

End If

If Len(Angka) >= 10 Then

If No12 = “0” And No11 = “0” And No10 = “0” Then

Nomor10 = “”

ElseIf No10 = “1” And Len(Angka) = 10 Then

Nomor10 = “satu milyar”

ElseIf No11 = “1” Then

If No10 = “1” Then

Nomor10 = “sebelas milyar”

ElseIf No10 = “0” Then

Nomor10 = “sepuluh milyar”

Else

Nomor10 = KeKata(No10) & “belas milyar”

End If

Else

Nomor10 = KeKata(No10) & “milyar”

End If

Else

Nomor10 = “”

End If

If Len(Angka) >= 11 Then

If No11 = “1” Or No11 = “0” Then

Nomor11 = “”

Else

Nomor11 = KeKata(No11) & “puluh”

End If

Else

Nomor11 = “”

End If

If Len(Angka) >= 12 Then

If No12 = “1” Then

Nomor12 = “seratus”

ElseIf No12 = “0” Then

Nomor12 = “”

Else

Nomor12 = KeKata(No12) & “ratus”

End If

Else

Nomor12 = “”

End If

If Len(Angka) >= 13 Then

If No15 = “0” And No14 = “0” And No13 = “0” Then

Nomor13 = “”

ElseIf No13 = “1” And Len(Angka) = 13 Then

Nomor13 = “satu triliun”

ElseIf No14 = “1” Then

If No13 = “1” Then

Nomor13 = “sebelas triliun”

ElseIf No13 = “0” Then

Nomor13 = “sepuluh triliun”

Else

Nomor13 = KeKata(No13) & “belas triliun”

End If

Else

Nomor13 = KeKata(No13) & “triliun”

End If

Else

Nomor13 = “”

End If

If Len(Angka) >= 14 Then

If No14 = “1” Or No14 = “0” Then

Nomor14 = “”

Else

Nomor14 = KeKata(No14) & “puluh”

End If

Else

Nomor14 = “”

End If

If Len(Angka) >= 15 Then

If No15 = “1” Then

Nomor15 = “seratus”

ElseIf No15 = “0” Then

Nomor15 = “”

Else

Nomor15 = KeKata(No15) & “ratus”

End If

Else

Nomor15 = “”

End If

If Len(Angka) >= 15 Then

bilang = “Digit Angka Terlalu Banyak”

Else

If IsNull(Nilai_Angka) Then

bilang = “”

ElseIf Nilai_Angka <= 0 Then

bilang = “minus” & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _

& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & “” & Satuan)

Else

bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _

& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & “” & Satuan)

End If

End If

If Style = 4 Then

terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2)

Else

terbilang = StrConv(bilang, Style)

End If

terbilang = Replace(terbilang, ” “, ” “, 1, 1000, vbTextCompare)

End Function

Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim s As String

s = Mid(txtkb.Text, 1, 1)
If s = “A” Then
txtpen.Text = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
txtpen.Text = “Indah Surabaya”
ElseIf s = “S” Then
txtpen.Text = “Salemba Empat”
ElseIf s = “E” Then
txtpen.Text = “Elek Media Koputindo”
ElseIf s = “M” Then
txtpen.Text = “Maxicom”
End If

s = Mid(txtkb.Text, 3, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Andra Setiawan”
txthrg.Text = “75900”

ElseIf s = “EDP” Then
txtjb.Text = “Elektronik Data Procissing”
txtpeng.Text = “Desi Istiqomah”
txthrg.Text = “62000”

ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sandy Fitrajaya”
txthrg.Text = “42000”

ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Tri Indah Sari”
txthrg.Text = “62000”

ElseIf s = “RPL” Then
txtjb.Text = “Rekayasa Prangkat Lunak”
txtpeng.Text = “Ernita”
txthrg.Text = “83000”
End If
txttt.Text = “20” & Right(txtkb.Text, 2)
End Sub

 

 

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jr, ps As String
txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
jr = “sistem informasi”
ElseIf A = “2” Then
jr = “manajemen informatika”
ElseIf A = “3” Then
jr = “teknik informatika”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
txtjurusan.Text = jr
A = Mid(Txtnpm.Text, 4, 2)
If A = “00” Then
ps = “strata satu”
ElseIf A = “01” Then
ps = “diploma empat”
ElseIf A = “02” Then
ps = “diploma tiga”
ElseIf A = “03” Then
ps = “diploma dua”
End If
txtprogramstudy.Text = ps
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Timer1_Timer()
If Form1.Caption = “HENDRA PRASETYA” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “HENDRA AN ” Then
Form1.Caption = “HENDRA AN”
ElseIf Form1.Caption = “HENDRA” Then
Form1.Caption = “HENDRA”
ElseIf Form1.Caption = “HEND” Then
Form1.Caption = “HEND”
ElseIf Form1.Caption = “HEN” Then
Form1.Caption = “HEN”
Else
Form1.Caption = “HENDRA PRASETYA”
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

perhitungan diskon

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + (Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
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 Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
textnilai.SetFocus
textnilai1 = “”
textnilai2 = “”
texthasil = “”
End Sub

Private Sub Command6_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_Change()
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub