Program Data Base ‘Toko Sembako’

AGUNG

Private Sub ComDPROSES_Click()

total = TXTXJUMABA.text x txtHARGA.text

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub ComdBATAL_Click()

kosong

End Sub

Public Sub kosong()

TxtKODE.SetFocus

TxtNAMABA.Text = “”

TxtDISKON.Text = “”

TxtJUMABA.Text = “”

TxtHARGA.Text = “”

TxtTOTAL.Text = “”

End Sub

Private Sub ComDKELUAR_Click()

Unload Me

End Sub

 

Private Sub ComdLAGI_Click()

kosong

End Sub

 

 

Private Sub DBGrid1_Click()

 

End Sub

 

 

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

Private Sub TxtKODE_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SetFocus

End If

 

End Sub

Iklan
Standar

data base

program

1.

Capture

1.Private Sub Cbgolongan_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cbgolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbgolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

TxtGAPOK.Text = gapok

TxtTUNJA.Text = tunjangan

TxtPAJAK.Text = pajak

TxtTOTAL.Text = total – pajak

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub ComdBATAL_Click()

kosong

End Sub

Public Sub kosong()

TxtNIDN.SetFocus

TxtNIDN.Text = “”

TxtNAMA.Text = “”

Cbgolongan.Text = “”

TxtGAPOK.Text = “”

TxtTUNJA.Text = “”

TxtPAJAK.Text = “”

TxtTOTAL.Text = “”

End Sub

Private Sub ComDKELUAR_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

kosong

End Sub

Private Sub Form_Load()

Cbgolongan.AddItem “I”

Cbgolongan.AddItem “II”

Cbgolongan.AddItem “III”

Cbgolongan.AddItem “IV”

End Sub

Private Sub Text1_Change()

End Sub

Private Sub TxtNIDN_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SetFocus

End If

End Sub

2.

2

  1. Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

Private Sub Cmdproses_Click()

Dim A As String

Texttm = “20” & Left(Textnpm, 2)

A = Mid(Textnpm, 3, 3)

If A = “100” Then

Textjur = “sistem informasi”

Textps = “strata 1”

ElseIf A = “200” Then

Textjur = “manajemen informatika”

Textps = “diploma 3”

ElseIf A = “300” Then

Textjur = “teknik informatika”

Textps = “diploma 4”

ElseIf A = “400” Then

Textjur = “komputer akutansi”

Textps = “diploma 2”

End If

