Latest Entries »

Slide1

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

Slide1

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

Slide1

Private Sub Command1_click()
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 = “manajer”
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 = “staf”
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”
txtkod.Text = “j”
txtst.Text = “janda”
txtkod.Text = “d”
txtst.Text = “duda”
End If
s = Mid(Text2.Text, 9, 3)
If s = “keu” Then
txtbg.Text = “accaunting”
ElseIf s = “adm” Then
txtbg.Text = “administrasi”
ElseIf s = “sdm” Then
txtbg.Text = “general affairi”
ElseIf s = “edp” Then
txtbg.Text = “it unuit”
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 Text10_Change()

End Sub

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

Slide1

Private Sub Cmdbatal_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim A, jr, ps As String
txttm.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
txtjur.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
txtps.Text = ps
txtnu.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub txtnm_k()

End Sub

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

Slide2

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

Slide1
Private Sub Checkbold_Click()
If Checkbold.Value = 1 Then
Label1.FontBold = True
ElseIf Checkbold.Value = 0 Then
Label1.FontBold = False
End If
End Sub

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

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

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

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

VB Praktikum_3

Slide1

Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

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

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

End Sub

Slide1

Private Sub cmdbagi_Click()
Txthsl.Text = Val(Txtnl.Text) / Val(Txtna.Text)
End Sub

Private Sub Cmdkali_Click()
Txthsl.Text = Val(Txtnl.Text) * Val(Txtna.Text)
End Sub

Private Sub Cmdkurang_Click()
Txthsl.Text = Val(Txtnl.Text) – Val(Txtna.Text)
End Sub

Private Sub Cmdtambah_Click()
Txthsl.Text = Val(Txtnl.Text) + Val(Txtna.Text)
End Sub

Private Sub Command5_Click()
Txtnl.Text = “”
Txtna.Text = “”
Txthsl.Text = “”
Txtnl.SetFocus
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Txtnl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtna.SetFocus
End If
End Sub

Private Sub Txtna_Change()
If KeyAscii = 13 Then
Txthsl.SetFocus
End If
End Sub

Slide1

Private Sub Cmdbatal_Click()
Txtnpm.SetFocus
Txtnpm.Text = “”
Txtnm.Text = “”
Txtal.Text = “”
Txtjur.Text = “”
End Sub

Private Sub Command1_Click()
Txtnpm.SetFocus
Txtnpm.Text = “”
Txtnm.Text = “”
Txtal.Text = “”
Txtjur.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Txtal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjur.SetFocus
End If
End Sub

Private Sub Txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtal.SetFocus
End If
End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnm.SetFocus
End If
End Sub

produsen prosesor mobile dari Cina, Rockchip akhirnya mengumumkan produk prosesor quad core pertama miliknya ke pasaran. Prosesor tersebut adalah Rockchip RK3188. Menurut rencana, pihak perusahaan akan mulai mengirimkan prosesor tersebut kepada para partner mulai Februari mendatang.

 

Jika rencana tersebut berjalan mulus, maka tak menutup kemungkinan akan ada smartphone dan tablet dengan prosesor quad core dari Rockchip ini pada bulan Maret ataupun Mei.

Prosesor ini merupakan prosesor berbasis 28nm ARM Cortex-A9 dengan kecepatan hingga 1.8 GHz. Di dalamnya, terdapat empat core GPU Mali 400 dengan kecepatan hingga 500 MHz. Prosesor ini pun mendukung untuk OpenGL 2.0 dan Open VG 1.1.

Selanjutnya, RK3188 ini juga mampu memberikan dukungan tampilan video full HD 1080p dengan kecepatan 60 fps. Selain itu, prosesor ini juga mampu menampilkan dua panel dengan resolusi hingga 2048 x 1536 piksel.

Beberapa produsen smartphone dan tablet Android memang kerap menggunakan prosesor bikinan Rockchip. Salah satunya adalah Archos. Selain itu, terdapat pula beberapa produk tablet Android lokal dan Cina yang juga memakai prosesor Rockchip.

(Via Liliputing)

Cari obat Anti GAPTEK? tinggal klik Like FB kami & follow twitter kami:
Tampilkan topik terkait:
prosesor quad core,  prosesor quad core low end,  prosesor quad core murah,  prosesor quad core rockchip,  rk3188,  rockchip rk3188,

 

Artikel lain:go to homepage

 Oppo Find 5, Pengalaman Pertama Produsen Asal Cina Terhadap Kemampuan 1080p Full HD ?

Oppo Find 5, Pengalaman Pertama Produsen Asal Cina Terhadap Kemampuan 1080p Full HD ?(0)

Terlepas dari keikut sertaanya dalam ajang CES 2013 baru-baru ini, produsen Oppo Mobile yang mungkin masih asing bagi Anda kabarnya baru saja telah memamerkan kembali armada phablet terbaru yang sempat dirilisnya tahun lalu yaitu Oppo Find 5. Dari semakin banyaknya phablet yang menjejali pasaran akhir-akhir ini, tampak tak menyurutkan sedikitpun niat Oppo Mobile untuk melepas

Tobii Gaze, Teknologi Canggih untuk Mengoperasikan Komputer Menggunakan Pandangan Mata

Tobii Gaze, Teknologi Canggih untuk Mengoperasikan Komputer Menggunakan Pandangan Mata(0)

Saat ini, mouse merupakan perangkat yang praktis untuk menggunakan sebuah komputer, di samping layar sentuh tentunya. Namun, kalau Anda ingin mencoba hal baru, Anda bisa menggunakan teknologi terbaru yang dipamerkan oleh Tobii, yakni teknologi mengoperasikan komputer dengan pandangan mata bernama Tobii Gaze. Berkat teknologi yang satu ini, pengguna komputer tidak perlu mouse untuk mengarahkan pada

Aplikasi Xpress Browser Milik Nokia Ternyata Punya Risiko Membocorkan Data Pribadi

Aplikasi Xpress Browser Milik Nokia Ternyata Punya Risiko Membocorkan Data Pribadi(0)

Salah satu keunggulan dari handphone seri Asha dan Lumia milik Nokia adalah kecepatan browsing di internet. Kecepatan tersebut bisa didapatkan karena teknologi pada aplikasi Xpress Browser yang diciptakan oleh Nokia. Namun, ada rahasia dibalik aplikasi browser tersebut. Memang aplikasi ini memiliki kecepatan yang lebih baik dibanding browser lain. Namun, terdapat kemungkinan bahwa aplikasi ini akan

Saingi Samsung, Huawei Berencana Luncurkan Prosesor 8 Core di Tahun 2013

Saingi Samsung, Huawei Berencana Luncurkan Prosesor 8 Core di Tahun 2013(0)

Samsung membuat gebrakan dengan meluncurkan prosesor dengan 8 core pada ajang Consumer Electronic Show (CES) 2013. Dan, hal ini nampaknya bakal diikuti oleh para produsen elektronik lainnya. Salah satunya dan yang terbaru adalah Huawei. Dalam sebuah laporan yang diperoleh Engadget, Huawei dikatakan akan menggunakan desain arsitektur ARM Cortex-A15 untuk prosesor terbarunya itu. Belum jelas apakah

ZTE P897A10, Perangkat Pertama Dengan Quad Core Snapdragon 800 MSM8974

ZTE P897A10, Perangkat Pertama Dengan Quad Core Snapdragon 800 MSM8974(0)

Diklaim 75% lebih cepat ketimbang Snapdragron S4 Pro, menjadikan Snapdragon 800 terbaru digadang-gadang bakal menjadi idola baru bagi para pembuat perangkat mobile yang ada saat ini. Ya bagaimana tidak, pasalnya belum genap seminggu dirilis, kabarnya ZTE sudah menyatakan ketertarikan dan bahkan langsung tancap gas dengan lebih dulu guna memperkenalkan perangkat pertamanya yang mengadopsi keberadaan prosesor

