itafibri

vb semester 3 database

ITAG

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

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

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

30 Juni 2016 by itafibri Meninggalkan komentar

13 tugas bahasa pemrograman database

Program 1

ITA1

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Private Sub cmdbatal_Click()

kosong

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnidn.SetFocus

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

program 2

ITA2

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

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 J, P, 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

txtps.Text = “Diploma Empat”

ElseIf S = “4” Then

txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

program 3

ITA3

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim J, P, 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, 4, 2)

If S = “01” Then

txtps.Text = “Strata Satu”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE A

ITAA

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkt.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

form2.Show

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 3)

If A = “BIM” Then

JK = “BIMA”

HT = “50000”

JB = “16.00”

ElseIf A = “EKO” Then

JK = “EKONOMI”

HT = “35000”

JB = “19.00”

ElseIf A = “MUT” Then

JK = “MUTIARA”

HT = “23000”

JB = “17.00”

ElseIf A = “SEN” Then

JK = “SENJA”

HT = “15.000”

JB = “20.00”

ElseIf KeyAscii = 13 Then

txtjt.SetFocus

End If

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 = Val(txtht) * Val(txtjt)

End If

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE B

ITAB

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkb.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

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 = “Elektronik 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

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE C

ITAC

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “P205”

txtjk.Text = “pentiumII 500 Mega Hz”

txths.Text = “1500000”

Case “P308”

txtjk.Text = “pentiumIII 800 Mega Hz”

txths.Text = “2100000”

Case “P310”

txtjk.Text = “pentiumIII 1.0 Giga Hz”

txths.Text = “3500000”

Case “P415”

txtjk.Text = “pentiumIV 1.5 Giga Hz”

txths.Text = “4000000”

Case “P417”

txtjk.Text = “pentiumIV 1.7 Giga Hz”

txths.Text = “4200000”

Case “P419”

txtjk.Text = “pentiumIV 1.9 Giga Hz”

txths.Text = “5500000”

End Select

End Sub

Private Sub cmdproses_Click()

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txthb.Text = “”

End Sub

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

Private Sub cmdclose_Click()

form2.Show

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

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

Private Sub txths_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjj.SetFocus

End If

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE D

ITAD

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub cmdproses_Click()

Dim A, B, C, D As String

Dim H As Double

txttahun = “20” & Right(cbokode, 2)

A = Mid(cbokode, 3, 3)

If A = “SIM” Then

B = “SISTEM INFORMASI MANAJEMEN”

C = “YATI NUR OKTAVIA”

H = “75900”

ElseIf A = “MNJ” Then

B = “MANAJEMEN”

C = “VALENTINA MARIANA ADIWIANTI”

H = “42000”

ElseIf A = “EDP” Then

B = “ELECTRONIK DATA PROCESSING”

C = “IMAM TARMIZI”

H = “62000”

ElseIf A = “CDR” Then

B = “COREL DRAW”

C = “RIYAN SUHANDI”

H = “53000”

ElseIf A = “RPL” Then

B = “REKAYASA PERANGKAT LUNAK”

C = “SINTA UMPU SINGA”

H = “83000”

End If

txtjb.Text = B

txtp.Text = C

txthg.Text = H

D = Left(cbokode, 1)

If D = “A” Then

txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

txtpenerbit.Text = “MAXICOM”

ElseIf D = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

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

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE E

ITAE

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkb.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

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” & Mid(txtkb, 5, 2)

S = Left(txtkb, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Fadiya Ulfa”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtp.Text = “Nurul Agustina”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Rian Hidayat”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Siti Nur Khotimah”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Winda Erlianti”

txthg.Text = “83000”

End If

S = Right(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

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE F

ITAF

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

Private Sub cmdkeluar_Click()

form2.Show

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

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “ASUS A43SA”

txtmerk.Text = “VX090D”

txths = “5500000”

Case “ASUS A43SD”

txtmerk = “VX052D”

txths = “4500000”

Case “ASUS A43SJ”

txtmerk = “VX7792D”

txths = “4300000”

Case “ASUS A43TA”

txtmerk = “VX034D”

txths = “4900000”

Case “N43SL”

txtmerk = “VX264D”

txths = “4300000”

Case “Apple MD311”

txtmerk = “Apple MacBook Pro MD311”

txths = “19300000”

Case “Apple MD313”

txtmerk = “Apple MacBook Pro MD313”

txths = “24200000”

Case “Apple MD314”

txtmerk = “Apple MacBook Pro MD314”

txths = “11900000”

Case “Apple MD322”

txtmerk = “Apple MacBook Pro MD322”

txths = “14700000”

Case “Apple MC965”

txtmerk = “Apple MacBook Air MC965”

txths = “21300000”

End Select

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE G

ITAG

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

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

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE H

ITAH

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub Cmdkeluar_Click()

form2.Show

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

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 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 = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = 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 = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TIPE I

ITAI

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnk.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

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 = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan = “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

txtks.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal = Val(txtgapok) + Val(txttunjangan)

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

PROGRAM 13

ITAJ

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 = Val(txthb) * Val(txtjb)

If txtjb > 5 Then

txtpot = Val(txtby) * 0.02

End If

txttb = Val(txtby) – Val(txtpot)

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Mid(txtkode, 5, 2)

If s = “SP” Then

txtnb.Text = “Spidol”

txthb.Text = “9500”

ElseIf s = “BT” Then

txtnb.Text = “Buku Tulis”

txthb.Text = “12500”

ElseIf s = “TP” Then

txtnb.Text = “Tip Ex”

txthb.Text = “3000”

ElseIf s = “PG” Then

txtnb.Text = “Penggaris”

txthb.Text = “25000”

ElseIf s = “PT” Then

txtnb.Text = “Papan Tulis”

txthb.Text = “50000”

End If

txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()

Data1.Recordset.Update

End Sub

Ketika di klik keluar maka :

ITAT

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

26 Februari 2016 by itafibri Meninggalkan komentar

12 program BAHASA PEMROGRAMAN

PROGRAM 1

itaa1

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Private Sub cmdbatal_Click()

kosong

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

PROGRAM 2

ITA2

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim J, P, 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

txtps.Text = “Diploma Empat”

ElseIf S = “4” Then

txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

PROGRAM 3

ITA3

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim J, P, 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, 4, 2)

If S = “01” Then

txtps.Text = “Strata Satu”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

txtps.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

TIPE A

ITAA

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 3)

If A = “BIM” Then

JK = “BIMA”

HT = “50000”

JB = “16.00”

ElseIf A = “EKO” Then

JK = “EKONOMI”

HT = “35000”

JB = “19.00”

ElseIf A = “MUT” Then

JK = “MUTIARA”

HT = “23000”

JB = “17.00”

ElseIf A = “SEN” Then

JK = “SENJA”

HT = “15.000”

JB = “20.00”

ElseIf KeyAscii = 13 Then

txtjt.SetFocus

End If

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

TIPE B

ITAB

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdkeluar_Click()

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

ITAC

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “P205”

txtjk.Text = “pentiumII 500 Mega Hz”

txths.Text = “1500000”

Case “P308”

txtjk.Text = “pentiumIII 800 Mega Hz”

txths.Text = “2100000”

Case “P310”

txtjk.Text = “pentiumIII 1.0 Giga Hz”

txths.Text = “3500000”

Case “P415”

txtjk.Text = “pentiumIV 1.5 Giga Hz”

txths.Text = “4000000”

Case “P417”

txtjk.Text = “pentiumIV 1.7 Giga Hz”

txths.Text = “4200000”

Case “P419”

txtjk.Text = “pentiumIV 1.9 Giga Hz”

txths.Text = “5500000”

End Select

End Sub

Private Sub cmbproses_Click()

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txthb.Text = “”

End Sub

Private Sub cmdclose_Click()

End

End Sub

Private Sub Form_Load()

cbokode.AddItem “P205”

cbokode.AddItem “P308”

cbokode.AddItem “P310”

cbokode.AddItem “P415”

cbokode.AddItem “P417”

cbokode.AddItem “P419”

End Sub

Private Sub txths_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjj.SetFocus

End If

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

TIPE D

ITAD

Private Sub cmdproses_Click()

Dim A, B, C, D As String

Dim H As Double

txttt = “20” & Right(cbokode, 2)

A = Mid(cbokode, 3, 3)

If A = “SIM” Then

B = “SISTEM INFORMASI MANAJEMEN”

C = “YATI NUR OKTAVIA”

H = “75900”

ElseIf A = “MNJ” Then

B = “MANAJEMEN”

C = “VALENTINA MARIANA ADIWIANTI”

H = “42000”

ElseIf A = “EDP” Then

B = “ELECTRONIK DATA PROCESSING”

C = “IMAM TARMIZI”

H = “62000”

ElseIf A = “CDR” Then

B = “COREL DRAW”

C = “RIYAN SUHANDI”

H = “53000”

ElseIf A = “RPL” Then

B = “REKAYASA PERANGKAT LUNAK”

C = “SINTA UMPU SINGA”

H = “83000”

End If

txtjb.Text = B

txtp.Text = C

txthg.Text = H

D = Left(cbokode, 1)

If D = “A” Then

txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

txtpenerbit.Text = “MAXICOM”

ElseIf D = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

Private Sub cmdkeluar_Click()

End

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

TIPE E

ITAE

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdkeluar_Click()

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” & Mid(txtkb, 5, 2)

S = Left(txtkb, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Fadiya Ulfa”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtp.Text = “Nurul Agustina”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Rian Hidayat”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Siti Nur Khotimah”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Winda Erlianti”

txthg.Text = “83000”

End If

S = Right(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 F

ITAF

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdhl_Click()

txtkode.SetFocus

txtkode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

Private Sub cmdkeluar_Click()

End

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

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “ASUS A43SA”

txtmerk.Text = “VX090D”

txths = “5500000”

Case “ASUS A43SD”

txtmerk = “VX052D”

txths = “4500000”

Case “ASUS A43SJ”

txtmerk = “VX7792D”

txths = “4300000”

Case “ASUS A43TA”

txtmerk = “VX034D”

txths = “4900000”

Case “N43SL”

txtmerk = “VX264D”

txths = “4300000”

Case “Apple MD311”

txtmerk = “Apple MacBook Pro MD311”

txths = “19300000”

Case “Apple MD313”

txtmerk = “Apple MacBook Pro MD313”

txths = “24200000”

Case “Apple MD314”

txtmerk = “Apple MacBook Pro MD314”

txths = “11900000”

Case “Apple MD322”

txtmerk = “Apple MacBook Pro MD322”

txths = “14700000”

Case “Apple MC965”

txtmerk = “Apple MacBook Air MC965”

txths = “21300000”

End Select

End Sub

TIPE G

ITAG

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

ITAH

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 = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = 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 = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

TIPE I

ITAI

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

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 = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan = “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

txtks.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal = Val(txtgapok) + Val(txttunjangan)

End Sub

17 Januari 2016 by itafibri Meninggalkan komentar

4 program pr4

Program 1

ITA1

ITAA1

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

‘Membuat teks Bergaristengah

If chkStrike.Value = 1 Then

lblTeks.FontStrikeout = True

Else

lblTeks.FontStrikeout = False

End If

End Sub

Private Sub chkUnder_Click()

‘Membuat teks Bergarisbawah

If chkUnder.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

Private Sub cmdexit_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

Program 2

ITA0

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

Program 3

ITA3

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 = “SISTEM 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

txtnama.Text = nama

txtjurusan.Text = jurusan

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

txtquis = “”

txttugas = “”

txtuts = “”

txtuas = “”

txtna = “”

txthm = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

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

Program 4

ITA4

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 = “SISTEM 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

txtnama.Text = nama

txtjurusan.Text = jurusan

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

txtquis = “”

txttugas = “”

txtuts = “”

txtuas = “”

txtna = “”

txthm = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

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

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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 If

End Sub

25 Desember 2015 by itafibri Meninggalkan komentar

6 PROGAM BAHASA PEMROGRAMAN I

TUGAS 1

ITA1

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdbatal_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

Private Sub cmdlagi_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

Private Sub cmdhitung_Click()

txthasil1 = Val(txtn1) * Val(txtn2)

txthasil2 = Val(txtn3) + Val(txtn4)

txthasil3 = Val(txtn5) – Val(txtn6)

txthasil4 = Val(txtn7) / Val(txtn8)

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

End If

End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

TUGAS 2

ITA2

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdbatal_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

Private Sub cmdlagi_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

Private Sub cmdhitung_Click()

txthasil1 = Val(txtn1) * Val(txtn2)

txthasil2 = Val(txtn3) + Val(txtn4)

txthasil3 = Val(txtn5) – Val(txtn6)

txthasil4 = Val(txtn7) / Val(txtn8)

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn3.SetFocus

txthasil1 = Val(txtn1) * Val(txtn2)

End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

txthasil2 = Val(txtn3) + Val(txtn4)

End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

txthasil3 = Val(txtn5) – Val(txtn6)

End If

End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil4 = Val(txtn7) / Val(txtn8)

End If

End Sub

TUGAS 3

ITA3

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

End Sub

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End Sub

TUGAS 4

ITA4

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

End Sub

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End If

End Sub

TUGAS 5

ITA5

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpt = “”

txtgk = “”

txtpjk = “”

txtgdt = “”

End Sub

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttj.SetFocus

End If

End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpt.SetFocus

End If

End Sub

TUGAS 6

ITA6

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdulang_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpt = “”

txtgk = “”

txtpjk = “”

txtgdt = “”

End Sub

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttj.SetFocus

End If

End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpt.SetFocus

End If

End Sub

Private Sub txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End If

End Sub

26 November 2015 by itafibri Meninggalkan komentar

BAHASA PEMROGRAMAN I

TUGAS 1

ITA

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

End Sub

Private Sub cmdlagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

TUGAS 2

ITA 2

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtagama = “”

txtjeniskelamin = “”

txtnamaayah = “”

txtnamaibu = “”

txtpekerjaanayah = “”

txtpekerjaanibu = “”

End Sub

Private Sub cmdlagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtagama = “”

txtjeniskelamin = “”

txtnamaayah = “”

txtnamaibu = “”

txtpekerjaanayah = “”

txtpekerjaanibu = “”

End Sub

Private Sub txtpekerjaanayah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpekerjaanibu.SetFocus

End If

End Sub

Private Sub txtnamaibu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpekerjaanayah.SetFocus

End If

End Sub

Private Sub txtnamaayah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamaibu.SetFocus

End If

End Sub

Private Sub txtjeniskelamin_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamaayah.SetFocus

End If

End Sub

Private Sub txtagama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjeniskelamin.SetFocus

End If

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtagama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

TUGAS 3

ita3

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

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

TUGAS 4

ITA4

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

18 November 2015 by itafibri Meninggalkan komentar

30 RINCIAN BERITA

30 RINCIAN BERITA

10 BERITA POLITIK

OJK Terus Selidiki Tiga Broker yang Goreng Saham SIAP
JAKARTA – Otoritas Jasa Keuangan (OJK) menyatakan, akan ada tindakan lanjut dari pelanggaran perdagangan sementara (suspensi) kepada tiga anggota bursa (AB) atau broker yang dinyatakan bersalah oleh PT Bursa Efek Indonesia (BEI) terkait transaksi semu atau ‘goreng’ saham PT Sekawan Intipratama Tbk (SIAP).
Ketiga broker tersebut di antaranya PT Danareksa Sekuritas, PT Reliance Securities dan PT Millenium Danatama Sekuritas.
Menurut Kepala Eksekutif Pengawas Pasar Modal OJK Nurhaida, permasalahan suspensi ini sudah berkoordinasi dengan BEI, sejak masalah awal hingga diberikan sanksi.
“Selanjutnya di BEI ke arah pelanggaran administrasi, pelanggaran standar operasional prosedur (SOP), pelanggaran know your customer (KYC),” ucap Nurhaida, di Gedung BEI, Jakarta, Kamis (12/11/2015).
Nurhaida menambahkan, akan ada pemeriksaan lebih lanjut dari laporan yang diterima pihak BEI. Dengan kata lain, ketiga broker tersebut akan masuk dalam tahap penyidikan pasar modal.
“Kita tindaklanjut dengan pemeriksaan, kalau indikasi lebih jauh ada pidana berlanjut penyidikan. Itu kalau penyidikan bisa perusahaan kalau pidana pasar modal ya biasanya individu. Atau indikasi transfer system itu individu atau bisa perusahaan tentu hasil penyidikan yang bisa melihat,” paparnya.
OJK sendiri masih bungkam terkait dengan sanksi yang bakal diterima oleh para broker. Menurutnya, sanksi dapat keluar jika pemeriksaan tersebut selesai.
“OJK akan melakukan pemeriksaan lanjut, kalau ada indikasi pidana pasar modal bisa penyidikan. Kapannya tentu sesegera mungkin setelah ada, yang jelas begitu laporan dari Bursa, OJK akan masuk dengan pemeriksaan. Pemeriksaan berapa lama, apakah berujung penyidikan tentu di pemeriksaan,” tukasnya.

Sumber: http://economy.okezone.com/read/2015/11/12/278/1248075/ojk-terus-selidiki-tiga-broker-yang-goreng-saham-siap

Rini Soemarno Sedih Lihat Danareksa Terlibat Aksi Goreng Saham
JAKARTA – Menteri Badan Usaha Milik Negara (BUMN) Rini Soemarno mengaku sedih mengenai keterlibatan PT Danareksa Sekuritas pada aksi goreng saham PT Sekawan Intiprima Tbk (SIAP).
Danareksa Sekuritas tidak melakukan sendiri, bersama PT Reliance Securities, dan PT Millenium Danatama melakukan aksi goreng saham dan pada 11 November 2015 diberikan sanksi oleh Bursa Efek Indonesia (BEI) untuk tidak bertransaksi jual beli saham.
“Terus terang saya sangat sedih hal ini terjadi, kenapa terjadi,” kata Rini di Kementerian BUMN, Jakarta, Kamis (12/11/2015).
Rini mengungkapkan, Kementerian BUMN akan segera melakukan audit kepada manajemen Danareksa Sekuritas. Tujuannya, agar mengetahui maksud dan tujuan keterlibatan Danareksa pada aksi goreng saham tersebut.
“Karena saya sedih, sehingga saya tidak bisa menjawab langsung karena ini anak perusahaan negara yang tidak boleh terjadi,” tukasnya.

Sumber: http://economy.okezone.com/read/2015/11/12/278/1248072/rini-soemarno-sedih-lihat-danareksa-terlibat-aksi-goreng-saham

Goreng Saham, Menteri BUMN Nonaktifkan Direksi Danareksa
JAKARTA – Menteri Badan Usaha Milik Negara (BUMN) Rini Soemarno memutuskan untuk menonaktifkan direksi PT Danareksa Sekuritas yang telah terlibat aksi goreng saham PT Sekawan Intiprima Tbk (SIAP).
“Kemarin, saya langsung meminta agar dilakukan audit investigasi dan direksi dinonaktifkan, direksi Danareksa Sekuritas,” kata Rini di Kementerian BUMN, Jakarta, Kamis (12/11/215).
Rini mengungkapkan, sampai saat ini masih belum mengetahui laporan secara utuh mengenai suspensi yang diterima oleh PT Danareksa Sekuritas oleh Bursa Efek Indonesia (BEI).
“Sekarang baru mau dilaporkan Pak Gatot (Deputi), saya sudah mendengar secara lisan dari sesmen (Imam A Putro),” tandasnya.
sumber:http://economy.okezone.com/read/2015/11/12/278/1248061/goreng-saham-menteri-bumn-nonaktifkan-direksi-danareksa
Market Share Pasar Modal Syariah Catatkan Kenaikan Tahun Ini
JAKARTA – Islamic Capital Market (ICM) tahun ini mengalami kebaikan dibanding tahun lalu. Hal ini disebabkan karena banyak investor mulai melirik perbankan syariah untuk berinvestasi.
Menurut Kepala Eksekutif Pengawas Pasar Modal OJK Nurhaida, investor cukup merespons ICM di Indonesia. Hal inilah yang menyebabkan semakin berkembangnya perbankan syariah di Indonesia.
Bahkan, hingga Oktober 2015, BEI Islamic Stock Index (tingkat harga saham unggulan) mengalami peningkatan dari 54,81 persen di tahun 2014 menjadi 56,37 persen. Angka ini berpotensi semakin bertambah hingga penutupan perdagangan saham akhir tahun.
Meskipun demikian Islamic mutual fund (reksa dana) masih mengalami penurunan hingga Oktober 2015. “Dari total 4,65 persen di tahun 2014, saat ini sudah mencapai 4,08 persen”, ujar Nurhaida, di Jakarta, (12/11/2015).
Nurhaida menambahkan perlu sinergi antara pemerintah dan berbagai pihak untuk mendukung ICM. Sinergi ini diharapkan akan segera dijalankan dan didukung oleh Otoritas Jasa Keuangan (OJK).

Sumber: http://economy.okezone.com/read/2015/11/12/278/1248063/market-share-pasar-modal-syariah-catatkan-kenaikan-tahun-ini

IHSG 4.476, Menguat Dipimpin Astra Agro
JAKARTA – Pasar saham Indonesia jeda siang ini kembali melanjutkan penguatan. Indeks Harga Saham Gabungan (IHSG) dibuka naik 24,52 poin atau 0,6 persen ke 4.476,11.
Siang ini sebanyak 151 saham menguat, 94 saham melemah, dan 71 saham stagnan. Menutup perdagangan, telah terjadi transaksi sebesar Rp1,5 triliun dengan saham yang ditransaksikan sebesar 1,3 miliar lembar saham.
Indeks LQ45 naik 6,56 poin atau 0,9 persen menjadi 763, Jakarta Islamic Index (JII) naik 1,38 poin atau 0,2 persen menjadi 586, indeks IDX30 naik 3,33 poin atau 0,8 persen ke 398, dan indeks MNC36 naik 2,08 poin atau 0,9 persen menjadi 246.
Sektor penggerak IHSG mayoritas menguat, namun tiga sektor mengalami penurunan yakni sektor manufaktur 0,3 persen, pertambangan 0,5 persen, dan aneka industri 1,8 persen.
Di Asia, indeks Nikkei turun 5,06 poin atau 0,03 persen menjadi 19.686, indeks Hang Seng naik 216,80 poin atau 0,97 persen menjadi 22.568, dan indeks Straits Times turun 0,69 persen menjadi 2.960.
Adapun saham-saham yang masuk dalam jajaran top gainers, antara lain saham PT Astra Agro Lestari Tbk (AALI) naik Rp400 ke Rp18.400, saham PT Gudang Garam Tbk (GGRM) naik Rp1.350 ke Rp48.350, dan saham PT Unilever Indonesia Tbk (UNVR) naik Rp300 ke Rp35.475.
Sedangkan saham-saham yang berada di jajaran top losers, antara lain saham PT HM Sampoerna Tbk (HMSP) turun Rp3.300 menjadi Rp94.600, saham PT Siloam Hospital Tbk (SILO) turun Rp175 menjadi Rp9.175, dan saham PT Astra International Tbk (ASII) turun Rp150 menjadi Rp6.625.

Sumber: http://economy.okezone.com/read/2015/11/12/278/1248054/ihsg-4-476-menguat-dipimpin-astra-agro

Suspensi Danareksa, Reliance dan Millenium Danatama Dicabut!
JAKARTA – Bursa Efek Indonesia (BEI) telah mencabut sanksi suspensi atas tiga broker yang terlibat aksi goreng saham PT Sekawan Intiprima Tbk (SIAP).
Kemarin, Rabu 12 November 2015, PT Danareksa Sekuritas, PT Reliance Securities Tbk dan PT Millenium Danatama Sekuritas dilarang melakukan transaksi saham.
“Berdasarkan hasil pemriksaan bursa, perusahaan telah melakukan perbaikan terhadap hal-hal yang menjadi dasar pengenaan sanksi larangan sementara untuk melakukan aktivitas perdagangan di bursa,” kata Direktur BEI Alpino Kianjaya, dalam pengumuman tertulisnya di Jakarta, Kamis (12/11/2015).
Tiga broker tersebut kembali bisa melakukan transaksi mulai sesi I perdagangan hari ini, Kamis 12 November 2015.

Sumber: http://economy.okezone.com/read/2015/11/12/278/1248043/suspensi-danareksa-reliance-dan-millenium-danatama-dicabut

5 Masalah Krusial dalam Pilkada Serentak Tahun Ini
Jakarta – Pemilihan kepala daerah serentak yang bakal digelar pada 9 Desember 2015 masih menyisakan 5 masalah krusial. Pertama, hingga saat ini belum seluruh daerah yang berjumlah 269 daerah yang menggelar pilkada menetapkan pasangan calon. Ada juga tiga daerah dengan pasangan calon tunggal yakni Kabupaten Tasikmalaya, Kabupaten Blitar dan Kabupaten Timor Tengah Utara.
Ketua Komisi Pemilihan Umum Husni Kamil Manik mengatakan hingga saat ini masih ada 43 pasangan calon yang dinyatakan tidak memenuhi syarat. Mereka memiliki hak untuk komplain kepada Panitia Pengawas Pemilu (Panwaslu) untuk tingkat kabupaten atau kota, atau Banwaslu untuk pemilihan gubernur dan wakil gubernur.
“Kami masih menunggu proses sengketa yang belum menerima penetapan KPU tersebut yang tengah ditangani Mahkamah Agung,” kata Husni di acara Rakornas Pemantapan Pilkada Serentak di Eco Park, Ancol, Jakarta Utara, Kamis (12/11/2015).
Husni mengaku belum tahu pasti jumlah pasangan calon kepala daerah yang mengajukan gugatan sengketa ke MA. Namun dari catatan Lembaga Bantuan Hukum, dari 8 pasangan calon yang menggugat sampai tingkat kasasu, baru satu perkara yang diputuskan oleh MA yakni untuk Pilkada Mojokerto.
KPU berharap semua sengketa penetapan pasangan calon bisa selesai sebelum 15 November ini. Setelah semua pasangan calon ditetapkan, kata Husni, KPU bisa mulai mencetak surat suara untuk pilkada. “Kami beri batas waktu sampai 15 November untuk selesaikan sengketa pilkada dan baru bisa cetak surat suara,” kata Husni.
Masalah kedua, adalah soal anggaran pelaksanaan yang masih butuh perhatian. Menurut Husni dari 269 daerah baru 167 yang persoalan anggarannya selesai 100 persen.
Ada juga persoalan fasilitas kampanye yang tidak bisa memuaskan semua pasangan calon. Salah satu penyebabnya karena difasilitasi KPU seperti penyediaan alat peraga kampanye di ruang publik.
Keempat, soal data pemilih. Sumber data yang digunakan KPU berasal dari Kementerian Dalam Negeri. Data tersebut melingkupi semua komponen data, baik nomor kartu keluarga dan nomor induk KTP. Ada 102 juta sebagai data pemilih sementara menjadi data pemilih tetap dan membukanya ke publik melalui media online.
“Masih terjadi pengayaan akibat pemekaran daerah yang terdapat di beberapa wilayah. Masih ada tarik menarik antar kecamatan, desa, kelurahan,” kata Husni.
Masalah kelima yang tak kalah penting adalah soal distribusi logistik pilkada yang tak tepat waktu. “Penyebabnya adalah keterlambatan persetujuan dana hibah, keterbatasan SDM di satuan kerja yang memenuhi syarat,” kata Husni.

Sumber: http://news.detik.com/berita/3069079/5-masalah-krusial-dalam-pilkada-serentak-tahun-ini

Presiden Jokowi Hadiri Rakornas Pemantapan Pilkada Serentak
Jakarta – Presiden Joko Widodo menghadiri acara rapat koordinasi nasional pelaksanaan pemantapan pilkada serentak tahap pertama. Sejumlah tokoh penting pemerintahan pusat dan daerah hadir dalam acara ini.
Jokowi hadir di lokasi acara, Gedung Ecopark, Ancol, Jakut, sekitar pukul 09.00 WIB, Kamis (12/11/2015). Tak berselang lama, acara yang dihadiri oleh lebih dari 3.000 tamu undangan pun dimulai.
“Hari ini hadir seluruh peserta rakornas pemantapan untuk suksesnya pilkada serentak tahap pertama tahun 2015 dengan peserta yang meliputi pejabat dari pusat dan daerah,” ujar Mendagri Tjahjo Kumolo saat membuka acara.
Adapun menurut Tjahjo, undangan yang hadir dalam acara ini adalah para kepala daerah, pimpinan KPU/KPUD, Bawaslu pusat dan daerah, jajaran kepolisian, jajaran TNI khususnya TNI AD, jajaran kejaksaan, jajaran Kabinda dan Kesbangpol.
“Pilkada serentak pertama ini harus berjalan suskes, demokratis untuk mencari pemimpin yang amanah demi membangun tata kelola pemerintahan, efektif, efisien dan taat hukum,” kata Tjahjo.
“Dapat memimpin daerah, mempercepat pembangunan dan infrastruktur, taat kepada hukum, mempercepat birokrasi dan demokrasi, untuk memperkuat otonomi daerah. Ini arahan presiden,” lanjutnya.
Hadir sejumlah tokoh penting dalam rakornas ini. Di antaranya Panglima TNI Jenderal Gatot Nurmantyo, Kapolri Jenderal Badrodin Haiti, Jaksa Agung M Prasetyo, KaBIN Sutiyoso, Menko PMK Puan Maharani, Menkopolhukam Luhut B Pandjaitan, dan sejumlah petinggi lainnya. Termasuk para kepala daerah seperti Gubernur Jabar Ahmad Heryawan.
“Pilkada serentak harus sukses,” tukas Tjahjo.

Sumber: http://news.detik.com/berita/3068859/presiden-jokowi-hadiri-rakornas-pemantapan-pilkada-serentak

Menko Luhut Siap Pertaruhkan Jabatan untuk Pilkada Serentak
Jakarta – Tak sampai satu bulan lagi pemilihan kepala daerah serentak bakal digelar. Presiden Joko Widodo (Jokowi) sudah memerintahkan agar pilkada serentak tahun ini dipersiapkan dengan baik untuk menjadi acuan pesta demokrasi di Indonesia selanjutnya.
Menteri Koordinator bidang Politik Hukum dan Keamanan Luhut Pandjaitan siap mempertaruhkan jabatannya jika ada pelanggaran pilkada namun tidak ditindaklanjuti.
“Kita tidak boleh ragu menindak utuh, saya pertaruhkan jabatan saya bila ada yang melanggar tapi tidak ditindak,” tegas Luhut.
Hal tersebut disampaikannya saat memberikan pengarahan di Rakornas Pemantapan Pilkada Serentak di Gedung Ecopark, Ancol, Jakut, Kamis (12/11/2015). Hadir dalam acara ini sejumlah petinggi termasuk unsur-unsur pilkada baik dari pusat maupun daerah.
“Teman-teman polisi jangan ragu dan TNI tahu di mana Anda bermain dengan cantik, setiap ketentuan yang ada jangan dilanggar. Netralitas juga perlu digarisbawahi, harus ada tindak tegas. Kita harus siap sukseskan Pilkada serentak,” tuturnya.
Dari 269 daerah yang akan melaksanakan Pilkada serentak tahap awal, disebut Luhut ada 3 daerah yang akan berpotensi rawan karena memiliki calon tunggal. Yakni Blitar, Tasikmalaya, dan Timur Tengah Utara.
“Pelajari peraturan yang ada dengan cermat, titik rawan tahapan Pilkada kami juga antisipasi pada pasca Pilkada dengan sengketa Pilkada,” ucap Luhut.
Selain itu Luhut juga meminta setiap komponen yang hadir memperhatikan sejumlah isu yang lain. Semua instansi atau unsur pemerintah diminta bergandengan tangan.
“Jangan pernah ambil risiko lihat peraturan undang-undang yang dimiliki, jangan pernah ragu disiplinkan warga negara Indonesia. Kita adalah pelaksana dari UU. Jadi apa yang ada di ketentuan dilakukan dengan benar dan arif,” tambah Luhut.

Sumber: http://news.detik.com/berita/3069069/menko-luhut-siap-pertaruhkan-jabatan-untuk-pilkada-serentak

Komisi II Minta KPU Antisipasi Rendahnya Partisipasi di Pilkada Serentak
Jakarta – Presiden Joko Widodo dalam Rakernas Pemantapan Pilkada Serentak pagi tadi, menyinggung Pilkada di 269 daerah yang berlangsung sepi tanpa keriuhan. Padahal, kurang dari sebulan, tepatnya 9 Desember pesta demokrasi itu akan digelar.
Anggota komisi II DPR Yandri Susanto menyoroti sosialisasi yang minim dari penyelenggara pemilu, maupun pemerintah daerah. Dia mengkhawatirkan hal itu bisa berimbas pada rendahnya partisipasi memilih masyarakat.
“Itu PR untuk pasangan calon, KPU, dan Bawaslu sosialisasikan jangan sampai 9 Desember banyak masyarakat tidak tahu ada Pilkada. Akhirnya golput atau tingkat partisipasi memilih rendah. Itu mungkin warning dari Presiden yang harus diantisipasi KPU, Bawaslu dan pasangan calon,” kata Yandri kepada detikcom, Kamis (12/11/2015).
Menurut Yandri, geliat Pilkada di 269 daerah tak terlihat salah satunya disebabkan peraturan dalam UU 8 tahun 2015 tentang Pilkada dan Peraturan KPU yang membatasi alat peraga kampanye, rapat umum kampanye dan lainnya.
“Memang inti dari implementasi UU itu tidak ada hingar bingar, pasangan calon yang punya dana berlebihan seenaknya pasang spanduk,” ujarnya.
Politisi PAN itu sudah berkeliling ke beberapa daerah mengikuti kampanye Pilkada pasangan calon yang diusung PAN. Geliat pesta demokrasi memang tak seramai sebelum aturan soal Pilkada direvisi.
“Mumpung masih ada waktu, menurut saya KPU, Panwaslu, atau pemangku kepentingan lain camat, lurah, kepala desa, mesti manfaatkan sisa waktu yang ada untuk sosialisasikan ke masyarakat,” imbaunya.
“PAN sudah lakukan itu tiap hari dengan temu kader dan apel siaga mengundang kader, tokoh masyarakat untuk sosialisasikan pasangan calon. Kalau semua parpol melakukan sosialisasi, saya yakin 9 Desember masyarakat akan hadir di TPS,” imbuh politisi asal Banten itu.

Sumber: http://news.detik.com/berita/3069051/komisi-ii-minta-kpu-antisipasi-rendahnya-partisipasi-di-pilkada-serentak

Pekan Depan KPU Mulai Cetak Surat Suara untuk Pilkada Serentak
Jakarta – Komisi Pemilihan Umum baru akan mencetak surat suara untuk pemilihan kepala daerah serentak mulai pekan depan. KPU hingga kini masih menunggu proses sengketa penetapan pasangan calon yang diajukan ke Mahkamah Agung.
Ketua KPU Husni Kamil Manik mengatakan hingga saat ini masih ada 43 pasangan calon (paslon) yang belum memenuhi syarat. Kepada pasangan tersebut dipersilakan mengajukan keberatannya ke Panwaslu kabupaten/kota dan Bawaslu di masing-masing daerah.
“Ada 43palson yang tidak memenuhi syarat, mereka memiliki hak untuk komplain kepadaPanwaslukab/kota kemudianBawaslu provinsi untukPilgub,” kata KetuaKPUHusni Kamil Manik di acaraRakornas PemantapanPilkada Serentak diEcoPark,Ancol,Jakarta Utara, Kamis (12/11/2015).
Husni juga menambahkan, dari 8 paslon yang menggugat, baru satu yang sampai tingkat kasasi. Mahkamah Agung pada tanggal 3 November menerima perkara dari Kabupaten Mojokerto.
“Kami beri batas waktu sampai 15 November untuk selesaikan sengketa Pilkada dan baru bisa cetak surat suara,” lanjutnya.
Sebelumnya Presiden Joko Widodo berharap agar Pilkada 2015 dipersiapkan dengan baik dan terencana. Selain itu juga, Pilkada 2015 harus menjadi rujukan bagi Pilkada di tahun berikutnya.
“Kita harus menyiapkan Pilkada tahun ini dengan baik serta terencana. Momen Pilkada serentak ini merupakan ujian untuk menyongsong 2 pilkada selanjutnya tahun 2017 dan 2018,” ujar Jokowi dalam pidatonya.

Sumber: http://news.detik.com/berita/3069116/pekan-depan-kpu-mulai-cetak-surat-suara-untuk-pilkada-serentak

10 BERITA TEKNOLOGI
Asyik, Google Maps Kini Bisa Diakses Offline
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.
Untuk saat ini, pengguna mengaku belum melihat petunjuk lokasi bisnis maupun restoran yang ditunjukkan aplikasi itu. Beberapa fitur juga masih akan membutuhkan koneksi internet aktif saat digunakan, seperti tanda lalu lintas selama rute yang diambil.
Sumber : http://techno.okezone.com/read/2015/11/11/207/1247307/asyik-google-maps-kini-bisa-diakses-offline

Intel Siap Investasi Besar untuk Perkembangan Tablet di Indonesia
JAKARTA – Pangsa pasar tablet menjadi salah satu daya tarik Intel untuk mengembangkan bisnis di Indonesia. Perusahaan pembuat prosesor tersebut mengaku siap menggelontorkan dananya untuk pengembangan tablet di Indonesia.
Hal ini disampaikan oleh Channel Business Director Intel Indonesia, Herman Sutanto. Dia menjelaskan, Intel memiliki komitmen untuk pengembangan tablet di Tanah Air.
“Kita benar-benar melakukan investasi yang besar supaya tablet di Indonesia maju,” ujar Herman di Jakarta, Rabu (11/11/2015).
Saat ini, lanjut Herman, Intel memprioritaskan tablet dengan kemampuan 3G untuk pasar region, Asia Pasifik.
“Berdasarkan data IDC, progres atau pertumbuhan pasar tablet di Indonesia sekira 8 persen. Kita juga melihat bahwa pasar tablet itu masih sangat populer, terutama untuk phablet,” tutur Sutanto.
Keyakinan itu bertambah, posisi Intel di Market share prosesor menempati posisi kedua. Padahal, perusahaan asal Paman Sam tersebut baru masuk ke pasar tablet pada 2014
“Makanya kita sangat serius untuk pasar tablet di Indonesia, karena opportunity-nya ada di sana. Produknya ada, partner-partner yang hebat, dan kita sudah buktikan masuk ke Indonesia dengan segala teknologi. Kita akan terus mempertahanakan market share tablet ini agar menjadi nomor 1, karena kita memiliki teknologi SOC (System On Chip),” jelasnya.
“Kita memakai SOC karena ingin membuat produk lebih terjangkau untuk masyarakat, lebih hemat daya, dan Intel sudah siap untuk berpartisipasi dalam hal produk tersebut di waktu mendatang,” tegasnya.

Sumber : http://techno.okezone.com/read/2015/11/11/207/1247793/intel-siap-investasi-besar-untuk-perkembangan-tablet-di-indonesia

Listeno, Aplikasi Buku Bacaan dengan Suara
JAKARTA – Tech In Asia 2015 mengakhiri perjalanannya di Jakarta. Selain dimeriahkan dengan enam panggung, dalam perhelatan ini juga dimeriahkan dengan stand beragam startup dari berbagai negara, termasuk Indonesia.
Listeno, begitu namanya, salah satu aplikasi unik yang ada di ajang Tech In Asia Jakarta 2015.
Sejatinya, Listeno di sini merupakan aplikasi audiobook dan aplikasi ini terbilang jarang di Indonesia. Dengan menyasar kalangan yang gemar mambaca, Listeno membawa kegemaran membaca buku ke audio.
“Selain menyediakan buku yang dibacakan narator, tetapi Listeno ini juga menyediakan efek yang bisa membangkitkan imajinasi pendengarnya,” kata Rifqi Alfian, Developer Listeno saat dimintai keterangan, Rabu (11/12/2015).
Selain itu, Listeno juga telah bekerjasama dengan beragam penerbit lokal untuk menghasilkan audiobook. Untuk mengisi narator, pengembang menggaet penyiar radio.
Listeno mungkin memang baru diluncurkan bulan lalu, namun aplikasi audiobook ini sudah diunduh sebanyak 2.000 pengunduh. Di samping itu, aplikasi ini juga sudah tersedia sebanyak 60 buku dan ke depannya, Listeno akan menambah buku serta menambah fitur payment.

Sumber : http://techno.okezone.com/read/2015/11/11/207/1247730/listeno-aplikasi-buku-bacaan-dengan-suara

Instagram Uji Iklan Unik Berfitur 3D Touch?
SAN FRANSISCO – Belum lama ini situs berbagi foto, Instagram, dikabarkan menguji iklan unik yang memanfaatkan fitur 3D Touch Apple. Namun juru bicara Instagram membantah kabar tersebut.
“Mobile commerce tentu saja merupakan wadah yang kami kembangkan dengan hati-hati, namun itu (3D Touch) bukanlah sesuatu yang sedang kami ujikan untuk saat ini,” demikian keterangan juru bicara Instagram dikutip dari PhoneArena, Senin (9/11/2015).
Meski Instagram nampak belum siap untuk memasuki sektor belanja online, para analis menyebut aplikasi yang telah diakuisisi Facebook ini sebenarnya mampu meledak di sektor tersebut.
Aplikasi ini dinilai mampu menghasilkan hingga USD 2 miliar per tahun dari pengiklanan hingga 2017 mendatang.
Sebelumnya, fitur 3D Touch digadang-gadang bakal memungkinkan pengguna untuk berbelanja tanpa perlu meninggalkan aplikasi Instagram. Sistemnya akan diintegrasikan langsung dengan Apple Pay.
Pengguna yang ingin melihat variasi produk seperti warna bisa menekan lebih ringan atau berat pada layar. Seperti yang diketahui iPhone 6S dan iPhone 6S Plus dapat membedakan sentuhan ringan dan berat.

Sumber: http://techno.okezone.com/read/2015/11/09/207/1246281/instagram-uji-iklan-unik-berfitur-3d-touch

Twitter Luncurkan Safety Centre untuk Internet Sehat
JAKARTA – Platfrom media sosial realtime Twitter, hari ini memperkenalkan Safety Center (Pusat Keamanan) dalam bentuk bahasa Indonesia.
Country Business Head Twitter Indonesia, Roy Simangunsong, mengatakan, pusat informasi Twitter Safety Center ini dirancang secara khusus agar semakin mudah dipahami pengguna di Indonesia.
“Sebagai platform komunikasi realtime, kami berupaya mewujudkan lingkungan digital yang aman dan nyaman untuk semua pengguna,” ujarnya dalam diskusi Good Digital Citizenship,” di Jakarta, Selasa (10/11/2015).
Dia menjelaskan, pengguna dapat mengekspresikan diri di percakapan publik dengan menciptakan lingkungan yang aman bagi pengguna menjadi salah satu fokus utama Twitter.
“Kami sadar bahwa good digital citizenship sangat penting untuk mewujudkan lingkungan yang aman dan nyaman bagi semua. Kami berupaya memperkenalkan lingkungan aman, dan nyaman mulai dari peta Jakarta bekerjasama dengan Pemprov DKI hingga berbagai pihak untuk mendukung inisiatif internet sehat,” jelas Roy.
Roy menyakini, bentuk implementasi nyata dari komitmen Twitter dengan memperkenalkan konten sebagai pusat informasi, dirancang secara khusus agar semakin mudah dipahami pengguna Indonesia.
“Kita melihat sebenarnya ada dua sisi, tapi kita rileks harus menciptakan semua lingkungan yang aman dari semua pihak, setelah aman selanjutnya akan merasa nyaman. Jadi itu bisa menghilangkan sedikit konten-konten negatif,” imbuhnya.
Selain itu, Twitter juga berkerjasama dengan Kementrian Komunikasi dan Informasi (Kemenkominfo) untuk berkomitmen memberikan bantuan kepada anak-anak, remaja, keluarga, dan pengajar untuk menggunakan Twitter dengan aman dan efektif.
“Kami membuat peraturan dan pengawasan untuk melindungi keragaman pendapat dari pengguna kami dengan lebih baik, kami juga menyusun alat sederhana untuk membantu mengontrol waktu Anda menggunakan Twitter,” tuturnya.

Sumber: http://techno.okezone.com/read/2015/11/10/207/1246699/twitter-luncurkan-safety-centre-untuk-internet-sehat

Facebook Luncurkan Aplikasi Music Sharing
CALIFORNIA – Raksasa media sosial, Facebook mengumumkan sebuah format baru yang membuat para pengguna bisa mendengarkan preview musik selama 30 detik yang dibagikan lewat dinding teman mereka.
Aplikasi ini akan dinamakan Music Stories dan menurut Facebook, ini bertujuan untuk “memperbaiki penemuan dan berbagi musik”.
Preview musik selama 30 detik itu akan disediakan oleh Spotify dan Apple Music, di mana pengguna bisa menyimpan atau membeli musik tersebut.
Ini berarti para pengguna Facebook bisa mendengar dan berbagi musik yang mereka suka tanpa harus meninggalkan aplikasi dan laman mereka.
Berbagi musik seperti ini merupakan sesuatu yang diperebutkan oleh perusahaan teknologi saat ini, selain tinjauan terhadap video (video view).
Bulan Agustus, aplikasi Vine memasang fasilitas Shazam yang membuat pengguna bisa mengetahui musik yang dimainkan di sana.
Namun menambah fasilitas musik ke media sosial tidak selalu berarti mendatangkan uang.
Instagram juga sempat meluncurkan fasilitas @music bulan April tetapi tidak mendapat banyak pengikut.
Twitter juga sempat berupaya memasukkan musik ke dalam layanan mereka, tapi tak berlangsung lama.
Kepada BBC, CEO Instagram Kevin Systrom mengatakan, “Soalnya, hanya sekadar waktu saja sebelum musik menjadi sesuatu yang dominan.”

Sumber: http://techno.okezone.com/read/2015/11/08/207/1245610/facebook-luncurkan-aplikasi-music-sharing

Malware Pintar Bakal Sulit Dihapus di Android
CALIFORNIA – Tidak hanya perangkat mobile seperti ponsel yang memiliki fitur pintar, developer malware juga menciptakan program jahat yang tak kalah pintar. Perusahaan keamanan mobile Lookout baru-baru ini menemukan tipe baru malware yang mengancam ponsel Android.
Dilansir Trustedreviews, Sabtu (7/11/2015), malware ini kabarnya secara agresif memberikan iklan abal-abal ke ponsel pengguna. Malware tersebut bersembunyi di ponsel, tanpa diketahui pengguna berjalan secara background.
Menurut perusahaan keamanan, malware dengan jenis ‘adware’ itu hampir tidak mungkin untuk dihapus. Bahkan, malware tersebut juga tidak mempan untuk dilenyapkan apabila pengguna melakukan reset factory pada handset.
Adware ini bisa tertanam di ponsel dengan menyamar sebagai aplikasi populer. Perusahaan keamanan Lookout mengidentifikasi ada sekira 20 ribu aplikasi yang telah tertanam dengan adware tersebut.
Beberapa aplikasi palsu itu bahkan dapat meniru fungsi dasar dari aplikasi asli, sehingga membantu malware untuk lebih ‘menyerang’ perangkat pengguna. Konon, adware ini sudah tersebar di Amerika Serikat dan Jerman.
Tidak menutup kemungkinan bila program jahat tersebut masuk ke ekosistem Google Play Store di negara berkembang. Pengguna diminta agar berhati-hati saat mengunduh aplikasi di Google Play Store maupun di toko aplikasi pihak ketiga.

Sumber: http://techno.okezone.com/read/2015/11/07/207/1245430/malware-pintar-bakal-sulit-dihapus-di-android

Ingin Saingi Apple, Toyota Kembangkan Pusat Teknologi Robotik
CALIFORNIA – Perusahaan otomotif Jepang, Toyota, menanamkan modal miliaran dolar di Silicon Valley, California, Amerika Serikat untuk mengembangkan kecerdasan buatan dan teknologi robotik.
Mereka mendirikan pusat riset yang diharapkan mampu membuat perusahaan ini menjadi yang terdepan dalam pengembangan kendaraan yang bisa mengemudikan diri sendiri.
Presiden Toyota, Akio Toyoda, mengatakan perusahaan riset ini akan didirikan di dekat Universitas Stanford, dan akan mempekerjakan 200 orang pegawai.
Perusahaan ini akan mulai beroperasi pada bulan Januari 2016.
Sedangkan pusat penelitian kedua akan didirikan di kota Cambridge, Massachusetts, berdekatan dengan kampus Massachusetts Institute of Technology.
Berbicara kepada wartawan, Toyota mengatakan bahwa mereka mengejar inovasi di Toyota bukan karena mereka mampu melakukannya, tetapi karena mereka merasa harus melakukan inovasi tersebut.
“Kecerdasan buatan memiliki potensi yang penting untuk memperbaiki berbagai masalah di masyarakat,” kata Toyoda.
Pembukaan fasilitas ini diduga berkaitan dengan riset yang tengah dilakukan perusahaan Alphabet (yang dulu dikenal dengan nama Google) dan Apple untuk mengembangkan mobil yang bisa mengemudikan dirinya sendiri.
Sumber: http://techno.okezone.com/read/2015/11/08/207/1245619/ingin-saingi-apple-toyota-kembangkan-pusat-teknologi-robotik

Ini Sistem Operasi yang Paling Gampang Diretas
CALIFORNIA – Semakin canggihnya malware atau program jahat yang dikembangkan penjahat cyber, memungkinkan hacker meretas ponsel dengan mudah. Ahli keamanan Steve Lord mengatakan, Android merupakan sistem operasi (OS) yang paling mudah diretas.
“Jika saya memiliki akses fisik ke perangkat, saya menemukan Android sebagai target yang paling mudah,” tutur Lord, seperti dilansir Neowin, Sabtu (7/11/2015). OS robot hijau tersebut bisa dibajak melalui jaringan, serangan email atau pesan.
Lebih lanjut ia mengatakan, beberapa sistem operasi memungkinkan untuk diretas, walau memiliki tingkat kesulitannya masing-masing. Setelah Android, iPhone (iOS) dan versi lawas dari perangkat BlackBerry dikatakan mudah diretas.
Lord mengatakan bahwa di antara sistem operasi mobile yang ada saat ini, Windows Phone merupakan OS yang sulit untuk dipatahkan. Ia menyarankan agar pengguna menggunakan sistem operasi yang lebih baru.
Bila Anda harus memiliki BlackBerry, ia menyarankan agar pengguna memakai minimal versi BB10. Sementara bila pengguna memakai Windows Phone, gunakan Windows Phone 8 atau versi yang lebih baru.
Informasi yang beredar pada Mei 2015, berdasarkan analisis IDC, Windows Phone akan memiliki pertumbuhan paling cepat di antara OS lainnya seperti iOS dan Android. Menurut IDC, tingkat pertumbuhan Windows Phone diprediksi mencapai 24,3 persen selama lima tahun ke depan.
Tingkat pertumbuhan tersebut kabarnya mencapai tiga kali lipat lebih tinggi dibanding Android dan iOS.

Sumber: http://techno.okezone.com/read/2015/11/07/207/1245446/ini-sistem-operasi-yang-paling-gampang-diretas

Evercoss Siapkan Forum untuk Fans
Evercoss Siapkan Forum untuk Fans (Foto: Dini Listiyani/okezone)
JAKARTA – Evercoss menjadi salah satu vendor lokal besar di Indonesia. Kini Evercoss tidak hanya menyediakan feature phone, tetapi juga mulai menyediakan smartphone 4G di Indonesia.
Banyaknya produk smartphone yang telah diluncurkan Evercoss, memunculkan banyak fans Evercoss sendiri. Untuk mendekatkan fans Evercoss, ke depannya Evercoss berniat untuk memfasilitasi keberadaan mereka.
“Di Facebook, saat ini lebih dari 30 ribu fans yang men-like-nya. Ke depannya, akan ada forum dan wadah untuk fans Evercoss,” kata Kezia Mareshah, Media Relation Evercoss di Jakarta, Selasa (10/11/2015).
Forum tersebut, sambung Kezia, sedang di-develop oleh tim Evercoss. Rencananya, wforum ini akan siap tahun depan, namun belum tahu waktu secara pasti.
Dengan adanya wadah untuk fans Evercoss ini, diharapkan bisa membuat para fans Evercoss lebih dekat dengan produk Evercoss.
Seperti diketahui, Evercoss hari meluncurkan dua smartphone 4G terjangkau, Evercoss Winner T3 dan Elevate Y3+, sehingga masyarakat Indonesia bisa merasakan smartphone 4G dengan harga yang tidak terlalu mahal.

Sumber: http://techno.okezone.com/read/2015/11/10/207/1246712/evercoss-siapkan-forum-untuk-fans

10 BERITA GAYA HIDUP
Tips Menabung dengan Penghasilan di Bawah Dua Juta
Semua orang rasanya telah tahu jika menabung merupakan hal yang bermanfaat dan penting untuk masa depan. Namun tidak banyak yang bisa melaksanakannya sebab berbagai macam alasan yang sebenarnya tak perlu muncul apa lagi di amini. Alasan yang biasanya sering muncul adalah soal gaji yang pas-pasan, gaji hanya cukup untuk makan sehari-hari, bahkan gaji tidak cukup.
Maka dari itu ubah alasan Anda dengan gaji yang sedemikian minim dengan asumsi bagaimana caranya tetap bisa nabung. Nah jika Anda memang mau menabung dengan kondisi gaji yang dibawah dua juta alias gaji minim, berikut caranya agar Anda tetap bisa nabung.
1. Miliki Dua Rekening Tabungan Atau Lebih
Memiliki dua rekening tabungan dapat membantu Anda menabung. Rekening tabungan yang pertama bisa di gunakan untuk menerima gaji dan melakukan bermacam-macam transaksi. Rekening yang kedua sebaiknya menggunakan bank yang tidak memotong tabungan Anda alias bebas pajak, dan tak usah membuat kartu ATM. Dengan demikian, Anda bisa terhindar dari keinginan untuk menghabiskan uang yang ada dalam tabungan Anda.
2. Daftarkan Diri dalam Asuransi Kelas Menengah
Asuransikan kesehatan Anda dengan asuransi kelas menengah agar setorang atau tagihannya tidak terlalu besar. Anda juga bisa terhindar dari tagihan Rumah Sakit yang besar ketika Anda mengalami sakit. Kemudian, pilih produk asuransi yang memperbolehkan Anda mendapatkan kembali uang Anda ketika Anda tidak mengajukan klaim dalam waktu tertentu, karena kegiatan itu adalah tak ubahnya nabung, maka harus ada setoran rutin pada setiap bulannya.
3. Buat Anggaran Pribadi
Buatlah rencana keuangan Anda pribadi. Misalnya, belanjakan uang Anda hanya 50% dari total gaji. Besarnya nominal tersebut dapat Anda atur sesuai dengan kebutuhan Anda. Uang yang harus ditabungkan tidak perlu terlalu besar, namun yang Anda perlukan adalah rutin menabung, boleh hanya 20% saja dari total gaji Anda yang harus Anda tabung, juga jangan sampai uang yang Anda tabung dipakai kecuali ada keperluan yang mendesak.
4. Hindari Kartu Kredit
Kartu kredit sejenak memang sangat enak digunakan, bahkan lebih simpel dari sistem pembayaran apa-pun. Namun secara tak sadar Anda telah menggerogoti uang tabungan Anda sendiri dengan memakai kartu kredit tersebut sehingga hal ini tidak perlu Anda lakukan.
5. Adakan Arisan Bersama Teman
Agar lebih bermanfaat ketika Anda dan teman-teman Anda berkumpul, maka mengadakan arisan sepertinya lebih cocok karena arisan masih merupakan bagian dari menabung dan bisa membuat pertemanan Anda semakin berarti. Tentukan nominal iurannya, tentu sesuai kemampuan, dan pilih sistem yang jelas dalam arisan yang akan Anda jalankan dengan teman-teman Anda.
6. Investasi Kecil-Kecilan
Investasi masih tergolong hal yang sangat penting bagi masa depan atau kondisi dikemudian hari. Dengan berinvestasi, Anda juga masih di ibaratkan menabung namun tak perlu Anda setor sebagaimana Anda menabung di bank. Investasi kecil-kecilan bisa Anda pilih sendiri sesuai kemampuan.
7. Ubah Kebiasaan
Jika selama ini Anda masih tergolong dengan kebiasaan hidup yang menengah keatas alias makan harus enak, berkumpul dengan teman harus ditempat yang enak pula, maka ubah kebiasaan tersebut dengan tanpa mengurangi semua rasa itu, yakni semisakl Anda makan dengan seadanya namun dinikmati yah bukan asal lewat ditenggorokan aja gitu, lalu berkumpul dengan teman dikurangi atau cari tempat yang sedang ada promo atau budget murah meriah.
8. Buat Skala Prioritas Belanja Bulanan
Membuat sekala prioritas terutama dalam hal belanja, tentunya akan sangat membantu Anda, terutama dalam hal memenuhi kebutuhan. Sekala prioritas tak perlu memandang keinginan Anda, namun harus tetap memperhatikan dan sesuai dengan uang yang akan Anda gunakan juga apa yang menjadi kebutuhan Anda.
Saya rasa tidak sulit untuk dilaksanakan, meskipun gaji kita masih dibawah dua juta alias minim. Namun bukan terletak pada berapa besaran gaji yang kita dapat, namun sebesar apa keinginan kita untuk menabung untuk kondisi hidup kedepannya. Pada awalnya mungkin memang masih terasa sulit banget, namun jika terus dijalani, percayalah, hal sulit itu akan berganti dengan senyum bahagia karena tak terasa ternyata Anda mempunyai tabungan yang kelak bisa Anda nikmati.

Sumber: http://musmus.me/index.php/2015/08/14/tips-menabung-dengan-penghasilan-di-bawah-dua-juta/

Songket Silungkang Pukau Ratusan Mata di New york Couture Fashion Week 2015
Covesia.com – Pakaian muslim koleksi perancang busana Shafira yang mengusung kain songket Silungkang bertema “Silungkang’s Songket goes to New York Couture Fashion Week,” berhasil memukau masyarakat kota yang disebut Big Apple itu.
Ratusan penonton New York Couture Fashion Week 2015 memberi applouse cukup meriah dengan tepuk tangan panjang, seusai peragawati membawakan koleksi Shafira di Broadway Ballroom, Crowne Plaza Time Square, Manhattan, New York.
Feny Mustafa, pendiri Shafira Corporation, Senin (14/9/2015), mengatakan, sambutan penonton cukup antusias. Shafira, brand busana muslim yang dikenal di Indonesia dan mancanegara, pada acara New York Couture Fashion Week 2015 memamerkan sebanyak 20 koleksi couture extravaganza-nya yang didominasi warna hitam dari bahan songket asal Silungkang.
Tema yang diusung Shafira adalah “When West Meet West” dengan sentuhan kain tradisional songket Silungkang dari Sawahlunto, Sumatera Barat.
Kain songket dengan aplikasi bahan yang dominan bernuansa hitam dan silver tersebut, tampak mewah dan elegan dengan taburan kristal swarovski karya dari Tim desainer Shafira yang menampilkan songket dalam bentuk jaket panjang, jaket pendek, tunik, celana palazzo, dan gaun panjang.
Feny Mustafa, pendiri Shafira Corporation, menuturkan warna hitam dan silver itu dipilih timnya agar koleksinya mudah diterima oleh masyarakat Amerika Serikat.
Para peragawati bule yang tinggi semampai dalam balutan koleksi Shafira, melangkah gontai mengeliling panggung model berbentuk U dan para tamu tampak antusias memotret setiap busana yang ditampilkan pragawati.
Feny mengatakan dia dan Shafira ingin mengangkat nama Indonesia di luar negeri, melalui produk yang dihadirkannya. Songket Silungkang merupakan salah satu karya cipta seni tenun tradisional Indonesia,” ujarnya.
“Kami ingin mengangkat kekayaan budaya Indonesia ke mata dunia, antara lain melalui fashion show di New York ini,” ungkapnya usai pagelaran di Crowne Plaza Times Square Manhattan.
Ajang New York Couture Fashion Week ini berlangsung dari tanggal 11 hingga 13 September diikuti sekitar 22 perancang busana dan perhiasan dari sejumlah negara diantaranya Indonesia, India, Amerika Serikat, Rusia, China, Puerto Rico, Rumania, Georgia,dan Peru.

Sumber: http://www.covesia.com/berita/20651/songket-silungkang-pukau-ratusan-mata-di-new-york-couture-fashion-week-2015.html

11 Kebiasaan yang Bisa Membuat Otak Anda Mati
Banyak kebiasaan yang sebenarnya dapat berakibat fatal, nah berikut kebiasaan-kebiasaan yang sering di lakukan namun sangat berbahaya.
Manusia diciptakan oleh Allah SWT dengan bentuk yang paling sempurna dari semua mahluk yang Ia ciptakan. Bukti kesempurnaan manusia sebagai ciptaan Tuhan yang paling sempurna adalah terletak pada otaknya yang paling sempurna alias lengkap. Otak manusia yang terdiri dari 100 miliar saraf yang masing-masing tersambung dengan 100 saraf lainnya. Maka dari itu otak disebut sebagai organ yang paling penting dan vital bagi manusia.
Otak sendiri jika dilihat dari ukurannya tidak seberapa besar, bahkan hanya bagian kecil dar tubuh ini, namun meskipun demikian perannya sangat penting, betapa hebatnya organ tubuh yang bernama otak itu. Namun meskipun perannya sangat vital bagi manusia, tak sedikit yang acuh terhadap kesehatan otak tersebut.
Jika kita masih ingin otak kita tetap sehat dan hidup, tinggalkan kebiasan-kebiasaan di bawah ini:
1. Kebiasaan begadang
Begadang bagi manusia mungkin hal yang biasa, apa lagi kaula muda. Namun dari kegiatan begadang itu otomatis akan mengurangi jam istirahat(tidur) kita, akibatnya kita akan kurang tidur. Kurang tidur sangat berdampak buruk pada kesehatan tubuh yang juga akan berpengaru pada kesehatan otak. Jika telah demikian maka kita secara perlahan membunuh sel yang ada pada otak kita, perlu diketahui, bahwa tidur adalah cara terbaik untuk mengistirahatkan otak.
2. Bekerja dalam keadaan sakit
Banyak sekali manusia yang memaksakan diri untuk menyelesaikan tugas/ pekerjaannya walau sedang sakit, bahkan saking dianggap pengtingnya pekerjaan itu, secara tidak sadar telah mengesampingkan kesehatan otak yang jauh lebih penting dari pekerjaan itu.
3. Jarang bicara
“Diam adalah emas” yah begitu pepatah berbunyi, dan memang benar, namun diam bukan harus tidak berbicara, karena jika jarang berbicara sel-sel otak akan mati denga perlahan. Jadi, sebisa mungkin dalam sehari usahakan untuk berbicara/ berdiskusi utamanya yeng berkaitan dengan pengetahuan.
4. Menutup kepala pada saat tidur
Jika anda terbiasa menutup kepala saat tidur, atau yang tidak bisa tidur jika tidak menutup kepala, segera tinggalkan kebiasaan tersebut. Karena jika tidak, otak anda akan berbahaya dengan konsentrasi karbondioksida yang ada dalam diri anda, karena jika kepala tertutup, saat anda bernafas, karbondioksida akan kembali ke dalam tubuh anda.
5. Jarang merangsang pikiran
Berfikir adalah cara yang baik untuk melati agar otak berkembang. Jika anda jarang berfikir, maka anda membuat sel-sel otak anda bisa menyusut akhirnya akan mati karena tidak ada aktivitas yang membuat otak tersebut berkembang.
6. Polusi
Otak sangat membutukan oksigen agar otak tetap terjaga kesehatannya. Namun jika udara yang kita hirup kotaor, maka akan berpengaruh juga pada otak yang akan mengakibatkan efisiensi kerja otak menurun termasuk anda yang perokok.
7. Merokok
Perokok aktif maupun pasif tetap sama dalam hal mempengaruhi kesehatan otak. Karena zat kimia yang terkandung dalam rokok sangat berbahaya terhadap perkembangan otak, terutama sel yang ada dalam otak. Sel saraf otak akan menyusut terutama pada bagian hippocampus dan korteks depan, dua bagian tersebut berfungsi untuk menyimpan ingatan.
8. Kurang mengkonsumsi makanan
Ini salah satu kebiasaan yang akan membuat otak anda mati
Makan adalah asupan yang penting untuk kita. Utamanya pada pagi hari(sarapan). Otak yang memerlukan nutrisi yang cukup agar bisa bekerja dengan baik dan maksimal. Maka jika kita terbiasa tidak sarapan, maka biasakannlah sarapan/ makan pagi agar kemampuan otak anda tidak mudah menurun.
9. Jangan makan berlebihan
“Makanlah sebelum lapar dan berhentilah sebelum kenyang”, itula ajaran Rasululla SAW pada kita. Makan yang berlebihan bukan hanya tidak baik bagi tubuh, namun juga mempengaruhi kesehatan otak pula, yakni bisa membuat pembuluh darah di otak mengeras dan akhirnya menurunkan mental.
10. Hindari mengkonsumsi gula berlebihan
Gula memang dibutukan oleh tubuh, namun jika terlalu banyak bisa berbahaya, terutama bagi otak. Mangkonsumsi gula yang berlebihan bisa mengakibatkan penyerapan nutrisi dan protein terganganggu dan akan mengakibatkan tubuh kekurangan gizi sehingga otakpun sulit berkembang.
11. Jangan berfikir negatif
Berfikir memang sangat penting dan perlu dilakukan agar otak kita tidak kerdil dan beku. Namun jika anda berfikir dengan sisi yang negatif, maka anda telah membuat otak tersebut menjadi rusak, rusak dalam hal sisi positif dan rusak dalam perkembangan otak itu sendiri.

Sumbur:http://musmus.me/index.php/2015/08/09/11-kebiasaan-yang-bisa-membuat-otak-anda-mati/

Brownies Manten, Jualan Brownies Pakai Aplikasi Android dan IOS
Jualan brownies mungkin sudah banyak orang yang melakukannya. Namun Patria dan Awalinda, pendiri Brownies Manten, punya cara berbeda untuk memasarkan produknya.
Brownies Manten meluncurkan aplikasi, berbasis Android dan IOS, yang diklaim sebagai pertama di Indonesia. Melalui aplikasi ini, membeli brownies pun terasa lebih mudah dan praktis di manapun berada.
Aplikasi Brownies Manten ini menghubungkan reseller (disebut penghulu) terdekat dengan posisi calon pembeli. Saat ini Brownies Manten memiliki lebih dari 2000 penghulu yang tersebar di berbagai wilayah se-Indonesia.
“Untuk tahun 2016, kami menargetkan memiliki lima hingga sepuluh ribu reseller untuk menjangkau pasar yang lebih luas,” ujar Patria kepada Hitsss.
Dituturkan Patria, dari awal membangun bisnis brownies ini bisa dibilang tidak mengeluarkan banyak modal. Modal awal yang ia keluarkan hanya sebesar Rp 3 juta. Dengan modal yang terbilang sedikit tersebut, bahkan bisnisnya langsung balik modal hanya dalam tiga hari, dengan menjual lebih dari 2000 kotak.
Brownies tak bikin gemuk
Biasanya ketakutan setelah makan brownies adalah menjadi gemuk. Brownies biasanya terbuat dari tepung terigu dan mentega yang mengandung kalori tinggi. Namun Brownies Manten justru dirancang untuk dapat membantu menambah massa otot bagi yang suka fitness alias tak bikin gemuk.
Brownies Manten tidak menggunakan mentega dan tepung putih, melainkan hanya cokelat bubuk dan telur, sehingga mengandung kolesterol yang rendah serta tinggi protein. Tampilan Brownies Manten pun berbeda dengan brownies lainnya, yaitu bertekstur kering dan berbentuk hati.
Keunikan lainnya, Brownies Manten dapat dijadikan media untuk mengungkapkan cinta atau kasih sayang untuk orang terkasih. Pada pengemasan yang bernuansa cokelat dan putih tersebut tersedia love-notes untuk menuliskan pesan untuk orang yang dituju. Wah, romantis! (HF)

Sumber: http://hitsss.com/brownies-manten-jualan-brownies-pakai-aplikasi-android-dan-ios/

Cara Menjalani Pola Hidup Sehat yang Benar
Bagaimana cara menjalani pola hidup sehat yang benar pasti merupakan suatu pertanyaan yang sering anda tanyakan keberbagai nara sumber yang berhubungan dengan kesehatan bukan ?
Pertanyaan ini juga yang membuat setiap orang menjadi penasaran, bagaimana bisa menjadi sehat, jika pola hidupnya saja tidak sehat. Sebenarnya pola hidup yang benar tidaklah susah akan tetapi juga tidaklah gampang, karena setiap mempunyai kondisi tubuh yang berbeda-beda.
Ada yang bergadang tiap hari, akan tetapi tidak mempengaruhi kesehatannya, akan tetapi ada yang bergadang hanya 1 hari langsung mengalami demam atau meriang. Hal ini disebabkan daya tahan seseorang yang berbeda-beda. Akan tetapi pada dasarnya setiap manusia pasti mengingikan pola hidup yang sehat, hanya saja mereka tidak mengetahui bagaimana caranya.
Cara Menjalani Pola Hidup Sehat yang Benar
Disini saya akan berbagi pengalaman bagaimana cara menjalani pola hidup sehat yang baik dan benar menurut berbagai sumber kesehatan yang ada sekarang. Langsung saja :
1. Tidur yang teratur dan cukup, pola tidur yang sehat sebenarnya dari jam 9 malam sampai dengan jam 6 pagi. Karena jam tidur yang normal dan sehat adalah 8-9 jam. Jika anda tidur kurang atau lebih dari 8-9 jam, akan ada kemungkinan anda akan mengalami sesuatu yang membuat anda menjadi tidak sehat. Jadi ingat!!! tidur yang yang cukup itu sangat penting.
2. Makan makanan 4 sehat 5 sempurna juga merupakan pola makan yang sehat, dan minimal 3 kali sehari. Adapun makanan 4 sehat 5 sempurna tidak perlu saya jelaskan disini, akan dapat mengetahui dengan melihat artikel saya yang lain disini : Apa Saja Menu Makanan 4 Sehat 5 Sempurna yang Baik Kesehatan
3. Jika anda seorang pekerja, jam kerja anda maksimal 10 jam saja, jika lebih dari itu ditakutkan tubuh anda akan rentan terhadap penyakit karena terlalu berlebihan dalam penggunaannya dalam bekerja.
Karena tubuh memerlukan istirahat juga untuk mengembalikannya ke keadaan yang normal kembali. Jika tubuh anda dalam keadaan tidak normal, makanya ada kemungkinan anda akan mudah terserang penyakit.
4. Jauhi rokok, makanan cepat saji, minuman beralkohol dan lainnya yang dapat merusak organ tubuh anda.

Dan yang terakhir teratur dalam berolahraga, minimal 3 kali seminggu. Karena olahraga sangatlah penting dalam menjaga keseimbangan tubuh anda dan dapat menjaga tubuh anda tetap bugar.

Sumber:
http://www.duniainformasikesehatan.com/2013/06/cara-menjalani-pola-hidup-sehat-yang.html

Tips Menjalani Gaya Hidup Sehat Dengan Mudah
Apa Anda pernah membayangkan untuk mencoba menjalani gaya hidup sehat? Pola hidup yang kaya akan aturan, baik dalam segi makanan, perilaku dan aktivitas yang dikerjakan setiap hari. Menjalani gaya hidup yang lebih sehat membutuhkan kemauan dan tekad yang besar akan kualitas hidupnya, bagaimana pun gaya hidup mencerminkan kesehatan dan kesuksesan pada diri seseorang. Menjadi seseorang dengan pribadi yang 100% menganut sistem hidup yang sehat tidak semudah itu diperoleh, harus rela untuk menahan diri dari berbagai godaan untuk berhenti bahkan tidak jarang godaan yang paling berat berasal dari lingkungan dekat, seperti keluarga. Untuk membantu Anda para pemula agar menjadi pribadi yang 100% menganut gaya hidup yang sehat, silahkan simak tips rahasianya di bawah ini:
Ubah pola pikiran. Sama halnya ketika Anda berupaya untuk menguasai bahasa Inggris atau sama halnya ketika Anda bertekad untuk menikah di usia 25, untuk bisa menjani hidup yang lebih sehat, Anda butuh tekad dan keyakinan yang sangat besar sehingga meskipun banyak tantangan dan rintangan membentang yang menghalangi jalan Anda memperoleh kesuksesan, Anda tidak akan mudah goyah dan tetap serius untuk menjalankan program gaya hidup yang lebih baik ini.

Kemampuan. Anda bisa mencoba untuk melakukan gerakan hidup sehat bila Anda memang memilki kemampuan untuk menjaninya. Setiap orang memilki batas kemampuan yang berbeda, antara pria dan wanita, mungkin kebanyakan pria lebih suka menghabiskan waktu olahraganya di gym, sedangkan wanita lebih suka menghabiskan waktu luangnya dengan berbelanja pakaian. Keduanya merupakan aktivitas yang berbeda, namun secara tidak langsung aktivitas belanja yang dilakukan oleh para wanita juga mengandung nilai olahraga, seperti ketika wanita berjalan kesana kemari hanya untuk mendapatkan pakaian yang diinginkannya.

Banyak masukan agar Anda bisa menjalankan gaya hidup sehat ini sebaik mungkin. Pilih seseorang yang memang ahli pada bidang ini atau pilih saja seseorang yang sudah berhasil menjani hidup dengan gaya hidup yang sehat. Masukan ini dibutuhkan agar Anda bisa memetik pelajaran dari pengalaman orang lain sehingga Anda ikut terpacu untuk melakukan dengan serius program menyehatkan kualitas kesehatan dan hidup Anda.
Makanan yang sehat menjadi pertimbangan yang sangat penting, tidak bisa disebut sebagai gaya hidup sehat jika pada kenyataannya Anda masih rutin mengkonsumsi makanan berkolestrol tinggi, minuman bersoda, mengandung banyak pemanis dan pewarna buatan dan segala unsur makanan yang tidak menyehatkan lainnya.
Oleh karena itu, sebelum Anda memutuskan mengubah pola hidup sebaiknya Anda mencoba terlebih dahulu untuk menghentikan konsumsi makanan dan minuman yang tidak sehat tersebut sehingga Anda tidak akan terkejut ketika dihadapkan secara langsung pada aturan gaya hidup sehat yang telah dianut sejak lama.
Buah dan sayuran, khususnya yang berwarna hijau merupakan jenis makanan sehat yang dianjurkan untuk Anda konsumsi secara teratur setiap hari, namun Anda masih diperkenankan untuk mengolah makanan dari bahan protein nabati dll.

Sumber: http://www.duniainformasikesehatan.com/2014/04/tips-menjalani-gaya-hidup-sehat-dengan.html

5 Cara Sederhana untuk Memulai Gaya Hidup Sehat
Jakarta – Hidup sehat seharusnya sudah mulai diterapkan sejak dini. Namun, banyak yang gagal atau malas menjalani pola hidup tersebut karena dianggap sulit dan menyusahkan. Padahal, tidak perlu dimulai dengan sesuatu yang berat. Dengan lima cara sederhana ini, maka Anda bisa memulai hidup sehat dan menjadikannya sebagai kebiasaan.
1. Naik Tangga
Kebiasaan naik-turun menggunakan tangga, bukan dengan eskalator akan lebih menyehatkan tubuh. Jika rutin dilakukan, maka berat badan bisa turun yang berdampak pada menurunnya tekanan darah, mengurangi kadar kolesterol jahat dan mengurangi risiko peradangan organ dalam. Artinya, kemungkinan terkena stroke dan serangan jantung akan jauh lebih sedikit.
2. Membatasi Konsumsi Gula
Rasa manis memang bisa lebih menarik di lidah, entah itu konsumsi teh dengan gula, sirup atau kue. Namun, sebaiknya mulai kurangi konsumsi gula. Gula dapat meningkatkan risiko obesitas, diabete dan juga jantung. Selain itu, konsumsi gula berlebih juga menyebabkan kulit cepat keriput. Molekul berbahaya yang terkandung dalam gula putih dapat merusak kolagen, komponen penting yang menjaga kulit tetap muda dan kenyal.
3. Makan Siang dengan Sayuran
Jika menu makan siang Anda lebih banyak sayuran segar dibandingkan nasi, daging atau telur, maka Anda telah mengurangi risiko terkena penyakit serius secara drastis. Orang-orang yang rajin makan sayur jarang terkena gangguan kesehatan seperti sakit jantung, diabetes atau kanker. Hasil studi dari World Health Organization menemukan bahwa 63 persen kematian di dunia pada 2008 disebabkan oleh tiga penyakit yang disebutkan di atas dan itu dipicu oleh pola makan tidak sehat. Sebagai perbandingan, orang yang budaya makannya berbabis sayuran sebagai makanan utama, masyarakatnya lebih jarang sakit ketimbang merkea yang hidup di lingkungan pemakan daging atau nasi.
4. Pakai Minyak Zaitun Saat Masak
Mengganti minyak kelapa sawit dengan minyak zaitun atau biji bunga matahari akan menurunkan risiko terkena penyakit jantung, menurut studi yang dilaporkan dalam British Medical Journal. Jika ingin memakan gorengan, pilihlah makanan yang dimasak dengan minyak sehat, dengan cara ditumis. Plih tapas ala Meksiko ketimbang kentang goreng, atau tumisan sayur daripada pisang goreng.
5. Meditasi
Meditasi dapat engurangi tekanan darah tinggi hingga gejala stres dan depresi. Dalam sebuah studi terungkap, meditasi secara rutin selama delapan minggu, membuat seseorang akan mejadi lebih penyayang dan merasa bahagia. Fokus pada latihan pernapasan dan kesadaran diri akan melatih area otak yang mengatur emosi. Sehingga Anda akan lebih banyak memiliki pikiran dan emosi positif.

Sumber: http://wolipop.detik.com/read/2014/05/10/134206/2578983/1135/5-cara-sederhana-untuk-memulai-gaya-hidup-sehat

7 Gaya Hidup Sehat Untuk Mencegah Kematian Dini
Gaya hidup sehat menjadi hal yang sangat sulit di praktekkan pada era sekarang ini. Aktivitas yang sangat padat, membuat sebagian orang melupakan bahwa kesehatan tubuh memiliki nilai yang teramat penting dalam hidup ini. Namun, jikalau kita berpikir jernih, maka gaya hidup sehat itu sebenarnya mudah kita lakukan di setiap detik hidup kita. Langkah awalnya yaitu dengan mengetahui gaya hidup sehat yang benar. Lalu bagaimanan gaya hidup sehat yang benar untuk mencegah kematian dini…???
Sahabat, tips kesehatan. Mungkin gaya hidup sehat yang benar di pikiran anda yaitu dengan memakan makanan sehat, rutin berolahraga pagi dan juga tidak merokok. Ya memang, ke tiga elemen tersebut merupakan beberapa kiat agar seseorang selalu sehat dan bugar di sepanjang hari. Namun, bukan itu saja, gaya hidup sehat yang dimaksud. Sebab masih ada berbagai tips gaya hidup sehat yang harus anda praktekkan dalam kehidupan sehari-hari. Tips kesehatan, Berikut ini gaya hidup sehat untuk mencegah kematian dini :
1. Selalu aktif. Dalam hal ini usahakan untuk tidak sering duduk terlalu lama baik itu di depan komputer atau menonton acara televisi yang anda sukai. Anda dapat memulainya dengan mengurangi waktu untuk berlama-lama di depan komputer atau televisi dengan melakukan aktivitas lainnya yang membuat anda tetap bergerak dan aktif.
2. Sinar matahari pagi sangat baik untuk kesehatan tubuh anda. Ini dikarenakan, dengan terpapar sinar matahari pagi, maka tubuh akan terpacu untuk memproduksi vitamin D. Vitamin D pada tubuh memiliki fungsi untuk menangkal penyakit jantung, aneka jenis kanker dan juga mencegah pengeroposan tulang dini.
3. Menambah atau memperbanyak untuk mengkonsumsi buah-buahan dan sayur-sayuran sangat baik untuk menutrisi tubuh anda. Berbagai buah-buahan seperti jeruk, semangka, pepaya, apel dan lain-lain serta aneka sayuran seperti bayam, sawi dan lain-lain merupakan buah-buahan dan sayur-sayuran yang dimaksud.
4. Rutin berolahraga merupakan salah satu faktor yang dapat membuat badan anda lebih sehat dan fit sepanjang hari. Anda dapat memulainya, dengan menyisihkan waktu pagi untuk berolahraga pagi seperti berjalan, berlari maupun bersepeda santai.
5. Stop merokok. Ini merupakan salah gaya hidup sehat yang sulit di lakukan bagi mereka yang menjadikan kebiasaan merokok sebagai kebutuhan. Tapi tahukah anda, kandungan rokok sangat tidak bersahabat untuk kesehatan tubuh anda.
6. Mulai hari anda dengan tertawa atau tersenyum. Karena aktivitas tersenyum maupun tertawa berdampak sangat baik untuk meningkatkan daya tahan tubuh serta kesehatan tubuh itu sendiri. Anda dapat memulainya dengan sering bercanda dengan teman atau menonton berbagai acara komedi di televisi.
7. Usahakan untuk membatasi, mengurangi atau bahkan menghilangkan untuk mengkonsumsi aneka makanan siap saji. Dengan mulai memasak makanan sendiri, anda akan lebih mengetahui, apakah makanan yang anda masak baik untuk kesehatan tubuh anda atau malah berdampak buruk bagi kesehatan tubuh anda

Sumber: http://intips-kesehatan.blogspot.co.id/2013/07/gaya-hidup-sehat-cegah-kematian-dini.html

Tips Kesehatan: 6 Kebiasaan Positif Menuju Gaya Hidup Sehat
Gaya hidup sehat merupakan faktor penting untuk meningkatkan kesejahteraan hidup Anda.
Hidup dengan cara yang sehat dapat mencegah masalah kesehatan seperti tekanan darah tinggi dan obesitas.
Ada banyak kebiasaan dan rutinitas yang dapat dilatih untuk menjalani gaya hidup sehat.
Di pasaran, tersedia pula berbagai produk suplemen dan vitamin yang dapat membantu menjaga kesehatan.
Berikut adalah kebiasaan tambahan yang dapat membantu Anda menjalani gaya hidup sehat:
1. Jaga pola makan
Tubuh akan selalu terpengaruh oleh makanan yang dikonsumsi. Diet sehat harus mengandung jumlah nutrisi yang cukup. Selain itu, perhatikan jenis makanan dan pola diet Anda.
Selalu ingat untuk memeriksa label makanan yang Anda beli , juga bagaimana makanan tersebut harus dimasak. Utamakan untuk mengukus atau memanggang makanan alih-alih menggorengnya.
2. Minum cukup air
Minumlah setidaknya 6 sampai 8 gelas air setiap hari. Minum lebih banyak air setelah Anda melakukan aktivitas fisik berat seperti olahraga.
Minum yang cukup akan membantu menggantikan air yang hilang dan juga membersihkan racun dari tubuh.
Minum banyak air amat dianjurkan, akan tetapi kurangi konsumsi soda dan minuman berkafein.
3. Cukup olahraga
Olahraga teratur membuat kondisi fisik terlalu terjaga. Olahraga juga membantu Anda terbebas dari ketegangan mental.
Manfaat lain olahraga termasuk melancarkan sirkulasi darah, mengencangkan dan memperkuat otot, dan meningkatkan kadar oksigen tubuh.
Olahraga bisa dimulai dengan latihan sederhana seperti berjalan cepat, jogging, berenang, dan bersepeda.
4. Singkirkan kebiasaan buruk
Mengembangkan kebiasaaan baik saja tidaklah cukup. Anda juga harus menyingkirkan kebiasaan buruk seperti merokok atau mengkonsumsi alkohol.
Mintalah bantuan pada teman atau anggota keluarga untuk membantu menyingkirkan kebiasaan buruk tersebut.
5. Pertahankan sikap positif dan optimis terhadap kehidupan
Perspektif akan mempengaruhi bagaimana Anda menjalani hidup sehari-hari. Tumbuhkan sikap optimis dan hindarkan bergaul dengan orang-orang yang pesimis.
Daripada berpikir tentang apa yang salah dengan hidup, pikirkan tentang apa yang benar dalam hidup Anda.
6. Melakukan hobi
Melakukan hobi tidak hanya meningkatkan kekuatan pikiran, tetapi juga meringankan Anda dari stres. Lakukan hobi yang disukai. Hobi tidak harus mahal tapi apa yang benar-benar Anda sukai.[]
Sumber: http://www.amazine.co/3396/tips-kesehatan-6-kebiasaan-positif-menuju-gaya-hidup-sehat/

5 Tips Cara Hidup Sehat yang Perlu Anda Ketahui
May 3, 2014 – Hidup Sehat – Tagged: Hidup Sehat – 0 Komentar
Hidup sehat adalah dambaan setiap insan manusia, tapi bagaimana bisa hidup sehat tapi tidak mau menjalani pola hidup yang sehat? tentu saja impian memiliki tubuh yang sehat tidak akan tercapai. Bagaimana mewujudkannya?
Untuk memiliki tubuh yang sehat ada banyak cara yang bisa anda jalani, namun memang tidak mudah untuk mengubah pola hidup yang tidak teratur menjadi pola hidup yang sehat.
Akan ada banyak kendala yang harus anda hadapi, biasanya kendala terbesar adalah rasa malas dan seringnya menyepelekan pentingnya kesehatan.
Maka dari itu dibutuhkan niat yang cukup kuat dari dalam diri anda, jika sudah ada niat maka selanjutnya hal yang harus dimiliki oleh diri adalah kemauan, dengan begitu akan tercipta kemampuan dalam menjalani pola hidup sehat yang anda inginkan. Untuk itu kami telah merangkum beberapa tips cara hidup sehat untuk anda.
5 Tips Cara Hidup Sehat yang Perlu Anda Ketahui
1. Menjaga Kebersihan
Kebersihan adalah faktor utama yang menunjang kesehatan, jika kurang memperhatikan kebersihan baik kebersihan diri maupun kebersihan lingkungan maka akan sangat mudah penyakit bersarang pada tubuh anda. Salah satu cara menjaga kebersihan adalah dengan mencuci tangan.
Sangat wajib hukumnya mencuci tangan sebelum makan, agar kuman yang menempel di tangan tidak menempel di makanan.
Membersihkan seluruh isi rumah juga sangat penting karena bukan kesehatan anda saja yang harus dijaga, kesehatan seluruh anggota keluarga juga harus dijaga.
Jika salah satu anggota keluarga ada yang sakit, maka ada potensi anda dan anggota keluarga yang lainnya ikut tertular, ini sangat merepotkan karena jika sudah sakit pasti akan menghambat segala aktifitas yang ingin dikerjakan. Masih banyak lagi yang anda bisa lakukan untuk menjaga kebersihan.
2. Perbanyak Gerakan Tubuh
Olahraga mungkin salah satu cara yang sering digunakan oleh orang-orang untuk membuat hidupnya jauh lebih sehat.
Entah itu lari pagi bersama teman-teman, bermain bola basket/futsal/volley, fitness, dll. Semua itu adalah langkah yang sangat baik dan harus dilakukan jika ingin memiliki hidup yang sehat.
Namun tak hanya olahraga seperti itu saja yang harus anda lakukan, semua hal yang membuat anda banyak bergerak tentu akan menyehatkan.
Misalnya menyelesaikan pekerjaan rumah, atau bermain game yang membuat banyak keringat keluar dari tubuh anda. Intinya anda tidak boleh malas untuk bergerak!
Mengapa demikian? karena banyak penyakit yang bisa timbul nantinya bila anda malas bergerak, contohnya serangan jantung, diabetes, hipertensi, osteoporosis, kanker payudara dan masih banyak lagi. Tentunya anda tak menginginkan hal tersebut bukan?
3. Jagalah Pola Makan
Anda pasti sering mendengar istilah “you are what you eat!”, yang artinya kamu adalah apa yang kamu makan. Apa maksud dari istilah tersebut? Coba kita perhatikan istilah “GIGO” dalam dunia IT dari sisi positif yakni “Gold In Gold Out” atau dari sisi negatifnya “Gerbage In Gerbage Out”.
Jika yang di input adalah emas maka yang keluar adalah emas, tapi jika yang di input adalah sampah maka yang keluar adalah sampah pula.
Begitu pula dengan tubuh anda, jika tubuh anda mengkonsumsi makanan/minuman yang tidak bergizi maka akan menyebabkan berbagai penyakit bermunculan.
Sedangkan jika anda mengkonsumsi makanan / minuman yang menyehatkan maka akan berdampak baik untuk tubuh. Jika anda ingin sehat penuhilah syarat 4 sehat 5 sempurna!
Kurangilah konsumsi anda terhadap junk food, minuman bersoda, makanan berkolestrol tinggi, minuman beralkohol, makanan/minuman berpengawet, dan berbagai jenis makanan/minuman lainnya yang berdampak negatif untuk tubuh. Makanlah makanan yang bergizi sesuai dengan kebutuhan anda.
Jangan makan secara berlebihan karena walaupun apa yang anda makan adalah makanan yang bergizi tapi jika anda mengkonsumsinya secara berlebihan maka dapat menimbulkan berbagai penyakit.
4. Perhatikan Waktu Tidur
Untuk anda yang sangat sibuk menjalani aktifitas sehari-hari mungkin terkadang lupa untuk menghargai waktu istirahat.
Pola tidur anda berantakan, tidur larut malam kemudian bangun di pagi hari. Padahal kurangnya istirahat dapat mengganggu konsentrasi.
Jika sudah begitu usahakan untuk mencuri-curi waktu luang di siang hari, waktu yang tepat mungkin pada saat jam istirahat.
Cobalah untuk mengistirahatkan tubuh anda sekitar 20 menit, karena dengan tidur sejenak pikiran akan kembali jernih dan anda akan memiliki konsentrasi yang baik.
Tapi usahakan anda bisa mengatur pola tidur anda sebaik-baiknya, anda harus bisa mengatur jadwal kegiatan anda serapi mungkin dengan membuat segmentasi yang berisi kegiatan apa saja yang harus anda kerjakan terlebih dahulu (penting), sampai dengan kegiatan apa yang bisa dikerjakan di lain waktu. Dengan begitu anda bisa tidur lebih cepat karena sudah memperhitungkan segalanya.
5. Bila Ingin Buang Air Jangan Ditahan
Seperti yang kita ketahui bahwa urin dan feses mempunyai fungsi yang besar yaitu membuang racun dari dalam tubuh.
Banyak dari kita yang seringkali menahan buang air kecil/besar dikarenakan beberapa sebab, entah karena tidak nyaman dengan toiletnya atau mungkin karena malas.
Namun perlu anda ketahui jika hal tersebut sudah mulai menjadi kebiasaan bagi anda, hentikanlah!
Terdapat beberapa akibat yang bisa terjadi karena terlalu lama menahan buang air kecil yaitu infeksi kandung kemih, infeksi ginjal atau yang lebih parah lagi gagal ginjal.

Sumber: http://langkahsehat.com/5-tips-cara-hidup-sehat-yang-perlu-anda-ketahui/

13 November 201513 November 2015 by itafibri Meninggalkan komentar