Textnu = Right(Textnpm, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

3.

2

3.

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

Private Sub Cmdproses_Click()

Dim jr As String

Dim ps As String

Dim A As String

A = Mid(Textnpm, 3, 1)

If A = 1 Then

jr = “sistem informasi”

ElseIf A = 2 Then

jr = “teknik informatika”

ElseIf A = 3 Then

jr = “menejemen informatika”

ElseIf A = 4 Then

jr = “komputer akuntansi”

End If

Textjur = jr

A = Mid(Textnpm, 4, 2)

If A = “01” Then

ps = “strata 1”

ElseIf A = “02” Then

ps = “diploma 4”

ElseIf A = “03” Then

ps = “diploma 3”

ElseIf A = “04” Then

ps = “diploma 2”

End If

Textps = ps

Texttm = “20” & Left(Textnpm, 2)

Textnu = Right(Textnpm, 3)

End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

4.

4

4.Private Sub Combo1_Change()

End Sub

Private Sub CbKODE_Click()

Dim MERK, HS As Variant

Select Case CbKODE.Text

Case “Apple MC965 MacBook Air”

MERK = “Apple MacBook Air MC965”

HS = 12800000

Case “Apple MC966 MacBook Air”

MERK = “Apple MacBook Air MC966”

HS = 15800000

Case “Apple MC968 MacBook Air”

MERK = “Apple MacBook Air MC968”

HS = 9900000

Case “Apple MC969 MacBook Air”

MERK = “Apple MacBook Air MC969”

HS = 11900000

Case “Apple MC700 MacBook Pro”

MERK = “Apple MacBook Pro MC700”

HS = 10800000

Case “Apple MC721 MacBook Pro”

MERK = “Apple MacBook Pro MC721”

HS = 15900000

Case “Apple MC723 MacBook Pro”

MERK = “Apple MacBook Pro MC723”

HS = 19300000

Case “Apple MC724 MacBook Pro”

MERK = “Apple MacBook Pro MC724”

HS = 13700000

Case “Apple MC311 MacBook Pro”

MERK = “Apple MacBook Pro MC311”

HS = 24200000

Case “Apple MC313 MacBook Pro”

MERK = “Apple MacBook Pro MC313”

HS = 11900000

Case “Apple MC314 MacBook Pro”

MERK = “Apple MacBook Pro MC314”

HS = 14700000

Case “Apple MC318 MacBook Pro”

MERK = “Apple MacBook Pro MC318”

HS = 17600000

Case “Apple MC322 MacBook Pro”

MERK = “Apple MacBook Pro MC322”

HS = 21300000

Case “Apple MC965 MacBook Air”

MERK = “Apple MacBook Air MC965”

HS = 12800000

Case “Apple MC966 MacBook Air”

MERK = “Apple MacBook Air MC966”

HS = 15800000

End Select

TxtMERK.Text = MERK

TxtHS.Text = HS

End Sub

Private Sub ComdEXIT_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

CbKODE.SetFocus

CbKODE.Text = “”

TxtMERK.Text = “”

TxtHS.Text = “”

TxtJUAL.Text = “”

TxtPENJU.Text = “”

Txtdisco.Text = “”

TxtTOTAL.Text = “”

End Sub

Private Sub ComdPROSES_Click()

TxtPENJU.Text = Val(TxtJUAL.Text) * Val(TxtHS.Text)

If Val(TxtPENJU.Text) > 140000000 Then

Txtdisco.Text = Val(TxtPENJU.Text) * 15 / 100

ElseIf Val(TxtPENJU.Text) > 135000000 Then

Txtdisco.Text = 10 / 100 * Val(TxtPENJU.Text)

ElseIf Val(TxtPENJU.Text) > “130000000” Then

Txtdisco.Text = 5 / 100 * Val(TxtPENJU.Text)

ElseIf Val(TxtPENJU.Text) > “125000000” Then

Txtdisco.Text = 2 / 100 * Val(TxtPENJU.Text)

End If

TxtTOTAL.Text = Val(TxtPENJU.Text) – Val(Txtdisco.Text)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

Data1.Recordset.MoveNext

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

CbKODE.AddItem “Apple MC965 MacBook Air”

CbKODE.AddItem “Apple MC966 MacBook Air”

CbKODE.AddItem “Apple MC968 MacBook Air”

CbKODE.AddItem “Apple MC969 MacBook Air”

CbKODE.AddItem “Apple MC700 MacBook Pro”

CbKODE.AddItem “Apple MC721 MacBook Pro”

CbKODE.AddItem “Apple MC723 MacBook Pro”

CbKODE.AddItem “Apple MC724 MacBook Pro”

CbKODE.AddItem “Apple MC311 MacBook Pro”

CbKODE.AddItem “Apple MC313 MacBook Pro”

CbKODE.AddItem “Apple MC314 MacBook Pro”

CbKODE.AddItem “Apple MC318 MacBook Pro”

CbKODE.AddItem “Apple MC322 MacBook Pro”

CbKODE.AddItem “Apple MC965 MacBook Air”

CbKODE.AddItem “Apple MC966 MacBook Air”

End Sub

5.

5

  1. 5. Private Sub Combo1_Change()

End Sub

Private Sub CbKODE_Click()

Dim JK, HS, JJ, HP, DISCO, TOTAL As Variant

Select Case CbKODE.Text

Case “P205”

JK = “Pentium II  500 Mega Hz”

HS = 1500000

Case “P308″

JK = ” Pentium III  800 Mega Hz ”

HS = 2100000

Case “P310”

JK = “Pentium III 1.0 Giga Hz ”

HS = 3500000

Case “P415”

JK = “Pentium IV  1.5 Giga Hz”

HS = 4000000

Case “P417”

JK = “Pentium IV  1.7 Giga Hz ”

HS = 4200000

Case “P419”

JK = “Pentium IV  1.9 Giga Hz”

HS = 5500000

End Select

TxtJK.Text = JK

TxtHS.Text = HS

TxtJJ.SetFocus

End Sub

Private Sub ComdEXIT_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

CbKODE.SetFocus

CbKODE.Text = “”

TxtJK.Text = “”

TxtHS.Text = “”

TxtJJ.Text = “”

TxtHP.Text = “”

TxtDISCO.Text = “”

TxtTOTAL.Text = “”

End Sub

Private Sub ComdPROSES_Click()

TxtHP.Text = Val(TxtHS) * Val(TxtJJ.Text)

If Val(TxtHP.Text) > 30000000 Then

TxtDISCO.Text = Val(TxtHP.Text) * 15 / 100

ElseIf Val(TxtHP.Text) > 25000000 Then

TxtDISCO.Text = 10 / 100 * Val(TxtHP.Text)

ElseIf Val(TxtHP.Text) > “20000000” Then

TxtDISCO.Text = 5 / 100 * Val(TxtHP.Text)

ElseIf Val(TxtHP.Text) > “15000000” Then

TxtDISCO.Text = 2 / 100 * Val(TxtHP.Text)

End If

TxtTOTAL.Text = Val(TxtHP.Text) – Val(TxtDISCO)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

CbKODE.AddItem “P205”

CbKODE.AddItem “P308”

CbKODE.AddItem “P310”

CbKODE.AddItem “P415”

CbKODE.AddItem “P417”

CbKODE.AddItem “P419”

End Sub

6.Private Sub ComdBATAL_Click()

Cbkode.SetFocus

Cbkode.Text = “”

Textjudul.Text = “”

Textpeng.Text = “”

TextTT.Text = “”

Textpene.Text = “”

Textharga.Text = “”

End Sub

Private Sub ComdKELUAR_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

Cbkode.SetFocus

Cbkode.Text = “”

Textjudul.Text = “”

Textpeng.Text = “”

TextTT.Text = “”

Textpene.Text = “”

Textharga.Text = “”

End Sub

Private Sub ComdPROSES_Click()

Dim judul, pengarang, harga As String

Y = Mid(Cbkode.Text, 3, 3)

If Y = “SIM” Then

Textjudul.Text = “Sistem Informasi Manajeme”

Textpeng.Text = “Yati Nur Oktavia”

Textharga.Text = “75900”

ElseIf Y = “EDP” Then

Textjudul.Text = “Elektronik Data Processing”

Textpeng.Text = “Imam Tarmizi”

Textharga.Text = “62000”

ElseIf Y = “CDR” Then

Textjudul.Text = “Corel Draw”

Textpeng.Text = “Riyan Suhandi”

Textharga.Text = “53000”

ElseIf Y = “MNJ” Then

Textjudul.Text = “Manajemen”

Textpeng.Text = “Valentina Mariana Adiwianti”

Textharga.Text = “42000”

ElseIf Y = “RPL” Then

Textjudul.Text = “Rekayasa Perangkat Lunak”

Textpeng.Text = “Sinta Umpu Singa”

Textharga.Text = “83000”

End If

TextTT.Text = “20” & Right(Cbkode.Text, 2)

Dim S As String

S = Left(Cbkode.Text, 1)

If S = “A” Then

Textpene.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Textpene.Text = “Indah Surabaya”

S = Left(Cbkode.Text, 1)

ElseIf S = “S” Then

Textpene.Text = “Salemba Empat”

ElseIf S = “M” Then

Textpene.Text = “Maxicom”

ElseIf S = “E” Then

Textpene.Text = “Elek Media Komputindo”

End If

End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Data1.Recordset.Update

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

Cbkode.AddItem “A-SIM-01”

Cbkode.AddItem “I-EDP-02”

Cbkode.AddItem “S-MNJ-03”

Cbkode.AddItem “E-CDR-04”

Cbkode.AddItem “M-RPL-05”

End Sub

7.

7

7.Private Sub ComdKELUAR_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

TextKODE.SetFocus

TextKODE.Text = “”

TextHARGA.Text = “”

TextJK.Text = “”

TextJB.Text = “”

TextJT.Text = “”

TextTOTAL.Text = “”

End Sub

Private Sub ComdPROSES_Click()

Dim harga, A, jk, jb, jt As Variant

A = Left(TextKODE.Text, 3)

If A = “BIM” Then

TextHARGA.Text = “750000”

TextJK = “BIMA pringsewu”

TextJB.Text = “16:00”

ElseIf A = “EKO” Then

TextHARGA.Text = “40000”

TextJK = “EKONOMI Pringsewu”

TextJB.Text = “19:00”

ElseIf A = “MUT” Then

TextHARGA.Text = “1000000”

TextJK = “MUTIARA pringsewu”

TextJB.Text = “17:00”

ElseIf A = “SEN” Then

TextHARGA.Text = “85000”

TextJK = “SENJA pringsewu”

TextJB.Text = “20:00”

End If

TextJT.SetFocus

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub TextJT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextTOTAL.Text = Val(TextJT) * Val(TextHARGA)

End If

End Sub

8

8

8.Private Sub ComdKELUAR_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

TextKODE.SetFocus

TextKODE.Text = “”

TextHARGA.Text = “”

TextpENG.Text = “”

Textpene.Text = “”

TextTT.Text = “”

TextJB.Text = “”

End Sub

Private Sub ComdPROSES_Click()

Dim A As String

A = Left(TextKODE.Text, 3)

If A = “SIM” Then

TextJB.Text = “Sistem Informasi Manajemen”

TextpENG.Text = “RIYAN ALFARIZI”

TextHARGA.Text = “75900”

ElseIf A = “EDP” Then

TextJB.Text = “Elektronik Data Processing”

TextpENG.Text = “LAILATULROHMAH”

TextHARGA.Text = “62000”

ElseIf A = “MNJ” Then

TextJB.Text = “Manajemen”

TextpENG.Text = “DAVID BUDIANTO”

TextHARGA.Text = “82000”

ElseIf A = “CDR” Then

TextJB.Text = “Corel Draw”

TextpENG.Text = “GILBERT ALEX”

TextHARGA.Text = “53000”

ElseIf A = “RPL” Then

TextJB.Text = “Rekayasa Perangkat Lunak”

TextpENG.Text = “Winda Erlianti”

TextHARGA.Text = “83000”

End If

M = Right(TextKODE.Text, 1)

If M = “A” Then

Textpene.Text = “Andi Offset Yogyakarta”””

ElseIf M = “I” Then

Textpene.Text = “Indah Surabaya”

ElseIf M = “S” Then

Textpene.Text = “Salemba Empat”

ElseIf M = “E” Then

Textpene.Text = “Elek Media Komputindo”

ElseIf M = “M” Then

Textpene.Text = “Maxicom”

End If

TextTT.Text = “20” & Mid(TextKODE.Text, 5, 2)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

9.

9

9.Private Sub ComdBATAL_Click()

TextNAMA.SetFocus

TextNAMA.Text = “”

TextNIK.Text = “”

TextGOL.Text = “”

TextKODE.Text = “”

TextSTAT.Text = “”

TextTAHU.Text = “”

TextJABA.Text = “”

TextBAGI.Text = “”

TextGAPOK.Text = “”

TextTUNJA.Text = “”

TextTOTAL.Text = “”

End Sub

Private Sub ComdKELUAR_Click()

Unload Me

End Sub

Private Sub ComdLAGI_Click()

TextNAMA.SetFocus

TextNAMA.Text = “”

TextNIK.Text = “”

TextGOL.Text = “”

TextKODE.Text = “”

TextSTAT.Text = “”

TextTAHU.Text = “”

TextJABA.Text = “”

TextBAGI.Text = “”

TextGAPOK.Text = “”

TextTUNJA.Text = “”

TextTOTAL.Text = “”

End Sub

Private Sub ComdPROSES_Click()

Dim GOL, KODE, GAPOK, TOTAL, Y, TUNJA As Variant

TextTAHU.Text = Left(TextNIK.Text, 4)

Y = Mid(TextNIK.Text, 5, 1)

If Y = “A” Then

TextGOL.Text = “A”

TextJABA.Text = “MANAJER”

TextGAPOK.Text = “4000000”

TextTUNJA.Text = “1025000”

ElseIf Y = “B” Then

TextGOL.Text = “B”

TextJABA.Text = “KA.SEKSI”

Text.GAPOK.Text = “3500000”

TextTUNJA.Text = “975000”

ElseIf Y = “C” Then

TextGOL.Text = “C”

TextJABA.Text = “STAFF”

TextTUNJA.Text = “925000”

TextGAPOK.Text = “3000000”

End If

Y = Right(TextNIK.Text, 3)

If Y = “ADM” Then

TextBAGI.Text = “Administrasi”

ElseIf Y = “KEU” Then

TextBAGI.Text = “Accounting”

ElseIf Y = “SDM” Then

TextBAGI.Text = “General Affair”

ElseIf Y = “EDP” Then

TextBAGI.Text = “IT Unit”

ElseIf Y = “SPM” Then

TextBAGI.Text = “Security”

End If

Y = Mid(TextNIK.Text, 7, 1)

If Y = “S” Then

TextKODE.Text = “S”

TextSTAT.Text = “Single”

ElseIf Y = “M” Then

TextKODE.Text = “M”

TextSTAT.Text = “Menikah”

ElseIf Y = “J” Then

TextKODE.Text = “”

TextSTAT.Text = “Janda”

ElseIf Y = “D” Then

TextKODE.Text = “D”

TextSTAT.Text = “Duda”

End If

TextTOTAL.Text = Val(TextGAPOK) + Val(TextTUNJA)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub TextNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextNIK.SetFocus

End If

End Sub

10

a10

  1. Private Sub Text3_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Command1_Click()

txtkode.SetFocus

End Sub

Private Sub Command2_Click()

txtkode.SetFocus

txtkode.Text = “”

textnb.Text = “”

txthb.Text = “”

txtjb.Text = “”

txtby.Text = “”

txtpot.Text = “”

txtttb.Text = “”

End Sub

Private Sub Command3_Click()

txtby.Text = Val(txthb.Text) * Val(txtjb.Text)

If txtjb.Text > 5 Then

txtpot.Text = 2 / 100 * Val(txtby.Text)

ElseIf txtjb.Text < 5 Then

txtpot.Text = 1 * Val(txtby.Text)

End If

txtttb.Text = Val(txtby.Text) – Val(txtpot.Text)

End Sub

Private Sub Command4_Click()

Form2.Show

Unload Me

End Sub

Private Sub Command5_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command6_Click()

Dim nama, harga As String

Y = Mid(txtkode.Text, 5, 2)

If Y = “SP” Then

textnb.Text = “SPIDOL”

txthb.Text = “9500”

ElseIf Y = “BT” Then

textnb.Text = “buku tulis”

txthb.Text = “12500”

ElseIf Y = “TP” Then

textnb.Text = “TIPE EX”

txthb.Text = “3000”

ElseIf Y = “PG” Then

textnb.Text = “PENGGARIS”

txthb.Text = “25000”

ElseIf Y = “PT” Then

textnb.Text = “PAPAN TULIS”

txthb.Text = “50000”

End If

txtjb.SetFocus

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

Standar

TUGAS 9

7.PNG

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textkt.SetFocus
Textkt = “”
Textht = “”
Textjk = “”
Textjb = “”
Textjt = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Textkt.Text, 3)
If S = “BIM” Then
Textjk.Text = “BIMA”
Textht.Text = “50000”
Textjb.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Textjk.Text = “EKONOMI”
Textht.Text = “35000”
Textjb.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Textjk.Text = “MUTIARA”
Textht.Text = “23000”
Textjb.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Textjk.Text = “SENJA”
Textht.Text = “15000”
Textjb.Text = “20.00 WIB”
End If
Texttp.Text = Val(Textht.Text) * Val(Textjt.Text)
Textjt.SetFocus
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Textjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttp = Val(Textht) * Val(Textjt)
End If
End Sub

