tugas vb yahoo 1

 

 

 

1. module

code :

Option Explicit
Public constringADODC1 As String
Public constring As String
Public username As String
Public passworduser As String
Private Sub main()
constring = “Provider=Provider=SQLOLEDB.1;Password=10210026;Persist Security Info=True;User ID=Nur Aminudin;Initial Catalog=hotel;Data Source=KOMP1”
username = “Nur Aminudin”
passworduser = “10210026”
frmlogin.Show
End Sub

 

2.  Splash

code :

Option Explicit
Dim iSplash As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Frame1_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
iSplash = iSplash + 1
prghotel.Value = prghotel.Value + 1000 / 1000
If iSplash > 100 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 3000
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Load frmmenu
frmmenu.Show
frmmenu.SetFocus
Unload Me
End If
End Sub

 

3.  menu utama

code :

Private Sub mnuexit_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbCritical + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub mnujasa_Click()
frmjasa.Show
End Sub

Private Sub mnukamar_Click()
frmkamar.Show
End Sub

Private Sub mnutamu_Click()
frmtamu.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
frmtamu.Show
ElseIf Button.Index = 2 Then
frmkamar.Show
ElseIf Button.Index = 3 Then
frmjasa.Show
ElseIf Button.Index = 4 Then
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End If
End Sub

4. Entry Data Tamu

code :

Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub cmdprevious_Click()
Adodc1.Recordset.MovePrevious
End Sub

Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
txtkodetamu.SetFocus
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub CMDHAPUS_Click()
Adodc1.Recordset.Delete
bersih
End Sub

Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
txtkodetamu.SetFocus
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbtamu.mdb”
Adodc1.RecordSource = “tbtamu”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub bersih()
txtkodetamu.Text = “”
txtnamatamu.Text = “”
txtnoidentitas.Text = “”
txtnotelp.Text = “”
txtalamat.Text = “”
End Sub

Private Sub CMDBERSIH_Click()
bersih
End Sub

 

5. Entry Data Kamar

code :

 

Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub cmdprev_Click()
Adodc1.Recordset.MovePrevious
End Sub

Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
cbonokamar.SetFocus
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub CMDHAPUS_Click()
Adodc1.Recordset.Delete
bersih
cbonokamar.SetFocus
End Sub

Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
cbonokamar.SetFocus
End Sub

Private Sub Form_Activate()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbkamar.mdb”
Adodc1.RecordSource = “tbkamar”
bersih
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
bersih
Adodc1.ConnectionString = constring
Adodc1.username = username
Adodc1.Password = passworduser
Adodc1.RecordSource = “select * from tbkamar”
bersih
cbojeniskamar.AddItem “utama-1”
cbojeniskamar.AddItem “utama-2”
cbojeniskamar.AddItem “utama-3”
cbojeniskamar.AddItem “kelas-1”
cbojeniskamar.AddItem “kelas-2”
cbojeniskamar.AddItem “kelas-3”

cbonokamar.AddItem “2”
cbonokamar.AddItem “3”
cbonokamar.AddItem “4”
cbonokamar.AddItem “5”
cbonokamar.AddItem “9”
cbonokamar.AddItem “20”
cbonokamar.AddItem “21”
cbonokamar.AddItem “22”
cbonokamar.AddItem “23”
cbonokamar.AddItem “24”
cbonokamar.AddItem “25”
cbonokamar.AddItem “26”
cbonokamar.AddItem “27”
cbonokamar.AddItem “28”
cbonokamar.AddItem “29”
cbonokamar.AddItem “30”
cbonokamar.AddItem “31”
cbonokamar.AddItem “32”
cbonokamar.AddItem “33”
cbonokamar.AddItem “34”
cbonokamar.AddItem “35”
cbonokamar.AddItem “36”
cbonokamar.AddItem “37”
cbonokamar.AddItem “38”
cbonokamar.AddItem “39”

cbolantai.AddItem “I”
cbolantai.AddItem “II”
cbolantai.AddItem “III”

