Kamera Digital Fujifilm FinePix S2980

FUJIFILM Finepix S2980 Terbaru dan terbaik dengan harga yang relative murah sebesar Rp.1.800.000. Dengan menggunakan lensa sensor resolusi 14 MP, kamera Fujifilm FinePix ini benar benar memanjakan anda dalam hal pengambilan gambar. Kualitas gambar yang dihasilkan dari Kamera Digital Fujifilm FinePix ini sangat tajam dan bagus. Kemampuan zoom yang sangat jauh sebesar 18x dan sangat cocok sekali digunakan untuk bepergian misalnya berlibur ke pantai, ke kebun binatang/ taman safari dll..

Satu hal yang sangat menarik dari Fujifilm FinePix S2980 ini adalah mempunyai bentuk yang hampir mirip dengan kamera DSLR. DI samping itu, hasil gambar dari Fujifilm FinePix S2980 ini sangat jernih meskipun anda mengambil gambar di Outdoor atau indoor. Kamera ini secara automatis akan menyesuaikan cahaya yang ada sehingga hasilnya pun bisa memuaskan.

Di bagian belakang terdapat LCD dengan ukuran 3,0 inch. Dengan LCD yang cukup besar, anda bisa mereview hasil gambar dan video sehingga kita bisa memfilter gambar apa yang perlu di ambil/di simpan dan gambar mana yang perlu di buang.

Kamera ini juga di lengkapi Auto Scene Recognition. Seperti yang saya jelaskan di atas, fungsi dari Auto Scene Recognition ini adalah mengatur secara automatis dan optimal pencahayaan dimanapun kondisi anda berada,baik di dalam ruangan ataupun di luar ruangan sehingga Anda mendapatkan gambar yang terbaik dimanapun dan kapanpun.

Untuk kualitas video, jangan diragukan lagi, Kamera Fujifilm FinePix S2980 ini dilengkapi dengan video HD 720p sehingga hasil rekalamn kita dapat ditampilkan dalam format 16×9 full screen.

 

Kelengkapan :

• Baterai Alkaline AA
• CD Instalasi
• Buku Panduan
• Kartu Garansi 1 Tahun
• Bonus: Kartu Memori V-Gen SDHC 8 GB + Tas S Series

FUJIFILM Finepix S2980 Rp.  1.499.000 (hanya di bhinneka.com)

Cukup sekian review dari kami tentang FUJIFILM Finepix S2980. Semoga kamera FUJIFILM Finepix S2980ini bisa menjadi alternative buat anda yang lagi bingung mencari kamera digital murah dan canggih.

Read More

Cara membuat folder dan menghapus folder dengan visual basic

Yang harus di perhatikan dalam pembuatan folder adalah :
 - Pastikan bahwa folder memang benar-benar baru (Tidak ada folder yang sama dengan folder yang kita buat) .
- Tidak boleh mengandung simbol .:'"][*$#%^ dan sebagainya .

Untuk perintah membuat folder :
MkDir (“D:\Agus”)
'Folder yang kita buat terletak di D:\Agus

Untuk menghapus semua isi yang ada di dalam folder (tidak termasuk foldernya, tapi cuma isi di dalamnya) :
Kill “D:\Agus\*.*”

Untuk menghapus folder :
 RmDir (“D:\Agus”)

Selesai, semoga dapat membantu :)

Read More

Menyimpan Foto ke database di Visual Basic

Karena banyak pertanyaan dari teman-teman dan komentar request tentang bagaimana membuat program menyimpan foto atau gambar di vb 6.
Maka pada pembahasan kali ini saya akan membahas tentang bagaimana cara menampilkan dan menyimpan foto pada folder yang kita buat menggunakan visual basic 6.
Untuk menyimpan foto, kita bisa menggunakan database atau tidak, pada program kali ini saya akan membuat program penyimpanan foto langsung ke folder foto yang saya buat, jadi foto tidak disimpan ke dalam database, tapi dalam folder foto yang sudah kita buat sebelumnya.

Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.

Kemudian buat database access dengan nama dblatihan.mdb seperti dibawah ini :

Nama Database : dblatihan

Nama Tabel       : data

Field	Data Type	Size
NRP	Text	10
Nama	Text	30
Jurusan	Text	35

Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.

Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :

 

 Componen tambahan yang digunakan pada desain form diatas adalah :

- Microsoft ADO Data Control 6.0

- Microsoft Common Dialog Control 6.0

