tugas ke-4 visual basic 1

Nama : NURUL WIDIASTUTI

Kelas : Twitter 12

Mata Kuliah  : visual basic

Program 1

Source Code :

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 = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. 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()
End
End Sub

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

Program 2

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Yati Nur Oktavia”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Imam Tarmizi”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Valentina Mariana Adiwiyanti”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Riyan Suhandi”
Text5.Text = 53000
ElseIf S = “RLP” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Sinta Umpu Singa”
Text5.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Right(Combo1.Text, 2)
If S = “01″ Then
Text3.Text = “2001″
ElseIf S = “02″ Then
Text3.Text = “2002″
ElseIf S = “03″ Then
Text3.Text = “2003″
ElseIf S = “04″ Then
Text3.Text = “2004″
ElseIf S = “05″ Then
Text3.Text = “2005″
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

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

Program 3

Source Code

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 1, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Fadiya Ulfa”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Nurul Agustina”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Rian Hidayat”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Siti Nur Khotimah”
Text5.Text = 53000
ElseIf S = “RPL” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Winda Erlianti”
Text5.Text = 83000
End If
S = Right(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Mid(Combo1.Text, 5, 2)
If S = “09″ Then
Text3.Text = “2009″
ElseIf S = “10″ Then
Text3.Text = “2010″
ElseIf S = “11″ Then
Text3.Text = “2011″
ElseIf S = “12″ Then
Text3.Text = “2012″
ElseIf S = “13″ Then
Text3.Text = “2013″
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “SIM-09-A”
Combo1.AddItem “EDP-10-I”
Combo1.AddItem “MNJ-11-S”
Combo1.AddItem “CDR-12-E”
Combo1.AddItem “RPL-13-M”
End Sub

Program 4

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
v4.Text = S

S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000″
Text8.Text = “1025000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000″
Text8.Text = “975000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000″
Text8.Text = “925000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If

S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
txtAdi2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(txtAdi11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

posting 8

Private Sub Form_Load()
CboNPM.AddItem “12100661”
CboNPM.AddItem “12100662”
CboNPM.AddItem “12100663”
CboNPM.AddItem “12100664”
CboNPM.AddItem “12100665”
End Sub

Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661”
Nama = “EKA ISTIANA DEWI”
Jurusan = “Sistem Informasi”
Case “12100662”
Nama = “ERIS PUTRI WAHYUNI”
Jurusan = “Manajemen Informatika”
Case “12100663”
Nama = “DEFIRA AYU WIDYA MUSTIKA”
Jurusan = “Teknisi Komputer”
Case “12100664”
Nama = “FESUS FERIYANTO”
Jurusan = “Operator Komputer”
Case “12100665”
Nama = “GAGA JERTA MAHENDRA”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
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 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 TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End If
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End Sub

Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

posting 7

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

Private Sub OptGreen_Click()
LblTeks.ForeColor = vbGreen
End Sub

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

Private Sub OptWhite_Click()
LblTeks.ForeColor = vbWhite
End Sub

Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblTeks.FontBold = True
Else
LblTeks.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
LblTeks.FontItalic = True
Else
LblTeks.FontItalic = False
End If
End Sub

Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
LblTeks.FontUnderline = True
Else
LblTeks.FontUnderline = False
End If
End Sub

Private Sub ChkStrikethru_Click()
If ChkStrikethru.Value = 1 Then
LblTeks.FontStrikethru = True
Else
LblTeks.FontStrikethru = False
End If
End Sub

Private Sub CmdDelete_Click()
LblTeks.ForeColor = vbBlack
OptRed = False
OptGreen = False
OptBlue = False
oprwhite = False
ChkBold = False
ChkItalic = False
ChkUnderline = False
ChkStrikethru = False
End Sub

Private Sub CmdExit_Click()
End
End Sub

posting 6

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 Txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt3.Text)
Txt5.Text = Val(Txt4.Text) * 0.1
Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)
End If
End Sub

Private Sub CmdProses_Click()
Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt3.Text)
Txt5.Text = Val(Txt4.Text) * 0.1
Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)
End Sub

Private Sub CmdHapus_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
Txt5 = “”
Txt6 = “”
End Sub

Private Sub Cmd3_Click()
End
End Sub

Posting 5

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
Txt2.Text = Val(Txt1.Text) * 0.1
End If
End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End If
End Sub

Private Sub CmdHitung_Click()
Txt2.Text = Val(Txt1.Text) * 0.1
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End Sub

Private Sub CmdUlangi_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
End Sub

Private Sub CmdQuit_Click()
End
End Sub

Posting 4

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub

Private Sub OptTambah_Click()
Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)
End Sub

Private Sub OptKurang_Click()
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End Sub

Private Sub OptKali_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub

Private Sub OptBagi_Click()
Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)
End Sub

Private Sub OptBagiBilangan_Click()
Txt3.Text = Val(Txt1.Text) \ Val(Txt2.Text)
End Sub

Private Sub OptPangkat_Click()
Txt3.Text = Val(Txt1.Text) ^ Val(Txt2.Text)
End Sub

Private Sub Optand_Click()
Txt3.Text = Val(Txt1.Text) & Val(Txt2.Text)
End Sub

Private Sub OptModulus_Click()
Txt3.Text = Val(Txt1.Text) Mod Val(Txt2.Text)
End Sub

Private Sub CmdDelete_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
OptTambah = False
OptKurang = False
OptKali = False
OptBagi = False
OptBagiBilangan = False
OptPangkat = False
Optand = False
OptModulus = False
End Sub

Private Sub CmdExit_Click()
End
End Sub

Posting 3

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

Private Sub CmdHitung_Click(Index As Integer)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub CmdHapus_Click(Index As Integer)
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub CmdKeluar_Click(Index As Integer)
End
End Sub

Tugas 2

KODE PROGRAM :

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 Txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txt4.Text = Val(Txt1.Text) * Val(Txt2.Text) / Val(Txt3.Text)
End If
End Sub

Private Sub CmdHitung_Click()
Txt4.Text = Val(Txt1.Text) * Val(Txt2.Text) / Val(Txt3.Text)
End Sub

Private Sub CmdBersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

posting 1

KODE PROGRAM :

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
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End If
End Sub

Private Sub CmdHitung_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub

Private Sub CmdBersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

kalkulator mini

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

Private Sub CmdHitung_Click(Index As Integer)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val (Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub CmdLagi_Click(Index As Integer)
Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
End Sub

Private Sub CmdKeluar_Click(Index As Integer)
Unload Me
End Sub