PROGRAM 6-10

6

Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub cmdproses_Click() Dim judul, pengarang, tahun, penerbit, harga As String Select Case Cmbcode Case “A-SIM-01” judul = “SistemInformasiManajemen” pengarang = “YatiNurOktavia” tahun = “2001” penerbit = “Andi Offset Yogyakarta” harga = “75900” Case “I-EDP-02” judul = “ElektronikData Processing” pengarang = “Imam Tarmizi” tahun = “2002” penerbit = “Indah Surabaya” harga = “62000” Case “S-MNJ-03” judul = “Manajemen” pengarang = “Valentina Mariana Adiwianti” tahun = “2003” penerbit = “SalembaEmpat” harga = “42000” Case “E-CDR-04” judul = “Corel Draw” pengarang = “RiyanSuhandi” tahun = “2004” penerbit = “Elek Media Komputindo” harga = “53000” Case “M-RPL-05” judul = “RekayasaPerangkatLunak” pengarang = “SintaUmpuSinga” tahun = “2005” penerbit = “Maxicom” harga = “83000” End Select Textjb = judul Textpeng = pengarang Texttt = tahun Textpen = penerbit Textharga = harga End Sub Private Sub Cndbatal_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cmbcode.AddItem “A-SIM-01” Cmbcode.AddItem “I-EDP-02” Cmbcode.AddItem “S-MNJ-03” Cmbcode.AddItem “E-CDR-04” Cmbcode.AddItem “M-RPL-05” End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

7

Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textkt.SetFocus Textkt = “” Textht = “” Textjk = “” Textjb = “” Textjt = “” Texttp = “” End Sub Private Sub cmdproses_Click() Dim S As String S = Left(Textkt.Text, 3) If S = “BIM” Then Textjk.Text = “BIMA” Textht.Text = “50000” Textjb.Text = “16.00 WIB” ElseIf S = “EKO” Then Textjk.Text = “EKONOMI” Textht.Text = “35000” Textjb.Text = “19.00 WIB” ElseIf S = “MUT” Then Textjk.Text = “MUTIARA” Textht.Text = “23000” Textjb.Text = “17.00 WIB” ElseIf S = “SEN” Then Textjk.Text = “SENJA” Textht.Text = “15000” Textjb.Text = “20.00 WIB” End If Texttp.Text = Val(Textht.Text) * Val(Textjt.Text) Textjt.SetFocus End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texttp = Val(Textht) * Val(Textjt) End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

8

Private Sub Cmdbatal_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub Cmdproses_Click() Dim S As String Txttp.Text = “20” & Mid(Txtkode, 5, 2) S = Left(Txtkode, 3) If S = “SIM” Then Txtjb.Text = “Sistem Informasi Manajemen” txtpeng.Text = “Fadiya Ulfa” Txtharga.Text = “75900” ElseIf S = “EDP” Then Txtjb.Text = “Elektronik Data Processing” txtpeng.Text = “Nurul Agustina” Txtharga.Text = “62000” ElseIf S = “MNJ” Then Txtjb.Text = “Manajemen” txtpeng.Text = “Rian Hidayat” Txtharga.Text = “42000” ElseIf S = “CDR” Then Txtjb.Text = “Corel Draw” txtpeng.Text = “Siti Nur Khotimah” Txtharga.Text = “53000” ElseIf S = “RPL” Then Txtjb.Text = “Rekayasa Perangkat Lunak” txtpeng.Text = “Winda Erlianti” Txtharga.Text = “83000” End If S = Right(Txtkode, 1) If S = “A” Then Txtpen.Text = “Andi Offset Yogyakarta” ElseIf S = “I” Then Txtpen.Text = “Indah Surabaya” ElseIf S = “S” Then Txtpen.Text = “Salemba Empat” ElseIf S = “E” Then Txtpen.Text = “Elek Media Komputindo” ElseIf S = “M” Then Txtpen.Text = “Maxicom” End If End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

9

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub Cmdproses_Click() Dim r As String r = Mid(Textnik.Text, 5, 1) If r = “A” Then Textgol = “A” Textjab.Text = “MANAGER” Textgp.Text = “4000000” Texttun.Text = “1025000” ElseIf r = “B” Then Textgol.Text = “B” Textjab.Text = “Ka.SEKSI” Textgp.Text = “3500000” Texttun.Text = “975000” ElseIf r = “C” Then Textgol.Text = “C” Textjab.Text = “STAFF” Textgp.Text = “3000000” Texttun.Text = “925000” End If r = Right(Textnik.Text, 3) If r = “KEU” Then Textbag.Text = “ACCOUNTING” ElseIf r = “ADM” Then Textbag.Text = “ADMINISTRASI” ElseIf r = “SDM” Then Textbag.Text = “GENERAL AFFAIR” ElseIf r = “EDP” Then Textbag.Text = “IT UNIT” ElseIf r = “SPM” Then Textbag.Text = “SECURITY” End If r = Mid(Textnik.Text, 7, 1) If r = “S” Then ks = “S” Stt = “SINGLE” ElseIf r = “M” Then ks = “M” Stt = “MENIKAH” ElseIf r = “J” Then ks = “J” Stt = “JANDA” ElseIf r = “D” Then ks = “D” Stt = “DUDA” End If Textks.Text = ks Textstt.Text = Stt Textt.Text = Left(Textnik.Text, 4) Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Activate() Textnama.SetFocus End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnik.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

10

Private Sub Cmdadd_Click() Data1.Recordset.addnew Txtkode.SetFocus End Sub Private Sub Cmdcancel_Click() Data1.Recordset.Delete End Sub Private Sub Cmdhitung_Click() Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text) If Val(Txtjb.Text) > “5” Then Txtpot.Text = Val(Txtby) * 0.02 Txttb.Text = Val(Txtby.Text) – (Txtpot.Text) End If End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub Cmdproses_Click() Dim H, nb, hb As String H = Mid(Txtkode, 5, 2) If H = “SP” Or H = “sp” Then Txtnb.Text = “Spidol” Txthb.Text = “9500” ElseIf H = “BT” Or H = “bt” Then Txtnb.Text = “Buku Tulis” Txthb.Text = “12500” ElseIf H = “TP” Or H = “tp” Then Txtnb.Text = “Tip EX” Txthb.Text = “3000” ElseIf H = “PG” Or H = “pd” Then Txtnb.Text = “Penggaris” Txthb.Text = “2500” ElseIf H = “PT” Or H = “pt” Then Txtnb.Text = “Papan Tulis” Txthb.Text = “5000” End If Txtjb.SetFocus End Sub Private Sub Cmdsave_Click() Data1.Recordset.Update End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

Advertisements

PROGRAM 1-5

1

Private Sub Cmdbatal_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub cmdlagi_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_load() cbogolongan.AddItem “I” cbogolongan.AddItem “II” cbogolongan.AddItem “III” cbogolongan.AddItem “IV” End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan Case “I” gapok = 3500000 tunjangan = 350000 Case “II” gapok = 2400000 tunjangan = 240000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 1000000 tunjangan = 100000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total – pajak End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

2

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim jr As String Dim ps As String Dim A As String A = Mid(Textnpm, 3, 1) If A = 1 Then jr = “sistem informasi” ElseIf A = 2 Then jr = “teknik informatika” ElseIf A = 3 Then jr = “menejemen informatika” ElseIf A = 4 Then jr = “komputer akuntansi” End If Textjur = jr A = Mid(Textnpm, 4, 2) If A = “01” Then ps = “strata 1” ElseIf A = “02” Then ps = “diploma 4” ElseIf A = “03” Then ps = “diploma 3” ElseIf A = “04” Then ps = “diploma 2” End If Textps = ps Texttm = “20” & Left(Textnpm, 2) Textnu = Right(Textnpm, 3) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

3

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim A As String Texttm = “20” & Left(Textnpm, 2) A = Mid(Textnpm, 3, 3) If A = “100” Then Textjur = “sistem informasi” Textps = “strata 1” ElseIf A = “200” Then Textjur = “manajemen informatika” Textps = “diploma 3” ElseIf A = “300” Then Textjur = “teknik informatika” Textps = “diploma 4” ElseIf A = “400” Then Textjur = “komputer administrasi” Textps = “diploma 2” End If Textnu = Right(Textnpm, 3) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

44

