Aside

Gambar

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100178”
nama = “M FUAIDI ABDILLAH”
jurusan = “Sistem Informasi”
Case “12100111”
nama = “APRILIA”
jurusan = “Diploma Empat”
Case “12100147”
nama = “FAHRUL MUHIJAR”
jurusan = “STRATA SATU”
Case “12100148”
nama = “M FUAD HASYIM”
jurusan = “STRATA DUA”
Case “12100144”
nama = “HARIS PURBIANTO”
jurusan = “Diploma Satu”
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 = (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 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100178”
Combo1.AddItem “12100111”
Combo1.AddItem “12100147”
Combo1.AddItem “12100148”
Combo1.AddItem “12100144”
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

Aside

Gambar

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

Private Sub ChkBold_Click()
Label2.FontBold = ChkBold.Value
End Sub

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

Private Sub Command2_Click()
End
End Sub

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

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

Aside

Gambar

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

Lbl1.FontBold = True

Else

Lbl1.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

Lbl1.FontItalic = True

Else

Lbl1.FontItalic = False

End If

End Sub

Private Sub ChkStrikeout_Click()

If ChkStrikeout.Value = 1 Then

Lbl1.FontStrikethru = True

Else

Lbl1.FontStrikethru = False

End If

End Sub

Private Sub ChkUnderline_Click()

If ChkUnderline.Value = 1 Then

Lbl1.FontUnderline = True

Else

Lbl1.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub OptBlue_Click()

Lbl1.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

Lbl1.ForeColor = vbGreen

End Sub

Private Sub optred_Click()

Lbl1.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

Lbl1.ForeColor = vbYellow

End Sub

Aside

Gambar

Private Sub CmdBATAL_Click()

txtNAMA.SetFocus

txtNAMA.Text = “”

TxtNPM.Text = “”

TxtJURUSAN.Text = “”

TxtPROGRAM.Text = “”

TxtTAHUN.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

txtNAMA.SetFocus

txtNAMA.Text = “”

TxtNPM.Text = “”

TxtJURUSAN.Text = “”

TxtPROGRAM.Text = “”

TxtTAHUN.Text = “”

TxtURUT.Text = “”

End Sub

Private Sub CmdPROSES_Click()

Dim A As Integer

TxtTAHUN.Text = “20” & Left(TxtNPM, 2)

A = Mid(TxtNPM.Text, 3, 1)

If A = “1” Then

TxtJURUSAN.Text = “sistem informasi”

ElseIf A = “2” Then

Jr = “manajemen informatika”

ElseIf A = “3” Then

TxtJURUSAN.Text = “teknik informatika”

ElseIf A = “4” Then

TxtJURUSAN.Text = ” komputer akutansi”

End If

A = Mid(TxtNPM.Text, 4, 2)

If A = “01” Then

TxtPROGRAM.Text = “strata satu”

ElseIf A = “02” Then

TxtPROGRAM.Text = “diploma empat”

ElseIf A = “03” Then

TxtPROGRAM.Text = “diploma tiga”

ElseIf A = “04” Then

TxtPROGRAM.Text = ” diploma dua”

End If

TxtURUT.Text = Right(TxtNPM, 3)

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

Aside

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) – Val(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.Text = Val(Text1.Text) * 0.1
End If
End Sub

Aside

Image

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()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
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

Aside

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub