FROM 11

FROM 11

 

 

 

 

 

 

 

PROJECT 11

Private Sub Combo1_click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12201182”
nama = “SUSI SUNDARI”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201172”
nama = “ROSIDA NUR FADILAH”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201171”
nama = “YUSTINA CAHYANINGSIH”
jurusan = “MENEJEMEN INFORMATIKA”
Case “12201165”
nama = ” WIDIA WATI”
jurusan = “SISTEM INFORMASI”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = Val(QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text7.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 = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12201182”
Combo1.AddItem “12201172”
Combo1.AddItem “12201171”
Combo1.AddItem “12201165”
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

FROM 10

FROM 10

 

 

 

 

 

 

PROJECT 10

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.5
Text3.Text = Val(Text1.Text) – (Text2.Text)
End Sub

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
End
End Sub

FROM 9

FROM 9

 

 

 

 

 

 

 

 

PROJECT 9

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

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
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

FROM 8

FROM 8

 

 

 

 

 

 

 

 

 

PROJECT 8

Private Sub chbold_Click()
If chbold.Value = 1 Then
LabeL1.FontBold = True
Else
Label2.FontBold = False
End If
End Sub

Private Sub chita_Click()
If chita.Value = 1 Then
LabeL1.FontItalic = True
Else
Label2.FontItalic = False
End If
End Sub

Private Sub chst_Click()
If chst.Value = 1 Then
LabeL1.FontStrikethru = True
Else
Label2.FontStrikethru = False
End If
End Sub

Private Sub chunder_Click()
If chunder.Value = 1 Then
LabeL1.FontUnderline = True
Else
Label2.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub oblue_Click()
LabeL1.ForeColor = vbBlue
End Sub

Private Sub ogreen_Click()
LabeL1.ForeColor = vbGreen
End Sub

Private Sub ored_Click()
LabeL1.ForeColor = vbRed
End Sub

Private Sub oy_Click()
LabeL1.ForeColor = vbYellow
End Sub

FROM 7

FROM 7

 

 

 

 

 

 

PROJECT 7

Private Sub Combo1_click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12201182”
nama = “SUSI SUNDARI”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201172”
nama = “ROSIDA NUR FADILAH”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201171”
nama = “YUSTINA CAHYANINGSIH”
jurusan = “MENEJEMEN INFORMATIKA”
Case “12201165”
nama = ” WIDIA WATI”
jurusan = “SISTEM INFORMASI”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = Val(QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text7.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 = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12201182”
Combo1.AddItem “12201172”
Combo1.AddItem “12201171”
Combo1.AddItem “12201165”
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

 

FROM 6

FROM6

 

 

 

 

 

 

PROJECT6

 

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20” & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1” Then
Text3.Text = “SISTEM INFORMASI”
ElseIf S = “2” Then
Text3.Text = “MENEJEMEN INFORMATIKA”
ElseIf S = “3” Then
Text3.Text = “TEKNIK INFORMATIKA”
ElseIf S = “4” Then
Text3.Text = “MENEJEMEN DAN KOMPUTER AKUNTANSI”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01” Then
Text4.Text = “STRATA SATU”
ElseIf S = “02” Then
Text4.Text = “DIPLOMA TIGA”
ElseIf S = “03” Then
Text4.Text = “DIPLOMA EMPAT”
ElseIf S = “04” Then
Text4.Text = “DIPLOMA DUA”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

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

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

Private Sub Command4_Click()
Unload Me
End Sub

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

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

from 5

FROM 5

 

 

 

 

 

 

PROJECT5

Private Sub Combo1_click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12201182”
nama = “SUSI SUNDARI”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201172”
nama = “ROSIDA NUR FADILAH”
jurusan = ” MENEJEMEN INFORMATIKA”
Case “12201171”
nama = “YUSTINA CAHYANINGSIH”
jurusan = “MENEJEMEN INFORMATIKA”
Case “12201165”
nama = ” WIDIA WATI”
jurusan = “SISTEM INFORMASI”
End Select
txtnm.Text = nama
txtjrs.Text = jurusan
txtnq.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq.Text)
TUGAS = Val(txtnt.Text)
UTS = Val(txtuts.Text)
UAS = Val(txtuas.Text)
NA = Val(QUIS + TUGAS + UTS + UAS) / 4
Txtna.Text = NA
Select Case Txtna.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
txtmutu.Text = HM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
txtnm.Text = “”
txtjrs.Text = “”
txtnq.Text = “”
txtnt.Text = “”
txtuts.Text = “”
txtuas.Text = “”
Txtna.Text = “”
txtmutu.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12201182”
Combo1.AddItem “12201172”
Combo1.AddItem “12201171”
Combo1.AddItem “12201165”
End Sub

Private Sub Txtnq_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnt.SetFocus
End If
End Sub

Private Sub Txtnt_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuts.SetFocus
End If
End Sub

Private Sub Txtuts_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuas.SetFocus
End If
End Sub

Private Sub Text6_keypress(keyascii As Integer)
If keyascii = 13 Then
Text7.SetFocus
End If
End Sub

 

from 4

FROM4

 

 

 

 

 

 

 

 

PROJECT4

Private Sub cmdbatal_Click()
End
End Sub

Private Sub cmdhitung_Click()
txtd.Text = Val(Txtha.Text) * 0.5
txtpj.Text = Val(Txtha.Text) * 0.1
txthak.Text = Val(Txtha.Text) – Val(txtd.Text) + Val(txtpj.Text)
End Sub

Private Sub cmdulangi_Click()
Txtha.SetFocus
Txtha = “”
txtd = “”
txtpj = “”
txthak = “”
End Sub

Private Sub txtd_keypress(keyascii As Integer)
If keyascii = 13 Then
txtpj.SetFocus
txtpj.Text = Val(Txtha.Text) * 0.1
End If
End Sub

Private Sub Txtha_keypress(keyascii As Integer)
If keyascii = 13 Then
txtd.SetFocus
txtd.Text = Val(Txtha.Text) * 0.5
End If
End Sub

Private Sub txtpj_keypress(keyascii As Integer)
If keyascii = 13 Then
txthak.SetFocus
txthak.Text = Val(Txtha.Text) – Val(txtd.Text) + Val(txtpj.Text)
End If
End Sub

 

 

from 3

FROM3

 

 

 

 

 

 

 

 

PROJEKT3

Private Sub Command1_Click()
txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) – (txtpt.Text)
txtpj.Text = Val(txtgk.Text) * 0.1
txtgd.Text = Val(txtgk.Text) – (txtpj.Text)
End Sub