8

Private Sub Cmdbatal_Click()
Txtkode.SetFocus
Txtkode.Text = “”
Txtjb.Text = “”
txtpeng.Text = “”
Txttp.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
Txtjb.Text = “”
txtpeng.Text = “”
Txttp.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
Txttp.Text = “20” & Mid(Txtkode, 5, 2)
S = Left(Txtkode, 3)
If S = “SIM” Then
Txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Fadiya Ulfa”
Txtharga.Text = “75900”
ElseIf S = “EDP” Then
Txtjb.Text = “Elektronik Data Processing”
txtpeng.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf S = “MNJ” Then
Txtjb.Text = “Manajemen”
txtpeng.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf S = “CDR” Then
Txtjb.Text = “Corel Draw”
txtpeng.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf S = “RPL” Then
Txtjb.Text = “Rekayasa Perangkat Lunak”
txtpeng.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
S = Right(Txtkode, 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 Komputindo”
ElseIf S = “M” Then
Txtpen.Text = “Maxicom”
End If
End Sub
9.PNG

Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgol = “”
Textks = “”
Textstt = “”
Textt = “”
Textjab = “”
Textbag = “”
Textgp = “”
Texttun = “”
Texttg = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgol = “”
Textks = “”
Textstt = “”
Textt = “”
Textjab = “”
Textbag = “”
Textgp = “”
Texttun = “”
Texttg = “”
End Sub

Private Sub Cmdproses_Click()
Dim r As String
r = Mid(Textnik.Text, 5, 1)
If r = “A” Then
Textgol = “A”
Textjab.Text = “MANAGER”
Textgp.Text = “4000000”
Texttun.Text = “1025000”
ElseIf r = “B” Then
Textgol.Text = “B”
Textjab.Text = “Ka.SEKSI”
Textgp.Text = “3500000”
Texttun.Text = “975000”
ElseIf r = “C” Then
Textgol.Text = “C”
Textjab.Text = “STAFF”
Textgp.Text = “3000000”
Texttun.Text = “925000”
End If
r = Right(Textnik.Text, 3)
If r = “KEU” Then
Textbag.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Textbag.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Textbag.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Textbag.Text = “IT UNIT”
ElseIf r = “SPM” Then
Textbag.Text = “SECURITY”
End If
r = Mid(Textnik.Text, 7, 1)
If r = “S” Then
ks = “S”
Stt = “SINGLE”
ElseIf r = “M” Then
ks = “M”
Stt = “MENIKAH”
ElseIf r = “J” Then
ks = “J”
Stt = “JANDA”
ElseIf r = “D” Then
ks = “D”
Stt = “DUDA”
End If
Textks.Text = ks
Textstt.Text = Stt
Textt.Text = Left(Textnik.Text, 4)
Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text)
End Sub
Private Sub Form_Activate()
Textnama.SetFocus
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

