Menyiasati sound di komputer dengan USB Souncard

Assalamu’alaikum Sobat BM, bagaimana kabar anda hari ini??? Semoga anda ada di dalam lindungan Alloh SWT. Amiin.

Bagaimana juga dengan komputer anda??? Apakah masih sehat sehat saja?? J nah.. kali ini saya punya pengalaman baru yang mungkin bagi sebagian orang sudah bisa di bilang kudet (kurang update) tapi siapa tahu berguna juga bagi anda.

Pengalaman saya ketika saya tidak mempunyai soundcard untuk mengeluarkan suara ke speaker yang saya punya. Disini saya menemukan hal yang baru yaitu soundcard yang hanya sebesar USB dengan kegunaan yang sama seperti souncard yang dipasang pada mother board. 

Keuntungannya antara lain :

·         Bersifat seperti portable.

·         Kegunaan yang sama seperti souncard on board

·         Harga lebih murah.

·         Simple.

·         Tidak mesti meginstall drivers, karena sudah otomatis menginstall file-file dan drivers-nya.

Kekurangannya :

·         Tidak statis, artinya ketika dilepas maka sama saja tidak  memakai souncard

·         Rentan kerusakan

·         Suara yang keluar sedikit kurang maksimal, tetapi saya juga belum tau untuk merek lain atau komputer spesifikasi lain. Disini saya menggunakan speaker SIMBA JPL 12.500 Watt PMPO dan setelah dibandingkan seuaranya dengan suara dari DVD player saya perbandingannya 30 % lebih jelek.

Sejauh ini saya fine fine saja. Enjoy.  Cara kerja nya anda cukup memasang USB souncard kemudian menyambungkan USB Souncard ke Speaker dengan kabel jack mono- stereo. Kemudian tunggu USB Souncard mengcopi file dan menginstall drivernya.  Setelah selesai dan tampil “NEW HARDWARE ARE INSTALLED”. Restar  komputer supaya menyegarkan sistem  komputer.

Nah semoga bermanfaat dan enjoy.

Wassalamu’alaikum.

Read More

Membuat Data Report atau laporan di visual Basic 6.0

Assalamu’alaikum Sobat BM,

Bagaimana pembahasan tentang membuat database seblumnya? Kalau sudah bisa  di pahami, sekarang  kita lanjutkan ke pembahasan mengenai membuat laporan database di visual basic, jadi mohon maaf kalau yang belum membaca part sebelumnya mengenai Membuat DataBase di Visual Basic 6.0. untuk membaca bahasan sebelumnya silahkan anda klik disini

Baiklah sobat BM  kalu anda sudah siap mari kita lanjutkan ke pembahasan selanjutnya. Report atau dalam bahasa indonesianya berarti laporan adalah salah satu elemen dalam visual basic dimana kita dapat membuat laporan berupa test atau gambar seperti dalam microsoft Word, bisa langsung di print. Tampilannya pun bisa kita sesuaikan, hanya saja disini kita harus memperhatikan juga database karena data yang ditampilkan dalam laporan ini adalah data yang ada dalam database.

Untuk membuat laporan tersebut caranya adalah sebagai  berikut:

·         Buka program visual basic yang akan dibuat laporan, silahkan buka program yang sudah kita bahas sebelumnya.

·         Klik menu Project – Add Data Environment. Kemudian muncul kolom sebagai berikut :

 

 

·         Klik kanan pada connection1 kemudian pilih Microsoft JET 4.0 OLE DB Provider  next.

·         Pada tab connection kita tentukan lokasi pengaksesan database program  yang kita simpan. Contohnya pada komputer saya menyimpannya di D:\Project Agung\datapegawai.mdb. klik tombol test connection. Jika sukses kita klik ok.

·         Masih pada connection1 kita klik kanan dan add command. Klik kanan pada command1 dan pilih properties. Command name diisi dengan command1 dan connection pilih connection1.

·         Pada source of data pilih table pada database objectnya dan pada object name kita tentukan table databasenya. Pada program yang kita bahas berarti table pegawai. Perhatikan gamabar berikut :

·         Langkah selanjutnya adalah membuat datareportnya. Pilih menu project – add DataReport.

·         Design lah laporan sesuai kesukaan anda. Atau untuk mempermudah pemahaman anda perhatikan terlebih dahulu design sederhana yang saya buat.

·         Pada report header kita simpan judul dari laporan kita misalkan LAPORAN DATA SIMPANAN PEGAWAI

