VB #Data Base#

Posted: March 3, 2013 in Uncategorized

didi

Private Sub Txtnama_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

Dim M As String

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

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

If J = “1” Then

Jur = “Sistem Informasi”

ElseIf J = “2” Then

Jur = “Manajemen Informatika”

ElseIf J = “3” Then

Jur = “Tehnik Informatika”

ElseIf J = “4” Then

Jur = “Manajemen & Komp.Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Prost = “Strata Satu”

ElseIf S = “02” Then

Prost = “Diploma Empat”

ElseIf S = “03” Then

Prost = “Diploma Tiga”

ElseIf S = “04” Then

Prost = “Diploma Dua”

End If

No = Right(Txtnpm.Text, 3)

Txtjur.Text = Jur

Txtprost.Text = Prost

Txtno.Text = No

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

Txtnpm.SetFocus

End Sub

Advertisements

Tugas Visual Basic 4

Posted: January 29, 2013 in Uncategorized

1.

DIDI1

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkdbu.Text, 2)

S = Left(Txtkdbu.Text, 1)

If S = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnr = “Indah Surabaya”

ElseIf S = “S” Then

Pnr = “Salemba Empat”

ElseIf S = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnr = “Maxicom”

End If

S = Mid(Txtkdbu.Text, 3, 3)

If S = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf S = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf S = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf S = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf S = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

2.

DIDI2

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Mid(Txtkdbu.Text, 5, 2)

S = Right(Txtkdbu.Text, 1)

If S = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnr = “Indah Surabaya”

ElseIf S = “S” Then

Pnr = “Salemba Empat”

ElseIf S = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnr = “Maxicom”

End If

S = Left(Txtkdbu.Text, 3)

If S = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf S = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf S = “MNJ” Then

Jdb = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf S = “CDR” Then

Jdb = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf S = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

3.

DIDI3

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jbt, Bag, Gol, Ks, St As String

Dim Gjp, Tun, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

Z = Mid(Txtnik.Text, 5, 1)

If Z = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tun = “1025000”

ElseIf Z = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tun = “975000”

ElseIf Z = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tun = “925000”

End If

 

Z = Mid(Txtnik.Text, 7, 1)

If Z = “S” Then

Ks = “S”

St = “Single”

ElseIf Z = “M” Then

Ks = “M”

St = “Menikah”

ElseIf Z = “J” Then

Ks = “J”

St = “Janda”

ElseIf Z = “D” Then

Ks = “D”

St = “Duda”

End If

 

Z = Right(Txtnik.Text, 3)

If Z = “KEU” Then

Bag = “Accounting”

ElseIf Z = “ADM” Then

Bag = “Administrasi”

ElseIf Z = “SDM” Then

Bag = “General Affair”

ElseIf Pt = “EDP” Then

Bag = “IT Unit”

ElseIf Z = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgjp.Text = Gjp

Txtjbt.Text = Jbt

Txttun.Text = Tun

Txtstat.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkod.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

DIDI4

Private Sub Cmdpros_Click()

Dim P As String

Txtthn.Text = “20” & Right(Txtkdbu.Text, 2)

P = Left(Txtkdbu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

P = Mid(Txtkdbu.Text, 3, 3)

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdbk.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

VISUAL BASIC PERTEMUAN 3

Posted: January 15, 2013 in Uncategorized

1.

ddi1

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

Select Case Cbonpm.Text

Case “12201047”

nama = “Didi Sumantri”

jurusan = “Manajemen Informatika”

Case “12100210”

nama = “Hernika”

jurusan = “Sistem Informasi”

Case “12203068”

nama = “Vico Gabta”

jurusan = “Tehnik Informatika”

Case “12100212”

nama = “Bambang”

jurusan = “Sistem Informasi”

Case “12100243”

nama = “Pipit”

jurusan = “Sisitem Informasi”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan.

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12201047”

Cbonpm.AddItem “12100210”

Cbonpm.AddItem “12203068”

Cbonpm.AddItem “12100212”

Cbonpm.AddItem “12100243”

End Sub

Private Sub Txtqz_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttg.SetFocus

End If

End Sub

Private Sub Txttg_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 Cmdpros_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtqz.Text)