- Microsoft DataGrid Control 6.0

Kemudian ubah properti name pada masing-masing command menjadi seperti ini :

untuk command Simpan = cmdsimpan

- Edit = cmdedit

- Hapus = cmdhapus

- Bersihkan = cmdbersih

- Cari Foto = cmdcari

- Keluar = cmdkeluar

Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :

1. Public conn As New ADODB.Connection  
2.   
3. Public RSdata As New ADODB.Recordset  
4.   
5.    
6.   
7. Sub koneksi()  
8.   
9. Set conn = New ADODB.Connection  
10.   
11. Set RSdata = New ADODB.Recordset  
12.   
13. conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"  
14.   
15. End Sub  

Kemudian pada form activate dan form load ketikkan kode perintah berikut :

1. Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif  
2. Call koneksi  
3.   
4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"  
5.   
6. Adodc1.RecordSource = "data"  
7.   
8. Adodc1.Refresh  
9.   
10. Set DataGrid1.DataSource = Adodc1  
11.   
12. DataGrid1.Refresh  
13. End Sub  
14.   
15. Private Sub Form_Load()   
16. Text1.Text = ""  
17. Text2.Text = ""  
18. Text3.Text = ""  
19. Text4.Text = ""  
20. Text4.Enabled = False  
21. End Sub  

Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :

1. Private Sub TampilkanData()  
2. Text2 = RSdata!nama  
3.   
4. Text3 = RSdata!jurusan  
5.   
6. Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
7. End Sub  

Perintah untuk mencari data dengan acuan dari Text1 :

1. Function CariData()  
2.     Call koneksi  
3.   
4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
5. End Function  

Perintah untuk mengosongkan text inputan :

1. Function CariData()  
2.     Call koneksi  
3.   
4.     RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn  
5. End FunctionPrivate Sub kosong()  
6.   
7. Text1.Text = ""  
8. Text2.Text = ""  
9. Text3.Text = ""  
10. Text4.Text = ""  
11. End Sub  

Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :

1. Private Sub simpan()  
2. SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"  
3. End Sub  

Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.

1. Private Sub cmdcari_Click()  
2. cmndialog.ShowOpen  
3. Text4 = cmndialog.FileName  
4. End Sub  

Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.

1. Private Sub cmdsimpan_Click()  
2.   
3. Dim SQLTambah As String  
4.   
5.  Call simpan  
6.   
7.             SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"  
8.   
9.             conn.Execute SQLTambah  
10.   
11.             Form_Activate  
12.   
13. End Sub  

Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.

1. Private Sub cmdedit_Click()  
2.  Dim SQLEdit As String  
3.  Call simpan  
4.   
5.             SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"  
6.   
7.             conn.Execute SQLEdit  
8.             Form_Activate  
9. End Sub  

Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.

1. Private Sub smdhapus_Click()  
2. Adodc1.Recordset.Delete  
3. Adodc1.Recordset.Update  
4. DataGrid1.Refresh  
5. End Sub  

Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.

1. Private Sub cmdbersih_Click()  
2. Text1.Text = ""  
3. Text2.Text = ""  
4. Text3.Text = ""  
5. Text4.Text = ""  
6. Text1.SetFocus  
7. End Sub  

Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.

1. Private Sub Text1_LostFocus()  
2. Call CariData  
3.   
4.         If Not RSdata.EOF Then  
5.   
6.             TampilkanData  
7.   
8.             MsgBox "Data Ditemukan"  
9.   
10.         Else  
11.   
12.             Text2.Text = ""  
13.   
14.             Text3.Text = ""  
15.   
16.             Text4.Text = ""  
17.   
18.         End If  
19.   
20. End Sub  

Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.

1. Private Sub Text4_Change()  
2. Image1.Picture = LoadPicture(Text4)  
3. End Sub  

Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :

 

Oke sampai disini dulu pembahasannya, semoga bermanfaat dan bisa membantu ^_^

Read More

Membuat Menu treeview Visual Basic 6

Treeview Control pertama kali terintegrasi pada Visual Basic 5 dan selalu digunakan untuk menampilkan informasi secara bertingkat.

Anda tentu sudah sering melihat windows explorer.
Lihat gambar di bawah ini:



Gambar di bagian adalah gambar contoh Treeview pada windows explorer.

sekarang kita akan membuat treeview dengan Dua Induk dan Empat Anak pada masing-masing cabang (Node) memakai Visual Basic.