·         Kemudian pada page header (section 2) kita isi dengan Report label (RptLabel) buatlah label sebanyak jumlah dari field database kita, pada program ini kita isi caption nya masing masing ( Nik, Nama , Alamat, No. Rekening, Gaji Bulanan, Potongan, PPN, Simpanan, Gaji bersih)

·         Pada baris Detail (section1) kita isi dengan Report text box (RptTextBox). Tamabahkan sesuai dengan data field pada database pula, design sesuai dengan page header (section 2). Dengan keterangan properties sebagai berikut :

Text1 RptTextbox properties

Data field = nik

Data Member= Command1

Text2 RptTextbox properties

Data field = nama

Data Member= Command1

Text3 RptTextbox properties

Data field = alamat

Data Member= Command1

Text4 RptTextbox properties

Data field = no_rek

Data Member= Command1

Text5 RptTextbox properties

Data field = gaji_bulan

Data Member= Command1

Text6 RptTextbox properties

Data field = potongan

Data Member= Command1

Text7 RptTextbox properties

Data field = ppn

Data Member= Command1

Text8 RptTextbox properties

Data field = simpanan

Data Member= Command1

Text9 RptTextbox properties

Data field = gaji_bersih

Data Member= Command1

Tutup data report. Kemudian kita tambahkan listing pada program kita misalkan pada program ini :

Private sub command3_click()

Datareport1.show

End sub

Jalankan program dan enjoy...!!! selamat mencoba sobat BM semuanya. Untuk sharing atau ada yang kurang paham dan mau menambahkan silahkan Post kan komentar anda.

Wassalamu’alaikum.

Read More

About Me & My Blog

Assalamu’alaikum Warahmatulloh Wabarokatuh

Profile saya, memang  sulit untuk saya menerangkan tentang diri saya sendiri. Karena menilai diri sendiri adalah hal yang paling sulit.

Menerangan diri sendiri kadang kita menemukan kesulitan karena kita merasa tidak yakin dengan apa yang ada pada diri kita. Tapi disini saya hanya bermaksud meyakinkan bahwa inilah saya yang sesungguhnya. Supaya memebrikan stimulus yang baik terhadap diri saya.

Saya hanyalah manusisa biasa yang sedang ingin menggeluti lebih jauh tentang dunia internet, komputer, dan lainnya karena ini lah yang saya anggap sebagai dunia saya.

Saya berasal dari tasikmalaya, pada tahun ini (2010) saya berumur 21 tahun. Cita cita saya memang tidak tertentu. Karena keinginan saya biasanya dikondisikan dengan keadaan dan perkembangan zaman. Kenapa demikian??? Karena saya berpikir menjadi guru sebagai cita cita saya dulu tidak efektif jika dibandingkan denga perkembangan zaman, bukan berarti jadul, tetapi jika kita menginginkan menjadi guru maka kita harus menikmati indahnya persaingan dengan jutaan pasang mata di indonesia misalnya. Maka keinginan saya bisa dibilang mengalir. Biarlah waktu dan usaha saya nanti yang menentukan saya menjadi apa. Yang penting disini saya mengetahui apa yang menjadi dasar saya dan keinginan serta apa yang saya bisa.

Mengenai blog yang saya buat, BLOG MINI INDONESIA, mulanya saya hanya membuat blog pribadi dengan nama domain atjeev.blogspot.com.  Namun saya berpikir bahwa apa yang saya torehkan di blog saya ini harus memiliki manfaat juga bagi orang lain. Tidak hanya sebagai ungkapan pribadi belaka. Kemudian saya mengubahnya menjadi blog-mini-indo.blogspot.com pada awal tahun 2010  sampai sekarang.

Mudah mudahan dengan blog yang sederhana ini bisa memberikan manfaat kepada para pengunjung sekalian.

Wassalamu’alaikum Warrahmatulloh Wabarokatuh.

Read More

Zona My Mig33

Mig33 merupakan aplikasi social networking yang berbasis chatting, dimana pada aplikasi ini kita dapat berhubungan secara langsung melalui text kepada teman kita.

Mig33 sudah dipublikasikan sejak 2005 lalu. tak heran jika penggunanya sekarang sudah mencapai angka million.bahkan hampir setiap negara bisa menikmati layanan chatting mig33.wah... hebat ya...!!

