Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim s As String

s = Mid(txtkb.Text, 1, 1)
If s = “A” Then
txtpen.Text = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
txtpen.Text = “Indah Surabaya”
ElseIf s = “S” Then
txtpen.Text = “Salemba Empat”
ElseIf s = “E” Then
txtpen.Text = “Elek Media Koputindo”
ElseIf s = “M” Then
txtpen.Text = “Maxicom”
End If

s = Mid(txtkb.Text, 3, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Andra Setiawan”
txthrg.Text = “75900”

ElseIf s = “EDP” Then
txtjb.Text = “Elektronik Data Procissing”
txtpeng.Text = “Desi Istiqomah”
txthrg.Text = “62000”

ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sandy Fitrajaya”
txthrg.Text = “42000”

ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Tri Indah Sari”
txthrg.Text = “62000”

ElseIf s = “RPL” Then
txtjb.Text = “Rekayasa Prangkat Lunak”
txtpeng.Text = “Ernita”
txthrg.Text = “83000”
End If
txttt.Text = “20” & Right(txtkb.Text, 2)
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Command1_Click(Index As Integer)
Dim s As String
txtth.Text = Left(Text2.Text, 4)
s = Mid(Text2.Text, 5, 1)
If s = “A” Then
txtgol.Text = “A”
txtjb.Text = “Manager”
txtgp.Text = “4000000”
txttj.Text = “1025000”
ElseIf s = “B” Then
txtgol.Text = “B”
txtjb.Text = ” Ka. Seksi”
txtgp.Text = “3500000”
txttj.Text = “975000”
ElseIf s = “C” Then
txtgol.Text = “C”
txtjb.Text = “Staff”
txtgp.Text = “3000000”
txttj.Text = “925000”
End If
s = Mid(Text2.Text, 7, 1)
If s = “S” Then
txtkod.Text = “S”
txtst.Text = “Singel”
ElseIf s = “M” Then
txtkod.Text = “M”
txtst.Text = “Menikah”
ElseIf s = “J” Then
txtkod.Text = “J”
txtst.Text = “Janda”
ElseIf s = “D” Then
txtkod.Text = “D”
txtst.Text = “Duda”
End If
s = Mid(Text2.Text, 9, 3)
If s = “KEU” Then
txtbg.Text = “Accounting”
ElseIf s = “ADM” Then
txtbg.Text = “Administrasi”
ElseIf s = “SDM” Then
txtbg.Text = “General Affair”
ElseIf s = “EDP” Then
txtbg = “IT Unit”
ElseIf s = “Spm” Then
txtbg.Text = “Security”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

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

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jr, ps As String
txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
jr = “sistem informasi”
ElseIf A = “2” Then
jr = “manajemen informatika”
ElseIf A = “3” Then
jr = “teknik informatika”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
txtjurusan.Text = jr
A = Mid(Txtnpm.Text, 4, 2)
If A = “00” Then
ps = “strata satu”
ElseIf A = “01” Then
ps = “diploma empat”
ElseIf A = “02” Then
ps = “diploma tiga”
ElseIf A = “03” Then
ps = “diploma dua”
End If
txtprogramstudy.Text = ps
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

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

Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim s As String

s = Mid(txtkb.Text, 8, 1)
If s = “A” Then
txtpen.Text = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
txtpen.Text = “Indah Surabaya”
ElseIf s = “S” Then
txtpen.Text = “Salemba Empat”
ElseIf s = “E” Then
txtpen.Text = “Elek Media Koputindo”
ElseIf s = “M” Then
txtpen.Text = “Maxicom”
End If

s = Mid(txtkb.Text, 1, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Fadiyah Ulfa”
txthrg.Text = “75900”

ElseIf s = “EDP” Then
txtjb.Text = “Elektronik Data Procissing”
txtpeng.Text = “Nurul Agustina”
txthrg.Text = “62000”

ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Rian Hidayat”
txthrg.Text = “42000”

ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Siti Nur Khotimah”
txthrg.Text = “62000”

ElseIf s = “RPL” Then
txtjb.Text = “Rekayasa Prangkat Lunak”
txtpeng.Text = “Winda Erlianti”
txthrg.Text = “83000”
End If
txttt.Text = “20” & Mid(txtkb.Text, 5, 2)
End Sub

Private Sub ckbold_Click()
If ckbold.Value = 1 Then
Label1.FontBold = True
ElseIf ckbold.FontBold = 0 Then
Label1.FontBold = False
End If
End Sub

Private Sub ckitalic_Click()
If ckitalic.Value = 1 Then
Label1.FontItalic = True
ElseIf ckitalic.Value = 0 Then
Label1.FontItalic = False
End If
End Sub

Private Sub ckstriketout_Click()
If ckstriketout.Value = 1 Then
Label1.FontStrikethru = True
ElseIf ckstriketout.Value = 0 Then
Label1.FontStrikethru = False
End If
End Sub

Private Sub ckunderline_Click()
If ckunderline.Value = 1 Then
Label1.FontUnderline = True
ElseIf ckunderline.Value = 0 Then
Label1.FontUnderline = False
End If
End Sub

Private Sub cmd_Click()
Unload Me
End Sub

Private Sub optblue_Click()
If optblue.Value = True Then
Label1.ForeColor = vbBlue
End If
End Sub

Private Sub optgreen_Click()
If optgreen.Value = True Then
Label1.ForeColor = vbGreen
End If
End Sub

Private Sub optred_Click()
If optred.Value = True Then
Label1.ForeColor = vbRed
End If
End Sub

Private Sub optyellow_Click()
If optyellow.Value = True Then
Label1.ForeColor = vbYellow
End If
End Sub

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

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

Private Sub Command3_Click()
Unload Me
End Sub

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

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

Tablet Polaroid M7 yang Murah Bukan Murahan

Tribunnews.com – Kamis, 10 Januari 2013 20:30 WIB

Tweet

Share

 Text  +  –

IST

TRIBUNNEWS.COM, LAS VEGAS – Polaroid tak mau ketinggalan bermain di ranah tablet. Vendor yang terkenal memproduksi kamera ini menelurkan tablet Android, M7. Polaroid M7 dibanderol dengan harga ekonomis, yakni di kisaran 130 dollar AS atau Rp 1,3 jutaan.

Di ajang Consumer Electronics Show (CES) 2013, pengunjung dapat melihat langsung wujud Polaroid M7. Dengan layar 7 inci yang sanggup menyemburkan resolusi 1280×800 dengan 216ppi.

Seperti dikutip Tribunnews.com dari Teknoup, Kamis (10/1/2013), Polaroid mengklaim tablet besutannya selevel dengan iPad mini tapi dapat dimiliki dengan harga terjangkau.

Dengan kapasitas media penyimpanan 8GB dengan opsi slot memori tambahan, Polaroid M7 juga dilengkapi kamera 2 megapiksel serta fitur konektivitas WiFi dan Bluetooth. Tablet berbasis sistem operasi Android 4.1 Jelly Bean itu bakalan dipasarkan di musim semi 2013.

 

sumber : http://www.tribunnews.com/2013/01/10/tablet-polaroid-m7-yang-murah-bukan-murahan

Ponsel Membuat Orang Tak Peduli Sekelilingnya

Tribunnews.com – Senin, 7 Januari 2013 14:46 WIB

Share

 Text  +  –

DailyMail

TRIBUNNEWS.COM, JAKARTA – Bangun sudah liat ponsel, menjelang tidur pun masih memegang ponsel. Tak heran bila orang zaman sekarang tingkat ketergantungan terhadap ponsel begitu tinggi. Dari semua gadget yang dimiliki, bisa jadi ponsel-lah yang paling intim.

Ponsel telah membuat orang terpukau. Perangkat genggam itu mengubah cara orang berkomunikasi, memudahkan saling berbagi foto, video, sampai suara, ke seluruh dunia.

Dengan akses ke internet, aplikasi, games dan bahkan perbankan pada ponsel, orang jarang menghabiskan waktu menatap lingkungan mereka.

Sebaliknya, dengan kepala tertunduk, mereka terlalu serius menatap layar ponsel. Hampir tak ada kepedulian lagi terhadap orang di sekeliling.

Foto-foto yang dikutip DailyMail dari seorang peneliti ponsel dari Finlandia ini telah menunjukkan perilaku orang-orang dari semua lapisan masyarakat terhadap ponsel mereka. Foto-foto itu memperlihatkan betapa ponsel telah mengubah cara orang berinteraksi dengan dunia sekitarnya.

 

sumber : http://www.tribunnews.com/2013/01/07/ponsel-membuat-orang-tak-peduli-sekelilingnya

Google Pasang Peringatan Virus Malware pada Situs Pengunggah Foto Ini

Tribunnews.com – Senin, 31 Desember 2012 18:12 WIB

Share

 Text  +  –

Istimewa

Malware.

Berita Terkait: Cybercrime

• 63 Persen Laptop dengan Windows Bajakan Terinfeksi Malware!
• Program Berbahaya Ini Dirancang Mencuri Data, Waspadalah!
• ‘Foto Vulgar’ Mikha Tambayong Tak Bikin Keluarganya Marah
• Fakta Survei: 39 Persen Pengguna Jejaring Sosial Tertipu!
• Setiap Satu Detik Muncul 18 Korban Kejahatan Dunia Maya

Laporan Wartawan Tribunnews.com, Agustina Rasyida

TRIBUNNEWS.COM, JAKARTA
Tidak hanya situs berita yang terkena serangan virus malware. Situs atau layanan pengunggah foto pun tak luput dari ancaman tersebut. Seperti yang dialami oleh TwitPic.

Jika Anda mencoba mengunggah gambar atau foto dan video melalui TwitPic menggunakan browser Google Chrome pada Minggu (30/12), kemungkinan besar Anda mengalami masalah. Pasalnya Google telah memasang peringatan malware (malware warning).

Peringatan ini dilakukan dimana pun pengguna mencoba mengakses TwitPic, meskipun langsung link dan embed gambar masih bekerja. Pihak TwitPic langsung menghubungi Google, namun mereka tak menjelaskan peringatan tersebut karena hacker atau tidak.

“Bekerja untuk memperbaiki malware dari pemberitahuan Google Chrome ketika mengunjungi Twitpic.com adalah tidak benar atau tidak terjadi, saat ini terus mencoba menghubungi Google,” tulis TwitPic (@TwitPic) dalam akunnya di Twitter, Minggu (30/12/2012) waktu setempat.

Twitpic akan terus mengabarkan perkembangan terbaru, karena sampai saat ini pengguna layanannya tidak dapat mengguh foto. Sementara itu, untuk mengakses feed, pengguna dapat menggunakan layanan lain seperti TweetDeck dan aplikasi social sharing lainnya yang tidak terakses melalui Google Chrome.

“Kami telah mendengar dari Google dan mereka telah menghapus blok malware. Akses ke Twitpic harus dikembalikan,” tulis TwitPic pada Senin (31/12/12).

 

sumber : http://www.tribunnews.com/2012/12/31/google-pasang-peringatan-virus-malware-pada-situs-pengunggah-foto-ini