PT PULANG PETANG SETIAP HARI

17100035-RANTI WULANTIKA-3.7

Private Sub cmdbatal_Click()
txtnama = ""
txtnik = ""
txtgolongan = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgolongan = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgaji = ""
txttunjangan = ""
txttotal = ""
txtnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim R As String
txttahun = Left(txtnik, 4)
R = Mid(txtnik, 5, 1)
If R = "A" Then
txtgolongan = "A"
txtjabatan = "Manajer"
txtgaji = "4000000"
txttunjangan = "1025000"
ElseIf R = "B" Then
txtgolongan = "B"
txtjabatan = "Ka.Seksi"
txtgaji = "3500000"
txttunjangan = "975000"
ElseIf R = "C" Then
txtgolongan = "C"
txtjabatan = "Staff"
txtgaji = "3000000"
txttunjangan = "925000"
End If
R = Mid(txtnik, 7, 1)
If R = "S" Then
txtkode = "S"
txtstatus = "Single"
ElseIf R = "M" Then
txtkode = "M"
txtstatus = "Menikah"
ElseIf R = "J" Then
txtkode = "J"
txtstatus = "Janda"
ElseIf R = "D" Then
txtkode = "D"
txtstatus = "Duda"
End If
R = Right(txtnik, 3)
If R = "KEU" Then
txtbagian = "Accounting"
ElseIf R = "AMD" Then
txtbagian = "Administrasi"
ElseIf R = "SDM" Then
txtbagian = "General Affair"
ElseIf R = "EDP" Then
txtbagian = "IT Unit"
ElseIf R = "SPM" Then
txtbagian = "Security"
End If
txttotal = Val(txtgaji) + Val(txttunjangan)
End Sub

DATA BUKU STMIK PRINGSEWU

17100035-RANTI WULANTIKA-3.6