Private Sub Cbocode_Click() Dim merk, hs As String Select Case Cbocode Case “Apple MC965 MacBook Air” merk = “Apple MacBook Air MC965” hs = “12800000” Case “Apple MC966 MacBook Air” merk = “Apple MacBook Air MC966” hs = “15800000” Case “Apple MC968 MacBook Air” merk = “Apple MacBook Air MC968” hs = “9900000” Case “Apple MC969 MacBook Air” merk = “Apple MacBook Air MC969” hs = “11900000” Case “Apple MC700 MacBook Pro” merk = “Apple MacBook Pro MC700” hs = “10800000” Case “Apple MC721 MacBook Pro” merk = “Apple MacBook Pro MC721” hs = “15900000” Case “Apple MC723 MacBook Pro” merk = “Apple MacBook Pro MC723” hs = “19300000” Case “Apple MC724 MacBook Pro” merk = “Apple MacBook Pro MC724” hs = “13700000” Case “Apple MC311 MacBook Pro” merk = “Apple MacBook Pro MC311” hs = “24200000” Case “Apple MC313 MacBook Pro” merk = “Apple MacBook Pro MC313” hs = “11900000” Case “Apple MC314 MacBook Pro” merk = “Apple MacBook Pro MC314” hs = “14700000” Case “Apple MC318 MacBook Pro” merk = “Apple MacBook Pro MC318” hs = “17600000” Case “Apple MC322 MacBook Air” merk = “Apple MacBook Pro MC322” hs = “21300000” End Select Textmerk = merk Texths = hs Textjj.SetFocus End Sub Private Sub cmdhitung_Click() Cbocode.SetFocus Cbocode = “” Textmerk = “” Texths = “” Textjj = “” Texthp = “” Textdis = “” Texttotal = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > 140000000 Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > 135000000 Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > 130000000 Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > 125000000 Then Textdis = Val(Texthp) * 2 / 100 End If Texttotal = Val(Texthp) – Val(txtdis) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cbocode.AddItem “Apple MC965 MacBook Air” Cbocode.AddItem “Apple MC966 MacBook Air” Cbocode.AddItem “Apple MC968 MacBook Air” Cbocode.AddItem “Apple MC969 MacBook Air” Cbocode.AddItem “Apple MC700 MacBook Pro” Cbocode.AddItem “Apple MC721 MacBook Pro” Cbocode.AddItem “Apple MC723 MacBook Pro” Cbocode.AddItem “Apple MC724 MacBook Pro” Cbocode.AddItem “Apple MC311 MacBook Pro” Cbocode.AddItem “Apple MC313 MacBook Pro” Cbocode.AddItem “Apple MC314 MacBook Pro” Cbocode.AddItem “Apple MC318 MacBook Pro” Cbocode.AddItem “Apple MC322 MacBook Pro” End Sub Private Sub Textjj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texthp.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

5

Private Sub Cbocode_Click() Dim jenis, hs As String Select Case Cbocode Case “P205” jenis = “Pentium II 500 Mega Hz” hs = “1500000” Case “P308” jenis = “Pentium III 800 Mega Hz ” hs = “2100000 ” Case “P310” jenis = “pentium III 1.0 Giga Hz” hs = “3500000 ” Case “P415” jenis = “Pentium IV 1.5 Giga Hz” hs = “4000000 ” Case “P417” jenis = “Pentium IV 1.7 Giga Hz ” hs = “4200000 ” Case “P419” jenis = “Pentium IV 1.9 Giga Hz” hs = “5500000 ” End Select Textjk = jenis Texths = hs Textjj.SetFocus End Sub Private Sub Cmdclose_Click() Form2.Show End Sub Private Sub Cmdhl_Click() Cbocode.SetFocus Cbocode = “” Textjk = “” Texths = “” Textjj = “” Textdis = “” Texthb = “” End Sub Private Sub Cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > “30000000” Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > “25000000” Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > “20000000” Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > “15000000” Then Textdis = Val(Texthp) * 2 / 100 End If Texthb = Val(Texthp) – Val(Textdis) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cbocode.AddItem “P205” Cbocode.AddItem “P308” Cbocode.AddItem “P310” Cbocode.AddItem “P415” Cbocode.AddItem “P417” Cbocode.AddItem “P419” End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

10 tugas 6-10

6

Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub cmdproses_Click() Dim judul, pengarang, tahun, penerbit, harga As String Select Case Cmbcode Case “A-SIM-01” judul = “SistemInformasiManajemen” pengarang = “YatiNurOktavia” tahun = “2001” penerbit = “Andi Offset Yogyakarta” harga = “75900” Case “I-EDP-02” judul = “ElektronikData Processing” pengarang = “Imam Tarmizi” tahun = “2002” penerbit = “Indah Surabaya” harga = “62000” Case “S-MNJ-03” judul = “Manajemen” pengarang = “Valentina Mariana Adiwianti” tahun = “2003” penerbit = “SalembaEmpat” harga = “42000” Case “E-CDR-04” judul = “Corel Draw” pengarang = “RiyanSuhandi” tahun = “2004” penerbit = “Elek Media Komputindo” harga = “53000” Case “M-RPL-05” judul = “RekayasaPerangkatLunak” pengarang = “SintaUmpuSinga” tahun = “2005” penerbit = “Maxicom” harga = “83000” End Select Textjb = judul Textpeng = pengarang Texttt = tahun Textpen = penerbit Textharga = harga End Sub Private Sub Cndbatal_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cmbcode.AddItem “A-SIM-01” Cmbcode.AddItem “I-EDP-02” Cmbcode.AddItem “S-MNJ-03” Cmbcode.AddItem “E-CDR-04” Cmbcode.AddItem “M-RPL-05” End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

7

Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textkt.SetFocus Textkt = “” Textht = “” Textjk = “” Textjb = “” Textjt = “” Texttp = “” End Sub Private Sub cmdproses_Click() Dim S As String S = Left(Textkt.Text, 3) If S = “BIM” Then Textjk.Text = “BIMA” Textht.Text = “50000” Textjb.Text = “16.00 WIB” ElseIf S = “EKO” Then Textjk.Text = “EKONOMI” Textht.Text = “35000” Textjb.Text = “19.00 WIB” ElseIf S = “MUT” Then Textjk.Text = “MUTIARA” Textht.Text = “23000” Textjb.Text = “17.00 WIB” ElseIf S = “SEN” Then Textjk.Text = “SENJA” Textht.Text = “15000” Textjb.Text = “20.00 WIB” End If Texttp.Text = Val(Textht.Text) * Val(Textjt.Text) Textjt.SetFocus End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texttp = Val(Textht) * Val(Textjt) End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

8

Private Sub Cmdbatal_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub Cmdproses_Click() Dim S As String Txttp.Text = “20” & Mid(Txtkode, 5, 2) S = Left(Txtkode, 3) If S = “SIM” Then Txtjb.Text = “Sistem Informasi Manajemen” txtpeng.Text = “Fadiya Ulfa” Txtharga.Text = “75900” ElseIf S = “EDP” Then Txtjb.Text = “Elektronik Data Processing” txtpeng.Text = “Nurul Agustina” Txtharga.Text = “62000” ElseIf S = “MNJ” Then Txtjb.Text = “Manajemen” txtpeng.Text = “Rian Hidayat” Txtharga.Text = “42000” ElseIf S = “CDR” Then Txtjb.Text = “Corel Draw” txtpeng.Text = “Siti Nur Khotimah” Txtharga.Text = “53000” ElseIf S = “RPL” Then Txtjb.Text = “Rekayasa Perangkat Lunak” txtpeng.Text = “Winda Erlianti” Txtharga.Text = “83000” End If S = Right(Txtkode, 1) If S = “A” Then Txtpen.Text = “Andi Offset Yogyakarta” ElseIf S = “I” Then Txtpen.Text = “Indah Surabaya” ElseIf S = “S” Then Txtpen.Text = “Salemba Empat” ElseIf S = “E” Then Txtpen.Text = “Elek Media Komputindo” ElseIf S = “M” Then Txtpen.Text = “Maxicom” End If End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