Hasil Tes Benchmark, Lenovo K900 Jauh Ungguli Smartphone dengan Prosesor Quad Core Berbasis ARM

Hasil Tes Benchmark, Lenovo K900 Jauh Ungguli Smartphone dengan Prosesor Quad Core Berbasis ARM(0)

Lenovo IdeaPhone K900 memang bukanlah smartphone yang mengandalkan prosesor quad core. Handphone pintar yang satu ini menggunakan prosesor dual core milik Intel dengan kecepatan 2GHz. Namun jangan salah, meskipun prosesor tersebut ‘hanya’ dual core, performa yang dimilikinya ternyata jauh melebihi prosesor lain yang ada di pasaran. Paling tidak hal itulah yang nampak dalam hasil tes

Panasonic ToughPad FZ-G1, Tablet Durable Teringan & Tertipis Dengan Dukungan Ivy Bridge

Panasonic ToughPad FZ-G1, Tablet Durable Teringan & Tertipis Dengan Dukungan Ivy Bridge(0)

Dengan mengusung konsep Durable pada salah satu armada tablet paling barunya, Panasonic tampak unjuk gigi dengan menggelar tablet android terbaru yang didukung processor Intel Ivy Bridge pada ajang CES 2013. Adapun tablet tangguh debutan terbarunya tersebut dikenal dengan Panasonic ToughPad FZ-G1. Diklaim sebagai salah satu perangkat tablet tertipis dan teringan yang pernah ada di dunia

Allwinner A31, Processor Quad Core Berbasis Arsitektur Cortex-A7 Pertama Di Dunia

Allwinner A31, Processor Quad Core Berbasis Arsitektur Cortex-A7 Pertama Di Dunia(0)

Lagi-lagi, seakan tak ada habis-habisnya gebrakan yang dilakukan para vendor asal Cina akhir-akhir ini. Pasalnya tidak saja lihai menggoyang pasaran perangkat mobile, ternyata mereka kini juga mulai merambah pasaran chip. Ya dialah AllWinner Technology, salah satu pembuat chip asal Zhuhai – Cina, yang konon telah berhasil melahirkan processor mobile Quad-Core pertama di dunia yang menggunakan

read more

Author Baihaki, 12.01.2013, 02:00

Ponsel

Oppo Find 5, Pengalaman Pertama Produsen Asal Cina Terhadap Kemampuan 1080p Full HD ?(0)
ZTE P897A10, Perangkat Pertama Dengan Quad Core Snapdragon 800 MSM8974(0)
Hasil Tes Benchmark, Lenovo K900 Jauh Ungguli Smartphone dengan Prosesor Quad Core Berbasis ARM(0)
Tahun 2012 Xiaomi Berhasil Jual 7.19 Juta Handphone dengan Pengguna ROM MIUI 10 Juta Orang(0)
Kogan Agora 50, Handphone Android Layar Besar ala Galaxy Note dengan Harga Jauh lebih Murah(0)

read more

Browse Merk/Brand

Nokia
Blackberry
HTC
Samsung
Sony
Apple
Microsoft
Acer
Asus
Lenovo
Sharp
Toshiba
Huawei
ZTE
AMD
INTEL
Canon
Nikon

Advertising/Sponsor

Forum Diskusi Komputer
Punya masalah komputer, pemrograman atau CMS seperti WordPress? Nanya di forum kami saja
Statistik Twitter Indonesia
Direktori & Statistik Twitter
http://www.pengikut.com
Punya Twitter tapi pengikut masih dikit atau bingung ngikut siapa? Kunjungi Pengikut.com saja, bisa lihat ranking dan statistik twitter kamu juga

http://www.beritateknologi.com/prosesor-quad-core-low-end-rockchip-rk3188-bakal-datang-ke-pasaran-pada-kuartal-pertama-2013/

sumber :

Pasang Iklan Baris di sini?
Ingin iklan Anda nampang di sini dan jangkau ratusan ribu visitor per bulan? Hubungi kami lewat form kontak