tugas 1.1

TUGAS1

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String
Select Case Cbonpm.Text
Case “14100154”
NAMA = “RIKA YULISTIANI”
JURUSAN = “Sistem Informasi”
Case “14100156”
NAMA = “EFA AFRI KIKI ADEFTI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “14100128”
NAMA = “SHELA RIZKI YULI ARUM”
JURUSAN = ” TEKNIK INFORMATIKA”
Case “14100133”
NAMA = “YULISTA”
JURUSAN = “SISTEM INFORMASI”
Case “14100164”
NAMA = “YENI ANGGRAINI”
JURUSAN = “SISTEM INFORMASI”
Case “1400088”
NAMA = “LOVITA MARTHA TILOVA”
JURUSAN = “SISTEM INFORMASI”
Case “14201018”
NAMA = “AYU DEVITA SARI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “14100131”
NAMA = “ASIAH”
JURUSAN = “SISTEM INFORMASI”
Case “1410060”
NAMA = “EKA SUSI SURANTI”
JURUSAN = “SISTEM INFORMASI”
Case ” 14100061″
NAMA = “FITRI SARASWATI”
JURUSAN = “SISTEM INFORMASI”
End Select
Txtnama.Text = NAMA
Txtjurusan.Text = JURUSAN
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjurusan.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “14100154”
Cbonpm.AddItem “14100156”
Cbonpm.AddItem “14100128”
Cbonpm.AddItem “14100133”
Cbonpm.AddItem “14100164”
Cbonpm.AddItem “14100088”
Cbonpm.AddItem “14201018”
Cbonpm.AddItem “14100131”
Cbonpm.AddItem “14100060”
Cbonpm.AddItem “14100061”
End Sub

tugas 1.2

TUGAS2YULI

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String
Select Case Cbonpm.Text
Case “14100154”
NAMA = “RIKA YULISTIANI”
JURUSAN = “Sistem Informasi”
Case “14100156”
NAMA = “EFA AFRI KIKI ADEFTI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “14100128”
NAMA = “SHELA RIZKI YULI ARUM”
JURUSAN = ” TEKNIK INFORMATIKA”
Case “14100133”
NAMA = “YULISTA”
JURUSAN = “SISTEM INFORMASI”
Case “14100164”
NAMA = “YENI ANGGRAINI”
JURUSAN = “SISTEM INFORMASI”
Case “14100088”
NAMA = “LOVITA MARTHA TILOVA”
JURUSAN = “SISTEM INFORMASI”
Case “14201018”
NAMA = “AYU DEVITA SARI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “14100131”
NAMA = “ASIAH”
JURUSAN = “SISTEM INFORMASI”
Case “14100060”
NAMA = “EKA SUSI SURANTI”
JURUSAN = “SISTEM INFORMASI”
Case “14100061”
NAMA = “FITRI SARASWATI”
JURUSAN = “SISTEM INFORMASI”
End Select
Txtnama.Text = NAMA
Txtjurusan.Text = JURUSAN
Txtquis.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “14100154”
Cbonpm.AddItem “14100156”
Cbonpm.AddItem “14100128”
Cbonpm.AddItem “14100133”
Cbonpm.AddItem “14100164”
Cbonpm.AddItem “14100088”
Cbonpm.AddItem “14201018”
Cbonpm.AddItem “14100131”
Cbonpm.AddItem “14100060”
Cbonpm.AddItem “14100061”
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”
Case Is < 50
HM = “BL”
End Select
Txthm.Text = HM
End Sub
Private Sub Cmdbatal_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 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

tugas 3

YULISTA T3 KARUUUTT

Private Sub Cbogolongan_Click()

Dim gapok, tunjangan, pajak, total As String
Select Case Cbogolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
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
Public Sub kosong()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
Cbogolongan.Text = “”
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub

tugas 4

TUGAS 4 LISTA

Private Sub Cmdproses_Click()