9

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub Cmdproses_Click() Dim r As String r = Mid(Textnik.Text, 5, 1) If r = “A” Then Textgol = “A” Textjab.Text = “MANAGER” Textgp.Text = “4000000” Texttun.Text = “1025000” ElseIf r = “B” Then Textgol.Text = “B” Textjab.Text = “Ka.SEKSI” Textgp.Text = “3500000” Texttun.Text = “975000” ElseIf r = “C” Then Textgol.Text = “C” Textjab.Text = “STAFF” Textgp.Text = “3000000” Texttun.Text = “925000” End If r = Right(Textnik.Text, 3) If r = “KEU” Then Textbag.Text = “ACCOUNTING” ElseIf r = “ADM” Then Textbag.Text = “ADMINISTRASI” ElseIf r = “SDM” Then Textbag.Text = “GENERAL AFFAIR” ElseIf r = “EDP” Then Textbag.Text = “IT UNIT” ElseIf r = “SPM” Then Textbag.Text = “SECURITY” End If r = Mid(Textnik.Text, 7, 1) If r = “S” Then ks = “S” Stt = “SINGLE” ElseIf r = “M” Then ks = “M” Stt = “MENIKAH” ElseIf r = “J” Then ks = “J” Stt = “JANDA” ElseIf r = “D” Then ks = “D” Stt = “DUDA” End If Textks.Text = ks Textstt.Text = Stt Textt.Text = Left(Textnik.Text, 4) Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Activate() Textnama.SetFocus End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnik.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

10

Private Sub Cmdadd_Click() Data1.Recordset.addnew Txtkode.SetFocus End Sub Private Sub Cmdcancel_Click() Data1.Recordset.Delete End Sub Private Sub Cmdhitung_Click() Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text) If Val(Txtjb.Text) > “5” Then Txtpot.Text = Val(Txtby) * 0.02 Txttb.Text = Val(Txtby.Text) – (Txtpot.Text) End If End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub Cmdproses_Click() Dim H, nb, hb As String H = Mid(Txtkode, 5, 2) If H = “SP” Or H = “sp” Then Txtnb.Text = “Spidol” Txthb.Text = “9500” ElseIf H = “BT” Or H = “bt” Then Txtnb.Text = “Buku Tulis” Txthb.Text = “12500” ElseIf H = “TP” Or H = “tp” Then Txtnb.Text = “Tip EX” Txthb.Text = “3000” ElseIf H = “PG” Or H = “pd” Then Txtnb.Text = “Penggaris” Txthb.Text = “2500” ElseIf H = “PT” Or H = “pt” Then Txtnb.Text = “Papan Tulis” Txthb.Text = “5000” End If Txtjb.SetFocus End Sub Private Sub Cmdsave_Click() Data1.Recordset.Update End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

10 tugas 1-5

1

Private Sub Cmdbatal_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub cmdlagi_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_load() cbogolongan.AddItem “I” cbogolongan.AddItem “II” cbogolongan.AddItem “III” cbogolongan.AddItem “IV” End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan Case “I” gapok = 3500000 tunjangan = 350000 Case “II” gapok = 2400000 tunjangan = 240000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 1000000 tunjangan = 100000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total – pajak End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

2

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim jr As String Dim ps As String Dim A As String A = Mid(Textnpm, 3, 1) If A = 1 Then jr = “sistem informasi” ElseIf A = 2 Then jr = “teknik informatika” ElseIf A = 3 Then jr = “menejemen informatika” ElseIf A = 4 Then jr = “komputer akuntansi” End If Textjur = jr A = Mid(Textnpm, 4, 2) If A = “01” Then ps = “strata 1” ElseIf A = “02” Then ps = “diploma 4” ElseIf A = “03” Then ps = “diploma 3” ElseIf A = “04” Then ps = “diploma 2” End If Textps = ps Texttm = “20” & Left(Textnpm, 2) Textnu = Right(Textnpm, 3) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

3

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim A As String Texttm = “20” & Left(Textnpm, 2) A = Mid(Textnpm, 3, 3) If A = “100” Then Textjur = “sistem informasi” Textps = “strata 1” ElseIf A = “200” Then Textjur = “manajemen informatika” Textps = “diploma 3” ElseIf A = “300” Then Textjur = “teknik informatika” Textps = “diploma 4” ElseIf A = “400” Then Textjur = “komputer administrasi” Textps = “diploma 2” End If Textnu = Right(Textnpm, 3) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

4

Private Sub Cbocode_Click() Dim merk, hs As String Select Case Cbocode Case “Apple MC965 MacBook Air” merk = “Apple MacBook Air MC965” hs = “12800000” Case “Apple MC966 MacBook Air” merk = “Apple MacBook Air MC966” hs = “15800000” Case “Apple MC968 MacBook Air” merk = “Apple MacBook Air MC968” hs = “9900000” Case “Apple MC969 MacBook Air” merk = “Apple MacBook Air MC969” hs = “11900000” Case “Apple MC700 MacBook Pro” merk = “Apple MacBook Pro MC700” hs = “10800000” Case “Apple MC721 MacBook Pro” merk = “Apple MacBook Pro MC721” hs = “15900000” Case “Apple MC723 MacBook Pro” merk = “Apple MacBook Pro MC723” hs = “19300000” Case “Apple MC724 MacBook Pro” merk = “Apple MacBook Pro MC724” hs = “13700000” Case “Apple MC311 MacBook Pro” merk = “Apple MacBook Pro MC311” hs = “24200000” Case “Apple MC313 MacBook Pro” merk = “Apple MacBook Pro MC313” hs = “11900000” Case “Apple MC314 MacBook Pro” merk = “Apple MacBook Pro MC314” hs = “14700000” Case “Apple MC318 MacBook Pro” merk = “Apple MacBook Pro MC318” hs = “17600000” Case “Apple MC322 MacBook Air” merk = “Apple MacBook Pro MC322” hs = “21300000” End Select Textmerk = merk Texths = hs Textjj.SetFocus End Sub Private Sub cmdhitung_Click() Cbocode.SetFocus Cbocode = “” Textmerk = “” Texths = “” Textjj = “” Texthp = “” Textdis = “” Texttotal = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > 140000000 Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > 135000000 Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > 130000000 Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > 125000000 Then Textdis = Val(Texthp) * 2 / 100 End If Texttotal = Val(Texthp) – Val(txtdis) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cbocode.AddItem “Apple MC965 MacBook Air” Cbocode.AddItem “Apple MC966 MacBook Air” Cbocode.AddItem “Apple MC968 MacBook Air” Cbocode.AddItem “Apple MC969 MacBook Air” Cbocode.AddItem “Apple MC700 MacBook Pro” Cbocode.AddItem “Apple MC721 MacBook Pro” Cbocode.AddItem “Apple MC723 MacBook Pro” Cbocode.AddItem “Apple MC724 MacBook Pro” Cbocode.AddItem “Apple MC311 MacBook Pro” Cbocode.AddItem “Apple MC313 MacBook Pro” Cbocode.AddItem “Apple MC314 MacBook Pro” Cbocode.AddItem “Apple MC318 MacBook Pro” Cbocode.AddItem “Apple MC322 MacBook Pro” End Sub Private Sub Textjj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texthp.SetFocus End If End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub Private Sub Form_Load() End Sub

5

Private Sub Cbocode_Click() Dim jenis, hs As String Select Case Cbocode Case “P205” jenis = “Pentium II 500 Mega Hz” hs = “1500000” Case “P308” jenis = “Pentium III 800 Mega Hz ” hs = “2100000 ” Case “P310” jenis = “pentium III 1.0 Giga Hz” hs = “3500000 ” Case “P415” jenis = “Pentium IV 1.5 Giga Hz” hs = “4000000 ” Case “P417” jenis = “Pentium IV 1.7 Giga Hz ” hs = “4200000 ” Case “P419” jenis = “Pentium IV 1.9 Giga Hz” hs = “5500000 ” End Select Textjk = jenis Texths = hs Textjj.SetFocus End Sub Private Sub Cmdclose_Click() Form2.Show End Sub Private Sub Cmdhl_Click() Cbocode.SetFocus Cbocode = “” Textjk = “” Texths = “” Textjj = “” Textdis = “” Texthb = “” End Sub Private Sub Cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > “30000000” Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > “25000000” Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > “20000000” Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > “15000000” Then Textdis = Val(Texthp) * 2 / 100 End If Texthb = Val(Texthp) – Val(Textdis) End Sub Private Sub Command1_Click() Data1.Recordset.AddNew End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Form_Load() Cbocode.AddItem “P205” Cbocode.AddItem “P308” Cbocode.AddItem “P310” Cbocode.AddItem “P415” Cbocode.AddItem “P417” Cbocode.AddItem “P419” End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Form1.Show End Sub