Buka project baru pilih standard project lalu klik Project - Componen - Pilih Windows Common Control.

Lihat gambar di bawah ini:


Anda akan melihat di Toolbox sebelah kiri ada penambahan control Treeview. Lihat gambar di bawah ini:


Double klik kontrol Treeview tersebut lalu atur sedemikian rupa letaknya pada form.

Lalu ketik kode seperti dibawah ini:

Private Sub Form_Load()
  Dim NodX As Node
  TreeView1.LineStyle = tvwRootLines
  For i = 1 To 2
    TreeView1.Nodes.Add , , "keyRoot" & CStr(i), i    

      For j = 1 To 4

       Set   NodX = TreeView1.Nodes.Add("keyRoot" & CStr(i), tvwChild, "keySub" & i & j, "i" & i & "." & "j" & j)

      Next j
   Next i
End Sub


Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

   MsgBox Node.Key
End Sub


Jalankan program. Klik tanda positip pada Treeview. Lalu klik salah satu cabang. Anda akan melihat gambar seperti di bawah ini:

Read More

Kreasi Menu pada Visual basic 6

Hampir kebanyakan aplikasi database menggunakan menu. Menu terbagi atas dua jenis menu, yang pertama pull-down menu dan yang kedua pupup menu.

Pull-Down Menu
Pull-down menu adalah menu yang kelihatan di menu utama, yang biasanya terletak di paling atas form induk aplikasi. Seperti gambar di bawah ini :

Untuk membuat menu pull-down seperti gambar diatas, caranya sebagai berikut :

1. Klik tombol menu editor pada toolbar
   
   
2. Setelah tombol menu editor di klik maka akan tampil jendela menu editor seperti gambar di bawah ini :
   
   
   Isikan Caption, Name, dan Index.
   perlu di ketahui index berguna untuk membedakan satu menu dengan menu yang lain apabila nama menu sama. penempatan nama menu yang sama harus pada kedudukan yang sama juga.
   
   
3. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :
   
   
   

   Private Sub menuFile_Click(Index As Integer)  
   Select Case Index  
   Case 1  
       Load login  
       login.Show  
   Case 2  
       message = MsgBox("Yakin akan logout ?", vbQuestion + vbYesNo)  
       If message = vbYes Then  
           induk.Toolbar1.Buttons(1).Enabled = True  
           induk.Toolbar1.Buttons(2).Enabled = False  
           For n = 1 To induk.MenuUtama.UBound  
               induk.MenuUtama(n).Enabled = False  
           Next  
           induk.MenuUtama(1).Enabled = True  
           induk.MenuUtama(5).Enabled = True  
           induk.menuFile(1).Enabled = True  
           induk.menuFile(2).Enabled = False  
           induk.menuFile(4).Enabled = True  
           induk.menuFasilitas(1).Enabled = False  
           induk.menuFasilitas(2).Enabled = False  
           induk.menuFasilitas(4).Enabled = True  
           induk.menuKlikKanan.Enabled = False  
           For n = 1 To induk.MenuKlik.UBound  
               induk.MenuKlik(n).Enabled = False  
           Next  
           UnloadAllForms (Me.Name)  
       End If  
   Case 4  
       message = MsgBox("Yakin akan keluar dari program?", vbQuestion + vbYesNo)  
       If message = vbYes Then  
           End  
       End If  
   End Select  
   End Sub  

Pop-Up Menu
Menu pop-up menu adalah menu yang tidak kelihatan oada form. Untuk melihatnya biasanya kita harus klik kanan pada mouse terlebih dahulu.

Untuk membuat menu pop-up menu berikut adalah langkah-langkahnya :

1. Masuk ke menu editor sama seperti membuat pull-down menu.
2. Isi Menu yang akan di tampilkan sebagai pop-up menu, lihat gambar di bawah ini :
   
   
3. Pada menu utama atau menu induk, properti Visible harus dihilangkan seperti gambar di atas. Ingat pada menu utamanya saja.
4. Dalam pemanggilan kejadian ketika mengklik menu, berikut adalah contoh kode programmnya :
   
   
   

   Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)  
       If Button = 2 Then  
           PopupMenu menuKlikKanan  
       End If  
   End Sub  
     
   Private Sub MenuKlik_Click(Index As Integer)  
   Select Case Index  
   Case 1  
       Load data_guru  
       data_guru.Show  
   Case 2  
       Load data_sekolah  
       data_sekolah.Show  
   Case 4  
       Load info_jadwal_supervisi  
       info_jadwal_supervisi.Show  
   Case 5  
       Load pilih_bagian  
       pilih_bagian.Show  
   Case 7  
       Load ganti_password  
       ganti_password.Show  
   End Select  
   End Sub  
   
   Sumber: http://bloglieken.blogspot.com/2011/08/membuat-menu-pada-visual-basic-60.html