Dim R As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
R = Mid(Txtnpm.Text, 3, 1)
If R = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf R = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf R = “3” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf R = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
R = Mid(Txtnpm.Text, 4, 2)
If R = “01” Then
Txtps.Text = “Strata Satu”
ElseIf R = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf R = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf R = “04” Then
Txtps.Text = “Diploma Dua”
End If
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

tugas 6

YULISTA TGAS 6

Private Sub Cmdproses_Click()
Dim R As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
R = Mid(Txtnpm.Text, 3, 1)
If R = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf R = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf R = “3” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf R = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
R = Mid(Txtnpm.Text, 4, 2)
If R = “01” Then
Txtps.Text = “Strata Satu”
ElseIf R = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf R = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf R = “04” Then
Txtps.Text = “Diploma Dua”
End If
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

tugas 7

TUGAS  7 YULISTA

Private Sub Cbokode_Click()

Dim JENKOM, HARSA As String
Select Case Cbokode.Text
Case “P205”
JENKOM = “Pentium II 500 MegaHz”
HARSA = 1500000
Case “P308”
JENKOM = “Pentium III 800 MegaHz”
HARSA = 2100000
Case “P310”
JENKOM = “Pentium III 1.0 GigaHz”
HARSA = 3500000
Case “P415”
JENKOM = “Pentium IV 1.5 GigaHz”
HARSA = 4000000
Case “P417”
JENKOM = “Pentium IV 1.7 GigaHz”
HARSA = 4200000
Case “P419”
JENKOM = “Pentium IV 1.9 GigaHz”
HARSA = 5500000
Case Else
JENKOM = 0
HARSA = 0
End Select
Txtjk.Text = JENKOM
Txths.Text = HARSA
Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp.Text >= 15000000 Then
Txtdis.Text = Val(Txthp.Text) * 2 / 100
ElseIf Txthp.Text <= 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 5 / 100
ElseIf Txthp.Text <= 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 10 / 100
ElseIf Txthp.Text > 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 15 / 100
End If
Txthb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txthb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbokode.AddItem “P205”
Cbokode.AddItem “P308”
Cbokode.AddItem “P310”
Cbokode.AddItem “P415”
Cbokode.AddItem “P417”
Cbokode.AddItem “P419”
End Sub

tugqas 8

YULISTA TUGAS 8

Private Sub Cmdproses_Click()

Dim J As String
J = Mid(Txtkb.Text, 3, 3)
If J = “SIM” Then
Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
Txtp.Text = “YATI NUR OKTAFIA”
Txtharga.Text = “75900”
ElseIf J = “EDP” Then
Txtjb.Text = “ELEKTRONIK DATA PROCESSING”
Txtp.Text = “IMAM TARMIZI”
Txtharga.Text = “62000”
ElseIf J = “MNJ” Then
Txtjb.Text = “MANAJEMEN”
Txtp.Text = “VALINTINA MARIANAN”
Txtharga.Text = “42000”
ElseIf J = “CDR” Then
Txtjb.Text = “COREL DRAW”
Txtp.Text = “SITI FADILAH”
Txtharga.Text = “53000”
ElseIf J = “RPL” Then
Txtjb.Text = “REKAYASA PERANGKAT LUNAK”
Txtp.Text = “SINTA UMPU SINGA”
Txtharga.Text = “83000”
End If
J = Left(Txtkb.Text, 1)
If J = “A” Then
Txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf J = “I” Then
Txtpen.Text = “INDAH SURABAYA”
ElseIf J = “S” Then
Txtpen.Text = “SALEMBA EMPAT”
ElseIf J = “E” Then
Txtpen.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf J = “M” Then
Txtpen.Text = “MAXICOM”
End If
Txtth.Text = “20” & Right(Txtkb.Text, 2)
End Sub

Private Sub Cmdlagi_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub\

tugas 9

YULI 9

Private Sub Cmdproses_Click()