Lalu apa yang menyebabkan mig33 begitu banyak peminatnya?? ternyata eh ternyata, mig33 mempunyai kelebihan dibanding aplikasi sejenisnya seperti nimbuzz, ebuddy, yehba, dll. kelebihannya antara lain aplikasi ini hampir lebih dari 2000 tipe hape mampu menjalankan aplikasi ini. karena aplikasi paling jadulnya dapat dioperasikan minimal dengan mobile yang ber-java MIDP 1.0. aplikasi mig33 juga mempunyai kelebihan dari segi fitur yang ada di dalamnya, yaitu chatroom, avatar, send photo, private chat, dll. kemudian dari segi bahasanya, pada aplikasi ini pengguna dari indonesia bisa dikatakan paling populer, sehingga pada aplikasi mig33 sedah tersedia bahasa indonesia, dan lebih hebat lagi, saking creatifnya anak indonesia, aplikasi mig33 ini bisa di edit dan di modif sehingga nerubah tanpilan yang lebih kena dan sesuai keinginan, bahkan bahasa nya pun lebih tradisional, "Sunda Aya", "jawa ono". hehe..!!

loh??? gak percaya?? buktiiin....

lalu bagaimana kalo kita ingin chatting dengan menggunakan aplikasi mig33 ini? gampang saja, mau daftar di HP atau di komputer? syarat nya Hp ada harus ada pulsanya dan juga konek internetnya..(just kiding). begitu juga dengan komputer anda harus konek internet. kemudian jika anda ingin melakukan registrasi mig33, silahkan pergi ke alamat " wap.mig33.com/join.php " dan " www.mig33.com/register.php " untuk yang join dari komputer.atau klik aja disini
selanjutnya isi semua pertanyaan dan persetujuan. untuk pengoperasiaanya, aplikasi ini bisa di download di wap.mig33.com/download.php,atau ikuti link download ini. sedangkan untuk komputer, kita hanya masuk ke halaman web mig33.com, kemudian login dan chat deh.

sekian dulu ya... dah ngantuk nie... bye dulu, tar di edit lagi.

Read More

Link Favorite

ada beberapa link yang saya sukai, macm macam sih. ada link yang saya kunjungi hanya untuk browsing, bahan materi, download bahkan chatting.


link-link yang bisa saya kunjungi antara lain :


1. link browsing

surya sience www.suryascience.co.nr

design grafis www.ilmugrafis.com

2. link download

indowebster www.indowebster.com

3. link chatting and social networking

facebook www.facebook.com

koprol www.koprol.com

twitter www.twitter.com

yahoo www.yahoo.com

mig33 www.mig33.com

nimbuzz www.nimbuzz.com

Read More

Pasang Iklan Gratis di Blog Mini Indonesia

Dengan tampilan baru, Blog Mini Indonesia Kini memberikan kesempatan kepada anda untuk mempromosikan bisnis anda baik itu secara online ataupun secara manual. Bisnis yang boleh anda promosikan tidak dibatasi apapun itu barangnya atau jasanya asalkan barang atau jasa itu bermanfaat dan tidak merugikan serta tidak dilarang oleh undang-undang.

Cara nya mudah sekali untuk mempromosikan bisnis anda melalui iklan banner gratis yang kami sediakan khusus bagi anda yang menginginkan bisnisnya semakin dikenal dan berkembang. Syaratnya tidak sulit, anda cukup mengirimkan file file berikut :

1. File gambar banner berukuran 125 x 125 pixel maksimal 100 kb. Dan kami sarankan ukuran file tidak terlalu besar supaya tidak mengganggu proses loading.

2. Data diri anda dalam format apa saja baik berupa word, wordpad, atau notepad. Cantumkan nama, alamat lengkap, tempat tanggal lahir, propesi, alamat email serta photo pribadi anda. Sebagai bahan data untuk kami.

3. File tersebut disatukan dalam file berformat .rar atau .zip

File tersebut bisa anda kirimkan melalui email kami di blog_mini_indo@yahoo.com atau anda bisa langsung menghubungi di nomor 085223699488.

Apabila anda merasa bingung dan kesulitan dengan design banner anda, silahkan hubungi no yang tercantum. Mungkin ada sedikit biaya tambahan , wah??? Tetep aja ngarep.com ya... .

Semuanya gratis, tidak dipungut biaya kecuali dengan keridhoan dan keikhlasan saudara. Bukankah menolak rejeki itu tidak baik bukan ????

Oke lah kalau begitu selamat mencoba dan selamat bergabung bersama Blog Mini Indonesia