Read More

Menampilkan Gambar dengan Command Button Pada Visual Basic 6.0

Buat sobat yg pengen tau gimana caranya buat file gambar di vb 6.0 dibawah ini cara nya
Sebelumnya kita akan menggunakan tool picturebox dan commandbutton

Buatlah form seperti gambar di bawah ini

Kemudian double klik commandbutton lalu tuliskan sintak di bawah ini

Private sub Command_click()
Me.Picture1.Picture = LoadPicture ("Object name ")
End sub

ket :
-Private Sub Command1_Click() = event Command Button saat di klik
- End Sub = akhir dari event
- Me.Picture1.Picture = LoadPicture("C:\Users\Ismy\Pictures\mnl.jpg")

Me di sini adalah sintak untuk memanggil Form. Tidak berlaku untuk Form lain, ini berguna untuk mempermudah jika kita lupa penulisan Name Component. Disini saya memakai file yg berada di drive C dan saya memasukan itu melalui syntak visual basic. Jika anda bingung untuk mencari object name nya :
-klik kanan gambar nya 
-pilih propertis 
-pilih tab security , di atas sendiri ada tulisan object name trus di copy aja.

Sekarang untuk menyesuaikan ukuran picturebox dengan gambar, di bagian properties picturebox 
Autosize menjadi true 
Dengan demikian secara otomatis picturebox akan menyeseuaikan ukuran gambar . kalo mau tau hasilnya tinggal click aja commandbutton nya klo yg di form saya commandbutton nya di ganti caption nya jadi Load Picture.

ini hasil nya 

 Sobat juga bisa pake tool image cuma di ganti sintak nya jadi :
Me.image1.picture = LoadPicture ("Object name")
trus kalo mau menyesuaikan ukuran gambar sobat tinggal ganti strech nya jadi true
hasilnya juga sama aja 

 

sumber:http://ismy-amnes.blogspot.com/2012/10/file-gambar-pada-vb-60.html

Read More

Pembayaran Kuliah, Daftar Ulang, dan Ujian Her Semester Genap 2012/2013

Nomor : 092/2.02/AMIK-BSI/I/2013 Jakarta, 10 Januari 2013
Lamp : -
Hal : Pembayaran Kuliah, Daftar Ulang,
dan Ujian Her Semester Genap 2012/2013
Kepada Yth,
Mahasiswa/i D.III AMIK BSI
Di tempat
Dengan hormat,
Sesuai dengan kalender akademik AMIK BSI dan demi kelancaran proses perkuliahan pada Semester Genap 2012/2013, maka perlu diinformasikan beberapa hal antara lain; pembayaran kuliah, daftar ulang, pengumuman hasil UAS, ujian her, dll. Adapun pembayaran kuliah/daftar ulang harus dilakukan pada tanggal 4 Februari s/d 5 Maret 2013.