9 TUGAS

MANDALA 1

Private Sub Cmdbatal_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub cmdlagi_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub Form_load() cbogolongan.AddItem “I” cbogolongan.AddItem “II” cbogolongan.AddItem “III” cbogolongan.AddItem “IV” End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan Case “I” gapok = 3500000 tunjangan = 350000 Case “II” gapok = 2400000 tunjangan = 240000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 1000000 tunjangan = 100000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total – pajak End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Label1_Click() End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub

Mandala 4

Private Sub Cbocode_Click() Dim merk, hs As String Select Case Cbocode Case “MC965 MacBook Air” merk = “MacBook Air MC965” hs = “12800000” Case “MC966 MacBook Air” merk = “MacBook Air MC966” hs = “15800000” Case “MC968 MacBook Air” merk = “MacBook Air MC968” hs = “9900000” Case “MC969 MacBook Air” merk = “MacBook Air MC969” hs = “11900000” Case “MC700 MacBook Pro” merk = “MacBook Pro MC700” hs = “10800000” Case “MC721 MacBook Pro” merk = “MacBook Pro MC721” hs = “15900000” Case “MC723 MacBook Pro” merk = “MacBook Pro MC723” hs = “19300000” Case “MC724 MacBook Pro” merk = “MacBook Pro MC724” hs = “13700000” Case “MC311 MacBook Pro” merk = “MacBook Pro MC311” hs = “24200000” Case “MC313 MacBook Pro” merk = “MacBook Pro MC313” hs = “11900000” Case “MC314 MacBook Pro” merk = “MacBook Pro MC314” hs = “14700000” Case “MC318 MacBook Pro” merk = “MacBook Pro MC318” hs = “17600000” Case “MC322 MacBook Air” merk = “MacBook Pro MC322” hs = “21300000” End Select Textmerk = merk Texths = hs Textjj.SetFocus End Sub Private Sub cmdhitung_Click() Cbocode.SetFocus Cbocode = “” Textmerk = “” Texths = “” Textjj = “” Texthp = “” Textdis = “” Texttotal = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > 140000000 Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > 135000000 Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > 130000000 Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > 125000000 Then Textdis = Val(Texthp) * 2 / 100 End If Texttotal = Val(Texthp) – Val(txtdis) End Sub Private Sub Form_Load() Cbocode.AddItem “MC965 MacBook Air” Cbocode.AddItem “MC966 MacBook Air” Cbocode.AddItem “MC968 MacBook Air” Cbocode.AddItem “MC969 MacBook Air” Cbocode.AddItem “MC700 MacBook Pro” Cbocode.AddItem “MC721 MacBook Pro” Cbocode.AddItem “MC723 MacBook Pro” Cbocode.AddItem “MC724 MacBook Pro” Cbocode.AddItem “MC311 MacBook Pro” Cbocode.AddItem “MC313 MacBook Pro” Cbocode.AddItem “MC314 MacBook Pro” Cbocode.AddItem “MC318 MacBook Pro” Cbocode.AddItem “MC322 MacBook Pro” End Sub Private Sub Textjj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texthp.SetFocus End If End Sub

MANDALA 2

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim jr As String Dim ps As String Dim A As String A = Mid(Textnpm, 3, 1) If A = 1 Then jr = “sistem informasi” ElseIf A = 2 Then jr = “teknik informatika” ElseIf A = 3 Then jr = “menejemen informatika” ElseIf A = 4 Then jr = “komputer akuntansi” End If Textjur = jr A = Mid(Textnpm, 4, 2) If A = “01” Then ps = “strata 1” ElseIf A = “02” Then ps = “diploma 4” ElseIf A = “03” Then ps = “diploma 3” ElseIf A = “04” Then ps = “diploma 2” End If Textps = ps Texttm = “20” & Left(Textnpm, 2) Textnu = Right(Textnpm, 3) End Sub Private Sub Form_Load() End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Label1_Click() End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub

MANDALA 3

Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub Private Sub Cmdproses_Click() Dim A As String Texttm = “20” & Left(Textnpm, 2) A = Mid(Textnpm, 3, 3) If A = “100” Then Textjur = “sistem informasi” Textps = “strata 1” ElseIf A = “200” Then Textjur = “manajemen informatika” Textps = “diploma 3” ElseIf A = “300” Then Textjur = “teknik informatika” Textps = “diploma 4” ElseIf A = “400” Then Textjur = “komputer administrasi” Textps = “diploma 2” End If Textnu = Right(Textnpm, 3) End Sub Private Sub Label1_Click() End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnpm.SetFocus End If End Sub

Mandala 5

Private Sub Cbocode_Click() Dim jenis, hs As String Select Case Cbocode Case “P205” jenis = “Pentium II 500 Mega Hz” hs = “1500000” Case “P308” jenis = “Pentium III 800 Mega Hz ” hs = “2100000 ” Case “P310” jenis = “pentium III 1.0 Giga Hz” hs = “3500000 ” Case “P415” jenis = “Pentium IV 1.5 Giga Hz” hs = “4000000 ” Case “P417” jenis = “Pentium IV 1.7 Giga Hz ” hs = “4200000 ” Case “P419” jenis = “Pentium IV 1.9 Giga Hz” hs = “5500000 ” End Select Textjk = jenis Texths = hs Textjj.SetFocus End Sub Private Sub Cmdclose_Click() End End Sub Private Sub Cmdhl_Click() Cbocode.SetFocus Cbocode = “” Textjk = “” Texths = “” Textjj = “” Textdis = “” Texthb = “” End Sub Private Sub Cmdproses_Click() Texthp = Val(Textjj) * Val(Texths) If Val(Texthp) > “30000000” Then Textdis = Val(Texthp) * 15 / 100 ElseIf Val(Texthp) > “25000000” Then Textdis = Val(Texthp) * 10 / 100 ElseIf Val(Texthp) > “20000000” Then Textdis = Val(Texthp) * 5 / 100 ElseIf Val(Texthp) > “15000000” Then Textdis = Val(Texthp) * 2 / 100 End If Texthb = Val(Texthp) – Val(Textdis) End Sub Private Sub Form_Load() Cbocode.AddItem “P205” Cbocode.AddItem “P308” Cbocode.AddItem “P310” Cbocode.AddItem “P415” Cbocode.AddItem “P417” Cbocode.AddItem “P419” End Sub

Mandala 6

Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub cmdproses_Click() Dim judul, pengarang, tahun, penerbit, harga As String Select Case Cmbcode Case “A-SIM-01” judul = “SistemInformasiManajemen” pengarang = “YatiNurOktavia” tahun = “2001” penerbit = “Andi Offset Yogyakarta” harga = “75900” Case “I-EDP-02” judul = “ElektronikData Processing” pengarang = “Imam Tarmizi” tahun = “2002” penerbit = “Indah Surabaya” harga = “62000” Case “S-MNJ-03” judul = “Manajemen” pengarang = “Valentina Mariana Adiwianti” tahun = “2003” penerbit = “SalembaEmpat” harga = “42000” Case “E-CDR-04” judul = “Corel Draw” pengarang = “RiyanSuhandi” tahun = “2004” penerbit = “Elek Media Komputindo” harga = “53000” Case “M-RPL-05” judul = “RekayasaPerangkatLunak” pengarang = “SintaUmpuSinga” tahun = “2005” penerbit = “Maxicom” harga = “83000” End Select Textjb = judul Textpeng = pengarang Texttt = tahun Textpen = penerbit Textharga = harga End Sub Private Sub Cndbatal_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub Private Sub Form_Load() Cmbcode.AddItem “A-SIM-01” Cmbcode.AddItem “I-EDP-02” Cmbcode.AddItem “S-MNJ-03” Cmbcode.AddItem “E-CDR-04” Cmbcode.AddItem “M-RPL-05” End Sub Private Sub Label1_Click() End Sub Private Sub Textjb_Change() End Sub

