tugas 2.8

PERKALIAN DUA BILANGAN

Private Sub Command1_Click()

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

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) * Val(Text2)

End If

End Sub

tugas 2.7

HURUF MUTU

Private Sub cbonpm_Click()

Dim nama, Jurusan, hm As String

    Select Case cbonpm.Text

        Case "14100413"

        nama = "AGUNG TRIAWAN"

        Jurusan = "Sistem Informasi"

       

        Case "14100419"

        nama = "Steven Coconut"

        Jurusan = "Manajemen Informasi"

       

        Case "14200409"

        nama = "Alex"

        Jurusan = "Tekhnik Informasi"

       

        Case "14200419"

        nama = "Steven Coconut"

        Jurusan = "Manajemen Informasi"

       

        Case "14200509"

        nama = "Painah"

        Jurusan = "Manajemen Informasi"

       

        Case "14200001"

        nama = "ferdi syahid"

        Jurusan = "tekhnik Informatika"

       

        Case "14100030"

        nama = "desi ningsih"

        Jurusan = "sistem Informasi"

       

        Case "14100919"

        nama = "Steven Coconut"

        Jurusan = "Tekhnik Informasi"

       

        Case "14100410"

        nama = "Steven Coconut"

        Jurusan = "sistem Informasi"

       

        Case "14100459"

        nama = "alan ramadhan"

        Jurusan = "Manajemen Informasi"

    End Select

    txtnama.Text = nama

    txtJurusan.Text = Jurusan

    txtquis.SetFocus

End Sub

Private Sub Cmdbatal_Click()

cbonpm.SetFocus

cbonpm = ""

    nama = ""

    Jurusan = ""

    quis = ""

    tugas = ""

    uts = ""

    uas = ""

    na = ""

    hm = ""

End Sub

Private Sub cmdKeluar_Click()

End

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)

    txtna.Text = na

    na = (quis + tugas + uts + uas) / 4

End Sub

Private Sub Form_Load()

cbonpm.AddItem "14100413"

cbonpm.AddItem "14100410"

cbonpm.AddItem "14100419"

cbonpm.AddItem "14200409"

cbonpm.AddItem "14100459"

cbonpm.AddItem "14200419"

cbonpm.AddItem "14200509"

cbonpm.AddItem "14200001"

cbonpm.AddItem "14100030"

cbonpm.AddItem "14100919"

End Sub

tugas 2.6

APLIKASI PERHITUNGAN GAJI

Private Sub Command1_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 Command2_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

End

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

tugas 2.5

FONT COLOR

Private Sub chkbold_Click()

If chkbold.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

lbljudul.FontStrikethru = True

Else

lbljudul.FontStrikethru = False

End If

End Sub

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

Private Sub lbljudul_Click()

End Sub

Private Sub OptBlue_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub OptRed_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

lbljudul.ForeColor = vbYellow

End Sub

tugas 2.4

TULIS NAMA ANDA

Private Sub Chkbold_Click()

Label2.FontBold = Chkbold.Value

End Sub

Private Sub Chkitalic_Click()

Label2.FontItalic = Chkitalic.Value

End Sub

Private Sub Chkstrikethru_Click()

Label2.FontStrikethru = Chkstrikethru.Value

End Sub

Private Sub Chkunderline_Click()

Label2.FontUnderline = Chkunderline.Value

End Sub

Private Sub Cmdok_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmdselesai_Click()

Unload Me

End Sub

Private Sub Optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optmerah_Click()

Label2.ForeColor = vbRed

End Sub

tugas 2.3

KETERANGAN NAMA

Private Sub cmdbatal_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Text1.SetFocus

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub cmdproses_Click()

Dim ps, jr As String

Text3 = jr

Text4 = ps

Text5 = "20" & Left(Text2, 2)

Text6 = Right(Text2, 3)

ps = Mid(Text2, 4, 2)

If ps = "01" Then

Text4 = "Strata Satu"

ElseIf ps = "02" Then

Text4 = "Diploma Empat"

ElseIf ps = "03" Then

Text4 = "Diploma Tiga"

ElseIf ps = "04" Then

Text4 = "Diploma Dua"

End If

jr = Mid(Text2, 3, 1)

If jr = "1" Then

Text3 = "Sistem Informasi"

ElseIf jr = "2" Then

Text3 = "Tehnik Informatika"

ElseIf jr = "3" Then

Text3 = "Manajemen Informatika"

ElseIf jr = "4" Then

Text3 = "Komputer Akuntansi"

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text1.SetFocus

End If

End Sub

tugas 2.2

 NIDN

Private Sub Combo1_Click()

Dim gapok, pajak, tunjangan, total As Variant

    Select Case Combo1.Text

    Case "I"

    Text1 = "14100411"

    Text2 = "OVITRIA NINGSIH"

    gapok = 2500000

    tunjangan = 250000

   

    Case "II"

    Text1 = "14100525"

    Text2 = "MAI INDAH"

    gapok = 3000000

    tunjangan = 300000

   

    Case "III"

    Text1 = "14100213"

    Text2 = "ANGGEL"

    gapok = 4500000

    tunjangan = 450000

   

    Case "IV"

    Text1 = "14100214"

    Text2 = "ANISA"

    gapok = 4000000

    tunjangan = 400000

   

    Case Else

    gapok = 0

    tunjangan = 0

End Select

    total = gapok + tunjangan

    pajak = total * 0.1

    Text3 = gapok

    Text4 = tunjangan

    Text5 = pajak

    Text6 = total - pajak

End Sub

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "I"

Combo1.AddItem "II"

Combo1.AddItem "III"

Combo1.AddItem "IV"

End Sub