tugas = Val(Txttg.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtnk.Text = NilaiAkhir

Select Case Txtnk.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is < 50

HurufMutu = “E”

End Select

Txthmt.Text = HurufMutu

End Sub

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtqz = “”

Txttg = “”

Txtuts = “”

Txtuas = “”

Txtnk = “”

Txthmt = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

2.

didi2

Private Sub Opthj_Click()

Lbljdl.ForeColor = vbGreen

End Sub

Private Sub Optmr_Click()

Lbljdl.ForeColor = vbRed

End Sub

Private Sub Chktb_Click()

Lbljdl.FontBold = Chktb.Value

End Sub

Private Sub Chkmrg_Click()

Lbljdl.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lbljdl.Caption = Txtnm.Text

End Sub

Private Sub Cmdklr_Click()

End

End Sub

3.

Didi3

Private Sub Txtnid_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnmp.SetFocus

End If

End Sub

Private Sub Cbogl_DblClick()

Private Sub form_load()

Cbogl.AddItem “I”

Cbogl.AddItem “II”

Cbogl.AddItem “III”

End Sub

Private Sub Cbogl_Click()

Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant

Select Case Cbogl.Text

Case “I”

Gajipokok = 1500000

Tunjangan = 300000

Case “II”

Gajipokok = 2000000

Tunjangan = 600000

Case “III”

Gajipokok = 2500000

Tunjangan = 900000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgp.Text = Gajipokok

Txttj.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgb.Text = Gajibersih – Pajak

Private Sub Cmdlgi_Click()

Txtnid = “”

Txtnmp = “”

Cbogl = “”

Txtgp = “”

Txttj = “”

Txtpjk = “”

Txtgb = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnid = “”

Txtnmp = “”

Cbogl = “”

Txtgp = “”

Txttj = “”

Txtpjk = “”

Txtgb = “”

End Sub

Private Sub Cmdkel_Click()

End

End Sub

4.

didi4

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdpros_Click()

Dim Std As String

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

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

If Std = “1” Then

Txtjur.Text = “Sisitem Informasi”

ElseIf Std = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf Std = “3” Then

Txtjur.Text = ” Tehnik Informatika ”

ElseIf Std = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

Std = Mid(Txtnpm.Text, 4, 2)

If Std = “00” Then

Txtps.Text = “Strata Satu”

ElseIf Std = “01” Then

Txtps.Text = “Diploma Tiga”

ElseIf Std = “02” Then

Txtps.Text = “Diploma Dua”

ElseIf Std = “03” Then

Txtps.Text = “Diploma Empat”

End If

Std = Right(Txtnpm.Text, 3)

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

End Sub

Private Sub Cmdlgi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txtnu = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txtnu = “”

End Sub

Private Sub Cmdkel_Click()

End

End Sub

Tugas Pertemuan 2 VB

Posted: January 9, 2013 in Uncategorized

didi1

1.

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)

Txtn3.Text = Val(txtn1.Text) * Val(txtn2.Text)

End Sub

Private Sub CmdPros_Click()

Txtn3.Text = Val(txtn1.Text) * Val(txtn2.Text)

End Sub

Private Sub Cmddel_Click()

txtn1 = “”

txtn2 = “”

Txtn3 = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

2.

didi4

Private Sub Cmdpros_Click()

Txtdskn.Text = Val(Txtnil1.Text) * 0.1