MANDALA 7

Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Textkt.SetFocus Textkt = “” Textht = “” Textjk = “” Textjb = “” Textjt = “” Texttp = “” End Sub Private Sub cmdproses_Click() Dim S As String S = Left(Textkt.Text, 3) If S = “BIM” Then Textjk.Text = “BIMA” Textht.Text = “50000” Textjb.Text = “16.00 WIB” ElseIf S = “EKO” Then Textjk.Text = “EKONOMI” Textht.Text = “35000” Textjb.Text = “19.00 WIB” ElseIf S = “MUT” Then Textjk.Text = “MUTIARA” Textht.Text = “23000” Textjb.Text = “17.00 WIB” ElseIf S = “SEN” Then Textjk.Text = “SENJA” Textht.Text = “15000” Textjb.Text = “20.00 WIB” End If Texttp.Text = Val(Textht.Text) * Val(Textjt.Text) Textjt.SetFocus End Sub Private Sub Textht_Change() End Sub Private Sub Textjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Texttp = Val(Textht) * Val(Textjt) End If End Sub

MANDALA 8

Private Sub Cmdbatal_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub Private Sub Cmdproses_Click() Dim S As String Txttp.Text = “20” & Mid(Txtkode, 5, 2) S = Left(Txtkode, 3) If S = “SIM” Then Txtjb.Text = “Sistem Informasi Manajemen” txtpeng.Text = “Fadiya Ulfa” Txtharga.Text = “75900” ElseIf S = “EDP” Then Txtjb.Text = “Elektronik Data Processing” txtpeng.Text = “Nurul Agustina” Txtharga.Text = “62000” ElseIf S = “MNJ” Then Txtjb.Text = “Manajemen” txtpeng.Text = “Rian Hidayat” Txtharga.Text = “42000” ElseIf S = “CDR” Then Txtjb.Text = “Corel Draw” txtpeng.Text = “Siti Nur Khotimah” Txtharga.Text = “53000” ElseIf S = “RPL” Then Txtjb.Text = “Rekayasa Perangkat Lunak” txtpeng.Text = “Winda Erlianti” Txtharga.Text = “83000” End If S = Right(Txtkode, 1) If S = “A” Then Txtpen.Text = “Andi Offset Yogyakarta” ElseIf S = “I” Then Txtpen.Text = “Indah Surabaya” ElseIf S = “S” Then Txtpen.Text = “Salemba Empat” ElseIf S = “E” Then Txtpen.Text = “Elek Media Komputindo” ElseIf S = “M” Then Txtpen.Text = “Maxicom” End If End Sub Private Sub Txtkode_Change() End Sub

MANDALA 9

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub Cmdproses_Click() Dim r As String r = Mid(Textnik.Text, 5, 1) If r = “A” Then Textgol = “A” Textjab.Text = “MANAGER” Textgp.Text = “4000000” Texttun.Text = “1025000” ElseIf r = “B” Then Textgol.Text = “B” Textjab.Text = “Ka.SEKSI” Textgp.Text = “3500000” Texttun.Text = “975000” ElseIf r = “C” Then Textgol.Text = “C” Textjab.Text = “STAFF” Textgp.Text = “3000000” Texttun.Text = “925000” End If r = Right(Textnik.Text, 3) If r = “KEU” Then Textbag.Text = “ACCOUNTING” ElseIf r = “ADM” Then Textbag.Text = “ADMINISTRASI” ElseIf r = “SDM” Then Textbag.Text = “GENERAL AFFAIR” ElseIf r = “EDP” Then Textbag.Text = “IT UNIT” ElseIf r = “SPM” Then Textbag.Text = “SECURITY” End If r = Mid(Textnik.Text, 7, 1) If r = “S” Then ks = “S” Stt = “SINGLE” ElseIf r = “M” Then ks = “M” Stt = “MENIKAH” ElseIf r = “J” Then ks = “J” Stt = “JANDA” ElseIf r = “D” Then ks = “D” Stt = “DUDA” End If Textks.Text = ks Textstt.Text = Stt Textt.Text = Left(Textnik.Text, 4) Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text) End Sub Private Sub Form_Activate() Textnama.SetFocus End Sub Private Sub Textgol_Change() End Sub Private Sub Textnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Textnik.SetFocus End If End Sub

Tugas visual basic

tugas nur aminudin

MANDALA 1

Private Sub Command1_Click() Unload Me End Sub Private Sub Label1_Click() End Sub Private Sub Chkstrikeout_Click() ‘Membuat teks dicoret’ If Chkstrikeout.Value = 1 Then Lblteks.FontStrikethru = True Else Lblteks.FontStrikethru = 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 Chkbold_Click() ‘Membuat teks Tebal’ If Chkbold.Value = 1 Then Lblteks.FontBold = True Else Lblteks.FontBold = False End If End Sub Private Sub Chkunderline_Click() ‘Membuat teks garis 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() ‘cara Membuat Teks bewarna biru’ Lblteks.ForeColor = vbBlue End Sub Private Sub Optgreen_Click() ‘cara Membuat Teks bewarna hijau’ Lblteks.ForeColor = vbGreen End Sub Private Sub Optred_Click() ‘cara membuat Teks berwarna merah’ Lblteks.ForeColor = vbRed End Sub Private Sub optyellow_Click() ‘cara Membuat Teks bewarna kuning’ Lblteks.ForeColor = vbYellow End Sub

 

MANDALA 2

Private Sub Command2_Click() Unload Me End Sub Private Sub Option1_Click() Label2.ForeColor = vbRed End Sub Private Sub Option2_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option3_Click() Label2.ForeColor = vbGreen End Sub Private Sub Option4_Click() Label2.ForeColor = vbYellow End Sub Private Sub Check1_Click() Label2.FontBold = True End Sub Private Sub Check2_Click() Label2.FontItalic = True End Sub Private Sub Check3_Click() Label2.FontUnderline = True End Sub Private Sub Check4_Click() Label2.FontStrikethru = True End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() Unload Me End Sub

 