Standar

TUGAS 9

1

Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Form_load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub
Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogolongan
Case “I”
gapok = 3500000
tunjangan = 350000
Case “II”
gapok = 2400000
tunjangan = 240000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 1000000
tunjangan = 100000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok = gapok
txttunjangan = tunjangan
txtpajak = pajak
txttotal = total – pajak
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn = “”
txtnama = “”
cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub
Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

2
Private Sub cmdbatal_Click()
kosong
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim jr As String
Dim ps As String
Dim A As String
A = Mid(Textnpm, 3, 1)
If A = 1 Then
jr = “sistem informasi”
ElseIf A = 2 Then
jr = “teknik informatika”
ElseIf A = 3 Then
jr = “menejemen informatika”
ElseIf A = 4 Then
jr = “komputer akuntansi”
End If
Textjur = jr

A = Mid(Textnpm, 4, 2)
If A = “01” Then
ps = “strata 1”
ElseIf A = “02” Then
ps = “diploma 4”
ElseIf A = “03” Then
ps = “diploma 3”
ElseIf A = “04” Then
ps = “diploma 2”
End If
Textps = ps
Texttm = “20” & Left(Textnpm, 2)
Textnu = Right(Textnpm, 3)

End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub Cmdproses_Click()
Dim A As String
Texttm = “20” & Left(Textnpm, 2)
A = Mid(Textnpm, 3, 3)
If A = “100” Then
Textjur = “sistem informasi”
Textps = “strata 1”
ElseIf A = “200” Then
Textjur = “manajemen informatika”
Textps = “diploma 3”
End If
Textnu = Right(Textnpm, 3)
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

