TUGAS PEMROGRAMAN SEMESTER 3 LEBARAN

Tugas Membuat DataBase

BAYU XX.PNG

 

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdbatal_Click()
cbokb = “(pilih kode)”
txtjb = “”
txtp = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
cbokb = “(pilih kode)”
txtjb = “”
txtp = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub

Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = (cbokb.Text)
KB = Left(cbokb, 1)
If KB = “A” Then
PN = “Andi Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If

KB = Mid(cbokb, 3, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Yati Nur Oktavia”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Electronic Data Processing”
PG = “Imam Tarmizi”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Valentina Mariana Adiwianti”
HG = “Rp.42.000,-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Riyan Suhandi”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Sinta Umpu Singa”
HG = “Rp.83.000,-”
End If

TT = “20” + Right(cbokb, 2)
KB = (cbokb)
cbokb = KB
txtjb = JB
txtp = PG
txttahun = TT
txtpen = PN
txthg = HG

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

 

 

 

 

Advertisements
Posted in Uncategorized | Leave a comment

DATABASE DBGRID 13 PROGRAM

1.PENJUALAN TIKET KERETA API

A

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkt = “”
txtkt.SetFocus
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = “”
txtht = “”
txtjk = “”
txtjb = “”
txtjt = “”
txttotalp = “”
End Sub

Private Sub cmdproses_Click()
Dim KT, HT, JK, JB As String
KT = Left(txtkt, 3)
If KT = “BIM” Then
HT = “50.000”
JK = “BIMA”
JB = “Pukul 16:00”
ElseIf KT = “EKO” Then
HT = “35.000”
JK = “EKONOMI”
JB = “Pukul 19:00”
ElseIf KT = “MUT” Then
HT = “23.000”
JK = “MUTIARA”
JB = “Pukul 20:00”
ElseIf KT = “SEN” Then
HT = “15.000”
JK = “SENJA”
JB = “Pukul 20:00”
End If

KT = (txtkt)
txtjt.SetFocus
txtkt = KT
txtht = HT
txtjk = JK
txtjb = JB

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txtjt_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = txtht * txtjt
End If
End Sub

Private Sub txtkt_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim KT As String
Dim HT As String
Dim JK As String
Dim JB As String
KT = Left(txtkt, 3)
If KT = “BIM” Then
HT = “50.000”
JK = “BIMA”
JB = “Pukul 16:00”
ElseIf KT = “EKO” Then
HT = “35.000”
JK = “EKONOMI”
JB = “Pukul 19:00”
ElseIf KT = “MUT” Then
HT = “23.000”
JK = “MUTIARA”
JB = “Pukul 20:00”
ElseIf KT = “SEN” Then
HT = “15.000”
JK = “SENJA”
JB = “Pukul 20:00”

End If
txtjt.SetFocus
KT = (txtkt.Text)
txtkt = KT
txtht = HT
txtjk = JK
txtjb = JB

End If
End Sub

2.DATA BUKU

DB BUKU BAYU

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb = “”
txtkb.SetFocus
End Sub

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

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”

End Sub

Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Mid(txtkb, 3, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Andra Setiawan”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Elektronik Data Processing”
PG = “Desi Istiqomah”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Sandy Fitrajaya”
HG = “Rp.42.000′-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Tri Indah Sari”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Ernita”
HG = “Rp.83.000,-”
End If

KB = Left(txtkb, 1)
If KB = “A” Then
PN = “Andy Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If

TT = “20” + Right(txtkb, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtp = PG
txttahun = TT
txtpenerbit = PN
txthg = HG

End Sub

 

3.ENTRI PENJUALAN KOMPUTER

BAYU ENTRI PENJUALAN KOMPUTER

Private Sub cbokk_click()
Dim JK, HS As String
Select Case cbokk
Case “P205”
JK = “Pentium II 500 Mega Hz”
HS = “1500000”
Case “P308”
JK = “Pentium II 800 Mega Hz”
HS = “2100000”
Case “P310”
JK = “Pentium III 1,0 Giga Hz”
HS = “3500000”
Case “P415”
JK = “Pentium IV 1,5 Giga Hz”
HS = “4000000”
Case “P417”
JK = “Pentium IV 1,7 Giga Hz”
HS = “4200000”
Case “P419”
JK = “Pentium IV 1,9 Giga Hz”
HS = “5500000”
End Select
txtjj.SetFocus
txtjk = JK
txths = HS

End Sub

Private Sub cmdclose_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
cbokk = “(pilih kode)”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txtprs = “”
txthb = “”

End Sub

Private Sub cmdproses_Click()
Dim JJ, HP, DIS, HB, PRS As String
HP = (txths.Text * txtjj.Text)
If HP > 30000000 Then
DIS = HP * 0.15
HB = HP – DIS
PRS = “15%”
ElseIf HP > 25000000 Then
DIS = HP * 0.1
HB = HP – DIS
PRS = “10%”
ElseIf HP > 20000000 Then
DIS = HP * 0.05
HB = HP – DIS
PRS = “5%”
ElseIf HP > 15000000 Then
DIS = HP * 0.02
HB = HP – DIS
PRS = “2%”
ElseIf HP > 0 Then
DIS = “0”
HB = HP – DIS
PRS = “0%”
End If
txtjj.SetFocus
JJ = (txtjj.Text)
txtjj = JJ
txthp = HP
txtdis = DIS
txthb = HB
txtprs = PRS
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
cbokode = “(pilih kode)”
txthp = “”
txthb = “”
txtdis = “”
txtprs = “”
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

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

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim JJ, HP, DIS, HB, PRS As String
HP = (txths.Text * txtjj.Text)
If HP > 30000000 Then
DIS = HP * 0.15
HB = HP – DIS
PRS = “15%”
ElseIf HP > 25000000 Then
DIS = HP * 0.1
HB = HP – DIS
PRS = “10%”
ElseIf HP > 20000000 Then
DIS = HP * 0.05
HB = HP – DIS
PRS = “5%”
ElseIf HP > 15000000 Then
DIS = HP * 0.02
HB = HP – DIS
PRS = “2%”
ElseIf HP > 0 Then
DIS = “0”
HB = HP – DIS
PRS = “0%”
End If
JJ = (txtjj)
txtjj = JJ
txthp = HP
txtdis = DIS
txthb = HB
txtprs = PRS
End If
End Sub

 

4.DATA BUKU MAHASISWA

Capture

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb = “”
txtkb.SetFocus
End Sub

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

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”

End Sub

Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Mid(txtkb, 3, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Andra Setiawan”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Elektronik Data Processing”
PG = “Desi Istiqomah”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Sandy Fitrajaya”
HG = “Rp.42.000′-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Tri Indah Sari”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Ernita”
HG = “Rp.83.000,-”
End If

KB = Left(txtkb, 1)
If KB = “A” Then
PN = “Andy Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If

TT = “20” + Right(txtkb, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtp = PG
txttahun = TT
txtpenerbit = PN
txthg = HG

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

 

5.DATA BUKU

DB BUKU BAYU

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtpeng = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtpeng = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub

Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Left(txtkb, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Fadiya Ulfa”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Electronic Data Processing”
PG = “Nurul Agustina”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Rian Hidayat”
HG = “Rp.42.000,-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Siti Nur Khotimah”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Winda Erlianti”
HG = “Rp.83.000,-”

End If

KB = Right(txtkb, 1)
If KB = “A” Then
PN = “Andi Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If

TT = “20” + Mid(txtkb, 5, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtpeng = PG
txttahun = TT
txtpen = PN
txthg = HG

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

 

6.ENTRI PENJUALAN

F

Private Sub cbokode_Click()
Dim MT, HS, JJ, HP, DIS, TP As String
cbokode = Right(cbokode, 5)

Select Case cbokode
Case “A43SA”
MT = “Asus A43SA-VX090D”
HS = “5.500.000”
Case “A43SD”
MT = “Asus A43SD-VX052D”
HS = “4.500.000”
Case “A43SJ”
MT = “Asus A43SJ-VX792D”
HS = “4.300.000”
Case “A43TA”
MT = “Asus A43TA-VX034D”
HS = “4.900.000”
Case “N43SL”
MT = “Asus N43SL-VX264D”
HS = “4.300.000”
Case “MD311”
MT = “Apple MacBook Pro MD311”
HS = “19.300.000”
Case “MD313”
MT = “Apple MacBook Pro MD313”
HS = “24.200.000”
Case “MD314”
MT = “Apple MacBook Pro MD314”
HS = “11.900.000”
Case “MD322”
MT = “Apple MacBook Pro MD322”
HS = “14.700.000”
Case “MC965”
MT = “Apple MacBook Air MC965”
HS = “21.300.000”
End Select
cbokode.Text = (cbokode.Text)
txtjj.SetFocus
txtmerk = MT
txths = HS
txtjj = JJ
txthp = HP
txtdis = DIS
txttp = TP

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtdis = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
cbokode = “(pilih kode)”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttp = “”

End Sub

Private Sub cmdproses_Click()
txthp = txths * txtjj
If txthp > 140000000 Then
txtdis = txthp * 0.15
txttp = txthp – txtdis
txtprs = “15%”
ElseIf txthp > 135000000 Then
txtdis = txthp * 0.1
txttp = txthp – txtdis
txtprs = “10%”
ElseIf txthp > 130000000 Then
txtdis = txthp * 0.05
txttp = txthp – txtdis
txtprs = “5%”
ElseIf txthp > 125000000 Then
txtdis = txthp * 0.02
txttp = txthp – txtdis
txtprs = “2%”
ElseIf txthp > 0 Then
txtdis = txthp * 0
txttp = txthp – txtdis
txtprs = “0%”
End If
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus N43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”

End Sub

 

7.TUGAS NPM

G

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
txtbp = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
txtbp = “”

End Sub

Private Sub cmdproses_Click()
Dim NAMA, NPM, JUR, PS, TM, NU, BP As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Tekhnik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akuntansi”
End If

NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
BP = “Rp.1.950.000,-”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
BP = “Rp.1.750.000,-”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
BP = “Rp.1.650.000,-”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
BP = “Rp.1.450.000,-”
End If
NPM = (txtnpm)
NU = Right(txtnpm, 3)

txtnu = NU
txtps = PS
txtbp = BP
txtjur = JUR
txtnpm = NPM
txttm = TM
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

8.ENTRI PENJUALAN KOMPUTER

BAYU ENTRI PENJUALAN KOMPUTER

Private Sub cbokode_Click()
KL = Right(cbokode, 5)
Dim JK, HS, JJ, HP, DIS, TP As String
cbokode = Right(cbokode, 5)
Select Case cbokode
Case “P205”
JK = “Pentium II 500 Mega Hz”
HS = “1.500.000”
Case “P308”
JK = “Pentium III 800 Mega Hz”
HS = “2.100.000”
Case “P310”
JK = “Pentium III 1.0 Giga Hz”
HS = “3.500.000”
Case “P415”
JK = “Pentium IV 1.5 Giga Hz”
HS = “4.000.000”
Case “P417”
JK = “Pentium IV 1.7 Giga Hz”
HS = “4.200.000”
Case “P419”
JK = “Pentium IV 1.9 Giga Hz”
HS = “5.500.000”
End Select

cbokode.Text = (cbokode.Text)
txtjj.SetFocus
txtjk = JK
txths = HS
txtjj = JJ
txthp = HP
txtdis = DIS
txttp = TP

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode = “(pilih kode)”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
cbokode = “(pilih kode)”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttp = “”
txtprs = “”
End Sub

Private Sub cmdproses_Click()
txthp = txths * txtjj
If txthp > 40000000 Then
txtdis = txthp * 0.15
txttp = txthp – txtdis
txtprs = “15%”
ElseIf txthp > 35000000 Then
txtdis = txthp * 0.1
txttp = txthp – txtdis
txtprs = “10%”
ElseIf txthp > 30000000 Then
txtdis = txthp * 0.05
txttp = txthp – txtdis
txtprs = “5%”
ElseIf txthp > 25000000 Then
txtdis = txthp * 0.02
txttp = txthp – txtdis
txtprs = “2%”
ElseIf txthp > 0 Then
txtdis = txthp * 0
txttp = txthp – txtdis
txtprs = “0%”
End If
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

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

End Sub

 

9.TUGAS NPM

I

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnk.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstat = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstat = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”

End Sub

Private Sub cmdproses_Click()
Dim GOL, KS, ST, TH, JB, BG, GP, TJ, TG, NIK As Integer
TH = Left(txtnik, 4)
GOL = Mid(txtnik, 5, 1)
If GOL = “A” Then
JB = “Manajer”
GP = “4.000.000”
TJ = “1.025.000”
ElseIf GOL = “B” Then
JB = “Ka. Seksi”
GP = “3.500.000”
TJ = “975.000”
ElseIf GOL = “C” Then
JB = “Staff”
GP = “3.000.000”
TJ = “925.000”
End If

ST = Mid(txtnik, 7, 1)
If ST = “S” Then
ST = “Single”
KS = “S”
ElseIf ST = “M” Then
ST = “Menikah”
KS = “M”
ElseIf ST = “J” Then
ST = “Janda”
KS = “J”
ElseIf ST = “D” Then
ST = “Duda”
KS = “D”
End If

BG = Right(txtnik, 3)
If BG = “KEU” Then
BG = “Accounting”
ElseIf BG = “ADM” Then
BG = “Administrasi”
ElseIf BG = “SDM” Then
BG = “General Affair”
ElseIf BG = “EDP” Then
BG = “IT Unit”
ElseIf BG = “SPM” Then
BG = “Security”
End If

TG = txttj + txtgp
txtgol = GOL
txtks = KS
txtstat = ST
txtth = TH
txtjb = JB
txtbg = BG
txtgp = GP
txttj = TJ
txttg = TG
txtnik = NIK
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txtnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

 

10.NPM

J

rivate Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
End Sub

Private Sub cmdproses_Click()
Dim NPM, JUR, PS, TM, NU As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Teknik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akutansi”
End If

NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
End If

NU = Right(txtnpm, 3)
NPM = (txtnpm)
txtnpm = NPM
txtjur = JUR
txtps = PS
txttm = TM
txtnu = NU
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NPM, JUR, PS, TM, NU As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Teknik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akutansi”
End If

NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
End If

NU = Right(txtnpm, 3)
NPM = (txtnpm)
txtnpm = NPM
txtjur = JUR
txtps = PS
txttm = TM
txtnu = NU
End If
End Sub

 

11.NIDN

K

Private Sub cbogol_Click()
Dim GP, TJ, PJ, TT As String
Select Case cbogol
Case “I”
GP = “1500000”
TJ = “150000”
Case “II”
GP = “2000000”
TJ = “200000”
Case “III”
GP = “2500000”
TJ = “250000”
Case “IV”
GP = “3000000”
TJ = “300000”
Case Else
GP = “0”
TJ = “0”
End Select
txtgp = GP
txttj = TJ
txtpj = PJ
txttt = TT
PJ = Val(txtgp + txttj) * 0.1
TT = Val(txtgp + txttj) – Val(txtpj)

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”

End Sub

 

12. NPM

L

Private Sub cbogol_Click()
Dim GP, TJ, PJ, TT As String
Select Case cbogol
Case “I”
GP = “1500000”
TJ = “150000”
Case “II”
GP = “2000000”
TJ = “200000”
Case “III”
GP = “2500000”
TJ = “250000”
Case “IV”
GP = “3000000”
TJ = “300000”
Case Else
GP = “0”
TJ = “0”
End Select
txtgp = GP
txttj = TJ
txtpj = PJ
txttt = TT
PJ = Val(txtgp + txttj) * 0.1
TT = Val(txtgp + txttj) – Val(txtpj)

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus
End Sub

Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“ANDA YAKIN AKAN KELUAR”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”

End Sub

13.TOKO ALAT TULIS SALSABILA

tugas 13

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub

Private Sub cmdbatal_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdhitung_Click()
txtby = txthb * txtjb
txtptong = txtby * 0.02
txttb = txtby – txtptong
End Sub

Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “Quit”) = vbYes Then
End
End If
End Sub

Private Sub cmdproses_Click()
Dim NB, HB, KB, JB, BY, PTO, TB As String
KB = Mid(txtkb, 5, 2)
If KB = “SP” Then
NB = “SPIDOL”
HB = “9500”
ElseIf KB = “BT” Then
NB = “BUKU TULIS”
HB = “12500”
ElseIf KB = “TP” Then
NB = “TIPEX”
HB = “3000”
ElseIf KB = “PG” Then
NB = “PENGGARIS”
HB = “25000”
ElseIf KB = “PT” Then
NB = “PAPAN TULIS”
HB = “50000”
End If
txtkb = Val(txtkb)
txtjb.SetFocus
txtkb = KB
txtnb = NB
txthb = HB
txtby = BY
txtptong = PTO
txttb = TB

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txtkb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NB, HB, KB, JB, BY, PTO, TB As String
KB = Mid(txtkb, 5, 2)
If KB = “SP” Then
NB = “SPIDOL”
HB = “9500”
ElseIf KB = “BT” Then
NB = “BUKU TULIS”
HB = “12500”
ElseIf KB = “TP” Then
NB = “TIPEX”
HB = “3000”
ElseIf KB = “PG” Then
NB = “PENGGARIS”
HB = “25000”
ElseIf KB = “PT” Then
NB = “PAPAN TULIS”
HB = “50000”
End If
txtkb = Val(txtkb)
txtjb.SetFocus
txtkb = KB
txtnb = NB
txthb = HB
txtby = BY
txtptong = PTO
txttb = TB
txtby = Val(txthb.Text) * Val(txtjb.Text)
txtptong = Val(txtjb.Text) * 0.02
txttb = Val(txtjb.Text) – Val(txtptong.Text)
End If
End Sub

SELESAI

 

 

Posted in Uncategorized | Leave a comment

TUGAS 12 PROGRAM

TIPE A

A

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkt.SetFocus

Txtkt = “”

Txtht = “”

Txtjk = “”

Txtjb = “”

Textjt = “”

Txttotalp = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

Txttotalp.Text = Val(Txtht.Text) * Val(Textjt.Text)

End Sub

 

Private Sub Textjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotalp.Text = Val(Txtht.Text) * Val(Textjt.Text)

End If

End Sub

 

Private Sub Txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

Textjt.SetFocus

End If

End Sub

 

TIPE B

B

Private Sub cmdbatal_Click(Index As Integer)

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdkeluar_Click(Index As Integer)

End

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb, 2)

S = Mid(txtkb, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Andra Setiawan”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “lektronik Data Processing”

txtp.Text = “Desi Istiqomah”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandy Fitriajaya”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri Indah Sari”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Ernita Sari”

txthg.Text = “83000”

End If

S = Left(txtkb, 1)

If S = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

 

TIPE C

C

 

Private Sub Cbokode_Click()

Dim jenis, hs As String

Select Case Cbokode

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

Txtjk = jenis

Txths = hs

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

Private Sub Cmdproses_Click()

Txthp = Val(Txtjj) * Val(Txths)

If Val(Txthp) > “30000000” Then

Txtdis = Val(Txthp.Text) * 15 / 100

ElseIf Val(Txthp) > “25000000” Then

Txtdis = Val(Txthp.Text) * 10 / 100

ElseIf Val(Txthp) > “20000000” Then

Txtdis = Val(Txthp.Text) * 5 / 100

ElseIf Val(Txthp) > “15000000” Then

Txtdis = Val(Txthp.Text) * 2 / 100

End If

Txthb = Val(Txthp.Text) – Val(Txtdis)

End Sub

Private Sub Form_Activate()

Cbokode.SetFocus

Cbokode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txtdis = “”

Txthb = “”

 

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

 

TIPE  D

E

Private Sub Cmdproses_Click()

Dim jb, pg, pn, hg As String

Txttahun.Text = “20” & Right(Cbokode, 2)

S = Mid(Cbokode, 3, 3)

If S = “SIM” Then

jb = “Sistem informasi manajemen”

pg = “YatiNurOktavia”

hg = “75900”

ElseIf S = “EDP” Then

jb = “Elektronik Data Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf S = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf S = “CDR” Then

jb = “Corel Draw”

pg = “Riyan Suhandi”

hg = “53000”

ElseIf S = “RPL” Then

jb = “RekayasaPerangkatLunak”

pg = “SintaUmpuSinga”

hg = “83000”

End If

Txtjudul.Text = jb

Txtpengarang.Text = pg

Txtharga.Text = hg

S = Mid(Cbokode, 1, 1)

If S = “A” Then

pn = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

pn = “Indah Surabaya”

ElseIf S = “S” Then

pn = “SalembaEmpat”

ElseIf S = “E” Then

pn = “Elek Media Komputindo”

ElseIf S = “M” Then

pn = “Maxicom”

End If

Txtpenerbit.Text = pn

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

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

 

TIPE E

E

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtpeng = “”

txttahun = “”

txtpen = “”

txthg = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtpeng = “”

txttahun = “”

txtpen = “”

txthg = “”

End Sub

 

Private Sub cmdproses_Click()

Dim KB, JB, PG, TT, PN, HG As String

KB = Left(txtkb, 3)

If KB = “SIM” Then

JB = “Sistem Informasi Manajemen”

PG = “Fadiya Ulfa”

HG = “Rp.75.900,-”

ElseIf KB = “EDP” Then

JB = “Electronic Data Processing”

PG = “Nurul Agustina”

HG = “Rp.62.000,-”

ElseIf KB = “MNJ” Then

JB = “Manajemen”

PG = “Rian Hidayat”

HG = “Rp.42.000,-”

ElseIf KB = “CDR” Then

JB = “Corel Draw”

PG = “Siti Nur Khotimah”

HG = “Rp.53.000,-”

ElseIf KB = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PG = “Winda Erlianti”

HG = “Rp.83.000,-”

End If

 

KB = Right(txtkb, 1)

If KB = “A” Then

PN = “Andi Offset Yogyakarta”

ElseIf KB = “I” Then

PN = “Indah Surabaya”

ElseIf KB = “S” Then

PN = “Salemba Empat”

ElseIf KB = “E” Then

PN = “Elek Media Komputindo”

ElseIf KB = “M” Then

PN = “Maxicom”

End If

 

TT = “20” + Mid(txtkb, 5, 2)

KB = (txtkb.Text)

txtkb = KB

txtjb = JB

txtpeng = PG

txttahun = TT

txtpen = PN

txthg = HG

End Sub

TIPE F

F

Private Sub cbokode_Click()

Dim MT, HS, JJ, HP, DIS, TP As String

cbokode = Right(cbokode, 5)

 

Select Case cbokode

Case “A43SA”

MT = “Asus A43SA-VX090D”

HS = “5.500.000”

Case “A43SD”

MT = “Asus A43SD-VX052D”

HS = “4.500.000”

Case “A43SJ”

MT = “Asus A43SJ-VX792D”

HS = “4.300.000”

Case “A43TA”

MT = “Asus A43TA-VX034D”

HS = “4.900.000”

Case “N43SL”

MT = “Asus N43SL-VX264D”

HS = “4.300.000”

Case “MD311”

MT = “Apple MacBook Pro MD311”

HS = “19.300.000”

Case “MD313”

MT = “Apple MacBook Pro MD313”

HS = “24.200.000”

Case “MD314”

MT = “Apple MacBook Pro MD314”

HS = “11.900.000”

Case “MD322”

MT = “Apple MacBook Pro MD322”

HS = “14.700.000”

Case “MC965”

MT = “Apple MacBook Air MC965”

HS = “21.300.000”

End Select

cbokode.Text = (cbokode.Text)

txtjj.SetFocus

txtmerk = MT

txths = HS

txtjj = JJ

txthp = HP

txtdis = DIS

txttp = TP

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

cbokode = “(pilih kode)”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttp = “”

End Sub

 

Private Sub cmdproses_Click()

txthp = txths * txtjj

If txthp > 140000000 Then

txtdis = txthp * 0.15

txttp = txthp – txtdis

txtprs = “15%”

ElseIf txthp > 135000000 Then

txtdis = txthp * 0.1

txttp = txthp – txtdis

txtprs = “10%”

ElseIf txthp > 130000000 Then

txtdis = txthp * 0.05

txttp = txthp – txtdis

txtprs = “5%”

ElseIf txthp > 125000000 Then

txtdis = txthp * 0.02

txttp = txthp – txtdis

txtprs = “2%”

ElseIf txthp > 0 Then

txtdis = txthp * 0

txttp = txthp – txtdis

txtprs = “0%”

End If

End Sub

 

Private Sub Form_Load()

cbokode.AddItem “Asus A43SA”

cbokode.AddItem “Asus A43SD”

cbokode.AddItem “Asus A43SJ”

cbokode.AddItem “Asus A43TA”

cbokode.AddItem “Asus N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

End Sub

 

TIPE G

G

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim s As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtjur.Text = “sistem informasi”

Txtps.Text = “strata satu”

Txtbp.Text = “1.950.000”

ElseIf s = “2” Then

Txtjur.Text = “tehnik informatika”

Txtps.Text = “diploma empat”

Txtbp.Text = “1.750.000”

ElseIf s = “3” Then

Txtjur.Text = “manajemen informatika”

Txtps.Text = “diploma tiga”

Txtbp.Text = “1.650.000”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

Txtps.Text = “diploma dua”

Txtbp.Text = “1.450.000”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

 

TIPE H

H

 

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jk = “Pentium III 1.0 Giga Hz ”

hs = “3500000”

Case “P415”

jk = “Pentium IV 1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV 1.7 Giga Hz ”

hs = “4200000”

Case “P419”

jk = “Pentium IV 1.9 Giga Hz”

hs = “5500000”

 

End Select

Txtjk.Text = jk

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Form_Load()

cbokode.AddItem “P205”

cbokode.AddItem “P308”

cbokode.AddItem “P310”

cbokode.AddItem “P415”

cbokode.AddItem “P417”

cbokode.AddItem “P419”

End Sub

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

TIPE I

I
Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtkstat = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotg = “”

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtkstat = “”
txtstatus = “”
txttahun = “”
txtjbt = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotg = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String
r = Mid(txtnik.Text, 5, 1)
If r = “A” Then
txtgol = “A”
txtjbt.Text = “MANAGER”
txtgapok.Text = “4000000”
txttunjangan.Text = “1025000”
ElseIf r = “B” Then
txtgol.Text = “B”
txtjbt.Text = “Ka.SEKSI”
txtgapok.Text = “3500000”
txttunjangan.Text = “975000”
ElseIf r = “C” Then
txtgol.Text = “C”
txtjbt.Text = “STAFF”
txtgapok.Text = “3000000”
txttunjangan.Text = “925000”
End If
r = Right(txtnik.Text, 3)
If r = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf r = “SPM” Then
txtbagian.Text = “SECURITY”
End If
r = Mid(txtnik.Text, 7, 1)
If r = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf r = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf r = “J” Then
kode = “J”
Status = “JANDA”
ElseIf r = “D” Then
kode = “D”
Status = “DUDA”
End If
txtkstat.Text = kode
txtstatus.Text = Status
txttahun.Text = Left(txtnik.Text, 4)
txttotg.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub txtnk_Change()

End Sub

 

TUGAS 1

GAJI

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

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnama.Text = “”

Cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnama.Text = “”

Cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

TUGAS 2

NPM

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

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 s As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf s = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf s = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtps.Text = “Strata Satu”

ElseIf s = “2” Then

Txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

Textps.Text = “Diploma Empat”

ElseIf s = “4” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Textnama_Change()

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

 

Private Sub Textnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

End Sub

 

TUGAS 3

NPM BAYU\

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

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 s As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf s = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf s = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(Txtnpm.Text, 3, 1)

If s = “1” Then

Txtps.Text = “Strata Satu”

ElseIf s = “2” Then

Txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

Textps.Text = “Diploma Empat”

ElseIf s = “4” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Textnama_Change()

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

 

Private Sub Textnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

End Sub

                                                SELESAI

 

Posted in Uncategorized | Leave a comment

TUGAS PEMROGRAMAN FONT

 

TUGAS 1

TUGAS

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

‘Membuat Teks Garis Tengah

If Chkstrikeout.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = 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 Comexit_Click()

End

End Sub

 

Private Sub OptBlue_Click()

‘MEMBUAT TEKS BERWARNA BIRU

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub OptGreen_Click()

‘MEMBUAT TEKS BERWARNA HIJAU

lblteks.ForeColor = vbGreen

End Sub

 

Private Sub OptRed_Click()

‘MEMBUAT TEKS BERWARNA MERAH

lblteks.ForeColor = vbRed

End Sub

 

Private Sub OptYellow_Click()

‘MEMBUAT TEKS BERWARNA KUNING

lblteks.ForeColor = vbYellow

End Sub

 

TUGAS 2

TUGAS 3

 

Private Sub cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case cbonpm.Text

Case “15100201”

nama = “AFRIZA UTAMA”

jurusan = “SISTEM INFORMASI”

Case “15100120”

nama = “A.N IMAM BUCHORI”

jurusan = “MANAJEMEN INFORMASI”

Case “15100197”

nama = “AGUNG PRAMUDI”

jurusan = “SISTEM INFORMASI”

Case “15100196”

nama = “ALI MARWAN”

jurusan = “SISTEM INFORMASI”

Case “15100140”

nama = “ANDI SUCIPTO”

jurusan = “SISTEM INFORMASI”

Case “15100125”

nama = “ANDRI AGUNG DWI SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100203”

nama = “ARGA PURNAMA AJI”

jurusan = “SISTEM INFORMASI”

Case “15100121”

nama = “AYU ALFANI”

jurusan = “SISTEM INFORMASI”

Case “15100135”

nama = “AYU KRISMIATI”

jurusan = “SISTEM INFORMASI”

Case “15100127”

nama = “BAYU EKA ALFIANTO”

jurusan = “SISTEM INFORMASI”

Case “15100199”

nama = “BAYU PRABOWO”

jurusan = “SISTEM INFORMASI”

Case “15201018”

nama = “DESI IRSANTI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100122”

nama = “DIAN SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100130”

nama = “DIKI DIANTORO”

jurusan = “SISTEM INFORMASI”

Case “15100118”

nama = “ERLANGGA NURFERNANDO”

jurusan = “SISTEM INFORMASI”

Case “15100126”

nama = “ERMA DWIYANI”

jurusan = “SISTEM INFORMASI”

Case “15100116”

nama = “FAQIHUDDIN”

jurusan = “SISTEM INFORMASI”

Case “15100138”

nama = “FEBRI ARIYANTO”

jurusan = “SISTEM INFORMASI”

Case “15100198”

nama = “FEBRIANSYAH”

jurusan = “SISTEM INFORMASI”

Case “15100128”

nama = “HASAN HAFIDIN”

jurusan = “SISTEM INFORMASI”

Case “15100124”

nama = “ITA FIBRIYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100131”

nama = “KUKUH PRASETYO”

jurusan = “SISTEM INFORMASI”

Case “15100139”

nama = “M.ARYA BIMO RIFKI”

jurusan = “SISTEM INFORMASI”

Case “15100123”

nama = “MAD MUHAIDI”

jurusan = “SISTEM INFORMASI”

Case “15100136”

nama = “MAR’ATUS SHOLEHAH”

jurusan = “SISTEM INFORMASI”

Case “15100117”

nama = “MAYMANAH”

jurusan = “SISTEM INFORMASI”

Case “15100202”

nama = “RINANDA”

jurusan = “SISTEM INFORMASI”

Case “15100133”

nama = “RISKI SAFITRA RAMADON”

jurusan = “SISTEM INFORMASI”

Case “15100195”

nama = “RULLY INDRIANTO”

jurusan = “SISTEM INFORMASI”

Case “1510032”

nama = “SELTARINA”

jurusan = “SISTEM INFORMASI”

Case “15100206”

nama = “SITI MUKODIMAH”

jurusan = “SISTEM INFORMASI”

Case “15100205”

nama = “SUPRAPTI”

jurusan = “SISTEM INFORMASI”

Case “13100457”

nama = “SUSANTO”

jurusan = “SISTEM INFORMASI”

Case “15100137”

nama = “TIARA HERMADITA”

jurusan = “SISTEM INFORMASI”

Case “15100134”

nama = “WAHYU CANDRA WIJAYA”

jurusan = “SISTEM INFORMASI”

Case “15100129”

nama = “YELI FITRI LIANUARI”

jurusan = “SISTEM INFORMASI”

Case “15100119”

nama = “YUDA FERDIANTARA”

jurusan = “SISTEM INFORMASI”

 

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdkembali_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

Txtquis = “”

Txttugas = “”

Txtuts = “”

Txtuas = “”

Txtna = “”

Txthm = “”

End Sub

 

Private Sub CmdProses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtquis)

TUGAS = Val(Txttugas)

UTS = Val(Txtuts)

UAS = Val(Txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna = NA

 

Select Case Txtna

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 = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “15100201”

cbonpm.AddItem “15100120”

cbonpm.AddItem “15100197”

cbonpm.AddItem “15100196”

cbonpm.AddItem “15100140”

cbonpm.AddItem “15100125”

cbonpm.AddItem “15100203”

cbonpm.AddItem “15100121”

cbonpm.AddItem “15100135”

cbonpm.AddItem “15100127”

cbonpm.AddItem “15100199”

cbonpm.AddItem “15201018”

cbonpm.AddItem “15100122”

cbonpm.AddItem “15100130”

cbonpm.AddItem “15100118”

cbonpm.AddItem “15100126”

cbonpm.AddItem “15100116”

cbonpm.AddItem “15100138”

cbonpm.AddItem “15100198”

cbonpm.AddItem “15100128”

cbonpm.AddItem “15100124”

cbonpm.AddItem “15100131”

cbonpm.AddItem “15100139”

cbonpm.AddItem “15100123”

cbonpm.AddItem “15100136”

cbonpm.AddItem “15100117”

cbonpm.AddItem “15100202”

cbonpm.AddItem “15100133”

cbonpm.AddItem “15100195”

cbonpm.AddItem “15100132”

cbonpm.AddItem “15100206”

cbonpm.AddItem “15100205”

cbonpm.AddItem “13100457”

cbonpm.AddItem “15100137”

cbonpm.AddItem “15100134”

cbonpm.AddItem “15100129”

cbonpm.AddItem “15100119”

 

End Sub

Private Sub Txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttugas.SetFocus

 

End If

End Sub

 

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

 

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

 

TUGAS 3

TUGAS 1

Private Sub Chkmiring_Click()

Label2.FontItalic = Chkmiring.Value

End Sub

 

Private Sub Chktebal_Click()

Label2.FontBold = Chktebal.Value

End Sub

 

Private Sub Cmdok_Click()

Label2.Caption = Texs1.Text

End Sub

 

Private Sub Cmdselesai_Click()

End

End Sub

Private Sub Optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Optmerah_Click()

Label2.ForeColor = vbRed

End Sub

 

 

TUGAS 4

TUGAS 4

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

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 s As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf s = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf s = “3” Then

txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtps.Text = “Strata Satu”

ElseIf s = “2” Then

txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

textps.Text = “Diploma Empat”

ElseIf s = “4” Then

txtps.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

SELESAI

Posted in Uncategorized | Leave a comment

TUGAS KALKULATOR DAN PENGHITUNGAN

PROGRAM KALKULATOR MINI

k mini

1.1  Private Sub Command1_Click()

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

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

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

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

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

 

1.2  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

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

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

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

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

Text9.SetFocus

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

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

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

End If

End Sub

 

PROGRAM PERHITUNGAN HARGA SETELAH DISCOUNT 10%

DISKON NEW1

2.1  Private Sub cmdhitung_Click()

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

End Sub

Private Sub cmdquit_Click()

End

End Sub

 

2.2  Private Sub cmdhitung_KeyPress(KeyAscii As Integer)

If keyAsscii = 13 Then

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

End If

End Sub

Private Sub cmdulangi_Click()

hargaawal.SetFocus

hargaawal = “”

diskon = “”

hargaakhir = “”

End Sub

 

PROGRAM PERHITUNGAN GAJI

GAJI

3.1  Private Sub cmdproses_Click()

gajikotor = Val(gajipokok) + Val(tunjangan) – Val(potongan)

pajak = Val(gajikotor) * 0.1

gajiditerima = Val(gajikotor) – Val(pajak)

End Sub

Private Sub cmdulang_Click()

gajipokok.SetFocus

gajipokok = “”

tunjangan = “”

potongan = “”

gajikotor = “”

pajak = “”

gajiditerima = “”

End Sub

 

3.2  Private Sub gajikotor_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

pajak.SetFocus

End If

End Sub

Private Sub gajipokok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tunjangan.SetFocus

End If

End Sub

Private Sub keluar_Click()

End

End Sub

Private Sub pajak_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajiditerima.SetFocus

End If

End Sub

Private Sub potongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajikotor.SetFocus

End If

End Sub

Private Sub tunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

potongan.SetFocus

End If

End Sub

Posted in Uncategorized | Leave a comment

TUGAS BAHASA PEMROGRAMAN

TUGAS 1

BAYU tgs ke 1

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

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

 

TUGAS 2

tugas 2

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

 

TUGAS 3

Capture tgs ke 3

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

Private Sub Text3_Change()

End Sub

 

TUGAS 4

Capture tgs ke 3

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbersih_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil = Val(txtn1) * Val(txtn2)

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

 

 

Posted in Uncategorized | Leave a comment

10 BERITA POLITIK,GAYA HIDUP DAN TEKNOLOGI

BERITA POLITIK

1.Pemerintah Tidak Akan Minta Maaf untuk Kasus HAM 1965

JAKARTA, KOMPAS.com – Wakil Presiden Jusuf Kalla mengatakan bahwa pemerintah tidak akan meminta maaf terhadap korban pelanggaran berat HAM tahun 1965.

Menurut Kalla, dalam peristiwa itu yang menjadi korban adalah pemerintah karena dibunuhnya beberapa jenderal dalam peristiwa G30S PKI.

“Jadi yang pertama kali korban itu adalah jenderal kita. Mestinya mereka (pembunuh jenderal) minta maaf karena sudah melakukan itu kepada negara,” kata Kalla, di Gedung Kemenlu, Jakarta, Rabu (11/11/2015).

Ia melanjutkan, pemerintah juga tidak akan meminta maaf terhadap konflik antarmasyarakat yang terjadi di sekitar tahun 1965. Alasannya, karena pemerintah tidak terlibat dalam konflik tersebut.

“Jadi pemerintah tentu tidak meminta maaf atas hal-hal itu. Bahwa pemerintah memperhatikan korban yang tidak salah secara hukum, itu kan tentu dilakukan,” ujarnya.

2. Australia Akui Gelontorkan Dana untuk Halau Kapal Imigran

KOMPAS.com – Isu penyuapan aparat penjaga perbatasan Australia kembali mengemuka. Dalam pernyataan terbarunya, Menteri Luar Negeri Australia, Julie Bishop, mengakui negaranya memang menggelontorkan dana untuk menghalau para pendatang yang mengarah ke Australia.

Julie Bishop mengungkapkan hal ini saat diwawancarai secara eksklusif oleh jurnalis Kompas TV, Aiman Witjaksono, di gedung Parlemen Australia, Canberra, beberapa waktu lalu.

“Pemerintah Australia punya kebijakan untuk menyelamatkan para pendatang karena dalam setahun ada 200 imigran gelap tewas di laut,” kata Bishop.

“Kami tidak ingin hal itu terjadi lagi. Pemerintah mengucurkan dana untuk mencegah hal itu. Namun saya tidak ingin berbicara lebih jauh soal ini,” ucap Bishop
3.Sekjen Demokrat Minta Menteri ESDM Buka-bukaan soal Pencatut Nama Jokowi

JAKARTA, KOMPAS.com — Sekretaris Jenderal Partai Demokrat Hinca Panjaitan meminta Menteri Energi dan Sumber Daya Mineral Sudirman Said membuka identitas pencatut nama Presiden Joko Widodo soal perpanjangan kontrak Freeport.

Selain nama Jokowi, nama Wakil Presiden Jusuf Kalla juga ikut dicatut oleh seorang politisi yang disebut oleh Sudirman.

“Saya kira, untuk transparansi dan justice, lebih elok jika Menteri ESDM memberikan informasi yang utuh, bukan sepotong-sepotong,” ujar Hinca kepada Kompas.com, Rabu (11/11/2015).

Sudirman sebelumnya menyebut adanya tokoh politik yang sangat berkuasa mencoba menjual nama Jokowi-JK kepada Freeport.

Pencatutan nama Presiden dan Wapres dilakukan agar kontrak Freeport bisa segera diberikan.

“Seolah-olah Presiden minta saham. Wapres juga dijual namanya. Saya sudah laporkan kepada keduanya. Beliau marah karena tak mungkin mereka melakukan itu,” ujar Sudirman.

Namun, Sudirman mengaku tak bisa menyebut siapa politisi yang coba menjual nama dua pimpinan tertinggi Indonesia itu. Sudirman hanya mengatakan bahwa orang itu cukup terkenal.

Wapres Kalla, tutur dia, bahkan tahu persis siapa orang yang coba menyeret-nyeret nama dua petinggi tersebut.

4. Inikah Nama Enam Menteri yang Akan Diganti?

JAKARTA, KOMPAS.com Hingga Rabu (12/8/2015) pagi ini, enam menteri Kabinet Kerja yang akan diganti dan dilantik langsung oleh Presiden Joko Widodo belum resmi diumumkan. Namun, berdasarkan hasil penelusuran Kompas, sejak semalam hingga pagi ini telah terkuak enam nama itu.

Keenam menteri itu adalah Menko Polhukam Tedjo Edhy Purdijatno, Menko Perekonomian Sofyan Djalil, Menko Kemaritiman Indroyono Soesilo, Menteri Perencanaan Pembangunan Nasional/Kepala Bappenas Andrinof Chaniago, Menteri Perdagangan Rachmat Gobel, dan Sekretaris Kabinet Andi Widjajanto.

Lima dari keenam menteri tersebut semalam dipanggil Presiden Joko Widodo dan Wakil Presiden Jusuf Kalla pada pukul 19.00 WIB atau sekitar 30 menit setelah Jokowi-JK bertemu secara empat mata di Istana Merdeka, Jakarta.

Para menteri baru akan dilantik Presiden Jokowi dan dihadiri Wapres Jusuf Kalla pada siang ini sekitar pukul 13.00 WIB di Istana Negara, Jakarta.

5.Umumkan Nama Menteri, Jokowi Tak Boleh Terpengaruh Dinamika Politik

JAKARTA, KOMPAS.com — Pengamat politik dari Universitas Padjadjaran, Muradi, mengatakan, Presiden Joko Widodo harus mengumumkan secara utuh kabinetnya. Jokowi dijadwalkan akan mengumumkan nama-nama menteri yang akan mengisi kabinetnya pada Rabu (22/10/2014) malam, di Tanjung Priok, Jakarta Utara.

Muradi mengatakan, jika Jokowi tak mengumumkan nama-nama menteri secara keseluruhan, hal itu akan menjadi preseden buruk.

“Jokowi jangan terpengaruh dengan dinamika politik yang terjadi. Kalau tidak, yang terjadi justru hanya akan menjadi preseden buruk bagi Jokowi ke depan,” kata Muradi saat dihubungi Kompas.com, Rabu.

Adanya spekulasi Jokowi hanya mengumumkan menteri-menteri tertentu ialah karena hingga siang tadi proses pemanggilan sejumlah nama calon menteri masih berlangsung. Selain itu, Jokowi masih mengajukan sejumlah nama ke Komisi Pemberantasan Korupsi untuk ditelusuri rekam jejaknya.

6.Komposisi Kabinet Jokowi-JK Jauh dari Harapan Publik

JAKARTA, KOMPAS.com – Pengamat politik dari Lembaga Ilmu Pengetahuan Indonesia (LIPI) Syamsuddin Haris menilai, komposisi kabinet yang akan berjalan pada pemerintahan Joko WidodoJusuf Kalla masih jauh dari harapan publik. Menurut dia, Jokowi berhadapan dengan realitas politik yang pelik sehingga sulit mewujudkan format kabinet yang diinginkannya.

7.Menteri Susi: Di Negara Kita, Maling Saja Berani Menggugat Negara..

JAKARTA, KOMPAS.com – Menteri Kelautan dan Perikanan Susi Pudjiastuti masih tidak percaya ada perusahaan perikanan yang jelas-jelas melakukan penangkapan ikan illegal (IUU Fishing), tetapi masih berani mengajukan gugatan ke Pengadilan Tata Usaha Negara (PTUN) Jakarta.

“Itu di negara kita, maling saja berani menggugat negara, apalagi orang yang benar,” kata Susi di kantornya, Jakarta, Rabu (11/11/2015).

Sementara itu dalam konferensi pers di kediamannya, Susi sempat meluapkan kekesalan tindakan pelaku IUU fishing yang menggugatnya di PTUN Jakarta.

8.Dampak Kebijakan Menteri Susi, Ekspor Ikan ke Malaysia Naik

JAKARTA. KOMPAS.com — Badan Pusat Statistik (BPS) mencatat, neraca perdagangan Indonesia dengan Malaysia surplus 154,7 juta dollar AS pada Mei 2015. Kepala BPS Suryamin mengungkapkan, ada hal menarik dari surplusnya neraca perdagangan Indonesia dengan negeri jiran itu. Ternyata, surplus itu disumbang impor ikan yang dilakukan Malaysia.

“Salah satu komoditas yang surplus dengan Malaysia adalah ikan. Jadi, Malaysia mengimpor ikan dari kita cukup banyak,” ujar Suryamin di Kantor BPS, Jakarta, Senin (15/6/2015).

Kemudian, dia menduga hal itu ada kaitannya dengan keberhasilan kebijakan Menteri Kelautan dan Perikanan Susi Pudjiastuti yang membuat pasokan ikan bagi beberapa negara terganggu. Alhasil, negara lain memilih impor ikan dari Indonesia

9.Vietnam dan Malaysia Mengancam Produk Indonesia

JAKARTA, KOMPAS.com – Pelaku industri manufaktur Indonesia mulai ketar-ketir menyaksikan 12 negara yang bergabung dalam zona perdagangan bebas Trans Pacific Partnership (TPP). Betapa tidak, di antara negara yang bergabung itu terdapat Malaysia dan Vietnam yang berpotensi mengambil porsi ekspor Indonesia ke negara TPP yang lain.

Sekretaris Jenderal Asosiasi Pertekstilan Indonesia (API) Ernovian Ismy mengatakan, jenis produk manufaktur yang dihasilkan Malaysia dan Vietnam hampir sama dengan Indonesia. “Bisa saja produk dari Vietnam dan Malaysia menggusur produk Indonesia ke negara anggota TPP seperti  di pasar Amerika Serikat (AS),” kata Ernovian kepada Kontan,  Rabu (7/10).

10.Kesadaran Keuangan Rakyat Vietnam Meningkat

KOMPAS.com – Kesadaran keuangan rakyat Vietnam meningkat, meski di ASEAN, Vietnam terbilang negara yang sedang berkembang.  Secara spesifik, kesadaran itu terlihat dari perbandingan jumlah agen asuransi dan jumlah penduduk. “Vietnam bahkan  melampaui Indonesia,”kata Presiden Direktur Prudential Life Assurance (Prudential Indonesia) William Kuan pada Senin (18/3/2013).

Catatan terkumpul menunjukkan di kawasan Asia Tenggara, Vietnam mencatatkan pertumbuhan rata-rata tahunan (CAGR) untuk  industri asuransi lebih dari 18 persen. Jumlah penduduk Vietnam saat ini sekitar 90.388.000 jiwa. Angka pencapaian periode  2009-2013 ini melampaui Indonesia yang masih memiliki CAGR satu digit.

BERITA TEKNOLOGI

1. Saat Event Peluncuran Smartphone Microsoft, CEO Microsoft Malah Perkenalkan ‘iPhone Pro’

Microsoft baru-baru ini telah mengadakan sebuah event di mana agenda utamanya adalah memperkenalkan smartphone terbaru dari Microsoft. Namun ada yang menarik dalam acara tersebut, sang CEO, Satya Nadella malah memamerkan perangkat yang ada di genggamanya dan ia menyebutnya sebagai ‘iPhone Pro’.

CEO Microsoft memperkenalkan Lumia 950 XL (Kredit: Businessinsider)

Hal ini tentu saja mengagetkan para hadirin yang ada di sana, wajar saja selama ini iPhone merupakan smartphone besutan Apple sekaligus sebagai smartphone kompetitor selain smartphone Android. Pada saat di atas panggung, Nadella memperlihatkan tampilan home screen smartphone yang sedang ia gunakan.

Meski tampilan antarmuka dari smartphone tersebut memang sangat mirip dengan antarmuka iPhone yang sebenarnya, namun jika diteliti aplikasi-aplikasi yang ada pada home screen tersebut dominan merupakan aplikasi khas Microsoft, seperti OneNote, Bing, OutLook, dan 24 aplikasi khas Microsoft lainnya. Pada homescreen tersebut, Nadella hanya menyisakan satu aplikasi iPhone, yakni aplikasi panggilan telepon.

Pada acara tersebut juga, Nadella sempat memainkan beberapa game-game kesukaannya seperti Snap Attack yang merupakan game kembangan dari Microsoft Studios. Selain itu, pria berkebangsaan India-Amerika itu terlihat ketagihan memainkan game Despicable Me: Minion Rush.http://www.beritateknologi.com.

2.Asyik, Google Maps Kini Bisa Diakses Offline

Rabu, 11 November 2015 – 10:56 wib
http://techno.okezone.com

CALIFORNIA – Kabar gembira hadir untuk pengguna Google Maps. Kini, pengguna tak harus terhubung dengan sambungan internet untuk memanfaatkan layanan peta milik perusahaan California tersebut.

Dilansir dari Miami Herald, Rabu (11/11/2015), Google mengungkapkan bahwa upgrade ini akan tersedia pula untuk pengguna iOS dalam waktu dekat. Tentu saja ini adalah berita baik bagi pengguna yang sering kesulitan mendapatkan akses data.

Sayangnya, pengguna harus mengunduh peta yang ingin dilihat terlebih dahulu melalui aplikasi Google Maps. Smartphone dengan kapasitas memori internal yang kecil harus merelakan beberapa ratus megabyte untuk mendapatkan peta suatu area.

Setelah informasi terpasang, aplikasi akan menyesuaikan mode online dan offline sesuai kebutuhan pengguna. Aplikasi tersebut akan secara otomatis memperbarui setiap 15 hari sekali saat tersambung Wi-Fi.

3.Resmi Diperkenalkan, Qualcomm Rilis Snapdragon 820 dengan Inti Kryo Yang Dimodifikasi

Setelah sebulan lebih lamanya Qualcomm memberikan godaan-godaan akan fitur dari SoC andalan terbaru mereka, Snapdragon 820, akhirnya SoC tersebut secara resmi diperkenalkan. Seperti yang telah kita ketahui bahwa banyak yang penasaran seperti apa performa dari Snapdragon 820 ini.

Dilansir dari VR-Zone, Rabu (11/11/2015), disebutkan bahwa kali ini banyak perubahan yang dibawa oleh Qualcomm pada SoC flagship-nya tersebut. Pada Snapdragon 820 ini, Qualcomm melakukan modifikasi pada inti ARM, berbeda dengan pendahulunya, Snapdragon 810 yang polos dalam pada inti ARM-nya. Mereka menyebutnya dengan nama Kryo.

4.Teknologi Jetpack JB-9 Wujudkan Manusia Jadi Superman

NEW YORK – Impian manusia untuk terbang semakin mendekati kenyataan. Teknologi jetpack yang konon sudah dikonsepkan sejak puluhan tahun lalu, direalisasikan oleh Jetpack Aviation dengan mesin JB-9 mereka.

Dilansir Gizmag, (9/11/2015), jetpack JB-9 diuji coba meluncur pekan lalu dari sebuah kapal di Amerika Serikat dan dikemudikan oleh David Mayman. David mengendalikan JB-9, melayang di atas perairan dekat Statue of Liberty atau Patung Liberty.

Jetpack JB-9 kabarnya menggunakan bahan bakar kerosene atau minyak tanah dan dua mesin jet vektor. JB-9 bisa melaju kencang dan membuat pilotnya dapat mengudara lebih dari 10 menit.

Anda bisa melihat kemampuan JB-9 melalui video yang diunggah ke YouTube. Dalam video yang telah ditonton lebih dari 146 ribu pengakses YouTube itu, terlihat pilot menggenggam dua buah tuas, menggunakan helm dan mengenakan stopwatch untuk mengetahui lamanya waktu mengudara.

Sekadar informasi, jetpack pernah dipamerkan pada 1960 dengan nama Rocketbelt. Jetpack tersebut didemonstrasikan pada event pembukaan Olympics pada 1984 di Los Angeles, Amerika Serikat.

5.Xiaomi Bakal Perkenalkan Mi 5 Pada 3 Desember Dengan Mengusung Snapdragon 820

Sudah lebih dari setahun perusahaan asal Tiongkok, Xiaomi tidak memperkenalkan smartphone flagship terbarunya setelah meluncurkan Mi 4. Selama itu pula banyak rumor tentang kehadiran smartphone penerus Mi 4. Xiaomi Mi 5 sendiri digadang-gadang bakal meluncur mengusung chip Snapdragon 820, chip yang setidaknya bakal meluncur tahun depan.

6.Ini Alasan Apple Music Dirilis ke Android

CUPERTINO – Apple akhirnya meluncurkan layanan Apple Music di Google Play Store, Rabu (11/11/2015). Namun tak boleh dilupakan bahwa Apple dan Google punya platform yang bersaing ketat di pasaran.

Apa alasan Apple merilis layanan musiknya di Android? Pada TechCrunch, Wakil Presiden Senior Perangkat Lunak Internet dan Layanan Apple, Eddy Cue, mengungkapkan pihaknya ingin semua orang memiliki pengalaman menikmati musik yang dibuat Apple.

“Bagi kami, itu adalah suatu kehormatan untuk mewakili para seniman dengan sebuah cara, untuk membuat orang mendengarkan musik mereka. Jadi kami selalu ingin membawanya pada penonton seluas mungkin,” terang Cue.

“Jika kami ingin melakukannya, maka kami harus membuatnya ke versi penuh, tidak hanya bagian-bagian tertentu. Kami pikir mereka semua sangat penting dan kami ingin semua orang di dunia (sebanyak mungkin) untuk dapat mencobanya,” lanjutnya.

7.Kolaborasi dengan Intel, Mito T35 Dibanderol Rp600 Ribuan

JAKARTA – Brand nasional ternama Mito, hari ini resmi meluncurkan Mito T35 Fantasy Tablet dengan layar bentang 7 inci berotak prosesor Intel Atom X3-C3230RK.

CEO Mito, Hansen Lie, menjelaskan, tablet ini merupakan prosesor perangkat mobile terbaru dari Intel. Dengan prosesor terbaru ini, akan menjadikan kinerja tablet lebih cepat dan ringan.

“Performa multimedia editing yang lebih powerful, multitasking juga lebih lancar, belum lagi visual 3D games sangat baik sistem gaming itu cocok untuk kalangan anak muda anak SMA, Kuliah,” ujarnya saat peluncuran Mito T35 Fantasy Tablet di Jakarta, Rabu (11/11/2015).

Tablet ini merupakan hasil kolaborasi Mito dan Intel yang memiliki misi sama membuat perangkat teknologi luas. Performanya tidak cuma pas untuk bermain game, desain, kualitas chipset juga mumpuni untuk masyarakat Indonesia.

“Kami yakin dengan menggunakan prosesor chipset Intel Atom X3, membuat Mito T35 Fantasy Tablet unggul dari berbagai sisi dari segi kualitas, harganya, teknologinya, dan ini yang pertama kali tablet kolaborasi Mito dan Intel,” tutur Hansen.

8.Luncurkan Smartphone Baru, Apa Kabar Android One?

JAKARTA – Android One merupakan salah satu program Google untuk masyarakat menengah ke bawah dengan harga terjangkau. Di Indonesia, salah satu vendor yang menggandeng Google ialah Evercoss.

Melalui One X, Evercoss merangkul Google untuk menghadirkan ponsel Android One di Indonesia. Meskipun penjualan dari Android One tak memuaskan, Evercoss berniat untuk tetap melanjutkan ponsel Android One.

“Penjualan kemarin kurang memuaskan karena harga pasar yang volatil (tidak menentu). Tetapi yang jadi menarik di sini, Evercoss tetap melakukan penyuluhan penggunaan dari itu,” kata Ricky Tanudibrata usai peluncuran dua smartphone Evercoss, Selasa, 10 November 2015.

9.Pemerintah Retorika, Konten Asing Ancam Kedaulatan Internet

JAKARTA – Keberadaan konten asing yang masuk ke Tanah Air, tanpa disadari masyarakat/publik mendominasi dan mengancam kedaulatan Internet Indonesia.

Salah satu sebabnya yakni pesatnya perkembangan teknologi informasi dan komunikasi (TIK) di era digital yang mengalami pertumbuhan besar di Indonesia.

Direktur Eksekutif ICT Institute, Heru Sutadi, mengungkapkan, perkembangan internet memang begitu cepat dan itu bentuk penjajahan baru di dunia teknologi. Salah satunya, hadir konten-konten asing seperti Google, Facebook, Twitter dan e-Commerce di Tanah Air.

“Ini cukup menghambat karena konten lokal terkena pajak, sedangkan asing tidak tersentuh pajak,” ujarnya saat ditemui Okezone, di sela acara Kedaulatan Internet Indonesia di Jakarta, Selasa (10/11/2015).

Dia menyampaikan, perlunya kepedulian (awareness) para penyelenggara negara akan adanya ancaman kedaulatan dari pihak asing dengan menggunakan medium internet.

Heru mencontoh kan, saat ini banyak anak-anak muda Indonesia yang sedang genjar dan kreatif membuat konten digital, sayangnya konten-konten itu belum maksimal didukung oleh pemerintah, operator telekomunkasi dari stakeholder (pemangku kepentingan).

10.Google Hentikan Update Chrome untuk Windows XP

Rabu, 11 November 2015 – 14:16 wib

WASHINGTON – Pengguna Windows XP sepertinya harus segera meng-upgrade sistem operasi mereka ke versi yang lebih baru. Pasalnya, Google tak akan lagi memperbarui mesin pencarinya untuk OS lawas tersebut mulai April 2016.

Tak hanya untuk XP, Chrome juga tak akan lagi di-update untuk Vista dan OS X 10.6, 10.7, serta 10. 8. Langkah ini menyusul versi Windows dan OS X tersebut yang tak lagi didukung Microsoft dan Apple, sehingga masuk akal jika perusahaan lain mengambil langkah yang sama.

Dilansir dari BetaNews, Rabu (11/11/2015), Google mengatakan bahwa menggunakan sistem operasi lama memiliki risiko yang jauh lebih besar untuk terjangkit virus dan infeksi malware. Google ingin setajam Microsoft dan Apple yang membuat orang berpindah seiring waktu untuk meng-upgrade sistem operasi mereka.

“Hari ini, kami mengumumkan akhir dukungan Chrome untuk Windows XP, serta Windows Vista, dan Mac OS X 10.6, 10.7, dan 10.8, karena platform ini tidak lagi aktif didukung oleh Microsoft dan Apple. Mulai April 2016, Chrome akan terus berfungsi pada platform ini, tetapi tidak akan lagi menerima update dan perbaikan keamanan,” demikian pengumuman Google dalam Chrome Blog.

GAYA HIDUP

1.Tren Fesyen: Kalung Kerah Peter Pan  

Rabu, 11 November 2015 | 12:59 WIB

TEMPO.CO, Jakarta – Saat ini, gaya edgy sedang menjadi tren fesyen yang diminati berbagai kalangan. Perpaduan antara desain minimalis yang effortless dan sentuhan detail yang berkarakter dari gaya tersebut mampu membuat pemakainya mencuri perhatian di segala acara.

Selain busana, salah satu aksen yang dapat memberi kesan edgy adalah aksesori. Dengan pemilihan aksesori yang trendi, Anda dapat bergaya maksimal meski hanya mengenakan pakaian dengan potongan standar dan motif polos.

Salah satu aksesori yang dapat dicoba adalah kalung kerah (collar necklace) Peter Pan. Dinamai demikian karena kalung ini mulai populer sejak Maude Adams mengenalkannya lewat kostum Peter Pan, yang dipakainya pada 1905.

Bagi banyak pengamat fesyen internasional, kalung jenis ini sering disebut juga sebagai statement necklace karena desainnya cocok sebagai penegasan karakter fesyen.

2.Upps, Sewa Kamar di London Ini Hanya Rp20 Ribu per Bulan

Ternyata pemiliknya penderita autophobia.

Suara.com – Sedang ingin jalan-jalan ke London, Inggris dan mencari tempat menginap yang murah? Mungkin ‘penginapan’ ini bisa menjadi alternatif pilihan.

Tarif yang dipasang untuk menyewa kamar ini sangat murah, yakni hanya 1 poundsterling atau sekitar Rp20 ribu per bulan. Dan untuk itu, Anda hanya perlu menemani si pemilik kamar yang memiliki kelainan takut dengan kesendirian atau autophobia.

Salah satu syarat telah ditetapkan untuk menyewa kamar itu ialah Anda harus seorang perempuan dan lajang. Pengumuman penyewaan kamar ini terpasang di beberapa iklan rumah di Inggris.

“Saya menyewakan tempat tidur lain di kamar luas saya secara gratis karena saya menderita Autophobia, yang merupakan sebuah perasaan takut kesepian dan tidur sendirian. Rumah memiliki ruang tamu yang indah dan taman serta gym, dan empat kamar mandi. Penyewa harus seorang perempuan, bersih, teratur dan mudah bergaul. Hubungi saya untuk informasi lebih lanjut”.

Albin Serviant, CEO EasyRoommate agen yang ditunjuk untuk menawarkan kamar itu mengatakan, “Kami percaya bahwa berbagi kamar dan tempat tidur bisa menjadi pengalaman yang indah dan memberikan sebuah kondisi yang tepat,” ungkapnya.

3.Kunjungan Wisatawan Mancanegara ke Indonesia
Meningkathttp://www.covesia.com/berita/20504/kunjungan-wisatawan-mancanegara-ke-indonesia-meningkat.html#sthash.RiM1V8S9.dpuf
Seperti dilansir antara, data BPS dan Asdep Penelitian dan Pengembangan Kebijakan Kepariwisataan Kementerian Pariwisata (Kemenpar) menyebutkan, kunjungan wisma pada Juli 2015 yang mengalami pertumbuhan tinggi yakni wisman berkebangsaan Arab Saudi sebesar 127,49 persen, Bahrain 66,32 persen, Uni Emirat Arab 56,96 persen, Mesir sebesar 44,68 persen, dan Tiongkok 20,60 persen.

Sementara pada Juli 2015 Indonesia dikunjungi sebanyak 814.233 wisman atau tumbuh 4,76 persen dibandingkan Juli 2014 sebanyak 777.210 wisman.

Sedangkan secara kumulatif kunjungan wisman yang mengalami pertumbuhan tertinggi yakni Tiongkok sebesar 19,99 persen, India 10,35 persen, Inggris 9,99 persen, Mesir 9,66 persen, dan Arab Saudi 4,14 persen.

4.Sering Berdiri Dapat Menurunkan Resiko Obesitas

ANDA termasuk yang sering duduk seharian di depan komputer atau duduk semalam mengerjakan tugas dan pekerjaan yang belum terselesaikan?

Ada baiknya Anda meluangkan waktu untuk sejenak beranjak dari kursi dan sesekali berdiri dan meregangkan otot tubuh.

Sebuah studi yang dipublikasikan dalam jurnal Mayo Clinic Proceedings menemukan bahwa berdiri selama seperempat waktu seharian atau setara dengan 6 jam, dapat menurunkan resiko obesitas seseorang sebanyak 32 persen.

Ini menjadi hal yang penting diperhatikan mengingat rata-rata jumlah pekerja duduk setidaknya 10 jam sehari. Bersama itu, ditemukan pula bahwa gerakan dan aktifitas mampu membawa pengaruh dan dampak positif bagi tubuh.

Dalam survei yang dilakukan terhadap 7000 pasien dewasa, dikemukakan bahwa pria yang berdiri selama seperempat hari atau kurang lebih enam jam, mengalami penurunan resiko obesitas sebesar 32 persen. Sementara mereka yang berdiri dengan durasi selama setengah hari mengalami penurunan resiko sebesar 59 persen.

5.Tak Permasalahkan Status Janda Ayu Ting Ting, Ibu Ivan Gunawan: “Asal Mau Sama Anakku”

TABLOIDBINTANG.COM –

Endang Gunawan, ibu kandung Ivan Gunawan memberikan restu kepada puteranya jika ingin menjalin hubungan dengan Ayu Ting Ting.

Padahal, Endang mengaku belum mengenal sosok Ayu seperti apa. Ia baru bertemu beberapa kali.

“Aku enggak dekat sama .ayu, tapi beberapa kali ketemu dia. Ayu sibuk, Ivannya juga sibuk,” ujar Endang Gunawan di Central Park, Jakarta Barat, Rabu (11/11).

Soal status janda satu anak, Endang tidak terlalu mempermasalahkan. Menurutnya, asal Ayu juga tulus mencintai Ivan itu sudah cukup.

6.Alila Villas Soori, Surga Para Pencinta Ketenangan dan Keindahan

TABLOIDBINTANG.COM –

JENUH dengan rutinitas sehari-hari yang penuh dengan masalah baru yang seperti tidak ada habisnya? Jika Anda merasakan hal itu, segeralah berlibur dan kembalikan lagi fisik, stamina, dan pikiran Anda seperti baru terlahir kembali. Saat ini, Bali mungkin masih menjadi tempat terbaik bagi Anda untuk sementara waktu keluar dari rutinitas sehari-hari dan menikmati waktu berlibur Anda. Tidak bisa dimungkiri, Bali merupakan surganya para wisatawan yang haus akan hiburan sekaligus ketenangan.

Jika sudah yakin Bali adalah destinasi liburan Anda, maka ambil jatah cuti Anda sekarang juga dan cobalah untuk menginap di Alila Villas Soori. Segala bentuk kepenatan yang dirasakan seketika akan hilang di resor yang jauh dari keramaian dengan diapit oleh pemandangan sawah dan pantai yang tentunya tidak perlu diragukan lagi keindahannya.

7.Konsumsi Buah dan Sayur Tingkatkan Kualitas Kesehatan

Makanan dapat berfungsi sebagai obat, itulah temuan puluhan pasien berpenghasilan rendah lewat Program Resep Buah-buahan dan Sayur Mayur. Ketika mengunjungi satu dari empat pusat layanan kesehatan yang berpartisipasi di sekitar Washington, mereka memperoleh lebih dari sekedar pemeriksaan medis. Mereka diberi informasi nutrisi, ikut dalam pelajaran memasak, dan berolahraga. Dan mereka diberi kupon untuk memperoleh buah dan sayuran gratis.

Di klinik Unity Healthcare, instruktur mengajarkan para pasien cara memasak makanan yang sehat. Salah satunya adalah tumis zucchini, tomat dan bawang yang mudah dan cepat.

Untuk menambah rasa pada tumis sayuran itu, instruktur menambah basil segar yang sudah diblender.

Para pasien tidak hanya melihat bagaimana makanan sehat disiapkan, tapi juga mencicipi kelezatannya.

8.China: Kebijakan Satu Anak Masih Berlaku

Otorita keluarga berencana China mengatakan kebijakan satu anak di negara itu masih tetap berlaku hingga aturan-aturan baru yang memperbolehkan pasangan memiliki dua anak diberlakukan.

Pengumuman oleh Komisi Keluarga Berencana dan Kesehatan Nasional itu bertolakbelakang dengan pernyataan beberapa pejabat di propinsi Hunan, yang mengatakan kepada sebuah suratkabar lokal bahwa mereka yang saat ini sedang hamil anak kedua tidak bisa dihukum.

Menurut kantor berita resmi China, Xinhua, “rencana akhir tentang perubahan kebijakan itu akan diratifikasi dalam pertemuan tahunan parlemen tinggi China bulan Maret nanti.”

Pekan lalu Partai Komunis China mengumumkan bahwa setelah menyelenggarakan pertemuan penting, akan menghapus kebijakan satu anak yang sudah diberlakukan selama 35 tahun, di tengah keprihatinan tentang menciutnya jumlah tenaga kerja China, meningkatnya kesenjangan jender dan jumlah penduduk berusia lanjut.

WHO memperkirakan pada tahun 2050, 35% penduduk China akan berusia lebih dari 60 tahun, menjadikan China sebagai negara yang akan terkena dampak paling buruk di dunia akibat banyaknya penduduk usia lanjut.

9.Diskriminasi Usia di Tempat Kerja Mengakar di AS

Ketika Leslye Evans-Lane berhenti mengajar di New Mexico pada usia 58 tahun untuk pindah ke Oregon bersama suaminya, ia tidak pernah membayangkan akan sulit mencari pekerjaan.

Tapi perlu dua tahun dan lebih dari 100 aplikasi lamaran sebelum ia akhirnya mendapatkan pekerjaan akademis paruh waktu. Enam bulan kemudian, ketika posisi itu berubah menjadi permanen, ia digantikan oleh orang yang lebih muda.

“Saya melamar untuk posisi penuh waktu dan bahkan tidak mendapat wawancara,” ujar Evans-Lane, yang yakin meski ia berpengalaman bertahun-tahun, usia menjadi hambatan untuk mendapatkan dan kehilangan pekerjaan.

Komisi Peluang Pekerjaan yang Sama di AS menerima 20.588 tuduhan diskriminasi usia tahun 2014, naik dari 17.837 satu dekade sebelumnya. Meskipun jumlah itu turun dari puncaknya yang mencapai 24.582 tahun 2008, para ahli hukum dan lapangan pekerjaan mengatakan bahwa itu sebuah fenomena umum yang akan meningkat karena para anak muda milenial bersemangat ingin bekerja dan generasi baby boomer enggan pensiun.

10.Jumlah Tunawisma di Hawaii Meningkat, Rusak Citra Surga Wisata

Dua hari sebelum pemerintah kota berencana membongkar tempat tinggalnya di pinggir jalan, Kionina Kaneso tidak tahu ke mana ia dan putri serta cucu-cucunya akan pindah.

Bekerja sebagai pegawai tetap restoran cepat saji, Kaneso pernah menghadapi pengalaman buruk tinggal di tempat penampungan tunawisma dan ia enggan pindah di tempat serupa, sampai akhirnya tinggal di salah satu perkemahan tunawisma terbesar di Amerika. Putus asa, ia memutuskan akan mencoba lagi ke tempat penampungan. Tapi tidak ada tempat untuk keluarganya.

http://www.voaindonesia.com

Jumlah tunawisma di Hawaii telah meningkat dalam beberapa tahun terakhir, mencapai 487 orang per 100.000 penduduk, atau angka tertinggi per kapita di seluruh negeri, di atas New York dan Nevada, menurut statistik federal. Sejak 2010, jumlah itu tetap naik bahkan saat tingkat tunawisma nasional menurun akibat pemulihan ekonomi.

Peningkatan tersebut, didorong selama bertahun-tahun oleh tingginya biaya hidup di kepulauan tersebut, rendahnya upah dan lahan yang terbatas, memunculkan gambaran orang-orang yang tidur di sepanjang pantai yang dikenal sebagai surga tropis itu.

http://www.voaindonesia.com

SELESAI

Posted in Uncategorized | Leave a comment