Txtnil2.Text = Val(Txtnil1.Text) – Val(Txtdskn.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtdskn = “”

Txtnil2 = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

3.

didi2

Private Sub optbl_Click()

Lbljdl.ForeColor = vbBlue

End Sub

Private Sub optgr_Click()

Lbljdl.ForeColor = vbGreen

End Sub

Private Sub optrd_Click()

Lbljdl.ForeColor = vbRed

End Sub

Private Sub Optyl_Click()

Lbljdl.ForeColor = vbYellow

End Sub

Private Sub Chkun_Click()

If Chkun.Value = 1 Then

Lbljdl.FontUnderline = True

Else

Lbljdl.FontUnderline = False

End If

End Sub

Private Sub Chkit_Click()

If Chkit.Value = 1 Then

Lbljdl.FontItalic = True

Else

Lbljdl.FontItalic = False

End If

End Sub

Private Sub Chkbl_Click()

If Chkbl.Value = 1 Then

Lbljdl.FontBold = True

Else

Lbljdl.FontBold = False

End If

End Sub

Private Sub Chkst_Click()

If Chkst.Value = 1 Then

Lbljdl.FontStrikethru = True

Else

Lbljdl.FontStrikethru = False

End If

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

4.

didi5

Private Sub Txtbl1_Change()

If KeyAscii = 13 Then

Txtbl2.SetFocus

End If

End Sub

Private Sub Cmdbg_Click()

Txtjmlh.Text = Val(Txtbl1.Text) / Val(Txtbl2)

End Sub

Private Sub Cmdkl_Click()

Txtjmlh.Text = Val(Txtbl1.Text) * Val(Txtbl2)

End Sub

Private Sub Cmdkrgs_Click()

Txtjmlh.Text = Val(Txtbl1.Text) – Val(Txtbl2.Text)

End Sub

Private Sub Cmdtmb_Click()

Txtjmlh.Text = Val(Txtbl1.Text) + Val(Txtbl2.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtbl1 = “”

Txtbl2 = “”

Txtjmlh = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

5.

didi3

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttnjg.SetFocus

End If

End Sub

 

Private Sub Txttnjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtptg.SetFocus

End If

End Sub

 

 

Private Sub Cmdhsl_Click()

Txtgk.Text = Val(Txtgp.Text) + Val(Txttnjg.Text) – Val(Txtptg.Text)

Txtpj.Text = Val(Txtgk.Text) * 0.1

Txtgb.Text = Val(Txtgk.Text) – Val(Txtpj.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgp = “”

Txttnjg = “”

Txtptg = “”

Txtgk = “”

Txtpj = “”

Txtgb= “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

samsunggalaxys3launchwithorchestra

Jakarta – Tahun 2013, hampir dapat dipastikan Samsung memperkenalkan Galaxy S IV sebagai penerus Galaxy S III. Pertanyaannya, kapan tepatnya handset ini diperkenalkan pada publik?

Beberapa perhelatan besar di dunia teknologi tahun 2013 diprediksi menjadi ajang perkenalan Galaxy S IV. Atau, bisa jadi Samsung akan mengadakan event tersendiri untuk memamerkan ponsel jagoannya itu.

Jadi, kira-kira di manakah Galaxy S IV dimunculkan pertama kali? Berikut perkiraannya yang detikINET kutip dari berbagai sumber.

Consumer Electronic Show

Perhelatan Consumer Electronic Show (CES) merupakan pameran teknologi tahunan yang berlangsung di Las Vegas, Amerika Serikat. Tahun ini, ajang tersebut dimulai pada 8 Januari 2013.

Spekulasi kencang beredar bahwa Galaxy S IV bakal hadir dalam even ini. Terlebih, Samsung sudah menghadirkan video teaser bahwa mereka akan mengumumkan sesuatu yang besar di CES 2013.

Namun kemudian, beberapa media teknologi melaporkan bukan Galaxy S IV yang akan datang di sana. Media teknologi besar seperti Cnet dan The Verge mengutip sumber terkait, menyatakan bahwa Galaxy S IV tidak akan muncul di CES 2013.

Selain itu, Galaxy S III masih masuk jajaran smartphone terlaris sehingga masih bisa diandalkan untuk menambah pundi pundi uang Samsung. Jadi, rilis Galaxy S IV di CES 2013 dinilai terlalu cepat.

Mobile World Congress

Mobile World Congress adalah ajang pameran teknologi tahunan yang berlangsung di Barcelona, Spanyol. Event ini termasuk acara teknologi terbesar di dunia.

Di mana hampir semua vendor ponsel besar turut serta dan biasanya memamerkan produk terbarunya. Bisa jadi pula, Galaxy S IV muncul di ajang ini.

Berkaca dari tahun ini, Galaxy S III diduga kuat bakal hadir di ajang MWC. Nyatanya, spekulasi itu mentah karena Samsung malah memperkenalkan produknya yang lain.

Sejauh ini juga belum ada tanda tanda kuat bahwa Galaxy S IV akan menampakkan dirinya di arena MWC 2013. Dan sepertinya memang demikian.

Event Khusus

Seri Galaxy S disebut-sebut sebagai ponsel Android favorit. Maka tahun lalu, Samsung dengan percaya diri menggelar perkenalan Galaxy S III dalam sebuah acara khusus di London.

Nyatanya, event tersebut sukses meraih perhatian luas dari publik dan media. Galaxy S III seolah menjadi barang ekslusif yang pantas diperkenalkan sendiri, tidak bercampur dengan produk lain.

Nah tahun 2013, sepertinya Galaxy S IV akan mengikuti jejak yang sama. Terlebih mengingat Galaxy S III dilaporkan sudah terjual 30 juta unit. Tak heran, ini membuat penerusnya menjadi produk yang ditunggu.

Samsung pun diduga kuat akan membuat event tersendiri untuk menghadirkan Galaxy S IV. Mungkin sekitar bulan April atau Mei, tepat setahun sesudah Galaxy S III hadir.

Microsoft Chairman Bill Gates listens to Chief Research and Strategy Officer Craig Mundie at RSA Conference

Jakarta – Microsoft kembali kehilangan salah satu figur seniornya. Craig Mundie yang telah lama menjadi teman setia sekaligus suksesor Bill Gates sejak awal merintis perusahaan, kini tengah mempersiapkan diri untuk memasuki masa pensiunnya.

Ya, Mundie telah bertekad untuk pensiun di 2014 nanti saat usianya tepat 65 tahun. Posisinya sebagai Chief Research and Strategy Officer di Microsoft telah dilepas. Mundie sendiri katanya masih akan berperan sebagai penasihat senior untuk CEO Microsoft Steve Ballmer di sisa setahun pengabdiannya.

Seperti detikINET kutip dari AllThingsD, Selasa (25/12/2012), posisi lowong yang ditinggalkan Mundie akan dibebankan kepada Eric Rudder, Chief Technical Strategy Officer Microsoft.

“Dalam peran ini, dia bekerja untuk proyek-proyek strategis dalam perusahaan, serta dengan pemerintah dan para pemimpin bisnis di seluruh dunia pada kebijakan teknologi, regulasi, dan standardisasi,” demikian biografi terbaru Mundie di situs Microsoft.

Perubahan struktur manajemen ini sebenarnya telah diumumkan CEO Microsoft Steve Ballmer secara terbatas di kalangan perusahaan melalui memo internal 14 Desember lalu, namun belum diumumkan kepada publik.

Mundie mulai menjabat sebagai kepala penelitian dan strategi di Microsoft serta mewarisi pekerjaan Bill Gates sejak menyerahkan kendali perusahaan 2006 lalu. Keduanya bersama-sama mengembangkan strategi global Microsoft untuk urusan teknis, bisnis, dan isu-isu kebijakan menurut perusahaan.

9 Game Mobile dengan Grafis Ciamik

Posted: December 25, 2012 in Uncategorized

2dlm
Jakarta – Game mobile semakin marak kehadirannya di tahun 2012 ini. Dipicu makin banyaknya perangkat smartphone yang dibekali spesifikasi canggih.

Produsen game pun berupaya membuat game mobile semenarik mungkin. Dengan grafis yang semakin memukau untuk memanjakan penggemarnya.

Lalu, game mobile populer apa saja yang keluar tahun 2012 ini dengan grafis paling ciamik? Cukup banyak tentunya. Berikut di antaranya yang mungkin layak dipilih, seperti detikINET kutip dari berbagai sumber.