Private Sub cmdbatal_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(txtkode, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadya Ulfa"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Riyan Hidayat"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttahun = "20" & Mid(txtkode, 5, 2)
A = Right(txtkode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub

PENJUALAN TIKET KERETA API Tgs Vb 3.5

17100035-RANTI WULANTIKA-3.5

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotal = ""
txtkode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim RA As String
RA = Left(txtkode, 3)
If RA = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf RA = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf RA = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf RA = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub


Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txtht) * (txtjt)
End If
End Sub

Tugas Visual Basic Data Buku STMIK Pringsewu 3.4

17100035-RANTIWULANTIKA-3.4

Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = ""
txtjudul.Text = ""
txtpengarang.Text = ""
txttahun.Text = ""
txtpenerbit.Text = ""
txtharga.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = ""
txtjudul.Text = ""
txtpengarang.Text = ""
txttahun.Text = ""
txtpenerbit.Text = ""
txtharga.Text = ""
End Sub

Private Sub cmdproses_Click()
Dim KB As String
KB = Mid(cbokode.Text, 3, 3)
If KB = "SIM" Then
txtjudul = "sistem informasi manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = 75900
ElseIf KB = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustin"
txtharga = 62000
ElseIf KB = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Riyan Hidayat"
txtharga = 42000
ElseIf KB = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotima"
txtharga = 53000
ElseIf KB = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = 83000
End If
txttahun.Text = "20" & Right(cbokode.Text, 2)
KB = Left(cbokode.Text, 1)
If KB = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf KB = "I" Then
txtpenerbit = "Inda Surabaya"
ElseIf KB = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf KB = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf KB = "M" Then
txtpenerbit = "Maxiacom"
End If
End Sub

Private Sub Form_Load()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MNJ-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"
End Sub

TUGAS VISUAL BASIC ENTRI PENJUALAN LAPTOP APPLE 3.3

17100035-RANTI WULANTIKA-3.3

Private Sub cbokode_Click()
Dim merk As String
merk = Mid(cbokode, 7, 5)
If merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
ElseIf merk = "MC968" Then
txtmerk = "Apple MacBook Air MC968"
harga = "9900000"
ElseIf merk = "MC969" Then
txtmerk = "Apple MacBook Air MC969"
harga = "11900000"
ElseIf merk = "MC700" Then
txtmerk = "Apple MacBook Pro MC700"
harga = "10800000"
ElseIf merk = "MC721" Then
txtmerk = "Apple MacBook Pro MC721"
harga = "15900000"
ElseIf merk = "MC723" Then
txtmerk = "Apple MacBook Pro MC723"
harga = "19300000"
ElseIf merk = "MC724" Then
txtmerk = "Apple MacBook Pro MC724"
harga = "13700000"
ElseIf merk = "MC311" Then
txtmerk = "Apple MacBook Pro MC311"
harga = "24200000"
ElseIf merk = "MC313" Then
txtmerk = "Apple MacBook Pro MC313"
harga = "11900000"
ElseIf merk = "MC314" Then
txtmerk = "Apple MacBook Pro MC314"
harga = "14700000"
ElseIf merk = "MC318" Then
txtmerk = "Apple MacBook Pro MC318"
harga = "17600000"
ElseIf merk = "MC322" Then
txtmerk = "Apple MacBook Pro MC322"
harga = "21300000"
ElseIf merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
End If
txths = harga
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txtdis.Text = ""
Txttb.Text = ""
txthp.Text = ""
End Sub

Private Sub cmdproses_Click()
Dim harga, dis, total As String
harga = Val(txtjj) * (txths)
txthp = harga
If txthp > "140000000" Then
dis = Val(txthp) * 0.15
ElseIf txthp > "135000000" Then
dis = Val(txthp) * 0.1
ElseIf txthp > "130000000" Then
dis = Val(txthp) * 0.05
ElseIf txthp > "125000000" Then
dis = Val(txthp) * 0.02
End If
txtdis = dis
Txttb = Val(txthp) - Val(txtdis)
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"
cbokode.AddItem "Apple MC965 MacBook Air"
cbokode.AddItem "Apple MC966 MacBook Air"
End Sub

TUGAS VISUAL BASIC 3.2

17100035-RANTI WULANTIKA-3.2

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 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.Akutansi"
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 form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub
Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub

Tugas 3.1 Visual Basic

17100035-Ranti Wulantika-3.1

Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
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

Private Sub cmdbatal_Click()
kosong
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = ""
txtnama.Text = ""
cbogolongan.Text = ""
txtgapok.Text = ""
txttunjangan.Text = ""
txtpajak.Text = ""
txttotal.Text = ""
End Sub

Private Sub txtnind_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Form_Load()
cbogolongan.AddItem "I"
cbogolongan.AddItem "II"
cbogolongan.AddItem "III"
cbogolongan.AddItem "IV"
End Sub

HURUF MUTU MAHASISWA STMIK YANG MEMAKAI KeyPress

TUGAS 2.8

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100035"
nama = "RANTI WULANTIKA"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "MARISCA NOVALINDA"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "RENALDI ZAINAL ARIFIN"
jurusan = "Sistem Informasi"
Case "17100032"
nama = "DIKA ADI PRATAMA"
jurusan = " Sistem Informasi"
Case "17100033"
nama = "ROBIYANTO"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
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 cmdkeluar_Click()
Unload Me
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 "17100035"
cbonpm.AddItem "17100034"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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 If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

HURUF MUTU MAHASISWA STMIK PRINGSEWU TIDAK MENGGUNAKAN KeyPress

TUGAS 2.7

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100035"
nama = "RANTI WULANTIKA"
jurusan = "Sistem Informasi"
Case "17100034"
nama = "MARISCA NOVALINDA"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "RENALDI ZAINAL ARIFIN"
jurusan = "Sistem Informasi"
Case "17100032"
nama = "DIKA ADI PRATAMA"
jurusan = " Sistem Informasi"
Case "17100033"
nama = "ROBIYANTO"
jurusan = "Sistem Informasi"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
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 cmdkeluar_Click()
Unload Me
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 "17100035"
cbonpm.AddItem "17100034"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
End Sub

Tuliskan Nama Anda Ranti Wulantika

TUGAS 2.6

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

17100035-Ranti Wulantika-2.5

TUGAS 2.5

Private Sub chkbold_Click()
'membuat teks tebal
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub chkitalic_Click()
'membuat teks miring
If chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkstrikethru_Click()
'membuat teks bergaris tengah
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
'membuat teks bergaris bawah
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub



Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub optblue_Click()
'Membuattexts berwarna biru
lblteks.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
'Membuattexts berwarna hijau
lblteks.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
'Membuattexts berwarna Merah
lblteks.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
'Membuattexts berwarna kuning
lblteks.ForeColor = vbYellow
End Sub

APLIKASI PERHITUNGAN GAJI MENGGUNAKAN KEYPRESS

TUGAS 2.4

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub CmdUlang_Click()
txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus

End Sub


Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub


Private Sub txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End If
End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If
End Sub

APLIKASI PERHITUNGAN GAJI TANPA KEYPREES

TUGAS 2.3

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
txtgk = Val(txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub CmdUlang_Click()
txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus

End Sub


Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub

HARGA SETELAH DISKON 10% MENGUNAKAN KEYPRESS

TUGAS 2.2

Private Sub Command4_Click()

TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)

End Sub
Private Sub Command5_Click()
Txtha = ""
TxtDis = ""
TxtHak = ""
Txtha.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub


Private Sub Txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)
End If
End Sub

