PROGRAM 6

WENDI6

PROGRAM6

Private Sub CmdBATAL_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

 

 

Private Sub CmdLAGI_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

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

S = Mid(TxtYHSNPM.Text, 3, 1)

If S = “1” Then

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2” Then

TxtYJUR.Text = “Manajemen Informatika”

End If

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

If S = “01” Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02” Then

TxtPS.Text = “Diploma Tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtNAMA_Change()

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

 

End Sub

 

PROGRAM 5

WENDI5

PROGRAM 5

 

 

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 500000000

tunjangan = 500000

Case “II”

gapok = 10000000

tunjangan = 1000000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 30000000

tunjangan = 3000000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

 

 

Private Sub Cmdbatal_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub Txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

 

End Sub

PROGRAM 4

WENDI4

PROGRAM 4

Private Sub CboNPM_Click()

Dim NAMA, JURUSAN, HM As String

 

Select Case CboNPM.Text

Case “12201018”

NAMA = “ARIS SETIAWAN”

JURUSAN = “MANAJEMEN INRORMATIKA”

Case “12201020”

NAMA = “YOHANES KRISNAWAN”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201019”

NAMA = “DARWIN SAPUTRA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201021”

NAMA = “METALIANA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201018”

NAMA = “SITI FATHONAH”

JURUSAN = “Manajemen Informatika”

End Select

TxtNAMA.Text = NAMA

TxtJURUSAN.Text = JURUSAN

TxtQUIS.SetFocus

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtNAMA.Text = “”

TxtJURUSAN.Text = “”

TxtQUIS.Text = “”

TxtTUGAS.Text = “”

TxtUTS.Text = “”

TxtUAS.Text = “”

TxtNA.Text = “”

TxtHM.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtQUIS.Text)

TUGAS = Val(TxtTUGAS.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

NA = (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

TxtHM.Text = HM

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “12100018”

CboNPM.AddItem “12201020”

CboNPM.AddItem “12201019”

CboNPM.AddItem “12201021”

CboNPM.AddItem “12201018”

End Sub

 

 

Private Sub TxtNAMA_Change()

 

End Sub

 

Private Sub TxtQUIS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTUGAS.SetFocus

End If

End Sub

 

 

Private Sub TxtTUGAS_KeyPress(KeyAscii As Integer)

If KESASCII = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

PROGRAM 3

WENDI3

PROGRAM 3

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

 

Private Sub Text1_Change()

 

End Sub

PROGRAM 2

WENDI2

PROGRAM 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End Sub

 

Private Sub CmdULANG_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

Txt6 = “”

End Sub

 

 

 

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

 

 

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(TxtY2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End If

End Sub

 

 

 

program 1

WENDI 1

PROSRAM 1

 

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

 

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Optblue_Click()

Lbltext.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lbltext.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Lbltext.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

 

PROGRAM DUA BILANGAN

WENDI1

PROGRAM DUA BILANGAN

 

Private Sub CmdHASIL_Click()

Text3.Text = Val(Text1.Text) * Val(TextL2.Text)

End Sub

 

 

 

Private Sub CmdKEMBALI_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

 

 

Private Sub TextL2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.Text = Val(Text1.Text) * Val(TextL2.Text)

End If

 

End Sub