3

 

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub Cmdproses_Click()
Dim A As String
Texttm = “20” & Left(Textnpm, 2)
A = Mid(Textnpm, 3, 3)
If A = “100” Then
Textjur = “sistem informasi”
Textps = “strata 1”
ElseIf A = “200” Then
Textjur = “manajemen informatika”
Textps = “diploma 3”
End If
Textnu = Right(Textnpm, 3)
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

4
Private Sub Cbocode_Click()
Dim merk, hs As String
Select Case Cbocode
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case ” MC966″
merk = “Apple MacBook Air MC966”
hs = “15800000”
Case ” MC968″
merk = “Apple MacBook Air MC968”
hs = “9900000”
Case ” MC969″
merk = “Apple MacBook Air MC969”
hs = “11900000”
Case “MC700”
merk = “Apple MacBook Pro MC700”
hs = “10800000”
Case “MC721”
merk = “Apple MacBook Pro MC721”
hs = “15900000”
Case “MC723”
merk = “Apple MacBook Pro MC723”
hs = “19300000”
Case “MC724”
merk = “Apple MacBook Pro MC724”
hs = “13700000”
Case “MC311”
merk = “Apple MacBook Pro MC311”
hs = “24200000”
Case “MC313”
merk = “Apple MacBook Pro MC313”
hs = “11900000”
Case “MC314”
merk = “Apple MacBook Pro MC314”
hs = “14700000”
Case “MC318”
merk = “Apple MacBook Pro MC318”
hs = “17600000”
Case “MC322”
merk = “Apple MacBook Pro MC322”
hs = “21300000”
Case ” MC965″
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966 ”
merk = “Apple MacBook Air MC966”
hs = “15800000 ”

End Select
Textmerk = merk
Texths = hs
Textjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Texthp = Val(Textjj) * Val(Texths)
If Val(Texthp) > 140000000 Then
Textdis = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > 135000000 Then
Textdis = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > 130000000 Then
Textdis = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > 125000000 Then
Textdis = Val(Texthp) * 2 / 100
End If
Texttotal = Val(Texthp) – Val(txtdis)
End Sub

Private Sub Form_Load()
Cbocode.AddItem “MC965”
Cbocode.AddItem “MC966”
Cbocode.AddItem “MC968”
Cbocode.AddItem “MC969”
Cbocode.AddItem “MC700”
Cbocode.AddItem “MC721”
Cbocode.AddItem “MC723”
Cbocode.AddItem “MC724”
Cbocode.AddItem “MC311”
Cbocode.AddItem “MC313”
Cbocode.AddItem “MC314”
Cbocode.AddItem “MC318”
Cbocode.AddItem “MC322”
End Sub
Private Sub Textjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texthp.SetFocus
End If
End Sub

5
Private Sub Cbocode_Click()
Dim jenis, hs As String
Select Case Cbocode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
Textjk = jenis
Texths = hs
Textjj.SetFocus
End Sub
Private Sub Cmdclose_Click()
End
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Textdis = “”
Texthb = “”
End Sub

Private Sub Cmdproses_Click()
Texthp = Val(Textjj) * Val(Texths)
If Val(Texthp) > “30000000” Then
Textdis = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > “25000000” Then
Textdis = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > “20000000” Then
Textdis = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > “15000000” Then
Textdis = Val(Texthp) * 2 / 100
End If
Texthb = Val(Texthp) – Val(Textdis)
End Sub

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Textdis = “”
Texthb = “”
End Sub