MANDALA 3

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case “15100045” nama = “GILBERT ALEXANDER BAGUS.S” jurusan = “Sistem Informasi” Case “15100057” nama = “HAFID BANU RAHMAN” jurusan = “Manajemen Informatika” Case “15100043” nama = “BENI RISMAWAN” jurusan = “Tehnik Informatika” Case “15100047” nama = “M.MANDALA SAKTI” jurusan = “Sistem Informasi” Case “15100052” nama = “ADITYA WIBOWO” jurusan = “Sistem Informasi” Case “15100107” nama = “ADI KISWANTO” jurusan = “Tehnik Informatika” Case “15100054” nama = “AGUNG SETIAWAN” jurusan = “Manajemen Informatika” Case “15100056” nama = “ALFINA DAMAYANTI” jurusan = “Manajemen Informatika” Case “15100063” nama = “ANTI SUSANTI” jurusan = “Manajemen Informatika” Case “15100081” nama = “ANTIA” jurusan = “Tehnik Informatika” Case “15100046” nama = “BAYU SANJAYA” jurusan = “Komputer Akuntansi” Case “15100217” nama = “CATUR PUJI PAMUNGKAS” jurusan = “sistem pemrograman” Case “15100053” nama = “DAVID BUDIANTO” jurusan = “Tehnik Informatika” Case “15100058” nama = “DERU HENDRAWAN” jurusan = “Komputer Grafika” Case “15100073” nama = “ELMA SINTIA” jurusan = “komputer akuntansi” Case “15100082” nama = “ENI SUNDARI” jurusan = “Sistem Komunikasi” Case “15100056” nama = “GITA KUSUMAWARDANI” jurusan = “Sistem Informasi” Case “15100044” nama = “IRFAN NUR FADULLOH” jurusan = “Sistem Informasi” Case “15100066” nama = “LELA KOMALA SARI” jurusan = “Manajemen Informatika” Case “15100067” nama = “LAILA TURROHMAH” jurusan = “Komputer Akuntansi” Case “15100047” nama = “M.MANDALA SAKTI” jurusan = “Sistem Informasi” Case “15100048” nama = “M.ZAINUL MUTAQIN” jurusan = “manajemen komputer” Case “15100050” nama = “MARIKUN” jurusan = “Komputer grafis” Case “15100051” nama = “MARSYANTO” jurusan = “Manajemn Komputer” Case “15100074” nama = “MUALLAMAH” jurusan = “Komputer Akuntansi” Case “15100074” nama = “NABILA GHASSANI KARLUS” jurusan = “Manajemen Informatika” Case “15100070” nama = “NILA RESTIANA” jurusan = “Komputer Akuntansi” Case “15100071” nama = “NITA MEY LINDA” jurusan = “Komputer Akuntansi” Case “15100080” nama = “NOFIANTI” jurusan = “Manajemen Informatika” Case “15100068” nama = “OKTA MAHENDRA” jurusan = “Sistem Informasi” Case “15100064” nama = “PANCA LARASAFITRI” jurusan = “Sistem Informasi” Case “15100079” nama = “RISKA DIANA” jurusan = “Manajemen Informatika” Case “15100061” nama = “RISWAN EFENDI” jurusan = “Sistem Informasi” Case “15100059” nama = “RIYAN ALFARIZI” jurusan = “Sistem Informasi” Case “15100072” nama = “SUSANTI” jurusan = “Tehnik Informatika” Case “15100069” nama = “TRI AYU SEPTIANA” jurusan = “manajemen Informatika” Case “15100055” nama = “VIVI NASIHATUN” jurusan = “Sistem Informasi” Case “15100075” nama = “WAHYUZA FRISTA DEA” jurusan = “Manajemen Informatika” End Select TXTNAMA.Text = nama TXTjurusan.Text = jurusan TXTQUIS.SetFocus End Sub Private Sub Comdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = “” TXTNAMA.Text = “” TXTjurusan.Text = “” TXTQUIS.Text = “” TXTTUGAS.Text = “” TXTUTS = “” TXTUAS = “” TXTNA = “” TEXTHM = “” End Sub Private Sub ComDkeluar_Click() Unload Me End Sub Private Sub Command1_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 = Val(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 TEXTHM.Text = HM End Sub Private Sub Form_Load() Cbonpm.AddItem “15100107” Cbonpm.AddItem “15100048” Cbonpm.AddItem “15100045” Cbonpm.AddItem “15100052” Cbonpm.AddItem “15100043” Cbonpm.AddItem “15100044” Cbonpm.AddItem “15100054” Cbonpm.AddItem “15100056” Cbonpm.AddItem “15100063” Cbonpm.AddItem “15100081” Cbonpm.AddItem “15100046” Cbonpm.AddItem “15100217” Cbonpm.AddItem “15100053” Cbonpm.AddItem “15100073” Cbonpm.AddItem “15100082” Cbonpm.AddItem “15100076” Cbonpm.AddItem “15100057” Cbonpm.AddItem “15100044” Cbonpm.AddItem “15100067” Cbonpm.AddItem “15100066” Cbonpm.AddItem “15100047” Cbonpm.AddItem “15100048” Cbonpm.AddItem “15100050” Cbonpm.AddItem “15100051” Cbonpm.AddItem “15100074” Cbonpm.AddItem “15100062” Cbonpm.AddItem “15100070” Cbonpm.AddItem “15100071” Cbonpm.AddItem “15100080” Cbonpm.AddItem “15100068” Cbonpm.AddItem “15100064” Cbonpm.AddItem “15100079” Cbonpm.AddItem “15100061” Cbonpm.AddItem “15100059” Cbonpm.AddItem “15100072” Cbonpm.AddItem “15100069” Cbonpm.AddItem “15100055” Cbonpm.AddItem “15100075” Cbonpm.AddItem “15100045” 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 TXTNA.SetFocus End If End Sub Private Sub TXTUTS_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TXTUAS.SetFocus End If End Sub

TUGAS BAHASA PEMROGRAMAN

TUGAS DISCON

source code

1.1 Diskon proses

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

1.2 Diskon multi

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

Private Sub textha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End If

End Sub

 

screnshoot

mandala diskon

 

TUGAS GAJI

SOURCE COUD

  • Gaji proses

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

 

  • Gaji multi

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Textpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

SCREN SHOOT

mandala gaji

 

 

 

mandala k

mandala k1

 

Private Sub Command1_Click()

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

Text6 = Val(Text4.Text) + Val(Text5.Text)

Text9 = Val(Text7.Text) – Val(Text8.Text)

Text12 = Val(Text10.Text) / Val(Text11.Text)

End Sub

 

Private Sub Command2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command3_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Label1_Click()

 

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

 

Private Sub Text3_Change()

 

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

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 Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

 

mandala

mandala 1

 

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

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()

End

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub Label1_Click()

 

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

30 berita ringan

1. Mesin-mesin Cerdas Seukuran Atom, Nanoteknologi
Nanoteknologi adalah segala teknologi masa depan yang memungkinan manusia memanipulasi partikel-partikel super kecil yang besarnya nyaris seukuran atom! Nanometer sendiri adalah ukuran 1/semilyar meter, atau nyaris ketebalan rambut dibelah 50.000.
Itulah kedahsyatan teknologi nano.
Tujuannya adalah menciptakan material-material baru masa depan, bahkan mesin-mesin dan robot-robot seukuran partikel. Material-material itu akan bisa lebih kuat dari intan, super ringan, tahan panas dan dingin dengan skala yang ekstrim, mampu menghantarkan listrik lebih baik, lebih tahan lama, ramah lingkungan dan seterusnya.
Kemungkinan aplikasinya benar-benar dahsyat dan akan merubah seluruh dunia. Bayangkan bila kita bisa menciptakan berbagai material baru yang lebih keras dari intan, dan jauh lebih ringan dari baja. (Carbon nanotubes, sp2 bond). Kita bisa menciptakan kerangka super kuat untuk mobil, pesawat terbang, atau bangunan dan jembatan. Dengan bobotnya yang lebih ringan, semua mobil dan pesawat juga akan lebih hemat energi.
Kita bisa menciptakan baju anti kusut dan tahan noda. Kita juga bisa menciptakan robot berukuran bakteria, nanobots, dan memasukanya ke dalam tubuh manusia. Fungsinya bisa dari menyembuhkan penyakit, menghancurkan sel-sel kanker, bahkan memperkuat tubuh manusia (Feynman, ”Swallowing the Doctor”). Nanobots ataupun nanoparticles bahkan nantinya diperkirakan juga akan bisa kembali menutup lubang ozon.
Dengan komponen seukuran nano, kita bisa membuat supercomputer sebesar kotak korek api, dan media penyimpanan data yang menyimpan jutaan gigabyte informasi tentang umat manusia dan seluruh alam semesta, sebesar seujung kuku.
Bagaimana teknologi ini bisa dilakukan? Karena mikroskop super-canggih yang dapat melihat atom sudah ada sejak 1981, Scanning Tunneling Microscope (STM), dan Atomic Force Microscope (AFM, 1986).
2. Era Manusia-manusia Super, Rekayasa Genetika

“Human genetic engineering has the potential to change human beings’ appearance, adaptability, intelligence, character, and behaviour. It may potentially be used in creating more dramatic changes in humans”.
Wikipedia Genetic Engineering.
Manusia telah berhasil memetakan gennya dalam proyek raksasa “The Human Genome Project”. Dengan data ini manusia mempunyai peta informasi untuk mengeksplorasi fungsi dan potensi dari tiap gen dalam tubuh manusia. Mulai dari gen yang menentukan bentuk fisik manusia, gen penyebab kanker, gen yang membentuk ingatan, gen yang menciptakan kecerdasan, bahkan gen khusus yang mengatur proses penuaan.
Ini nantinya akan memungkinkan dilakukannya rekayasa genetika untuk menciptakan manusia-manusia masa depan yang sangat unggul. Manusia dengan kesehatan sempurna, terbebas dari penyakit, berumur lebih dari 100 tahun dan mempunyai kecerdasan mendekati genius.
Bayangkan bila manusia menemukan gen spesial yang membuat Einstein menjadi genius. Lalu gen itu bisa ditransfer ke seluruh umat manusia. Atau keunggulan fisik David Beckham, atau bahkan kharisma John F. Kennedy.
Tapi rekayasa genetika tidak hanya untuk manusia, tapi juga bisa untuk tumbuhan dan hewan ternak. Rekayasa genetika bisa menciptakan padi dan gandum jenis baru dengan hasil panen yang berkali-kali lipat. Kita juga bisa menciptakan daging sapi yang lebih empuk dan gurih. Kita bahkan juga bisa menciptakan tanaman dan hewan konsumsi dengan nilai gizi yang unggul.
dna

3. Energi Terdahsyat di seluruh Alam Semesta, The Power of the Stars
energi kekal
“What would fusion mean? Endless, cheap energy. Amazing Star Trek, space travel possibilities. Fame, fortune, and undoubtedly a Nobel or two for the lucky scientist”.
The Observer, Desember 2000
Matahari, setiap detiknya, mengeluarkan energi sebesar seluruh energi yang digunakan seluruh umat manusia sepanjang sejarahnya. Energi plasma hidrogen raksasa sebesar 380 Milyar-milyar Mega-Watt (380^26 MW), per detiknya. Inilah energi yang dikenal sebagai energi Fusi Nuklir (Nuclear Fusion), The power of the Sun. Dan para ilmuwan dunia sedang berusaha mendapatkannya.
Dan ini adalah energi yang membuat bintang-bintang raksasa di alam semesta terbakar selama milyaran tahun. Energi terdahsyat, di seluruh alam semesta.
Sebuah percobaan besar sedang dilakukan di kota kecil Cadarache di ujung selatan Perancis dalam sebuah proyek bernama ITER. Disini atom Deuterium dan Tritium dilebur dengan panas mencapai 150 juta derajat Celcius, nyaris 10 kali panas inti Matahari. Wadah peleburannya dilindungi oleh medan magnet Tokamak sehingga tidak meleleh.
Hebatnya adalah bahwa Deuterium bisa dihasilkan dari air laut biasa, dan Tritium dibentuk dari Lithium yang bisa didapat dari batu alam. Energi terdahsyat di seluruh alam semesta dari Air dan Batu alam.
Kalau para ilmuwan ini berhasil menciptakannya, maka seluruh dunia akan mempunyai sumber energi baru yang dahsyat menggantikan minyak bumi. Energi ini akan begitu besar dan efisien, tidak terbatas, sangat murah, serta ramah lingkungan.
(Note : penggunaan nanoteknologi dalam sel photovoltaic tenaga surya, nanocrystal, juga dikatakan memiliki potensi energi super besar yang mampu menggantikan minyak bumi).

4. Regenerasi Wolverine, Stem Cell
wolverine keren

Bayangkan bila penyakit jantung dan diabetes bisa disembuhkan secara sempurna, orang lumpuh bisa berjalan, dan orang buta, bisa melihat kembali.
Anda pernah melihat seekor cecak, yang bisa menumbuhkan kembali ekornya yang putus dengan sempurna? Atau jika anda penggemar komik ”X-Men”, anda pasti tahu tokoh superhero bernama Wolverine. Saat tubuhnya tertusuk pisau atau tertembus peluru, dia dapat menyembuhkan lukanya dengan nyaris seketika. Ia dapat meregenerasi seluruh sel-sel tubuhnya dengan sempurna, secara instan.
Tapi itu cuma khayalan. Ada sejenis cacing bernama “planarian worm”, yang banyak hidup di laut maupun sungai, yang mampu menumbuhkan ulang bahkan nyaris seluruh tubuhnya.
Planaria, terutama spesies Schmidtea mediterranea, mampu meregenerasi utuh tubuhnya, bahkan bila tinggal sepotong kecil saja tubuhnya yang tersisa, sampai 1/300 bagian. Dan bila kepalanya dihilangkanpun, dia akan menumbuhkan kembali kepalanya dengan sempurna.
Bagaimana jika manusia bisa melakukan itu nantinya? Jika kita dapat secara langsung mengganti semua sel-sel tubuh kita yang rusak dengan sempurna dan tanpa cacat. Para ilmuwan telah nyaris mencapai keajaiban itu. Teknologi biologi molekular bernama Stem Cell, atau Sel Induk. Ini adalah sel paling dasar dari tubuh manusia, yang bisa berubah, atau dirubah, menjadi sel atau organ apapun di tubuh manusia.
Bila anda memiliki penyakit jantung, maka sel jantung itu bisa diganti dengan stem sel dan jantung anda akan berfungsi normal kembali. Bila anda mengalami kebutaan, sel retina anda bisa diganti dengan sel baru dari sel induk dan anda akan bisa melihat kembali.
Jika anda menderita penyakit yang berhubungan dengan fungsi otak seperti stroke, alzheimer atau parkinson, maka sel otak anda yang rusak, bahkan jaringan pusat otak cerebral cortex, bisa diganti dengan stem cell. Dan kalau anda menderita diabetes, maka stem cell akan menyelamatkan anda dengan meregenerasi sel pankreas penghasil hormon insulin.
Stem Cell benar-benar membawa revolusi besar dalam kesehatan umat manusia.

5. Komputer Kuantum

Bayangkan sebuah komputer masa depan, yang kecepatannya ribuan kali lebih cepat dari supercomputer tercepat sekarang. Ribuan kali lebih cepat dan efisien dari IBM ”Roadrunner” di Los Alamos yang kecepatannya mencapai 1.7 petaflops (1 petaflop = 10^15 operasi per detik).
Inilah kedahsyatan komputer kuantum. Komputer ini begitu dahsyat karena diciptakan memakai fenomena keajaiban dunia kuantum, Superposition dan Quantum Entanglement.
Dalam pemecahan kode misalnya (kriptografi), untuk memecahkan kode yang digitnya sampai 140, komputer biasa akan memerlukan waktu milyaran tahun untuk memecahkannya. Tapi dengan komputer kuantum, ini bisa dipecahkan hanya dalam waktu beberapa puluh menit saja.
Dengan komputer ini manusia juga akan bisa memprediksikan cuaca di bumi dan gejala-gejala alam lain yang sangat kompleks dengan sangat akurat berbulan-bulan sebelumnya, seperti gempa bumi dan tornado. Dan tentu saja ini akan makin merevolusikan lagi kecepatan pengembangan seluruh teknologi canggih yang ada sekarang.

6. Jubah Menghilang Harry Potter, Metamaterial
pakaiaan tembus pandang

“The announcement last November of an “invisibility shield,” created by David R. Smith of Duke University and colleagues, inevitably set the media buzzing with talk of H. G. Wells’s invisible man and Star Trek’s Romulans”.
MIT Technology Review
Hanya beberapa tahun yang lalu, seluruh ilmuwan ternama dunia masih yakin bahwa tidak ada satupun material di dunia ini yang bisa membuat manusia menghilang. Itu benar-benar tidak mungkin, karena itu melanggar semua hukum alam yang diketahui manusia. Tapi mereka semua salah..
Metamaterial, menjadi salahsatu bahan yang ramai dibicarakan. Bahan ini bisa membuat sesuatu, menjadi tidak terlihat. Sebuah baju yang menggunakan teknologi ini bisa membuat pemakainya ”menghilang”, seperti jubah ajaib dalam ”Harry Potter”.
Sebuah pesawat tempur dengan bahan metamaterial akan jadi tidak terlihat, bukan sekedar tidak terlihat radar seperti teknologi ”Stealth”, tapi benar-benar tidak terlihat mata seperti alat cloaking device dalam Star Trek.
Ini bisa dilakukan misalnya dengan menciptakan material artifisial yang mampu membelokkan radiasi elektromagnetik, demikian pula dengan cahaya, yang pada dasarnya adalah radiasi elektromagnetik. Bahannya bisa seperti timah dan plastik yang diatur dalam struktur pola tertentu.
Metamaterial akan membelokkan cahaya, mengelilingi obyek yang diselimutinya dan berkumpul kembali di ujungnya, seperti air sungai mengelilingi sebuah batu. Dalam penelitian terakhir di Perdue University mereka menggunakan jarum-jarum khusus yang akan membelokkan cahaya melampaui obyek yang diselubungi sementara obyek di belakangnya akan terlihat.
Material ini sedang diteliti di seluruh dunia termasuk di MIT, University of California Berkeley, Duke University, dan Caltech di LA.

7. Space Elevator, Tangga Menuju Bintang-bintang
tangga menuju bintang

Space elevator atau Tangga Luar angkasa adalah seperti lift yang sangat tinggi dari bumi menuju ke orbit bumi di luar angkasa, 35.000 kilometer tingginya. Dengan lift ini perjalanan ke orbit bumi akan menjadi lebih mudah, dan murah.
Banyak orang berharap, bahwa program ruang angkasa yang tadinya berhenti sampai di bulan karena sangat mahal, akan bisa dimulai lagi. Dan mungkin impian manusia untuk pergi ke Mars, akan terwujud.
Lift ini awalnya hanya berupa khayalan, tapi ternyata dengan ditemukannya sebuah teknologi baru, hal ini menjadi sangat memungkinkan diwujudkan. Teknologi itu adalah Carbon nanotube, material baru yang dikatakan lebih kuat dari intan dan lebih ringan dari baja.
Hal ini nantinya akan memungkinkan dimulainya era baru dalam penjelahajan ruang angkasa.

8. Memasuki Era Hiper-Sonik, Scramjet
jet tercepat

Scramjet akan menjadi salahsatu revolusi terbesar dalam sejarah transportasi dunia. Pesawat tempur tercanggih di dunia sekarang, F/A-22 Raptor milik Amerika berkecepatan maksimal Mach 2, atau 2 kali kecepatan suara. Pesawat penumpang Scramjet, akan membawa anda terbang dengan kecepatan 10 kali kecepatan suara, Mach 10.
Penerbangan dari New York ke Tokyo yang sekarang ditempuh dalam waktu 18 jam yang panjang dan melelahkan, akan ditempuh Scramjet, hanya dalam 120 menit.
Scramjet tidak perlu memakai bahan bakar roket biasa yang mahal dan berat, bahan bakarnya menggunakan hidrogen cair yang dicampur penyedotan oksigen langsung dari atmosfer (air-breathing scramjet engine). Pembakaran hidrogen dan oksigen pada kecepatan supersonik inilah yang akan mengakselerasikan kecepatannya.
Ini akan membuat penerbangan dari satu tempat ke tempat lain di seluruh dunia menjadi super cepat.

9. Fountain Of Youth, Resveratrol
Mungkin, nantinya kita bisa menemukan sesuatu yang memungkinkan kita hidup ratusan tahun. Tapi para ilmuwan mungkin telah menemukannya, sesuatu yang dinamakan “Sirtuin”, Silent Information Regulator 2 (Sir2) proteins dan resveratrol, zat antioxidan yang ternyata banyak ditemukan dalam buah anggur merah (Jadi sering-seringlah makan buah anggur.)
Tapi para ilmuwan juga telah menciptakan sesuatu yang bahkan lebih kuat dari resveratrol yaitu sebuah obat dengan kode, SRT1720.
“SRT1720 is a thousand times more potent than resveratrol, meaning that it could be taken in smaller doses. A person would have to drink hundreds of glasses of wine to get the same health benefits from resveratrol. Resveratrol will pretty soon look like ancient technology,”
David Sinclair, a biologist at Harvard Medical School

10. Singularitas

Suatu hari nanti, akan datang suatu masa dimana melalui rekayasa genetika seluruh manusia akan mempunyai fisik dan kecerdasan yang nyaris sempurna.
Lalu dengan kemajuan teknologi komputer, komputer kuantum dan nanoteknologi memungkinkan manusia memasukkan Quantum Computer berukuran partikel ke dalam otaknya dan menggunakan partikel-partikel nano untuk makin memperkuat tubuhnya. Ini adalah hal yang dinamakan Singularitas. Penyatuan antara biologi manusia dengan teknologi.
Sekian mengenai artikel teknologi Prediksi 10 Teknologi Yang Akan Menjadi Tercanggih di Dunia semoga bermanfaat.

11. PPP: Menteri Susi Populer, Tapi Tak Maksimal Serap Anggaran

12. Pemerintah Didesak Segera Pilih Pimpinan Baru KPK

13. Presiden Harus Punya Parameter Jika Akan Reshuffle

14. Pemda Diminta Tak Nego Anggaran Pilkada

15. KPU Minta Pemda Segera Cairkan Dana Pilkada

16. Indonesia Butuh Peta Rawan Konflik Agama

17.Pansus Pelindo II Diminta Telusuri Peran Pengusaha Asing

18. KIH Berubah Nama Jadi Partai Pendukung Pemerintah

19. Komisi IV: Petani Kecewa Atas Kebijakan Pemerintah

20. Pengamat: Aneh, Nama KIH Diubah Jadi P4

21.Teruslah bergerak setiap hari

Jangan sepelekan pergerakan ringan sehari-hari. Setidaknya, lakukan aktivitas fisik seperti sit up, push up, lari, berjalan kaki selama 60 menit setiap hari. Lebih oke kalau sampai mengeluarkan reaksi kebugaran seperti ‘huff’ atau ’puff’. Itu baik karena menandakan kesungguhan berlatih fisik setiap hari.

Hal yang paling penting, jangan hanya menyuruh anak Anda saja, tetapi sebaiknya Anda sebagai orang tua tetap jadi role model yang patut dicontoh. Ingat pepatah, buah jatuh tidak jauh dari pohonnya.

22. Rutin minum air putih

Air tetap menjadi pilihan paling sehat untuk menghilangkan rasa haus. Sebab, ia tak ada tambahan gula ataupun soda yang bisa mengganggu keseimbangan imun tubuh.

Khusus untuk anak Anda, kurangi lemak susu lebih dari dua porsi seperti biasa, itu cukup membantu untuk memproduksi nutrisi kalsiumnya. Jika anak Anda tetap rewel ingin meminum jus buahinstan, maka trik terbaik adalah Anda harus rutin menyediakan jus buah alami tanpa gula pada anak setiap hari.

23. Makan buah dan sayuran

Hal ini memang bukan topik asing lagi untuk mewujudkan gaya hidup sehat. Konsumsilah setidaknya dua macam buah dan lima sayuran setiap harinya. Lebih baik jika buah-buahan segar selalu ada di meja makan Anda. Secara tak langsung, Anda telah mengubah camilan tak sehat menjadi makanan bergizi setiap hari.

Kreatif dalam penyajian juga termasuk salah satu tantangan Anda untuk menghindari rasa bosan pada keluarga Anda. Keuntungan makan buah dan sayuran bisa membantu tumbuh kembang anak. Tak hanya itu, makanan ini juga bisa meningkatkan vitalitas tubuh dan mengurangi risiko penyakit kronis.

24. Matikan televisi Anda

Salah satu kiat hebat untuk hidup sehat adalah memberikan batas waktu menonton televisi tidak lebih dari dua jam per hari. Tahukah Anda bahwa terlalu sering manghabiskan waktu di depan layar seperti televisi dan komputer bisa berakibat buruk bagi kesehatan anak?

Setidaknya, penelitian membuktikan bahwa surfing online dan bermain game bisa memicu obesitas pada anak. Cara termudah mengakalinya adalah lakukan kegiatan bermain di dalam atau pun luar rumah yang mengajak keluarga aktif berpikir dan bergerak seperti, bermain lego, petak umpet, camping garden, berkebun, atau mendekorasi ruangan.

25. Kurangi makan snack

Untuk alternatif ini, Anda bisa menggantinya dengan camilan sehat yang minim pengawet dan gula. Anda juga bisa menjadwalkan makanan seperti cokelat dan chips dengan rentang waktu yang tidak terlalu dekat.

Hmm.. Jika Anda bingung, cukup kombinasikan camilan sehat Anda dengan makanan organik dengan tampilan yang menarik di meja makan.

26. Diet tidak sehat

Ilustrasi (poptens)
Ilustrasi (poptens)
Konsumsi lemak jenuh dapat menyebabkan kolesterol tinggi. Lemak jenuh ditemukan dalam makanan yang tinggi kolesterol dan lemak seperti daging merah, daging olahan, mentega, keju, kue dan lain lain.

27. Malas

Ilustrasi (denisflorent)
Orang-orang yang menghabiskan waktunya dengan duduk dan berbaring sepanjang hari memiliki risiko kolesterol tinggi. Banyak bergerak dapat menurunkan trigliserida dan membantu Anda menjaga berat badan.

28. Merokok

Rokok memainkan peran penting dalam meningkatkan kadar kolesterol Anda. Selain meningkatkan kadar kolesterol, merokok juga dapat memperpendek umur Anda.

29. Usia dan jenis kelamin

Tingkat kolesterol secara alami mulai meningkat saat berusia 20 tahun dan akan semakin meningkat di usia 50 sampai 60 tahun. Wanita pada umumnya memiliki kadar kolesterol yang rendah sebelum menopause. Namun setelah menopause, wanita memiliki kadar kolesterol yang lebih tinggi daripada pria.

30. Gaya Hidup yang terlalu Santai, menyebabkan Tulang Manusia Lebih Ringan