HARGA SETELAH DISKON 10% TANPA KEYPRESS

TUGAS 2.1 

 

 Private Sub Command4_Click()

TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)

End Sub
Private Sub Command5_Click()
Txtha = ""
TxtDis = ""
TxtHak = ""
Txtha.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub

Kalkulator Menggunakan Keypress

Tugas 6

Private Sub Command1_Click()
If Val(Text2.Text) & Val(Text3.Text) Then
Text4.Text = Val(Text2.Text) + Val(Text3.Text)
End If

If Val(Text5.Text) & Val(Text6.Text) Then
Text7.Text = Val(Text5.Text) / Val(Text6.Text)
End If

If Val(Text8.Text) & Val(Text9.Text) Then
Text10.Text = Val(Text8.Text) - Val(Text9.Text)
End If

If Val(Text11.Text) & Val(Text12.Text) Then
Text13.Text = Val(Text11.Text) * Val(Text12.Text)
End If
End Sub

Private Sub Command2_Click()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
End Sub

Private Sub Command3_Click()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
End Sub

Private Sub Text11_Change()
If KeyAscii = 13 Then
Text12.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub


Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

Kalkulator Tidak Mengunakan Keypress

 Tugas 5

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If

If Val(Text4.Text) & Val(Text5.Text) Then
Text6.Text = Val(Text4.Text) / Val(Text5.Text)
End If

If Val(Text7.Text) & Val(Text8.Text) Then
Text9.Text = Val(Text7.Text) - Val(Text8.Text)
End If

If Val(Text10.Text) & Val(Text11.Text) Then
Text12.Text = Val(Text10.Text) * Val(Text11.Text)
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 = ""
Text12.Text = ""

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 = ""
Text12.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Penjumlahan Mengunakan Keypress

Tugas 4

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
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)
Text3.SetFocus
End If
End Sub

Penjumlahan Tidak Menggunakan Keypress

Tugas 3

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command3_Click()
End
End Sub

Data Mahasiswa menggunakan Keyprees

Tugas 2

Private Sub Form_Load()
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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Data Maha Siswa Tidak Mengunakan Keypress

Tugas 1

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Label1_Click()

End Sub

Virtual Goggles

Virtual Goggles | Foto: wallpaper222(dot)com

Virtual Goggles atau Vitual Reality adalah salah satu teknologi terbaru dan tercanggih yang tengah menjadi perbincangan dunia. Bentuk dari teknologi adalah kacamata. Ya, kacamata yang dilengkapi dengan teknologi super canggih.

Alat-alat teknologi dengan kecanggihan yang wow pada film-film Hollywood seperti diwujudkan dalam bentuk asli. Kini kita bisa memiliki berbagai alat berteknologi canggih persis seperti yang ada di film-film. Mulai dari komputer hingga mobil yang ada di film kini ada dan nyata di kehidupan kita.

Virtual Goggles dahulu disebut Virtual Reality | Foto: fastcompany(dot)com

Istilah Virtual Reality ini pertama kali dipakai dan didengungkan pada awal tahun 1990 silam. Kemudian pada tahun 2010 lalu, nama Virtual Reality diubah menjadi Virtual Goggles.

Teknologi terbaru dan tercanggih ini merupakan teknologi yang membawa dunia secara virtual dengan menggunakan 3D komputer. Virtual Goggles ini menggunakan teknologi stereoscopic goggles alias kaca mata sebagai media gambar 3D.

Jadi dengan menggunakan teknologi canggih ini kita bisa melihat sekeliling kita seolah-olah hidup. Cara kerja Virtual Goggles ini sama dengan kaca mata 3D, namun lebih canggih karena ditunjang dengan teknologi super
sumber : http://warungkopi.okezone.com/thread/415142/super-wow-teknologi-terbaru-dan-tercanggih-ini-nyata-lho

NILAI BISNIS TEKNOLOGI TELEKOMUNIKASI

Perkembangan teknologi komunikasi telah membawa perubahan yang signifikan dalam penggunaan teknologi tersebut. Hadirnya teknologi tersebut dapat mengubah proses bisnis menjadi lebih efektif. Saat ini, jaringan telekomunikasi memainkan peranan penting dalam e-business, e-commerce, dan aplikasi lainnya yang dapat mendukung tujuan strategis manajemen perusahaan.

Penggunaan internet, intranet, ekstranet dan aplikasi bisnis lainnya mengurangi biaya, meningkatkan produktivitas, mempersingkat waktu proses bisnis sehingga perusahaan tersebut mampu menghadapi persaingan bisnis yang semakin ketat. Ditambah lagi dengan hadirnya e-commerce, transaksi bisnis akan menjadi lebih cepat, nyaman, dan dapat disesuaikan dengan keinginan pelanggan. Sebagai contoh, dengan adanya internet, perusahaan dapat menangkap informasi dari pelanggan secara cepat, kemudian memproses pesanan tersebut secara cepat pula, sehingga mampu mengurangi penundaan dalam pemenuhan kebutuhan bagi pelanggan. Contoh yang lain, dengan menggunakan jaringan POS online, perusahaan dapat melakukan otorisasi kredit penjualan barang. Permintaan kredit dapat dilakukan dan dijawab secara cepat.

Demikian artikel Nilai Bisnis Teknologi Telekomunikasi yang bisa kami sampaikan, semoga bermanfaat.

Sumber: https://tekno-hp.blogspot.co.id/2017/10/nilai-bisnis-teknologi-telekomunikasi.html
Buku Informasi Konsep & Aplikasi
Penulis: Agus Mulyanto

Daftar Teknologi Paling Ditunggu Di Akhir Tahun

 1  Holographic Life

Dalam perkembangan teknologi yang semakin pesat semua bersifat hologram. Tak heran kemampuan dalam membentuk dunia hologram ini menjadi teknologi yang ditunggu orang untuk masa depan. Sebuah video atau gambar tampil tak hanya dalam 3 dimensi tapi utuh sesuai aslinya.

 2  Eksoskeleton

Anda ingin menggunakan baju seperti super hero hal itu bukan sesuatu hal yang mustahil. Eksoskeleton adalah baju yang dirancang sesuai dengan tubuh anda dan anda akan memiliki kekuatan super. Tak salah maka eksosokeleton termasuk dalam 10 teknologi paling ditunggu di akhir tahun.

 3  BionicOpter

Apakah anda ingin memiliki robot mini? Bioinopter adalah jawabanya. Didesain berbentuk capung, robot ini merupakan salah satu pernagkat mesin yang sudah komplek. Diseluruh tubuhnya merupakan sensor.

 4  Little Dog Robot

Robot kecil berbentuk anjing ini dibuat oleh universitas California. Robot ini didesain untuk melintasi medan berat. Diharapkan dapat digunkaan saat bencana. Karena ukuran yang kecil dan teknologi yang dimilikinya tak heran litlle dog robot ini masuk dalam 10 teknologi paling ditunggu akhir tahun.

 5  Samsung Flexible Old Screen

Layar OLED oyang dibuat fleksibel ini didesain oleh vendor produk telekomunikasi terkemuka Samsung. Layar monitor ponsel pintar dimasa mendatang diharapkan dapat lentur dan bisa fleksibel. Layar lentur samsung ini merupakan salah satu teknologi komunikasi yang paling ditunggu akhir tahun.

 6  Iriscan Mouse

Tetikus yang bisa menyecan sebuah teks adalah harapan semua orang. hal ini memudahkan pekerjaan dalam melakukan copying. Tak heran Tetikus Iriscan ini menjadi salah satu 10 teknologi paling ditunggu akhir tahun. 

 7  Info Digital System Interface

Inilah Prototipe teknologi media digital yang paling ditunggu akhir tahun. Anda bisa memasukkan semua konten digital yang anda inginkan dalam tablet topuchscreen. Anda cukup memilih konten apa yang ingin anda buat. Anda cukup memindai apa yang ada dalam kehidupan nyata dan sediakan kertas anda juga dapat menyetaknya.

 8  Material

Model pencetakan 3D memang sedang hangat dibicarakan. Material adalah salah satu mesin yang bisa mencetak 3D dengan maksimal. Tak heran material merupakan salah satu 10 teknologi paling ditunggu akhir tahun.

 9  Anti Facial Recognition Visor

Teknologi pemindai wajah memang sedang terkenal. Saat ini menggunakan teknologi ini maka proses pemindaian atau pengenalan kode kunci cukup menggunakan wajah. Teknologi ini dibuat oleh oleh Japan National Institute of Informatika. Selain itu teknologi ini juga bisa menyamarkan wajah anda dari pemindaian. Visor masuk dalam 10 teknologi paling ditunggu akhir tahun.

 10  Word Lens

Jika menggunakan lensa ini anda tak perlu bingung bepergian keluar negeri. Di negara manapun anda akan menegerti bahasa yang digunakan dengan mudah menggunakan word lens.

sumber : http://www.daftarmenarik.com/2014/09/10-teknologi-paling-ditunggu-di-akhir-tahun.html

Flying Car

Mobil Terbang Sungguhan | Foto: dailymail(dot)co(dot)uk

Dalam berbagai film baik itu film action atau film animasi kita sering melihat mobil yang bisa terbang. Kini mobil terbang benar-benar ada di dunia nyata. Teknologi termutakhir ini diberi nama “The Highway in The Sky”.

Mobil terbang ini masih dalam tahap produksi dan uji coba. Selain digunakan di daratan mobil ini juga bisa digunakan di udara. Tujuan diciptakannya flying car ini adalah untuk mengurangi kemacetan yang melanda Negara-negar di dunia yang semakin kronis.

Mobil Terbang yang sedang uji coba | Foto: motherboard(dot)vice(dot)com

Teknologi terbaru dan tercanggih ini dapat digunakan oleh siapa saja. Jangan khawatir, bagi Anda yang memiliki bobot tubuh berlebih juga bisa menggunakan kendaraan canggih ini, lho. Ya, karena mobil ini dirancang tanpa pengecualian berat badan.

Anda juga tak perlu khawatir akan keamanannya, sebab mobil ini juga dilengkapi dengan fitur keselamatan dan kemanan nomor wahid. Mobil ini mampu menempuh perjalanan hingga 450 mil dan dapat mengudara hingga 100 mil perjam di udara dalam kecepatan tinggi.

Kehadiran mobil terbang ini memang sangat dinantikan. Selain itu, mobil ini diprediksi mampu mengatasi kemacetan. Diperkirakan mobil ini siap beroperasi jika sudah ada persetujuan dari Federal Aviation Administration.

sumber : http://warungkopi.okezone.com/thread/415142/super-wow-teknologi-terbaru-dan-tercanggih-ini-nyata-lho

Teknologi Terbaru dalam bidang komputer

Terbaru dan Paling Canggih

Berbicara tentang penemuan di bidang komputer, seiring berjalannya waktu penemuan-penemuan yang ada sangatlah unik dan tentunya akan sangat membantu manusia dalam mengerjakan berbagai pekerjaannya. Tak hanya membantu pekerjaan kamu, namun komputer juga membantu mengurangi waktu kerjamu. Jika biasanya kamu mengerjakan sesuatu sangat lama, maka dengan komputer kamu bisa mengerjakan sesuatu dengan lebih singkat. Berikut ini tercanggih dan terbaru yang wajib untuk kamu ketahui:

1. Biometric Sensor

Apakah kamu pernah mendengar tentang biometric sensor? Ini merupakan teknologi terbaru yang bisa diaplikasikan pada komputer. Teknologi canggih ini diciptakan oleh salah satu perusahaan komputer terbesar bernama Intel. Teknologi ini hampir sama dengan teknologi Apple yang digunakan untuk otorisasi kartu kredit saat melakukan pembayaran dengan Pay Apple. Biometric sensor membuat kamu lebih mudah untuk melakukan otorisasi pada berbagai situs. Jika biasanya kita harus menggunakan password atau username untuk mengakses sebuah situs, maka dengan biometric sensor kamu bisa masuk dengan lebih mudah, praktis dan juga aman.

2. Wireless Display