Beberapa hal yang perlu mendapat perhatian mahasiswa adalah :
1. Pembayaran biaya kuliah harus melalui ATM Bank yang ditunjuk (BCA, CIMB Niaga, Bukopin, Mandiri, Danamon, Mega Syariah), Internet Banking & M Banking (tgl 4 Februari s/d 5 Maret 2013) dengan mencantumkan NIM secara lengkap. Tidak diperkenankan membayar dengan slip setoran bank maupun segala jenis transfer bank ataupun transfer melalui ATM. (Prosedur pembayaran lihat lampiran).
2. Proses pembayaran kuliah melalui ATM di Bank yang ditunjuk atau melalui Internet Banking tersebut secara otomatis akan menyebabkan mahasiswa yang bersangkutan dinyatakan telah melakukan daftar ulang (registrasi).
3. Pengumuman hasil Ujian Akhir Semester (UAS) Semester Ganjil 2012/2013 pada tanggal 16 Februari 2013, dan dapat diakses melalui Internet (http://www.bsi.ac.id), melalui SMS (Satelindo/Indosat, Telkomsel) & IVR.
4. Ujian Her akan dilaksanakan dengan “Sistem Online”, Jadwal ujian her online, adalah :
a. Pendaftaran ujian her dilakukan melalui web BSI pada tanggal 16 s/d 22 Februari 2013.
b. Jadwal ujian her online dapat dilihat melalui web BSI pada tanggal 2 Maret 2013.
c. Pelaksanaan ujian her online pada tanggal 8 s/d 14 Maret 2013.
d. Perhatikan dan cermati tentang petunjuk pelaksanaan ujian online.
e. Pengumuman hasil ujian her pada tanggal 22 Maret 2013 melalui web BSI.
5. Pengumuman hasil restrukturisasi kelas dan pengumuman jadwal kuliah Semester Genap 2012/2013 pada tanggal 11 Maret 2013 mulai jam 10.00 WIB dan dapat diakses melalui Internet (http://www.bsi.ac.id) dan SMS.
6. Perkuliahan dan praktek semester genap 2012/2013 akan dimulai pada tanggal 18 Maret 2013.
PENTING UNTUK DIPERHATIKAN
1. Keterlambatan proses pembayaran kuliah/daftar ulang akan menyebabkan terhambatnya sistem alokasi dosen, prediksi jadwal kuliah, jadwal praktikum, restrukturisasi kelas, absensi mahasiswa, absensi praktikum, dll. Oleh karena itu, apabila sampai batas tanggal 5 Maret 2013, Saudara belum melakukan pembayaran kuliah/daftar ulang, maka Saudara diharuskan mengajukan (mengurus) cuti akademik sampai dengan tanggal 11 Maret 2013.
2. Mahasiswa yang tidak melakukan proses pembayaran kuliah/daftar ulang Semester Genap 2012/2013 sampai dengan tanggal 11 Maret 2013, dinyatakan mengundurkan diri/drop out (DO).
3. Bagi mahasiswa Diploma Tiga angkatan 2009 dan angkatan sebelumnya, diharuskan untuk tetap melakukan daftar ulang (registrasi) selama mahasiswa yang bersangkutan belum lulus. Mahasiswa yang tidak melakukan daftar ulang (registrasi), tidak dapat melakukan bimbingan Tugas Akhir, ujian her dan kegiatan akademik lainnya.
Agar menjadi perhatian seluruh mahasiswa, dan untuk informasi lebih lanjut dapat menghubungi Bagian Administrasi atau HALO BSI – 8000063.
AMIK BSI
ttd
Ir. Naba Aji Notoseputro

Read More

Membuat Text Format Money dengan VB 6

Hai agan2 semua pa kabar neh.. semoga selalu baek2 aja ya. Pada tutorial kali ini saya ingin berbagi bagaimana membuat text pada textbox VB6 saat diketik otomatis membuat format money dan membentuk digit grouping. coding ini sangat bermanfaat untuk  program yang bertugas melakukan pembayaran,  caranya gampang aja, pada textbox di form VB6 klik 2 kali dan pilih event TExt Change dan copy aja coding berikut  :

Private Sub txtCashTend_Change()  If txtCashTend <> "" Then
  txtCashTend.Text = Format(txtCashTend.Text, "###,###,##0.00")
  starttext = Len(txtCashTend) - 3
   txtCashTend.SelStart = starttext
   End if
End Sub

untuk mencegah agar teks yang diketik tidak menerima input huruf  tambahkan event text key press berikut

Private Sub txtCashTend_KeyPress(KeyAscii As Integer)
On Error Resume Next
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = 13) Then
    Beep
    KeyAscii = 0
End If
End Sub

Read More

Script Membuat Tanggal,Bulan dan Tahun Dengan ComboBox VB 6

Setelah pusing nyari tutorial buat nampilin tanggal di combo box.akhirnya nemu juga. Buat penggemar Visual Basic 6. Sedot gan...
berikut layoout_nya :

Ada dua cara untuk membuat item-item yang ada di ComboBox :

1. secara manual : yaitu, klik kanan pada combobox, pilih Edit Items.
2. dengan code script : Double Klik pada combobox, misalkan pada Jurusan, kita akan membuat 3 buat items, yaitu “Sistem Informasi, Sistem Komputer dan Management Komputer”. Ketikkan code berikut  :

ComboBox1.Items.Add(“Sistem Informasi”)
ComboBox1.Items.Add(“Sistem Komputer”)
ComboBox1.Items.Add(“Management Komputer”)
Membuat Script pada Tanggal Bulan dan Tahun :
1. Double klik pada Form. Kenapa pada form ? karena pada saat form dijalankan data tanggal, bulan dan tahun akan terisi secara automatis pada combobox2 nya. berikut script code_nya :

Private Sub latihan1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'membuat tanggal
        Dim i As Integer
        For i = 1 To 31
            cmbhari.Items.Add(i)
        Next

        'membuat bulan
        cmbbulan.Items.Add("Januari")
        cmbbulan.Items.Add("Februari")
        cmbbulan.Items.Add("Maret")
        cmbbulan.Items.Add("April")
        cmbbulan.Items.Add("Mei")
        cmbbulan.Items.Add("Juni")
        cmbbulan.Items.Add("Juli")
        cmbbulan.Items.Add("Agustus")
        cmbbulan.Items.Add("September")
        cmbbulan.Items.Add("Oktober")
        cmbbulan.Items.Add("November")
        cmbbulan.Items.Add("Desember")

        'membuat tahun
        Dim j As Integer
        For j = 1900 To 2020
            cmbtahun.Items.Add(j)
        Next
    End Sub

Membuat sebuah pesan pada saat mengklick tombol Button OK :
-> berikut tampilannya :

double klik pada Button Ok, ketikkan script berikut :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Nama Anda Adalah : " & txtnama.Text & "", MsgBoxStyle.Information, "Pesan")
    End Sub

Script tombol Close/ Keluar :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
== SELAMAT MENCOBA ==

Read More

Meego OS baru Dari Linux Foundation

MeeGo adalah sebuah sistem operasi open source yang berbasis Linux dan ditargetkan untuk pasar genggam(mobile), biarpun penggunaannya bisa digunakan juga untuk alat elektronik yang lebih besar seperti netbook, tablet, laptop, smartTV, dan lainnya.
MeeGo merupakan proyek kerjasama antara Intel dan Nokia dan pertama kali diperkenalkan melalui pameran Mobile World Congress pada bulan Februari 2010. Ide awal dari pembuatan sistem operasi ini adalah dengan menggabungkan sistem operasi terdahulu dari perusahaan Intel yaitu Moblin dan Maemo dari Nokia menjadi suatu sistem operasi baru yang lebih umum.
Pada bulan februari 2011, Nokia mengumumkan kerjasama dengan Microsoft, dan sejak itu pengembangan sistem operasi MeeGo mulai ditinggalkan karena Nokia memilih untuk lebih fokus terhadap sistem operasi besutan Microsoft,yaitu Windows Phone 7.

• Ponsel Pintar
  • Pada tanggal 21 Juni 2011, Nokia mengumumkan telepon genggam pertama yang menggunakan sistem operasi MeeGo, yaitu Nokia N9 dan Nokia N950, dan akan dirilis dalam tahun 2011.
• Tablet
  • Tablet pertama yang dirilis dengan menggunakan sistem operasi MeeGo adalah WeTab yang dibuat oleh Neofonie. Tablet lainnya adalah Iconia M500 dari Acer^[2]
• Laptop
  • Laptop yang menggunakan sistem operasi MeeGo adalah Asus Eee PC X101^[3] dan Samsung N100^[4]

 Persyaratan Minimal instalasi Meego Untuk Laptop dan Komputer :

• CPU: Intel Atom or Intel Core 2 CPU (support for SSSE3)
  Note: MeeGo will not work on non-SSSE3 CPUs
• Platforms with the GMA-500, Nvidia, or ATI graphics chipsets are not supported

Brand-brand laptop yang telah menggunakan Meego:

• Asus EeePC 901, 1000H, 1005HA, 1008HA, EeePC 1005PE, Eeetop ET1602
• Dell mini10v, Inspiron Mini 1012
• Acer Aspire One D250, AO532-21S, Revo GN40, Aspire 5740-6025
• Lenovo S10
• MSI U130, AE1900
• HP mini 210-1044
• Toshiba NB302

Screenshot Meego:

• 
  Myzone
  
  Myzone out of the box (OOB)
  
  Myzone Compact
  
  Zones Panel
  
  Zones Panel Drag and Drop
  
  Application Launcher
  
  Status Panel
  
  Location Twitter
  
  People Panel
  
  Internet Panel
  
  Media Panel
  
  Media Music
  
  Media Video
  
  Email
  
  File Browser
  
  Customize Toolbar
  
  Devices Panel
  
  Networks Panel
  
  Time and Date Panel
  
   

Read More