Private Sub Command2_Click()
txtgp.SetFocus
txtgp = “”
txttj = “”
txtpt = “”
txtgk = “”
txtpj = “”
txtgd = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub txtgk_keypress(keyascii As Integer)
If keyascii = 13 Then
txtpj.SetFocus
txtpj.Text = Val(txtgk.Text) * 0.1
End If
End Sub

Private Sub txtgp_keypress(keyascii As Integer)
If keyascii = 13 Then
txttj.SetFocus
End If
End Sub

Private Sub txtpj_keypress(keyascii As Integer)
If keyascii = 13 Then
txtgd.SetFocus
txtgd.Text = Val(txtgk.Text) – Val(txtpj.Text)
End If
End Sub

Private Sub txtpt_keypress(keyascii As Integer)
If keyascii = 13 Then
txtgk.SetFocus
txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) – Val(txtpt.Text)
End If
End Sub

Private Sub txttj_keypress(keyascii As Integer)
If keyascii = 13 Then
txtpt.SetFocus
End If
End Sub

from 2

FROM 2

 

 

 

 

 

 

 

 

PROJECT 2

Private Sub Cmdhitung_Click()
txtd.Text = Val(txtha.Text) * 0.2
txthak.Text = Val(txtha.Text) – Val(txtd.Text)
End Sub

Private Sub Cmdlagi_Click()
txtha.SetFocus
txtha = “”
txtd = “”
txthak = “”
End Sub

Private Sub Cmdquit_Click()
End
End Sub

Private Sub txtha_KEYPRESS(keyascii As Integer)
If keyascii = 13 Then
txtd.SetFocus
End If
End Sub