Private Sub Form_Load()
Cbocode.AddItem “P205”
Cbocode.AddItem “P308”
Cbocode.AddItem “P310”
Cbocode.AddItem “P415”
Cbocode.AddItem “P417”
Cbocode.AddItem “P419”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String
Select Case Cmbcode
Case “A-SIM-01”
judul = “SistemInformasiManajemen”
pengarang = “YatiNurOktavia”
tahun = “2001”
penerbit = “Andi Offset Yogyakarta”
harga = “75900”
Case “I-EDP-02”
judul = “ElektronikData Processing”
pengarang = “Imam Tarmizi”
tahun = “2002”
penerbit = “Indah Surabaya”
harga = “62000”
Case “S-MNJ-03”
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
tahun = “2003”
penerbit = “SalembaEmpat”
harga = “42000”
Case “E-CDR-04”
judul = “Corel Draw”
pengarang = “RiyanSuhandi”
tahun = “2004”
penerbit = “Elek Media Komputindo”
harga = “53000”
Case “M-RPL-05”
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
tahun = “2005”
penerbit = “Maxicom”
harga = “83000”
End Select
Textjb = judul
Textpeng = pengarang
Texttt = tahun
Textpen = penerbit
Textharga = harga
End Sub

Private Sub Cndbatal_Click()
kosong
End Sub

Private Sub Form_Load()
Cmbcode.AddItem “A-SIM-01”
Cmbcode.AddItem “I-EDP-02”
Cmbcode.AddItem “S-MNJ-03”
Cmbcode.AddItem “E-CDR-04”
Cmbcode.AddItem “M-RPL-05”
End Sub

6
Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String
Select Case Cmbcode
Case “A-SIM-01”
judul = “SistemInformasiManajemen”
pengarang = “YatiNurOktavia”
tahun = “2001”
penerbit = “Andi Offset Yogyakarta”
harga = “75900”
Case “I-EDP-02”
judul = “ElektronikData Processing”
pengarang = “Imam Tarmizi”
tahun = “2002”
penerbit = “Indah Surabaya”
harga = “62000”
Case “S-MNJ-03”
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
tahun = “2003”
penerbit = “SalembaEmpat”
harga = “42000”
Case “E-CDR-04”
judul = “Corel Draw”
pengarang = “RiyanSuhandi”
tahun = “2004”
penerbit = “Elek Media Komputindo”
harga = “53000”
Case “M-RPL-05”
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
tahun = “2005”
penerbit = “Maxicom”
harga = “83000”
End Select
Textjb = judul
Textpeng = pengarang
Texttt = tahun
Textpen = penerbit
Textharga = harga
End Sub

Private Sub Cndbatal_Click()
kosong
End Sub

Private Sub Form_Load()
Cmbcode.AddItem “A-SIM-01”
Cmbcode.AddItem “I-EDP-02”
Cmbcode.AddItem “S-MNJ-03”
Cmbcode.AddItem “E-CDR-04”
Cmbcode.AddItem “M-RPL-05”
End Sub

 

Standar

pertemuan 2

ag1

Private Sub Chkbold_Click()
‘membuat teks tebal’
If Chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
‘membuat teks miring’
If Chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkstrike_Click()
‘membuat teks garis tengah
If chkstrike = 1 Then
lblteks.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
‘membuat teks garis bawah’
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub Optblue_Click()
‘membuat teks berwarna biru’
lblteks.ForeColor = vbBlue

End Sub
Private Sub optgreen_Click()
‘membuat teks berwarna hijau’
lblteks.ForeColor = vbGreen

End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah’
lblteks.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()
‘membuat teks berwarna merah’
lblteks.ForeColor = vbYellow

End Subag2.JPG

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