Dim A As String
A = Mid(Txtkt.Text, 1, 3)
If A = “BIM” Then
Txtht.Text = 50000
Txtjk.Text = “BIMA”
Txtjb.Text = “16.00”
ElseIf A = “EKO” Then
Txtht.Text = 35000
Txtjk.Text = “EKONOMI”
Txtjb.Text = “19.00”
ElseIf A = “MUT” Then
Txtht.Text = 23000
Txtjk.Text = “MUTIARA”
Txtjb.Text = “17.00”
ElseIf A = “SEN” Then
Txtht.Text = 15000
Txtjk.Text = “SENJA”
Txtjb.Text = “20.00”
End If
Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()
Txtkt.SetFocus
Txtkt.Text = “”
Txtht.Text = “”
Txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

tugas 10

YULI 100000

Private Sub Cmdproses_Click()

Dim K As String
K = Mid(txtkb.Text, 1, 3)
If K = “SIM” Then
txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
txtp.Text = “FADIYA ULFA”
txthg.Text = “75900”
ElseIf K = “EDP” Then
txtjb.Text = “ELEKTRONIK DATA PROCESSING”
txtp.Text = “NURUL AGUSTINA”
txthg.Text = “62000”
ElseIf K = “MNJ” Then
txtjb.Text = “MANAJEMEN”
txtp.Text = “RIAN HIDAYAT”
txthg.Text = “42000”
ElseIf K = “CDR” Then
Txjb.Text = “COREL DRAW”
txtp.Text = “SITI NUR KHOTIMAH”
txthg.Text = “53000”
ElseIf K = “RPL” Then
txtjb.Text = “REKAYASA PERANGKAT LUNAK”
txtp.Text = “WINDA ERLIANTI”
txthg.Text = “83000”
End If
K = Right(txtkb.Text, 1)
If K = “A” Then
txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf K = “I” Then
txtpenerbit.Text = “INDAH SURABAYA”
ElseIf K = “S” Then
txtpenerbit.Text = “SALEMBA EMPAT”
ElseIf K = “E” Then
txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf K = “M” Then
txtpenerbit.Text = “MAXICOM”
End If
txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)
End Sub

Private Sub Cmdlagi_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Iklan

tugass 3

tugas 1.1

YULI1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

tugas 1.2

YULI1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End If

End Sub

tugas 1.3

LISTA 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

tugas 4

YUL LISTA 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

tugas 5

yulista

Private Sub Chkbold_Click()
‘membuat teks tebal
If Chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chkitalic_click()
‘membuat teks miring
If Chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub
Private Sub Chkstrikethru_Click()
‘membuat teks bergaris tengah
If Chkstrikethru.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False

End If
End Sub
Private Sub Chkunderline_Click()
‘membuat teks bergaris bawah
If Chkunderline.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Optblue_Click()
‘membuat teks biru
lbltext.ForeColor = vbBlue
End Sub
Private Sub Optgreen_Click()
‘membuat teks hijau
lbltext.ForeColor = vbGreen
End Sub

Private Sub OptRed_Click()
‘membuat teks merah
lbltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
‘membuat teks kuning
lbltext.ForeColor = vbYellow
End Sub

tugas 6

YULISTAAAA TUGAS 6

Private Sub chkitalic_Click()

‘membuat teks miring
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub cmdok_Click()
lbltext.Text = Val(Text1.Text)
End Sub

Private Sub cmdselesai_Click()
End
End Sub
Private Sub optblue_Click()
‘membuat teks berwarna biru
lbltext.ForeColor = vbBlue
End Sub
Private Sub chkbold_Click()
‘membuat teks tebal
If chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah
lbltext.ForeColor = vbRed
End Sub
Private Sub lbltext_Change()
lbltext.Text = Text1.Text
End Sub

tugas 1

DATA YULISTAPrivate Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

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.SetFocus

End If

End Sub

tugas 2

yulista web 4

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
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.SetFocus
End If
End Sub

tugas 2

DATA YULISTA

Private Sub Command1_Click()

Text9.Text = Val(Text1.Text) + Val(Text5.Text)

Text10.Text = Val(Text2.Text) – Val(Text6.Text)

Text11.Text = Val(Text3.Text) * Val(Text7.Text)

Text12.Text = Val(Text4.Text) / Val(Text8.Text)

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.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

Private Sub text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub