|
Microsoft Merilis Xbox360 Terbaru |
|
|
|
|
Ditulis oleh Dhetri_Ditra9
|
|
Friday, 25 June 2010 |
Sebuah Xbox 360 baru telah diluncurkan oleh Microsoft pada presentasi utamanya di E3, Los Angeles. Microsoft Kinect akan menjadi sebuah kontroler masa depan yang akan memberikan pengalaman seru bermain game melalui Xbox 360. Konsol baru memiliki hard drive 250 GB, built-in kemampuan nirkabel, cocok dengan hands-free revolusioner antar-muka Microsoft yang baru, serta pengendali gerak Kinetik terbaru. Xbox 360 tidak hanya sebuah perangkat game tapi penghubung video rumahan dan hiburan web. Xbox 360 baru telah diumumkan bersamaan dengan daftar panjang nama game untuk memuaskan para player telah diantisipasi sebelumnya oleh Microsoft dalam briefing tersebut, game yang disediakan termasuk Gears Of War 3, Fable III dan Halo Reach. Microsoft juga mengumumkan daftar panjang tentang permainan dan fitur yang menggunakan antarmuka kinetik, yang sekilas telah ditampilkan pada media internasional dalam presentasi penampilan oleh Cirque du Soleil. Satu hal lagi, Wakil Presiden Senior Microsoft, Don Mattrick, yang berbicara diakhir briefing E3 Microsoft mengatakan, bahwa kemampuan antarmuka kinetik Microsoft juga cocok jika dipasangkan dengan hardware yang telah ada. Xbox 360 baru ini juga lebih ramping dan langsing dalam desain dan secara signifikan lebih bisa diandalkan dibandingkan dengan pendahulunya. Konsol game terbaru ini juga menawarkan listrik dengan daya yang lebih kecil dari Xbox 360 original. Xbox 360 terbaru fitur tiga port USB pada panel belakang dan dua di depan. Drive-hard perangkat ini juga lebih kecil, sehingga menimbulkan pertanyaan bagaimana pemilik Xbox 360 akan memigrasikan data mereka ke konsol baru. Mattrick mengatakan bahwa harga yang disarankan untuk Xbox 360 terbaru sama dengan dengan harga konsol Xbox Elite US $ 266 atau sekitar Rp. 2.400.000. Konsole game ini akan di pasarkan ke outlet ritel AS minggu ini. Sedangkan, konsumen di Inggris harus menunggu sampai 16 Juli mendatang untuk mendapatkan Xbox 360 terbaru sampai di tangan mereka.
|
|
|
OS Linux UBuntu Akan Seindah Mac OS Macintosh |
|
|
|
|
Ditulis oleh zulkifli anwar
|
|
Saturday, 20 September 2008 |
Mark Shuttleworth, pengusaha di balik Linux Ubuntu, berjanji kecantikan Linux akan menyaingi Macintosh. Kini ia mendukung janji itu dengan guyuran uang.
Shuttleworth mendukung pengembangan Linux melalui perusahaan bernama Canonical. Perusahaan itu mendanai pengembangan Linux Ubuntu hingga menjadi salah satu distribusi Linux populer di dunia. |
|
Baca selengkapnya...
|
|
|
Menyimpan Ganbar Di database Sql Server |
|
|
|
|
Ditulis oleh erfan hasmin
|
|
Tuesday, 29 July 2008 |
Sebelum melakukan penulisan kode, ada beberapa hal yang harus dipersiapakan. Diantaranya adalah:
Tambahkan Referency: Microsoft ActiveX Data Objects 2.5 Library ( Pilih menu: Project » References )
Buat 3 Object control: - Image dengan nama Image1 - 2 buah tombol dengan nama cmdSave dan cmdLoad - dan pastinya kamu harus punya form @!img7@
Setelah selesai melakukan persiapannya, kamu bisa Copy Paste source code dibawah ini.
'/* Pada Global Deklarasi tambahkan code Berikut Option Explicit Dim adoConn As ADODB.Connection
Private Sub cmdLoad_Click() '/* Untuk melihat hasil data yang berhasil kita simpan _ kita membutuhkan sebuah var Recordset untuk memanggilnya. Dim RC As New ADODB.Recordset '/* Buka table yang akan di tampilkan datanya. Disini penulis _ memanggil data dengan Member_ID=001
RC.Open "Select * from tblMember where Member_ID='001'", adoConn, 3, 3 '/* Periksa apakah Record tersedia If Not RC.EOF Then '/* jika ya tampilkan pada Object Image1 dengan menggunakan _ fungsi AmbilGambar dan kirim parameter RecordSet dan _ nama field gambar yang akan ditampilkan Set Image1.Picture = AmbilGamDariDB(RC, "Photo") End If RC.Close End Sub
Private Sub cmdSave_Click() '/* Untuk menggunakan fungsi penyimpanan gambar, kita bisa _ menggunkan fungsi KonveriGambar. Dimana fungsi tersebut _ akan mengembalikan nilai dengan Type ADODB Stream. _ Terlebih dahulu kita buat satu variable untuk menampungnya. _ kemudian lakukan pengisian variable dengan memanggil fungsi _ KonversiGambar dengan parameter nama file gambar yang akan _ kita simpan ke dalam database.
Dim hGambar As New ADODB.Stream Set hGambar = KonversiGambar("D:\MDL051.gif")
'/* Periksa apakah gambar berhasil di muat? If hGambar.State = adStateOpen Then '/* apabila ya, maka buat variable Recordet untuk mencoba _ menyimpannya ke dalam databae Dim RC As New ADODB.Recordset '/* Dibawah ini Query untuk membuka tabel 'tblMember' _ atau anda bisa langsung memanggil nama tabel tersebut _ tanpa menggunakan Query.
RC.Open "Select * from tblMember", adoConn, 3, 3 '/* Buat data baru dengan menggunakan AddNew RC.AddNew '/* isi informasi data yang akan disimpan '/* (Pastikan data yang anda masukan tidak ada sebelumnya) RC.Fields("Member_ID").Value = "001" '/* Khusus untuk field gambar, kita isi berdasarkan _ gambar yang kita muat dengan fungsi konversiGambar RC.Fields("Photo").Value = hGambar.Read '/* Simpan data RC.Update RC.Close End If End Sub
Private Sub Form_Load() '/* Buat Variable Informasi Utk Koneksi ke sqlServer Dim NamaServer As String Dim NamaDBSQL As String Dim usrLogin As String Dim usrPass As String
'/* Isi Informasi Koneksi Ke Server NamaServer = "vbBego" '/* Nama Server Database NamaDBSQL = "MEMBER" '/* Nama Table yang akan digunakan usrLogin = "sa" '/* Nama Login yang digunakan usrPass = "root" '/* Password untuk login
'/* Lakukan Koneksi kedatabase dengan informasi yang _ dimasukan sebelumnya On Error GoTo SalahKoneksi Set adoConn = New ADODB.Connection adoConn.Open ("Provider=SQLOLEDB;data Source=" & NamaServer & ";" & _ "Initial Catalog=" & NamaDBSQL & "; " & _ "User Id=" & usrLogin & ";Password=" & usrPass) Exit Sub SalahKoneksi: MsgBox "Tidak dapat melakukan koneksi ke server" & vbCrLf & _ vbCrLf & Error, vbOK + 16, "vbBego Error" End End Sub
Function AmbilGamDariDB(RS As ADODB.Recordset, _ nNamaField As String) As StdPicture '/* Handle error untuk kesalahan memuat format gambar On Error GoTo SalahGambar If RS Is Nothing Then GoTo SalahGambar End If
'/* Untuk Format yang valid maka lanjutkan dengan membuat _ variable ADODB Stream Dim adoxStream As ADODB.Stream Set adoxStream = New ADODB.Stream adoxStream.Type = adTypeBinary '/* Set jenis type ke _ dalam bentuk Binary adoxStream.Open
'/* Memasukan data binary dari database ke variable Stream adoxStream.Write RS.Fields(nNamaField).Value '/* Simpan hasilnya ke HD dng nama file C:\bego.tmp adoxStream.SaveToFile "C:\bego.tmp", adSaveCreateOverWrite '/* Load kembali file yang telah disimpan, kemudian masukan _ kedalam fungsi AmbilGamDariDB Set AmbilGamDariDB = LoadPicture("C:\bego.tmp") Kill ("C:\bego.tmp") '/* Hapus file dari HD Exit Function SalahGambar: End Function
Public Function KonversiGambar(nNamaFile As String) As ADODB.Stream '/* Handle error untuk kesalahan memuat format gambar On Error GoTo SalahGambar Dim objGambar As StdPicture '/* Buat variable dengan type stdPicture
'/* Load dan masukan ke variable tsb Set objGambar = LoadPicture(nNamaFile)
'/* Periksa apakah gambar berhasil di muat? If objGambar Is Nothing Then MsgBox "Format File Salah, Tidak Dapat Memuat Gambar!" KonversiGambar = False Exit Function End If
'/* Jika berhasil di muat buat var dengan type Adodb stream Dim adoxStream As ADODB.Stream Set adoxStream = New ADODB.Stream adoxStream.Type = adTypeBinary '/* Set dengan Type Binary adoxStream.Open '/* lakukan koneksi stream adoxStream.LoadFromFile nNamaFile '/* Muat gambar dari file Set KonversiGambar = adoxStream '/* masukan hasilnya kedalam fungsi Exit Function SalahGambar: End Function
haha....ternyata tidak sesulit yang dibayangkan, untuk rekan-rekan yang mempunyai source code yang bagus-bagus aku tunggu kirmannya @!img0@
|
|
|
Bagaimana Membuat Virus Di Ms.Access |
|
|
|
|
Ditulis oleh abay05
|
|
Sunday, 06 July 2008 |
|
Saya tegaskan kembali bahwa contoh ini hanya sebagai gambaran saja. Selanjutnya terserah anda, dan penulisan artikel ini bukan bermaksud mengajak anda membuat virus melainkan sekedar pengetahuan saja.
Penulis tidak bertanggung jawab apabila ada yang menyalah gunakannya.
Sebetulnya source code ini bukan asli buatan saya sendiri, saya hanya menambahkan beberapa yang kurang saja. sehingga bisa layak dikatakan sebuah virus.
Kurang lebih source nya seperti ini: Pertama-tama anda buka Ms.Accsessnya, kemudian buat satu file database dengan nama apa saja (bebas)
Selanjutnya buat satu class modul dengan nama 'MSysAccess' (tanpa curek) dan Copy paste kode yang anda download: [ Download Source ]
Setelah selesai dengan Copy pastenya simpan kerjaan anda (Saya tegaskan untuk sementara nama Class Modulnya jangan salah yaitu: 'MSysAccess'
Ok, saya anggap anda sudah beres dengan modulnya. Tahap selanjutnya anda buat satu macro dengan nama 'Autoexec', kemudian didalam macro tersebut buat satu perintah, seperti dibawah ini:
--------------+------------------------------------- Action | Comment --------------+------------------------------------- RunCode | We like programming --------------+-------------------------------------
Pada Kolom Function Name diisi dengan kata: sys_MSysAccess() kemudian save macronya.
Nah sampai sini, anda sudah hampir selesai membuatnya. tinggal merubah attribut kedua objek yang kita buat ke attribut hidden.
Caranya klik kanan pada objek module (MSysAccess) dan pilih properties kemudian centang cekbox hidden dan pilih OK, lakukan hal yang sama untuk Objek Macro (AutoExec).
Setelah selesai save dan keluar dari program Ms.Access
Dan lihat hasilnya..., untuk mengedit lagi hasil kerjaannya buka file tersebut dan jangan lupa menekan tombol shift (jangan dilepaskan sampai muncul DatabaseWindows) ini dilakukan untuk menghindari proses AutoExec.
Note: Mungkin anda akan bingung dengan nama function yang berbelit-belit...he..he...mungkin ini sengaja dibuat berbelit-belit supaya orang yang berhasil menemukannya akan kesulitan untuk memahaminya.
Nyantai aja bro awalnya saya juga begitu, setelah dipelajari beberapa menit baru deh paham cara kerja virus itu.
Ok, semoga dapat pengalaman baru. Vb-bego.com
|
|
|
Ditulis oleh abay05
|
|
Tuesday, 13 May 2008 |
|
Windows 7 (dikenal juga dengan sebutan Blackcomb dan Vienna) adalah sebuah nama untuk versi dari Microsoft Windows yang merupakan suksesor dari Windows Vista. Microsoft telah mengumumkan kalau: “scoping Windows 7 development to a three-year timeframe” Sedangkan versi dari Windows 7 akan di package dalam versi 32-bit dan 64-bit Sedangkan untuk varian servernya, memiliki codename Windows Server 7, yang juga dalam under development. Microsoft menjaga keamnan dan peraturan mengenai informasi dari Windows 7 ini sebagaimana mereka memfokuskan diri pada pengembangan marketing dari Windows Vista, Microsoft juga tidak memberikan janji janji akan adanya feature baru karena kebanyakan feature yang diberikan ini beresiko memberikan kesan yang buruk apabila terjadi kegagalan. Sejarah Circa 2000, Windows XP dan server counterpart nya yaitu Windows Server 2003 (dengan codename Whistler) direncanakan untuk menerukan ke release Windows berikutnya yang diberinama codename Blackcomb (kedua codename merupakan referensi dari Whistler-Blackcomb) dan di jadwalkan untuk release tahun 2005 yang lalu.Banyak penambahan feature dan perbaikan yang diberikan pada Blackcomb, termasuk studi emphasis mengenai searching and querying data dan sebauh teknologi advanced storage system yang disebut dengan WinFS untuk mengaktifkan skenario tersebut. dalam konteks ini, yang disebutkan oleh Bill Gates untuk Blackcomb pada saat itu adalah: “a pervasive typing line that will recognize the sentence that [the user is] typing in.” Lalu Blackcomb pun di delay dengan memunculkan sebuah minor release, codename “Longhorn”, yang di umumkan pada tahun 2003 . Pertengahan tahun 2003 Longhorn telah mengakuisisi beberapa features yang telah dimiliki oleh Blackcomb, termasuk didalamnya WinFS, Desktop Window Manager, dan versi terbaru dari system components .NET Framework. Setelah munculnya insiden Worms pada musim panas, dimana tiga major viruses meng ekploitasi Windows operating systems dalam waktu yang sangat singkat, Microsoft merubah prioritas development developmen nya, sehingga beberapa Longhorn development pun tertahan sementara menunggu new service packs untuk Windows XP dan Windows Server 2003 yang didalamnya telah di sediakan feature sekuriti yang lebih baik. Development of Windows Vista juga di “reset” pada September 2004 sebagai tanda kalau Microsoft sangat memperhatikan quality dari code yang akan digunakan pada operating system. Hasil dari semua ini menyebabkan WinFS, yang seharusnya menjadi Next Generation Secure Computing Base, dan feature launya yang telah kita lihat pada Longhorn seakan akan menjadi “not ready” untuk di release, dan ini pun tidak muncul pada teknologi Windows Vista atau Windows Server 2008. Sebagai mayor dari pengembangan feature yang ada pada Windows Vista akan muncul pada awal 2006, hingga akhirnya Blackcomb di rename menjadi Vienna. Namun beberapa release dari Windows Vista, telah di konfirmasi oleh Microsoft pada July 20, 2007 dengan mengatakan:
|
|
|
|
<< Mulai < Sebelumnya 1 2 Selanjutnya > Akhir >>
|
| Hasil 1 - 9 dari 15 |