Cara Menggunakan Visual Basic untuk Konversi Suhu

Cara Memakai Visual Basic untuk Konversi Suhu

1. Buatlah New Project pada software VB anda kemudian    tambahkan dua buah kontrol frame, enam kontrol OptionButton, dua kontrol TextBox dan satu kontrol commandButton pada form, kemudian atur letaknya seperti pada gambar berikut :

2. Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol	Properti	Setting
Frame1	Caption	Pilih Data Input
Option1	Caption	Celcius
Option2	Caption	reamur
Option3	Caption	Farenheit
TextBox1	Text	Kosongkan
Frame2	Caption	Pilih Data output
Option4	Caption	Celcius
Option5	Caption	reamur
Option6	Caption	Farenheit
TextBox2	Text	Kosongkan
Command1	Caption	Selesai

3. Aktifkan jendela kode, dengan cara klik menu view, pilih code. Buat prosedur rumus dengan cara ketikkan sub rumus konversi dan akhiri dengan enter .

4. Di dalam prosedur Sub Rumus, berikan perintah untuk masing-masing Option sebagai berikut:

Private Sub rumus ()

If Option1.Value = True And Option4.Value = True Then

Text1.Text = Text2.Text

ElseIf Option1.Value = True And Option5.Value = True Then

Text2.Text = Val(Text1.Text) * 4 / 5

ElseIf Option1.Value = True And Option6.Value = True Then

Text2.Text = (Val(Text1.Text) * 9 / 5) + 32

End If

If Option2.Value = True And Option5.Value = True Then

Text1.Text = Text2.Text

ElseIf Option2.Value = True And Option4.Value = True Then

Text2.Text = Val(Text1.Text) * 5 / 4

ElseIf Option2.Value = True And Option6.Value = True Then

Text2.Text = (9 / 4 * Val(Text1.Text)) + 32

End If

If Option3.Value = True And Option6.Value = True Then

Text1.Text = Text2.Text

ElseIf Option3.Value = True And Option5.Value = True Then

Text2.Text = 5 / 9 * (Val(Text1.Text) – 32)

ElseIf Option3.Value = True And Option4.Value = True Then

Text2.Text = 4 / 9 * (Val(Text1.Text) – 32)

End If

End Sub

5. Kemudian klik ganda semua option dengan satu persatu, lalu ketikkan kode/script/listing program berikut ini :

Private Sub Option1_Click()

Call rumus

End Sub

Private Sub Option2_Click()

Call rumus

End Sub

Private Sub Option3_Click()

Call rumus

End Sub

Private Sub Option4_Click()

Call rumus

End Sub

Private Sub Option5_Click()

Call rumus

End Sub

Private Sub Option6_Click()

Call rumus

End Sub

6. klik ganda text1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Text1_Change()

Call rumus

End Sub

7. klik ganda command1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Command1_Click()

End

End Sub

8. Jalankan program / run (F5), coba masukkan nilai berapa saja di text1 kemudian centang pada pilihan data inputnya dan data outputnya.

9. Hasil programnya seperti gambar dibawah ini :

By : http://www.guntursanjaya.com/

Pengertian Macro Excel

Macro Excel pada Microsoft Excel

Macro adalah sederetan fungsi dan perintah program yang disimpan dalam menu Visual Basic. Microsoft Excel menyediakan fitur untuk merekam aktivitas yang dilakukan oleh penggunanya melalui tools -> macro -> record new macro. Record new macro berguna untuk merekam aktivitas yang dilakukan dan merubahnya menjadi baris-baris program.

Namun macro juga dapat digunakan oleh user untuk membuat perintah atau procedure melalu bahasa VBA atau Visual Basic for Application yang cukup populer, sederhana dan mudah untuk dipelajari. Semakin besar pemahaman anda tentang bahasa VBA maka semakin banyak dan canggih pula prosedur atau perintah-perintah yang dapat anda buat untuk memudahkan perkerjaan anda dengan Microsoft Excel.

Contoh sederhana dari fungsi atau kegunaan macro adalah apabila anda melakukan pekerjaan yang banyak tapi monoton. Dari pada anda membuang-buang waktu dengan mengerjakan pekerjaan yang monoton secara manul, kenapa anda tidak merekamnya saja dengan macro kemudian melakukan sedikit modifikasi. Pekerjaan yang sebelumnya dikerjakan berjam-jam dapat selesai hanya dengan sekali klik. Contoh lain adalah apabila anda ingin membuat fungsi yang belum tersedia pada fungsi standard yang disediakan oleh excel, maka anda dapat membuat fungsi yang anda inginkan melalui Macro berupa User Defined Function (UDF).

Untuk dapat menggunakan macro, anda harus terlebih dahulu melakukan setting terhadap macro security level pada Microsoft Excel anda. Caranya adalah melalui tools -> macro -> security lalu set security level pada level Medium. Jangan gunakan low apabila anda sering menerima file dalam bentuk excel karena kemungkinan anda mendapat file excel yang mengandung virus macro menjadi sangat tinggi. Dengan level medium anda dapat menentukan apakah anda akan meng-Enable atau Disable macro yang terdapat pada file excel yang akan anda buka. Namun jika macro security level anda di set pada level Low maka anda tidak akan mendapat pemberitahuan bahwa file yang akan anda buka berisi macro atau tidak.

Cara Membuat dan Menjalankan Macro Excel




Toolbar pada gambar diatas adalah toolbar visual basic. Toolbar ini dapat anda munculkan dengan mencentang pada kotak opsi visual basic ( Tools -> Customize -> Toolbar -> Visual Basic ).

Keterangan gambar :

1. Run Macro, untuk menjalankan macro yang telah direkam atau dibuat. Jika anda mengklik tombol ini maka akan muncul jendela listing macro.
2. Record Macro, untuk merekam aktivitas yang akan anda lakukan pada worksheet anda kedalam sebuah prosedur program atau macro.
3. Visual Basic Editor, berfungsi untuk membuka jendela Visual Basic Editor yang akan digunakan untuk melihat listing program yang telah dibuat oleh Record Macro atau untuk membuat macro dengan listing program yang akan dibuat sendiri.
4. Control Tool Box, berisi bermacam-macam Control Tool yang dapat diguanakan untuk membuat form, membuat combo box, input box, text box dan lain sebagainya.
5. Design View or Exit Design View, opsi untuk memilih apakah kita akan bekerja dengan macro atau tidak. Apabila kita telah selesai mengedit listing program pada Jendela Visual Basic Editor, maka klik Tombol Exit Design View ini untuk mulai menjalankan macro.

Merekam Macro
Cara menggunakan fitur macro yang paling sederhana adalah dengan merekam aktivitas yang kita lakukan. Perhatikan contoh kecil berikut:

1. Pertama-tama masukklah ke menu Tools -> Macro -> Record Macro. Lalu akan muncul jendela Record Macro. Pada isian Macro Name anda isikan nama macro sesuai yang anda inginkan sesuai default maka akan muncul nama Macro1. Pada isian Shortcut anda dapat isikan misalnya "t" (tanpa tanda kutip). Maksudnya shortcut untuk menjalankan Macro1 nantinya adalah CTRL + t. Lalu Tekan OK.

2. Pada worksheet anda buatlah seperti pada gambar dibawah ini:




3. Apabila anda telah selesai membuat seperti pada gambar diatas maka masuklah pada menu Tools -> Macro -> Stop Recording.

4. Sekarang hapus yang telah anda tulis tadi, sampai benar2 bersih lalu tekan tombol Run Macro maka akan terlihat list dari macro yang ada, yaitu Macro1. Lalu klik Run. Excel akan melakukan apa yang telah anda rekam sebelumnya.

By : http://alfi-sahri-aja.blogspot.com/