ComBox Dan Gunanya Dalam M vfr9.0

MENGGUNAKAN COMBO BOX DALAM M vfr9.0

Pada contoh aplikasi berikut ini, kita akan menggunakan ComboBox dalam m vfr9.0, yang gunanya untuk menampilkan data, baik yang diambil pada field dan tabel tertentu atau yang berbentuk variabel array, sebagai contoh kita fungsikan ComboBox ini guna menjalankan aplikasi conversi mata uang. Langkahnya sebagai berikut :


1.Buat project baru dengan nama PrgUang, umpama.

2.Klik Sekali di area form pada form designer.

3.Kemudian buat rancangan program seperti ini misalnya :


OBJEK PROPERTI NILAI
Form Caption Konversi Uang
Label1 Caption Mata Uang
Label1 AutoSize T (true)
Label1 FontBold T (true)
Label2 Caption Per Rp
Label2 AutoSize T (true)
Label2 FontBold T (true)
Label3 Caption Jumlah
Label3 AutoSize T (true)
Label3 FontBold T (true)
Label4 Caption Total
Label4 AutoSize T (true)
Label4 FontBold T (true)
Label5 Caption Sisa
Label5 AutoSize T (true)
Label5 FontBold T (true)
Combo1 Name Combo1
Text1 Name Text1
Text2 Name Text2
Text3 Name Text3
Text4 Name Text4
Cmd1 Caption Mulai
Cmd1 Name CmdMulai
Cmd1 FontBold T (true)
Cmd2 Caption Selesai
Cmd2 Name CmdSelesai
Cmd2 FontBold T (true)





4.Ketikkan pada event Click CmdMulai, klik ganda pada objek tersebut, kemudian isikan perintahnya seperti ini :


WITH Thisform
.combo1.Value=” “
.Text1.Value=” “
.Text2.Value=” “
.Text3.Value=” “
.Text4.Value=” “
ENDWITH

Maksudnya adalah perintah untuk mengosongkan seluruh objek.

5.Simpan dengan menekan Ctrl+W.

6.Kemudian ketikkan lagi perintah dibawah ini pada Event Click Combo1, klik ganda pada area tersebut, dan isikan perintahnya :

WITH Thisform
IF .Combo1.value=”Dolar US” Then
.Text1.Value=8000
ELSE
IF .Combo1.Value=”Dolar Singapure” Then
.Text1.Value=5000
ELSE
IF .Combo1.Value=”Yen” Then
.Text1.Value=7000
ELSE
IF .Combo1.Value=”Real Saudia” Then
.Text1.Value=2500
ELSE
IF .Combo1.Value=”PuondSterling” Then
.Text1.Value=11000
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDWITH

Maksudnya adalah, Jika Text Combo1 adalah Dolar US, Text1 diberi nilai 9000, Jika tidak apakah pada Text1 diberi nilai Real saudia maka nilainya adalah 2500.

7.Simpan dengan menekan Ctrl+W.

8.Ketik pada Event CmdSelesai, dengan mengklik pada area tersebut, dan isikan perintahnya :

Thisform.Release

9.Simpan dengan menekan Ctrl+W.



10.Ketik pada Event Active Form1, klik ganda dan pilih Procedure Activate, kemudian isikan perintanhya sebagai berikut :


WITH Thisform
.Combo1.Additem (“Dolar US”)
.Combo1.Additem (“Dolar Singapure”)
.Combo1.Additem (“Yen”)
.Combo1.Additem (“Real Saudia”)
.Combo1.Additem (“PoundSterling”)
ENDWITH


Maksudnya adalah untuk menambahkan item ke objek Combo1.


11.Simpan dengan menekan Ctrl+W.

12.Ketik Pada Event LostFocus Text2, klik ganda pada area tersebut dan pilih Procedure LostFocus, kemudian isikan perintahnya :


WITH Thisform
.Text3.Value=INT((VAL(.Text2.Value)) / (.Text1.value))
.Text4.Value=VAL(.Text2.value) - (.Text1.Value*Text3.Value)
ENDWITH


Maksudnya adalah mengambil bilangan integer (bilangan bulat) dari bagi Text2 dengan Text1 yang sebelumnya di konversi menjadi Numeric (VAL), dan hasilnya diletakkan pada Text3 (sebagai total konversi). Sedang sisanya Text4) dihitung dati Text2 di kurang Text1 dikali Text3.

13.Simpan dengan menekan Ctrl+W.



14.Simpan Project dengan nama PrgUang.