cbofasilitas.AddItem “televisi + 4 single bed”
cbofasilitas.AddItem “televisi + double + single spring bed”
cbofasilitas.AddItem “televisi + 3 single bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “single + double spring bed”
cbofasilitas.AddItem “2 single bed”
cbofasilitas.AddItem “3 single bed”
cbofasilitas.AddItem “double + single bed”

cbotarif.AddItem “150000”
cbotarif.AddItem “130000”
cbotarif.AddItem “110000”
cbotarif.AddItem “100000”
cbotarif.AddItem “90000”
cbotarif.AddItem “70000”
End Sub

Private Sub bersih()
cbonokamar.Text = “”
cbojeniskamar.Text = “”
cbolantai.Text = “”
cbofasilitas.Text = “”
cbotarif.Text = “”

End Sub

Private Sub CMDBERSIH_Click()
bersih
End Sub

5. Entry Data Jasa

code :

Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub cmdprev_Click()
Adodc1.Recordset.MovePrevious
End Sub

Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
bersih
txtkodejasa.SetFocus
End Sub

Private Sub cmdtutup_Click()
PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Activate()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbjasa.mdb”
Adodc1.RecordSource = “tbjasa”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub bersih()
txtkodejasa.Text = “”
txtnamajasa.Text = “”
txtsatuan.Text = “”
txtharga.Text = “”
End Sub

Private Sub CMDBERSIH_Click()
bersih
End Sub

Private Sub cmdsimpan_Click()
Adodc1.Recordset.Update
bersih
txtkodejasa.SetFocus
End Sub
Private Sub CMDHAPUS_Click()
Adodc1.Recordset.Delete
bersih
End Sub

 

Iklan
By yulistmikpringsewu

FILE VB

 

Private Sub nilaimahasiswa_click()

unilaimahasiswa.Show

End Sub

Private Sub pembelianbarang_click()

upembelianbarang.Show

End Sub

Private Sub hurufmutu_click()

uhurufmutu.Show

End Sub

Private Sub aplikasiperhitungangaji_click()

uaplikasiperhitungangaji.Show

End Sub

Private Sub stokbarang _click()

ustokbarang.Show

Private Sub keluar_click()

STMIKPringsewu = mgsbox(“Apakah anda akan keluar dari program ini?”, vbYesNo, “Warning”)

If STMIKPringsewu = 6 Then

End

Else

biodata.Show

End If

End Sub

End Sub

Private Sub penjualantiketkeretaapi_click()

upenjualantiketkeretaapi.Show

End Sub

 

Nilai Mahasiswa

 

Private Sub Command1_Click()

Txttotal.Text = (Val(Txtnt.Text) + Val(Txtnq.Text) + Val(Txtnu.Text) + Val(Txtnu.Text)) / 4

End Sub

Private Sub Command2_Click()

Txtnpm.SetFocus

Txtnpm.Text = “”

Txtnm.Text = “”

Txtnt.Text = “”

Txtnq.Text = “”

Txtuts.Text = “”

Txtnu.Text = “”

Txttotal.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnt.SetFocus

End If

End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnm.SetFocus

End If

End Sub

Private Sub Txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnq.SetFocus

End If

End Sub

Private Sub Txtnu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotal.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnu.SetFocus

End If

End Sub

 

Pembelian Barang

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnb.SetFocus

End If

End Sub

Private Sub Command1_Click()

Txttb.Text = Val(Txtjb.Text) * Val(Txthb.Text)

End Sub

Private Sub Command2_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtnb.Text = “”

Txtjb.Text = “”

Txthb.Text = “”

Txttb.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Txtjb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthb.SetFocus

End If

End Sub

Private Sub Txtkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnb.SetFocus

End If

End Sub

Private Sub Txtnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtjb.SetFocus

End If

End Sub

Huruf Mutu

Private Sub Combo1_Click()

If Combo1.Text = “11100034” Then

Text1.Text = “Yuli andini”

Text2.Text = ” sistem informasi ”

ElseIf Combo1.Text = “11100056” Then

Text1.Text = “sulistiani”

Text2.Text = ” komputer”

ElseIf Combo1.Text = “11100067” Then

Text1.Text = “putri andini”

Text2.Text = “manajemen”

ElseIf Combo1.Text = “11100035” Then

Text1.Text = “ratna galih”

Text2.Text = “bahasa inggris”

ElseIf Combo1.Text = “11100008” Then

Text1.Text = “prita dewi”

Text2.Text = “matematika”

End If

End Sub

Private Sub Command1_Click()

Dim nq, nt, uts, uas As Integer

nq = Val(Text3.Text)

nt = Val(Text4.Text)

uts = Val(Text5.Text)

uas = Val(Text6.Text)

Label11.Caption = (nq + nt + uts + uas) / 4

If Val(Label11.Caption) >= 80 Then

Label12.Caption = “A”

ElseIf Val(Label11.Caption) >= 70 Then

Label12.Caption = “B”

ElseIf Val(Label11.Caption) >= 60 Then

Label12.Caption = “C”

ElseIf Val(Label11.Caption) >= 50 Then

Label12.Caption = “D”

ElseIf Val(Label11.Caption) <= 49 Then

Label12.Caption = “E”

End If

End Sub

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Label11.Caption = “”

Label12.Caption = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem “11100034”

Combo1.AddItem “11100056”

Combo1.AddItem “1110067”

Combo1.AddItem “11100035”

Combo1.AddItem “1110008”

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

 

Aplikasa Perhitungan Gaji

 

Private Sub Command1_Click()

Dim a, b, c, d, e, f As Double

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – (Text3.Text)

Text5.Text = Val(Text4.Text) * (0.1)

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

End Sub

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

 

Stok Barang

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txtjs = “”

txtterjual = “”

txthj = “”

txttotalharga = “”

Txtss = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim KB As String

KB = Right(txtkb.Text, 1)

If KB = “T” Then

txtnb.Text = “Tape”

txthj.Text = “275000”

ElseIf KB = “S” Then

txtnb.Text = “Sound Sistem”

txthj.Text = “350000”

ElseIf KB = “C” Then

txtnb.Text = “compact”

txthj.Text = “480000”

End If

txtjs.SetFocus

End Sub

Private Sub txtjs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtterjual.SetFocus

End If

End Sub

Private Sub txtterjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtss.Text = Val(txtjs.Text) – Val(txtterjual.Text)

txttotalharga.Text = Val(txthj.Text) * Val(txtterjual.Text)

End If

End Sub

Tiket Kereta Api

Private Sub Cmdkeluar_Click()

Unload Me

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

Dim T As Long

KT = Left(Txtkt.Text, 3)

If KT = “BIM” Then

Txtht.Text = “50000”

Txtjk.Text = “BIMA”

Txtjb.Text = “16.00”

ElseIf KT = “EKO” Then

Txtht.Text = “35000”

Txtjk.Text = “EKONOMI”

Txtjb.Text = “19.00”

ElseIf KT = “SEN” Then

Txtht.Text = “15000”

Txtjk.Text = “SENJA”

Txtjb.Text = “20.00”

ElseIf KT = “MUT” Then

Txtht.Text = “23000”

Txtjk.Text = “MUTIARA”

Txtjb.Text = “17.00”

End If

Txtjt.SetFocus

End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

End If

End Sub

Biodata

Private Sub Cmdexit_Click()

Unload Me

End Sub

Private Sub Cmdok_Click()

txtnama.SetFocus

txtalamattxt = “”

txtttltxt = “”

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtttl.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

By yulistmikpringsewu

Menyibak Fitur Unggulan iOS 6

Selasa, 12/06/2012 12:13 WIB

Jakarta – Di hajatan Worldwide Developer Conference (WWDC) 2012, Apple turut mengumumkan update terbaru dari sistem operasi mobilenya, yaitu iOS 6. Diklaim Apple, akan ada banyak fitur menarik yang dibenamkan di iOS ini.

Beberapa fitur yang dihadirkan benar-benar baru dan merupakan update dari fitur yang ada sebelumnya. Beberapa yang menarik di antaranya, penambahan fungsi Siri dan integrasi yang lebih mendalam di Facebook.

Untuk mengenal lebih jauh apa saja dan apa keunggulan dari iOS 6 ini, detikINET coba merangkumkannya seperti dikutip dari Apple Insider, Selasa (12/6/2012).

Sekedar diketahui, iOS 6 hanya akan kompatibel dengan iPad II dan new iPad. Sedangkan untuk handset, OS ini mampu berjalan di iPhone 4S, iPhone 4, iPhone 3GS dan iPod Touch generasi keempat.

By yulistmikpringsewu

Menjamur, 900.000 Google Android Diaktifkan Tiap Hari

Selasa, 12 Juni 2012 12:04 wib

detail berita

Android Robot (Foto: AP Photo)

CALIFORNIA – Bos Google Android Andy Rubin mengatakan, saat ini lebih dari 900 ribu perangkat tiap hari menggunakan sistem operasi besutannya. selain itu ia juga menganggapi rumor yang mengatakan pengunduran dirinya dari perusahaan.

Sebelumnya blogger asal Amerika Sarikat (AS), Robert Scoble melalui halaman Google+ nya mengatakan, Rubin sedang mempersiapkan unutk meninggalkan Google dan akan menuju sebuah perusahaan startup, ClodCar. Demikian dilansir Digital Spy, Selasa (12/6/2012).

Namun Rubin segera menyangkal melalui akun Twitter-nya terkait spekulasi dan menuliskan beberapa informasi tentang perkembangan Android.

“Tidak adal rencana meninggalkan Google,- ada lebih dari 900 ribu perangkat Android diaktivkan setiap hari,” tulis akun @Scobleizer.

Pada Februai 2012, Rubi di ajang Mobile World Congress mengatakan, 850 ribu perangkat yang saat ini telah diaktifkan, menurut data telah tembus 900 ribu.

By yulistmikpringsewu

Apple Resmi ‘Ceraikan’ Google Maps

Selasa, 12/06/2012 09:19 WIB

Demonstrasi peta Apple (reuters)

San Francisco – iOS 6 telah diperkenalkan Apple. Kehadiran sistem operasi mobile terbaru ini menandai hilangnya layanan aplikasi peta Google Maps yang digantikan oleh produk Apple sendiri.

Ya, sesuai prediksi yang sudah beredar luas, iOS 6 tidak lagi memakai Google Maps. Seperti detikINET kutip dari BBC, Selasa (12/6/2012), Apple menggantikannya dengan layanan peta 3 dimensi buatannya yang diklaim canggih.

Terdepaknya Google Maps dinilai sebagai kerugian tersendiri bagi Google. Sebab sekitar separuh trafik dari Google Maps versi mobile berasal dari perangkat Apple.

Lalu apa alasan Apple mendepak Google Maps? Peralihan ke layanan peta sendiri ini dinilai membuat Apple lebih punya banyak kesempatan untuk menghasilkan uang. Selain itu untuk menghindari ketergantungan dari Google yang belakangan menjadi rival utamanya di pasar perangkat mobile.

“Apa yang terjadi jika suatu hari Google memutuskan tidak lagi menyediakan peta untuk Apple? Anda tidak bisa punya ketergantungan semacam itu pada kompetitor,” kata Colin Gillis, analis di BGC Partners.

Peta buatan Apple punya fitur Flyover yang menampilkan kota dalam tiga dimensi. Juga ada update lalu lintas secara real time dan turn by turn navigation. iOS 6 kabarnya sudah bisa diunduh pada September 2012.

By yulistmikpringsewu

Saat ‘iPhone’ & ‘iPad’ Masuk Penggorengan

 

Selasa, 12/06/2012 09:42 WIB
Karya Henry (londonmedia) Jakarta – Fotografer yang berbasis di New York ini memiliki ide gila dalam berkarya. Ia menciptakan foto-foto yang menggambarkan piranti-piranti Apple jadi seperti gorengan.

Henry Hargreaves — fotografer yang dimaksud — mencelupkan iPad, iPhone, iPod dan laptop Apple ke dalam penggorengan kemudian memotretnya sebagai bagian dari sebuah proyek seni.

Namun untung saja, piranti yang digoreng itu bukanlah piranti sebenarnya alias cuma replika. Pria yang sebenarnya berasal dari Selandia Baru ini memperoleh ide uniknya setelah menjumpai video yang menampilkan remaja Jepang yang tengah berupaya menggoreng PlayStation Portable (PSP).

“Aku suka idenya dan berpikiran untuk mewujudkannya dalam bentuk foto dengan cara yang menarik,” demikian ujar Henry seperti dilansir dari DailyMail, Senin (11/6/2012).

“Aku tidak cukup kaya untuk membeli dan menghancurkan barang-barang elektronik. Aku juga tidak ingin mengetahui apa jadinya bila baterai lithium dimasukkan ke dalam minyak dengan panas 400 derajat,” tutur pria 32 tahun ini menceritakan alasannya membuat replika gadget-gadget Apple itu.

By yulistmikpringsewu

Intel: Android Belum Siap Pakai Multi Core

Selasa, 12/06/2012 11:14 WIB
Jakarta – Banyak vendor yang mulai berlomba-lomba merilis ponsel Android tercanggih dengan prosesor berinti ganda. Tapi menurut Intel, si ‘robot hijau’ masih belum siap mengadopsi jenis prosesor tersebut.

Memang, satu per satu vendor papan atas mulai memasarkan ponsel Android dengan spesifikasi mencengangkan. Sebut saja Galaxy S III dan HTC One X yang dibekali dengan prosesor 4 ‘otak’. Belum lagi LG yang sedang siap-siap merilis ponsel serupa di Indonesia.

Sementara Intel, yang sudah cukup kawakan di industri prosesor terkesan adem ayem, tidak mengikuti para pesaingnya untuk menggelontorkan chip quad core di ponsel Android.

“Jika Anda memang mementingkan performa, maka prosesor quad core sangat masuk akal. Tapi jika sistem operasi (Android) yang digunakan punya sistem penjadwalan yang baik,” kata Mike Bell, General Manager of Intel Mobile and Communications Group.

Menurut Bell, prosesor berinti ganda saat ini belum optimal dipakai untuk Android. Justru menggunakan chip tersebut hanya akan berdampak pada konsumsi daya yang lebih tinggi, serta efek panas yang berlebih pada ponsel.

Oleh sebab itu Intel hanya merilis prosesor single core dengan nama sandi Medfield untuk ponsel Android seperti Lenovo K800, Lava Xolo X900 dan Orange San Diego untuk pasar Amerika Serikat.
“Saya telah melihat bagaimana pengunaan quad core yang ada di pasar, dan kami belum melihat keuntungan apa pun untuk terjun ke pasar tersebut,” tandas Bell, seperti dikutip detikINET, dari zdnet, Selasa (12/6/2012).
Pernyataan Intel itu selaras dengan kutipan dari bos Nokia, Stephen Elop. Pabrikan ponsel asal Finlandia ini juga setuju bahwa prosesor inti ganda di ponsel hanya membuat boros baterai.

By yulistmikpringsewu

Google: 900 Ribu Android ‘Lahir’ Tiap Hari

Selasa, 12/06/2012 10:47 WIB
Jakarta – Popularitas perangkat Android belum ada matinya. Bos Android, Andy Rubin, mengklaim bahwa saat ini ada lebih dari 900 ribu perangkat Android baru diaktivasi setiap hari.

Jumlah itu naik dari statistik sebelumnya. Pada akhir Februari, Google menyatakan ada sekitar 850 ribu perangkat Android diaktifkan per harinya.

Memang menurut data dari beberapa biro riset, Android adalah sistem operasi terpopuler di dunia saat ini. Data IDC menunjukkan pangsa pasar OS Android secara global adalah 59% di kuartal pertama 2012.

Android dinilai akan tetap menguasai pasar dalam waktu yang lama meski ada kemungkinan mengalami penurunan. Pada tahun 2016, IDC memperkirakan market share Android sedikit menurun di kisaran 52,9%.

Di sisi lain, pasar smartphone diprediksi akan terus melonjak. Di tahun 2012, penjualan ponsel cerdas diprediksi antara 750 sampai 800 juta unit dengan nilai penjualan lebih dari USD 230 miliar.

Seperti dikutip detikINET dari ComputerWorld, Selasa (12/6/2012), pertumbuhan antara lain dipicu oleh semakin murahnya harga. Vendor asal China seperti Huawei dan ZTE diprediksi akan terus merilis smartphone berharga terjangkau.

By yulistmikpringsewu

Bocoran Spesifikasi Smartphone “Super” Motorola Terungkap

Selasa, 12 Juni 2012 08:11 wib

detail berita

Motorola Razr HD (foto: TechCrunch)

WASHINGTON Smartphone super besutan Motorola, Droid RAZR HD akan segera muncul. Memang belum diumumkan, tapi beberapa bocoran yagn beredar mengungkapkan kehadirannya.

Diwartakan TechCrunch, Selasa (12/6/2012), spesifikasi smartphone mutakhir Motorola ini terlihat setara dengan Samsung galaxy S III. Sementara itu, bocoran gambar yang beredar menunjukkan sebuah perangkat yang lahir dari desain populer Android besutan Motorola.

Sisi belakang smartphone ini menggunakan bahan serat karbon seperti pada RAZR dan RAZR MAXX. Penghubung microUSB dan microHDMI juga disertakan di bagian samping, seperti terdapat pada Droid X/X2 dan Bionic.

casing smartphone ini relatif tebal dan memicu munculnya rumor bahwa RAZR HD dibekali kemampuan daya tahan baterai ala RAZR MAXX. Daya baterai yang diperkirakan sebesat 3000mAh ini, jika benar akan menjadi salah satu keunggulan dibandingkan Samsung Galaxy S III.

Layar yang digunakan RAZR HD memiliki resolusi sekira 1196 x 720 pixel. Ini merupakan satu langkah maju jika dibandingkan dengan RAZR terdahulu yang hanya dibekali layar 540 x 960 pixel.

Bocoran mengenai dapur pacunya mengungkap keberadaan prosesor Snapdragon S4 berkecepatan 1,5GHz  dengan inti ganda. Sedangkan untuk ukuran RAM, RAZR HD bisa dikatakan lebih kecil dari Samsung Galaxy S III. RAZR HD memiliki RAM sekira 1GB sedangkan Galazy S III memiliki RAM 2GB.

By yulistmikpringsewu

Intel Pertanyakan Efisiensi Prosesor Android

Selasa, 12 Juni 2012 09:15 wib

detail berita

Ilustrasi (foto: TweakTown.com)

CALIFORNIA – Intel mengklaim bahwa vendor system-on-chip (SoC) belum melakukan cukup upaya dalam mengoptimalkan Android untuk prosesor multi-core. Pasalnya, meski memiliki banyak inti, akan percuma bila tidak ada piranti lunak yang memanfaatkannya dengan optimal.

Diwartakan The Inquirer, Selasa (12/6/2012), menurut General Manager Intel Mobile and Communications Group, Mike Bell, thread scheduler di Android belum siap untuk prosesor multi-core. “Jika Anda tidak sedang berada dalam tempat yang tidak membatasi tenaga, multiple-core cukup masuk akal karena bisa sepenuhnya menjalankan aplikasi berat,” ujarnya.

Sedangkan situs Mashable menyebutkan, kritik paling sering dilontarkan pada Android mengenai prosesor multi-core adalah pertanyaan: mengapa Anda perlu kekuatan pemrosesan yang begitu besar dalam sebuah smartphone?

Thread scheduler pada Android tidak hanya sekedar bertugas menghadirkan performa terbaik dari sebuah quad-core yang ada sekarang. Terlebih karena pembuat komponen tersebutlah satu-satunya yang sanggup mengeluarkan kinerja terhebat sebuah prosesor.

Intel berpendapat, perusahaan di balik prosesor ini mesti berkontribusi pada peningkatan vital source tree Android, namun mereka tidak melakukan itu. Dalam pasar prosesor Android, Intel sendiri merupakan pemain baru yang mengeluarkan prosesor Atom Medfield berinti tunggal.

By yulistmikpringsewu