Read More

Membuat Databse di Visual Basic 6.0 PART II (LISTING CODE)

Nah Sobat BM, kita lanjutkan pembahasan kita pada Belajar Membuat Database  Di Visual Basic 6.0. bagi yang belum membaca Part I silahkan BACA BULU BELAJAR MEMBUAT DATABASE DI VISUAL BASIC PART I.bagi yang sudah baca... ayooo kebut..... 

Silahkan  agar tidak berlama lama ketikan listing berikut pada kolom view kode :

Private Sub Command1_Click()

Dim salah As Integer

If Command1.Caption = "SIMPAN" Then

If Text1.Text = "" Then

  salah = MsgBox("NIK harus diisi", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text1.SetFocus

  End If

ElseIf Text2.Text = "" Then

  salah = MsgBox("NAMA harus diisi", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text2.SetFocus

  End If

ElseIf Text3.Text = "" Then

  salah = MsgBox("ALAMAT harus diisi", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text3.SetFocus

  End If

ElseIf Text4.Text = "" Then

  salah = MsgBox("NO REKENING harus diisi", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text4.SetFocus

  End If

ElseIf Text5.Text = "" Then

  salah = MsgBox("GAJI harus diisi dan diisi dengan angka", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text5.SetFocus

  End If

ElseIf Text6.Text = "" Then

  salah = MsgBox("POTONGAN harus diisi dan diisi dengan angka", vbCritical + vbOKOnly, "Kesalahan")

  If salah = 1 Then

  Text6.SetFocus

  End If

Else

Data1.Recordset.AddNew

Data1.Recordset!nik = Text1.Text

Data1.Recordset!nama = Text2.Text

Data1.Recordset!alamat = Text3.Text

Data1.Recordset!no_rek = Text4.Text

Data1.Recordset!gaji_bulan = Text5.Text

Data1.Recordset!potongan = Text6.Text

Data1.Recordset!ppn = Text7.Text

Data1.Recordset!simpanan = Text8.Text

Data1.Recordset!gaji_bersih = Text9.Text

Data1.Recordset.Update

Command1.Caption = "DATA BARU"

End If

Else

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text1.SetFocus

Command1.Caption = "SIMPAN"

End If

End Sub

Private Sub Command2_Click()

Dim ingat As Integer

ingat = MsgBox("Apakah Anda Yakin Akan Menghapus Data??", vbCritical + vbYesNo, "Konfirmasi")

If ingat = 6 Then

Data1.Recordset.Delete

Data1.Refresh

End If

End Sub

Private Sub Command3_Click()

DataReport1.Show

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

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_Change()

Text9.Text = Val(Text5.Text)

End Sub

Private Sub text5_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_Change()

gaji = Val(Text5.Text)

pot = Val(Text6.Text)

ppn = 0.1 * gaji

Text7.Text = ppn

simpanan = 0.05 * (gaji - ppn)

Text8.Text = simpanan

total = gaji - pot - simpanan

Text9.Text = total

End Sub

Wah wah wah..... cukup panjang dan cukup pusing ??? untuk text yang berwarna biru kosongkan sja bulu(jangan dimasukan ke dalam kode) itu sebagai bahan bahasan kita nanti dalam membuat laporan database. saya kira tidak sulit. Saya yakin anda bisa memahaminya. Jalankan program dan enjoy deh...... untuk meminta program ini silahkan anda kirim email atau tinggalkan komentar anda. Terimakasih semoga bermanfaat.

Salam Sobat BM.

Read More

Belajar Database di Visual Basic 6.0 (PART I DESIGN)

Assalamu’alaikum. Nah buat sobat BM yang sudah paham dengan belajar awal di VB. Sekarang kita lanjut ke pembahasan selanjutnya yaitu mengenai membuat program dengan data base.
Sebelum kita lebih lanjut, kita mengenal dulu apa itu database dan apa tujuan dari adanya database.
Database bisa diartikan sebagai kumpulan data-data yang berisi elemen elemen biasanya berupa tabel. Tujuan dari database itu senditi adalah untuk menyimpan data data yang tidak sejenis agar mudah diakses.
Kemudian database dalam VB terdapat beberapa macam. Namun kali ini kita akan belajar dengan database acces. Untuk lebih paham, kita langsung aja belajar membuat program contohnya program simpanan gaji karyawan dengan databasenya. Program ini saya buat untuk remidial teman saya, jadi jangan heran kalau ada nama dia di program ini. Hehe maaf ya berhubung waktunya terbatas jadi saya belum sempat mengeditnya lagi. Langkah yang pertama seperti biasa anda buka program visual basicnya dan buatlah project baru.
Buatlah tampilan seperti gambar berikut:

Untuk menambah komponen data base nya silahkan anda masukan dari toolbox, klik kanan add component dan pilih Data bound list control 5.0 (SP3) lalu klik oke.

Nah sobat BM. Setelah anda menyetting tampilan dan menambahkan komponen berikut, sekarang kita tambahkan database ke program kita. Caranya dengan memilih menu bar add-ins – Visual Data Manager, setelah itu karena kita belum mempunyai database maka kita harus membautnya dulu. Caranya dengan menu- new- Microsoft Acces- Version 7.0. simpan dengan nama datapegawai seperti pada gamabar berikut :

Lau akan muncul kolom dialog properties, klik kanan dan pilih new table seperti gambar di bawah ini :

Lalu akan tampil kolom dialog lagi seperti dibawah ini :

Pada tabel name isi dengan “pegawai” kemudian klik add field untuk menambahkan variable-variable yang kita butuhkan.

Isikan name, type dan size. Kemudian klik ok dan tulis lagi variable yang  kita butuhkan. Jika selesai klik close.  dengan ketentuan sebagai berikut :

Nama Variable                  type                       size

nik                                       text                          8

nama                                   text                          25

alamat                                 text                          50

no_rek                                text                          10

gaji_bulan                           currency                    8

potongan                            currency                     8

simpanan                            currency                   8

gaji_bersih                         currency                    8

ppn                                    currency                   8

setelah itu kita tentukan indeks nya sebagai kunci dari database, artinya hanya cariable indeks yang membedakan record yang satu dengan record yang lain. Pilih nik sebagai indeksnya dan beri nama indeks_nik karena dalam  suatu perusahaan tidak mungkin  mempunyai dua nik atau ada nik yang sama. Jika sudah jangan lupa untuk membuat tabelnya dengan memilih Built Table. Tutup database nya dan kita kembali ke form design.

 kita hubungkan database dengan form yang kita buat. Caranya :

1.       Pada data1 properties silahkan ikuti langkah berikut:

·         Database name = lokasi database anda. Klik pada tombol searchnya dan pilih “datapegawai” karena database yang kita buat tadi adalah dengan nama “datapegawai “

·         Pada RecordsetType  pilih Dynaset.

·         Pada Recordsource Pilih pegawai.

2.       Pada Data Bound Grid kita koneksikan dengan data1. Karena data1 adalah sebagai jembatan penghubung antara DBGrid1 dengan database.  Caranya adalah sebagai berikut :

·         Pada datasource pilih data1. Cukup.

Nah sampailah kita pada langkah intinya yaitu membuat kode logikanya. Karena percuma tampilan bagus kalau program tidak jalan. J

Untuk melanjutkan bacaan ini silahkan klik LANJUTKAN

Read More

Aplikasi Multy Kick Mig33

Assalamu’alakum Sobat BM, bagaimana kabar anda hari ini? Oke sobat kali ini saya akan sedikit membahas tentang aplikasi chatting syang saya gemari, yaitu mig33. Kenap bisa begitu?? Soalnya aplikasi ini sangat fleksibel, ringan, dan komplit. Fleksibel karena aplikasi ini tidak statis dan terus mengikuti perkembangan jaman, baik dari segi tampilan, main aplikasi, emoticons, IM dan banyak lagi. Kemudian pengguna aplikasi mig33 ini juga lebih aktif. Tidak tergantung dari produk bawaan. Saya sebut aplikasi ini ringan. Kenapa?? Karena hp jadul sekalipun asalkan minimal memenuhi syarat atau support java MIDP 1.0 sudah bisa menikmati fasilitas chatting. Cntoh sederhana anda bisa menjalankan aplikasi ini di ponsel Nokia 3100. Komplit ?? kayak nasi timbel aja ya... :D ya karena aplikasi ini menyediakan fasilitas other IM yang fungsinya untuk mneghubungkan account anda di YM,Gtalk,AIM,OAL,Facebook, dan lain lain sesuai kemajuan tekhnologi. Mungkin kedepannya mig33 bisa sambil video chat kali ya??? Kita tunggu saja.

Nah untuk kali ini saya akan membahas mengenai aplikasi multy kick mig33, aplikasi yang digunakan untuk menendang seseorang dari Chat Room, tentunya bbukan menendang langsung orangnya di hadapan kita, tetapi menendang id mig33 atau nick dari kamar obrolan. Bahkan bisa tanpa vote. Karena aplikasi Multy Kici Mig33 (MKM) ini bisa Onlen denga beberapa Nick.  Hal ini dilakukan misalnya karena Nick yang akan di kick chat dengan tidak sopan, rusuh, jorok, atau mencela. Bahkan ada yang melakukan kick hanya untuk iseng. Ya.. begitulah orang. Ada ada saja.

Bagi anda yang penggila mig33 dan sedang mencari aplikasi multy, mungkin ini bisa menjadi pilihan. Sebetulnya saya belum pernah mencoba betul, hanya saja saya pernah menyimpannya di ponsel saya dan support. Bagi yang ingin mencoba lebih dalam silahkan anda bisa mendownloadnya disini

Semoga bermanfaat Sobat BM, enjoy ya!! And keep friendship.

Wassalamu’alaikum.

Read More

Membuat Program Awal Visual Basic Untuk Pemula

Sobat BM, setelah anda mengenal apa itu visual basic dan elemen elemennya kini saatnya kita memulai mempraktikannya.

Disini saya mempunyai beberapa contoh program-program  sederhana pembelajaran Visual Basic.

Seilahkan pilih Project yang anda mau!

•   Program Alat Hitung Sederhana(membuat kalkulator sendiri yang sangat sederhana)
•   Program Penukaran Huruf Dan Warna Pada Visual Basic (belajar program untuk merubah warna teks serta warnanya dengan script yang sangat mudah)
•   Memahami Konsep Pemilihan If Else Pada VB (belajar lebih jauh tentang program visual Basic dengan konsep percabangan if else. Sangat penting)

Silahkan saja anda pilih dan enjoy..!!

Selamat belajar. Salam Blogger sobat BM. J

Read More

Program alat hitung sederhana dengan Visual Basic

Sobat BM, program visual basic sangat erat kaitannya dengan perumusan aritmetika, perhitungan perhitungan dan juga logikanya. Karena ini merupakan bahasa pemrograman. Kali ini saya akan membawa anda ke program awal mengenai program aritmatika yaitu program perhitungan.

Program alat hitung sederhana, disini saya hanya akan menjelaskan beberapa contoh ringan saja. Agar lebih efisien lagi, kita langsung saja ke inti dari artikel ini yaitu pembahasan. Buka program visual basic anda pada start window dan all program. Kemudian pilih new project.

Buatlah layout tampilan sebagai berikut :

 

Atau sesuka anda yang penting nyaman untuk anda.

Propertiesnya sebagai berikut:

Label1 properties

Caption = “Bilangan Pertama”

Label2 properties

Caption = “Bilangan kedua”

Textbox properties

Text=(kosong)

Command properties

Command1         caption=  +

Command2         caption=  -

Command3         caption= *

Command4         caption= /

Command5         caption= ON

Command6         caption= OFF

Command7         caption= EXIT

Command8         caption=CLEAR

Command9         caption=EXIT

Selanjutnya silahkan anda masukan listing berikut :

Private Sub Command1_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 + bil2

Text3.Text = hasil

End Sub

Private Sub Command2_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 - bil2

Text3.Text = hasil

End Sub

Private Sub Command3_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 * bil2

Text3.Text = hasil

End Sub

Private Sub Command4_Click()

bil1 = Val(Text1.Text)

bil2 = Val(Text2.Text)

hasil = bil1 / bil2

Text3.Text = hasil

End Sub

Private Sub Command5_Click()

Text1.Text = 0

Text2.Text = 0

Text3.Text = 0

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command6.Enabled = True

Command8.Enabled = True

Command5.Enabled = False

Text1.SetFocus

End Sub

Private Sub Command6_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command8.Enabled = False

Command6.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command7_Click()

End

End Sub

Private Sub Command8_Click()

Text1.Text = 0

Text2.Text = 0

Text3.Text = 0

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command6.Enabled = False

Command8.Enabled = False

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

Setelah itu silahkan sobat BM menjalankan programnya dan enjoy J. Kalau masih ada yang ditanyakan, silahkan koment di nawah. Atau yang mau mengkoreksi dan  menambahkan juga boleh. Program ini bisa di download disini

Read More