Private Sub Command2_Click()
End
End Sub

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

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

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

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Subag3
Private Sub Form_Load()
Cbonpm.AddItem “15100107”
Cbonpm.AddItem “15100052”
Cbonpm.AddItem “15100054”
Cbonpm.AddItem “15100056”
Cbonpm.AddItem “15100063”
Cbonpm.AddItem “15100081”
Cbonpm.AddItem “15100086”
Cbonpm.AddItem “15100043”
Cbonpm.AddItem “15100217”
Cbonpm.AddItem “15100053”
Cbonpm.AddItem “15100058”
Cbonpm.AddItem “15100073”
Cbonpm.AddItem “15100082”
Cbonpm.AddItem “15100045”
Cbonpm.AddItem “15100076”
Cbonpm.AddItem “15100057”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100067”
Cbonpm.AddItem “15100066”
Cbonpm.AddItem “15100047”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100050”
Cbonpm.AddItem “15100051”
Cbonpm.AddItem “15100074”
Cbonpm.AddItem “15100062”
Cbonpm.AddItem “15100070”
Cbonpm.AddItem “15100071”
Cbonpm.AddItem “15100080”
Cbonpm.AddItem “15100068”
Cbonpm.AddItem “15100064”
Cbonpm.AddItem “15100079”
Cbonpm.AddItem “15100061”
Cbonpm.AddItem “15100059”
Cbonpm.AddItem “15100072”
Cbonpm.AddItem “15100069”
Cbonpm.AddItem “15100055”
Cbonpm.AddItem “15100075”
End Sub

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “pemerintahn”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “sistem informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “sistem informasi”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “bahasa indonesia”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “POLWAN”
Case “15100081”
nama = “ANTIA”
jurusan = “bidan”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “perikanan”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “pertanian”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “Montir”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter gigi ”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “bidan”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “perawat”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Sistem Informasi”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “akuntansi”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “Kebidanan”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “sistem informasi”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “Pertanian”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “bahasa indonesia”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “teknik sipil”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “Pendidikan matematika”
Case “15100050”
nama = “MARIKUN”
jurusan = “teknik kimia”
Case “15100051”
nama = “MARSYANTO”
jurusan = “teknik sipil”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Dokter anak”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “pendidikan bahasa indonesia”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “dokter kandungan”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “pendidikan agama islam”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “akutansi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “sistem informasi”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “pendidikan bahasa inggris”
Case “15100072”
nama = “SUSANTI”
jurusan = “pendidikan bahasa jerman”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “kebidanan”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “matematika”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “dokter hewan”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
Textquis.SetFocus
End Sub

ag4

 

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Textquis.Text)
TUGAS = Val(Texttugas.Text)
UTS = Val(Textuts.Text)
UAS = Val(Textuas.Text)
NA = Val(QUIS + TUGAS + UTS + UAS) / 4
Textna.Text = NA
Select Case Textna.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
Texthm.Text = HM
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “pemerintahn”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “sistem informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “sistem informasi”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “bahasa indonesia”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “POLWAN”
Case “15100081”
nama = “ANTIA”
jurusan = “bidan”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “perikanan”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “pertanian”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “Montir”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter gigi ”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “bidan”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “perawat”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Sistem Informasi”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “akuntansi”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “Kebidanan”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “sistem informasi”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “Pertanian”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “bahasa indonesia”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “teknik sipil”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “Pendidikan matematika”
Case “15100050”
nama = “MARIKUN”
jurusan = “teknik kimia”
Case “15100051”
nama = “MARSYANTO”
jurusan = “teknik sipil”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Dokter anak”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “pendidikan bahasa indonesia”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “dokter kandungan”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “pendidikan agama islam”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “akutansi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “sistem informasi”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “pendidikan bahasa inggris”
Case “15100072”
nama = “SUSANTI”
jurusan = “pendidikan bahasa jerman”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “kebidanan”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “matematika”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “dokter hewan”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
Textquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Textnama.Text = “”
Textjurusan.Text = “”
Textquis.Text = “”
Texttugas = “”
Textuts.Text = “”
Textuas.Text = “”
Textna.Text = “”
Texthm.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “15100107”
Cbonpm.AddItem “15100052”
Cbonpm.AddItem “15100054”
Cbonpm.AddItem “15100056”
Cbonpm.AddItem “15100063”
Cbonpm.AddItem “15100081”
Cbonpm.AddItem “15100086”
Cbonpm.AddItem “15100043”
Cbonpm.AddItem “15100217”
Cbonpm.AddItem “15100053”
Cbonpm.AddItem “15100058”
Cbonpm.AddItem “15100073”
Cbonpm.AddItem “15100082”
Cbonpm.AddItem “15100045”
Cbonpm.AddItem “15100076”
Cbonpm.AddItem “15100057”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100067”
Cbonpm.AddItem “15100066”
Cbonpm.AddItem “15100047”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100050”
Cbonpm.AddItem “15100051”
Cbonpm.AddItem “15100074”
Cbonpm.AddItem “15100062”
Cbonpm.AddItem “15100070”
Cbonpm.AddItem “15100071”
Cbonpm.AddItem “15100080”
Cbonpm.AddItem “15100068”
Cbonpm.AddItem “15100064”
Cbonpm.AddItem “15100079”
Cbonpm.AddItem “15100061”
Cbonpm.AddItem “15100059”
Cbonpm.AddItem “15100072”
Cbonpm.AddItem “15100069”
Cbonpm.AddItem “15100055”
Cbonpm.AddItem “15100075”
End Sub
Private Sub Texttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuts.SetFocus
End If
End Sub

Private Sub Textquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttugas.SetFocus
End If
End Sub
Private Sub Textuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuas.SetFocus
End If
End Sub

 

Standar

click

ag

Private Sub cmdproses_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Form_Load()

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
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End If
End Sub

Standar

proses

ag.JPG

Private Sub cmdproses_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Form_Load()

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

Standar