Wireless Display merupakan salah satu teknologi terbaru dan juga canggih yang sama-sama diprakarsai oleh perusahaan komputer terbesar bernama Intel. Dengan menggunakan Wireless Display, maka komputer dan laptop tidak perlu dihubungkan dengan sebuah kabel. Teknologi ini juga bisa membuat sebuah komputer atau laptop bisa terhubung dengan beberapa komputer atau laptop lainnya. Bagi kamu yang sering mempresentasikan sesuatu hal di depan publik, maka teknologi ini akan sangat membantu. Kamu tak perlu memasang kabel untuk mempresentasikan hasil kerja kamu. Cukup gunakan teknologi ini, maka kamu bisa mempresentasikan apa pun dengan mudah.

3. Wireless Charging

Sama-sama berasal dari Intel, teknologi wireless charging pun begitu canggih dan tentunya akan sangat membantu kamu. Jika biasanya kamu harus mengulur kabel untuk mengisi baterai laptopmu, maka hal itu tidak perlu dilakukan saat kamu memiliki wireless charging. Dengan wireless charging, tentunya kamu akan lebih mudah untuk mengisi baterai laptopmu tanpa harus repot menggunakan kabel.

4. Komputer Interaktif

Kompuer interaktif dari intel merupakan teknologi yang canggih dan juga baru. Komputer jenis ini akan sangat peka terhadap visual dan juga berbagai input yang dilakukan oleh penggunanya. Nantinya, teknologi ini pun akan dilengkapi dengan intel realsense 3D camera, dimana teknologi tersebut bisa sangat peka bahkan mampu mengatur jarak antara pengguna dengan sensor.

5. Creative Desktop dengan Touch Mat dari HP

Salah satu yang canggih dan terbaru adalah Creative Desktop dengan Touch Mat. Teknologi ini diciptakan oleh sebuah perusahaan komputer HP (Hewlett-Packard). Teknologi ini seperti kanvas yang sudah dikombinasikan dengan komputer berteknologi kamara 3D. Teknologi ini memungkinkan penggunanya untuk bisa memindai berbagai benda yang ada di depan komputer, lalu memanipulasinya dengan kanvas yang berada di atas meja. Misalnya saja ada sebuah cangkir yang terletak di depan komputer jenis ini. Komputer tersebut akan mampu memindai cangkir yang ada di depannya. Setelah gambarnya berada daam komputer, maka kamu bisa memanipulasi gambar tersebut sesuai keinginan dengan menggunakan kanvas yang berada di dekat komputer tersebut.

Jenis gambar yang nantinya akan masuk ke dalam komputer adalah jenis gambar 3D. Alat yang digunakan untuk memindai berbagai objek tersebut ke dalam Touch Mat adalah proyektor yang terletak di atas Sprout.

6. Virtual Keyboard
Teknologi canggih dan baru ini diciptakan oleh perusahaan Dell. Prinsip kerja teknologi ini adalah dengan menggabungkan sebuah PC all in one dan juga smart desk. Dengan teknologi ini, pengguna akan bisa mengetik langsung di atas meja. Nah, tentunya teknologi ini akan sangat membantu bukan? Jari-jari kamu tidak perlu memegang keyboard komputer dan tentunya lebih lincah bergerak saat mengetik apa pun. Teknologi jenis ini pastinya akan sangat berguna untuk kamu dalam mengerjakan berbagai jenis tugas.

Itulah beberapa terbaru dan juga tercanggih yang pastinya sangat sayang untuk kamu lewatkan. Seiring berjalannya waktu, tentunya penemuan di dunia komputer akan lebih banyak dan juga lebih canggih. Jadi, siapkah kamu untuk menyambut teknologi lain yang lebih canggih? Lalu adakah teknologi di atas yang menarik perhatian kamu sehingga kamu ingin memilikinya? Yang pasti, beberapa teknologi di atas dimaksudkan untuk membantu pekerjaan manusia, sehingga manusia bisa lebih mudah dalam mengerjakan pekerjaannya. Jika kamu berminat untuk memiliki teknologi di atas, jangan lupa untuk melihat-lihat terbaru dengan berkunjung ke berbagai website perusahaan komputer. Hal seperti itu bisa membuat wawasanmu bertambah, dan tentunya tak ketinggalan info tentang tercanggih dan terbaru saat ini.

 sumber : http://www.gudangilmukomputer.com/2016/05/6-teknologi-komputer-terbaru-dan-tercanggih-saat-ini.html

Teknologi Canggih di tahun 2017

Digital twin

