TUGAS 4

TUGAS 1.1

TUGAS 1.2

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 2

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 3

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 4

Private Sub Cbokode_Click()
Txtjj.SetFocus
End Sub

Private Sub Cmdproses_Click()
Dim R As String
R = Mid(Cbokode.Text, 7, 5)
If R = “MC965” Then
Txtmerk.Text = “Apple MacBook Air MC965”
Txths.Text = 12800000
ElseIf R = “MC966” Then
Txtmerk.Text = “Apple MacBook Air MC966”
Txths.Text = 15800000
ElseIf R = “MC968” Then
Txtmerk.Text = “Apple MacBook Air MC968”
Txths.Text = 9900000
ElseIf R = “MC969” Then
Txtmerk.Text = “Apple MacBook Air MC969”
Txths.Text = 11900000
ElseIf R = “MC700” Then
Txtmerk.Text = “Apple MacBook Pro MC700”
Txths.Text = 10800000
ElseIf R = “MC721” Then
Txtmerk.Text = “Apple MacBook Pro MC721”
Txths.Text = 15900000
ElseIf R = “MC723” Then
Txtmerk.Text = “Apple MacBook Pro MC723”
Txths.Text = 19300000
ElseIf R = “MC724” Then
Txtmerk.Text = “Apple MacBook Pro MC724”
Txths.Text = 13700000
ElseIf R = “MC311” Then
Txtmerk.Text = “Apple MacBook Pro MC311”
Txths.Text = 24200000
ElseIf R = “MC313” Then
Txtmerk.Text = “Apple MacBook Pro MC313”
Txths.Text = 11900000
ElseIf R = “MC314” Then
Txtmerk.Text = “Apple MacBook Pro MC314”
Txths.Text = 14700000
ElseIf R = “MC318” Then
Txtmerk.Text = “Apple MacBook Pro MC318”
Txths.Text = 17600000
ElseIf R = “MC322” Then
Txtmerk.Text = “Apple MacBook Pro MC322”
Txths.Text = 21300000
End If
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
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

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

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbokode.AddItem “Apple MC965 MacBook Air”
Cbokode.AddItem “Apple MC966 MacBook Air”
Cbokode.AddItem “Apple MC968 MacBook Air”
Cbokode.AddItem “Apple MC969 MacBook Air”
Cbokode.AddItem “Apple MC700 MacBook Pro”
Cbokode.AddItem “Apple MC721 MacBook Pro”
Cbokode.AddItem “Apple MC723 MacBook Pro”
Cbokode.AddItem “Apple MC724 MacBook Pro”
Cbokode.AddItem “Apple MC311 MacBook Pro”
Cbokode.AddItem “Apple MC313 MacBook Pro”
Cbokode.AddItem “Apple MC314 MacBook Pro”
Cbokode.AddItem “Apple MC318 MacBook Pro”
Cbokode.AddItem “Apple MC322 MacBook Pro”
End Sub

TUGAS 5

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

TUGAS 6

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 7

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 8

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

TUGAS 3

TUGAS 3.1

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 3.2

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 3.3

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 3.4

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 3.5

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

listing program kalkulator

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

listing program data mahasiswa

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

AsusPro BU201 Ultrabook Bisnis Terbaru yang dilengkapi Docking Station

Asus baru saja meluncurkan produk baru dalam jajaran notebook kelas bisnis bernama AsusPro BU201 yang memiliki ukuran kompak dengan layar 12.5 inci saja, prosesor Core i5 atau lebih cepat, serta fitur enterprise termasuk dukungan docking station dan desain casing yang kuat. Pada bagian tengah keyboard, ada pointing stick yang biasa juga terdapat pada notebook IBM Thinkpad.

Layar AsusPro BU201 memiliki layar LCD FULL HD dengan dukungan RAM sampai 12GB serta drive bay 2.5 inci yang bisa menggunakan hard drive 500GB atau 1TB plus 8GB SSD. Untuk grafis, notebook ini menggunakan Intel HD 4400 or 5000 graphics, serta sistem operasi yang bisa memilih Windows 7, Windows 8.1, atau Windows 8.1 Pro.

Laptop ini juga memiliki 3 port USB 3.0, Ethernet jack, VGA port, mini DisplayPort, Smart Card Reader, SD card reader, serta micro SIM card slot. Selain itu jgua terdapat TPM security dan fingerprint reader.

AsusPro Ultra Docking Station memungkinkan kita menghubungkannya dengan layar eksternal, keyboard, maupun aksesoris lain. Sesuai keperluannya sebagai laptop bisnis, maka Ultrabook Asus Pro BU201 juga memiliki keyboard yang tahan oleh tumpahan air serta casing yang lolos uji tes militer.

100 Ribu Situs WordPress Diserang Virus Misterius

Para pengguna WordPress nampaknya harus berhati-hati dalam menjaga keamanan situs miliknya. Menurut sebuah laporan yang dikutip dari Ubergizmo, WordPress saat ini menjadi platform website yang berbahaya. Hal ini karena terdapat sebuah malware misterius yang menyerang sebuah situs WordPress dan selanjutnya menjadikan platform tersebut sebagai alat distribusinya.

Bahkan masih menurut laporan tersebut, terdapat lebih dari 100 ribu situs WordPress yang terserang malware itu. Terlebih cara penyebaran malware ini juga sangat gampang. Situs WordPress yang terinfeksi virus ini bisa secara langsung menularkan penyakitnya kepada mereka yang berkunjung ke situs tersebut. Google sendiri pun telah menandai sebanyak lebih dari 11 ribu domain karena dianggap berbahaya.

Mudahnya penyebaran malware misterius tersebut terjadi karena adanya plugin yang menjadi jalan masuk dari virus terebut. Terlebih untuk memperoleh patch dari plugin itu cukup susah, karena plugin tersebut adalah plugin premium. Dan susahnya lagi, banyak pengguna WordPress yang tak mengetahui penyebab dari penyebaran virus berbahaya ini.

Facebook Kini Tak Lagi Tampilkan Hasil Pencarian Search Engine Bing

Search engine Bing kini sudah tak lagi bisa dijumpai di halaman Facebook. Pihak Facebook pun diam-diam melakukan perubahan pada fitur Graph Search miliknya dan menghapus search engine Bing dari fitur tersebut. Dalam laporannya, Reuters pun menuliskan kalau pihak Facebook telah memberikan konfirmasi terhadap penghapusan fitur Bing tersebut.

Namun Facebook menyebutkan kalau penghapusan Bing dari halaman pencarian miliknya itu bukanlah bentuk hilangnya kerjasama antara mereka dengan Microsoft. Sebagai gantinya, langkah tersebut dilakukan oleh Facebook karena mereka ingin memberikan hal yang diinginkan oleh para penggunanya.

“Kami tak menampilkan hasil pencarian web di Facebook Search karena kami lebih fokus membantu orang-orang menemukan apa yang dibagikan di Facebook,” ujarnya. Pihak Microsoft dalam pernyataannya pun mengaku tak merasa terganggu dengan penghapusan Bing ini. Mereka mengungkapkan kalau Facebook dan Microsoft masih berhubungan dalam banyak bidang lainnya.

Penghapusan fitur Bing dari Facebook ini juga memperkuat rumor mengenai langkah selanjutnya yang akan dilakukan oleh jejaring sosial nomor satu dunia tersebut. Mereka dikabarkan siap menghadirkan platform search engine sendiri untuk bisa bersaing dnegan Google, Bing ataupun Yahoo.

Yahoo Sarankan Pengunjung Situsnya untuk Beralih ke Mozilla Firefox

Google memiliki Google Chrome, sementara Microsoft yang menjadi pemilik dari search engine Bing hadir dengan Internet Explorer. Lalu bagaimana dengan Yahoo, yang secara nyata menjadi kompetitor dari dua search engine Google dan Bing?

Nampaknya, perusahaan yang kini dipimpin oleh Marissa Mayer tersebut memutuskan untuk menjalin hubungan sekutu dengan Mozilla Firefox. Langkah tersebut pun terlihat sangat nyata, karena saat ini beberapa situs milik yahoo menampilkan link yang berisikan pesan ‘Upgrade to the new Firefox’.

Dan pada saat link tersebut diklik, maka akan muncul halaman download Firefox yang mengajak para pengguna internet menjadi lebih mandiri. Pesan untuk melakukan migrasi ke Mozilla Firefox tersebut pun diketahui muncul pada saat pengguna internet memakai browser seperti IE, Chrome ataupun Opera. Namun pesan ini diketahui tidak muncul bagi para pengguna Safari.

Hubungan antara Firefox dengan Yahoo saat ini memang tengah dekat-dekatnya. Terlebih pada November lalu, kedua perusahaan telah melakukan perjanjian kerjasama selama lima tahun untuk menggunakan Yahoo sebagai search engine default di Firefox.

Jalan Kaki ke Sekolah Bisa Bikin Pintar (Artikel 1)

Sobat, tahukah anda bahwa kebiasaan berjalan kaki itu besar sekali manfaatnya?. Tapi sayang sekali, kebanyakan kita akhir-akhir ini sangat malas berjalan kaki. Hanya untuk menempuh jarak seribu dua ribu meter saja, kita lebih memilih naik motor , angkot, atau bahkan mobil pribadi. Alasannya malas , capek dan lain sebagainya. Padahal intinya adalah : manja. Padahal, Nabi Muhammad SAW dahulu dikenal memiliki kebiasaan berjalan kaki, sebagaimana ditunjukkan sebuah hadits dari Abu Hurairah RA, dia berkata, “Aku belum pernah melihat orang yang lebih baik dan lebih tampan dari Rasulullah; roman mukanya secemerlang matahari, juga tidak pernah melihat orang yang secepat beliau. Seolah-olah bumi ini digulung oleh langkah-langkah beliau ketika sedang berjalan. Walaupun kami berusaha untuk mengimbangi jalan beliau. Tapi beliau tampaknya seperti berjalan santai saja.”

Berjalan kaki bahkan dianjurkan oleh Rasulullah, apalagi berjalan menuju masjid untuk menunaikan kewajiban shalat berjamaah.Bahkan, semakin jauh jarak rumah seseorang dari masjid, setiap langkahnya (jalan kaki) akan dihitung sebagaimana tersirat dari hadits yang diriwayatkan oleh Imam Muslim dalam kitab Shahihnya: “Orang yang paling besar pahalanya dalam shalat ialah yang paling jauh berjalan – menujunya. Orang yang menunggu shalat sampai ia menunaikannya bersama Imam lebih besar pahalanya dari orang yang menunaikannya kemudian tidur. Dalam riwayat Abu Kuraib, “Sampai ia menunaikannya bersama Imam dalam shalat berjamaah.” (HR Muslim).

Hadits (ucapan, perbuatan, sikap) nabi SAW bukan lah merupakan nafsu saja, tetapi ia merupakan wahyu Allah Ta’ala (in huwa illa wahyun yuuha). Oleh karena itu, setiap kita menghadapi sesuatu hadits tentu tidak saja kita lihat syar’inya (hukumnya) saja, sebab di sebalik itu Insya Allah pasti ada manfaatnya. Berikut, saya kutipkan sebuah artikel tentang manfaat jalan kaki, terutama bagi anak-anak:

Jika jarak sekolah anak Anda tidak terlalu jauh, sebaiknya Anda mulai membiasakan anak-anak Anda untuk jalan kaki ke sekolah daripada Anda mengantarnya dengan mobil atau motor.Sebuah penelitian di Denmark menyebutkan bahwa, anak-anak yang berangkat atau pulang sekolah dengan berjalan kaki memiliki tingkat konsentrasi yang jauh lebih tinggi daripada anak-anak yang dijemput dengan kendaraan bermotor oleh orang tuanya. Temuan ini cukup mengejutkan mengingat para orang tua di Denmark lebih memfokuskan pada menu sarapan sehat untuk mencukupi kebutuhan gizi anak-anaknya, dengan harapan tingkat konsentrasi mereka tetap terjaga selama pelajaran berlangsung.

Sarapan sehat memang memegang peranan penting dalam meningkatkan konsentrasi anak, namun penelitian terbaru mengungkap jika jalan kaki ke sekolah memiliki manfaat yang lebih kuat dalam meningkatkan konsentrasi anak dalam menyerap pelajaran selama 4 jam ke depan. Penelitian ini melibatkan lebih dari 19.000 siswa berusia 5-19 tahun. Para siswa diberikan pertanyaan seputar kebiasaan olahraga mereka, kemudian diberikan tes pengukuran dasar konsentrasi. Hasilnya, tubuh anak-anak tersebut merasa lebih segar setelah berolahraga. Dan yang mengejutkan, efeknya berjalan cukup lama hingga beberapa jam ke depan, termasuk saat anak-anak menyerap pelajaran di kelas.

Hasil penelitian ini diperkuat oleh penelitian lanjutan dari University of Montreal yang menyatakan bahwa, aliran darah dan oksigen yang lebih baik ke seluruh tubuh, terutama di otak, menjadi alasan yang masuk akal tentang bagaimana aktivitas fisik, seperti jalan kaki ke sekolah, dapat membuat tingkat konsentrasi anak meningkat dan membuatnya lebih cerdas.Yuk, biasakan anak-anak jalan kaki ke sekolah dari sekarang.

Mobil Pintar Boleh Asal Tetap Aman

Agust Supriadi, CNN Indonesia

Jumat, 19/09/2014 09:55 WIB

Honda mengembangkan mobil yang saling terhubung satu sama lain (Reuters)

Jakarta, CNN Indonesia —

Toyota menilai mobil pintar bebas kemudi belum tepat mengaspal di Indonesia. Konsumen saat ini dinilai lebih membutuhkan fitur-fitur canggih yang sifatnya menghibur, memandu dan melindungi saat berkendara.

“Banyak faktor yang harus dikembangkan untuk teknologi ini (mobil pintar bebas kemudi) di Indonesia,” ujar Rahmat Samulo, Direktur Pemasaran PT Toyota Astra Motor di ajang IIMS 2014, Kamis (18/9).

Menurutnya, teknologi pintar di bidang otomotif yang cocok bagi publik tanah air adalah konsep mobil dengan kemudi. Namun, dicangkokan teknologi pengamanan atau fitur keselamatan.

“Untuk Toyota, sekarang hampir semua produk medium ke atas sudah dilengkapi kamera dan sebagainya untuk memudahkan pengendara waktu mengemudi atau parkir,” tuturnya.

Mobil Yaris terbaru, Samulo memberi contoh, sudah dilengkapi sistem audio yang terkoneksi dengan internet sehingga menyajikan semua layanan hiburan yang terintegrasi.

Sebagaimana diketahui, sejumlah perusahaan teknologi global telah mengembangkan teknologi mobil pintar tanpa kemudi, seperti Goggle, Apple, yang bekerjasama dengan perusahaan otomotif.

Mobil konsep

Pada ajang IIMS 2014, Toyota juga menampilkan sejumlah mobil konsep, yakni tipe FCV (Fuel Cell Vehicle) dan tipe Fun Vehicle.

FCV merupakan mobil dengan teknologi bahan bakar hidrogen yang menghasilkan gas buang uap air. Teknologi ini menggabungkan antara oksigen dari udara bebas dengan hidrogen yang menghasilkan listrik untuk menggerakan kendaraan (hybrid).

“FCV bebas polusi karena menghasilkan H2O,” kata Samulo.

Sementara Fun Vehicle merupakan mobil yang dikemudikan hanya dengan menggerakan badan. Di dalamnya ditanam teknologi pembaca kondisi psikis pengemudi.

“Dia bisa membaca situasi hati pengendara. Kalau lagi sedih keluar warna dan gambar tertentu, kalau lagi senang keluar gambar bunga-bunga,” ucapnya.

Fun Vehicle juga bisa merekam momen-momen indah selama mengemudi, yang sewaktu-waktu dapat mengingatkan pengemudi ketika sedang gundah. “Saat sedih, mobil ini bisa mengarahkan pengemudi ke lokasi menyenangkan tersebut, jadi bukan sekadar alat transportasi, tapi juga teman yang menghibur.”

Bepe Bisa Jadi Kapten Persija Lagi, Asalkan …

By Cakrayuri Nuralam

on Dec 19, 2014 at 11:57 WIB

Bambang Pamungkas (© Antara) — Hat-trick Bambang Pamungkas membawa Persija Jakarta menang 4-3 dari Persik Kediri dalam leg pertama babak 8 besar PIala Indonesia di Stadion Manahan, Solo, 17 Juli 2010. FOTO ANTARA/Akbar Nugroho Gumay

Liputan6.com, Jakarta – Persija Jakarta mendatangkan pemain pujaan The Jakmania (sebutan fans Persija), Bambang Pamungkas untuk tiga musim mendatang. Kembalinya Bepe –sapaan akrab Bambang– tentu menjadi kabar bagus untuk tim berjuluk Macan Kemayoran tersebut.

Pelatih Macan Kemayoran, Rahmad Darmawan mengungkapkan kalau Bepe bisa kembali mengemban tugas sebagai kapten tim. Terlebih lagi, kapten Persija musim lalu, Fabiano Beltrame sudah bergabung dengan Arema Indonesia.

“Bepe bakal menjadi kapten jika dia turun sebagai starting XI tim,” ucap ahli racik strategi yang akrab disapa RD tersebut.