Digital twin merupakan penemuan terbaru dibidang teknologi digital, dengan digital twin software akan terlihat lebih dinamis dalam hal fisik dan sistemnya. Sistem kerja teknologi terbaru digital twin ialah mengandalkan data yang disediakan sensor untuk merespon sebuah perubahan, memahami keadaan, dan meningkatkan kinerja. Sistem ini disinyalir bakalan menggantikan ketrampilan sumber daya manusia dan monitoring tradisional dalam hal perencanaan jasa, dan memperbaiki peralatan operasi pabrik.

amazonaws.com

 Intelligent things

Intelligent things merupakan teknologi terbaru yang akan membantu manusia dalam melakukan beberapa hal, khususnya dalam hal berkendara, sebab teknologi ini bisa memperpediksi jika jarak kendaranmu dengan benda di sekitarnya terlalu dekat. Intelligent things menggunakan AI dan Machine Learning dalam memprediksi terhadap objek lain, Intelligent things juga bisa dipasang di drone dan smart appliances.

forbes.com

 Teknologi VR dan AR

Teknologi yang bakalan mengalami pembaruan dan bakalan lebih populer ialah Virtual Reality dan Augmented Reality. Sebenarnya kedua teknologi ini sudah ada di beberapa tahun terakhir, namun sampai saat ini kedua teknologi ini masih dalam proses penggembangan, di tahun 2017 ini keduanya mengalami beberapa perbaikan. Menurut gartner, perkembangan dua teknologi ini akan terus mangalami perbaikan hingga sampai pada tahap penyempurnaan, yang diprediksi terjadi pada tahun 2021.

pinimg.com

Intelligent apps

Teknologi lain yang menggunakan AI dan akan hadir di tahun ini ialah Intelligent apps, salah satu contoh penggunaan intelligent pass ialah pada penggunaan virtual asissten yang akan membuat hidup manusia lebih mudah, nahkan teknologi ini mampu membantu pekerjaan sehari-hari manusia.

techstory.id

 Mobil terbang aeromobil

Teknologi canggih di tahun 2017 selanjutnya ialah mobil terbang atau aeromobil. Aeromobil merupakan perpaduan antara pesawat terbang dengan mobil, jadi kerjanya hampir sama dengan tank ampibi yang bisa di darat dan di laut. Namun untuk aeromobil bisa di darat dan di udara, perpaduan ini mobil dan pesawat ini melahirkan mobil dengan tampilan yang mewah dan fungsi yang bisa dibawa kemana saja tanpa harus takut terjebak macet.

thegaspol.com

Menurut CEO dari aeromobil, Juraj Vaculik, pihaknya mengatakan bergerak cepat dalam memproduksi dan memasarkan inovasinya tersebut. Dalam wawancara Jurac dengan wartawan CNBC, ia mengatakan jika pada tahun 2017 ini perusahaan aeromobilnya dipastikan sudah bisa mengudara dan siap dipasarkan.
Perpaduan antara mobil dan pesawat ini juga menghasilkan kombinasi yang menarik dengan teknologi canggih yang ada di mobil dan pesawat, dilengkapi dengan sistem aviasi dan auto pilot kendaraan masa depan ini bakalan menjadi primadona. Selain itu, aeromobil juga dilengkapi dengan peredam kejut untuk melakukan take off dan pendaratan di medan kasar.

Mobil otonom atau mobil tanpa pengemudi

Mobil tanpa supir sebelumnya sudah diproduksi pada tahun 2016, namun itu masih dalam tahap percobaan dan diproduksi dalam jumlah terbatas. Menurut Boston Consuling Group, teknologi mobil otonom atau tanpa pengemudi, akan mulai menjamur di tahun 2017 dan akan memenuhi perjalanan seluruh kota pada tahun 2040.

ruangselebriti.blogspot.co.id

Masa depan manusia terdengar semakin mudah bukan, jika kita masih hidup di 2040 maka tidak menutup kemungkinan kita naik mobil sendirian sambil ditinggal tidur, karena mobil sudah bisa berjalan sendiri secara otomatis. Selain itu masa depan kita juga tidak perlu lagi menggunakan SIM sebagai syarat mengemudi.
Itulah 7 teknologi canggih di tahun 2017 yang akan membuat pekerjaan manusia semakin terbantu dan semakin ringan. Karena hakikat dari ilmu pengetahuan dan teknologi ialah untuk mempermudah kehidupan manusia dan bermanfaat untuk manusia. Bukan untuk merusak tatanan dunia dan bukan juga dijadikan sebagai pembunuh manusia.
sumber : https://www.inovasee.com/teknologi-canggih-di-tahun-2017-17818/