Minggu, 16 November 2008


Langkah awal :

Jalankan aplikasi Microsoft Visual FoxPro 8.0 kemudian pilih New-Form-New File

Buat form dengan tampilan sebagai berikut :

Setelah selesai membuat form yang tampak seperti diatas maka isikan listing program berikut :

Form1 procedure activate :

PUBLIC tampil as String

PUBLIC nil1, nil2 as Double

PUBLIC operator, op

tampil = "0"

nil1 = 0

nil2c = 0

operator = 0

op = 0

Setelah itu buat method dengan nama kalkulasi : form-method-kalkulasia-dd. Setelah membuat method tersebut isikan listing program berikut :

IF op = 1 then

nil1 = nil1 * nil2

ENDIF

IF op = 2 then

nil1 = nil1 / nil2

ENDIF

IF op = 3 then

nil1 = nil1 - nil2

ENDIF

IF op = 4 then

nil1 = nil1 + nil2

ENDIF

pada tombol angka dari 0 sampai 9 pada procedure click isikan listing berikut dengan catatan setiap angka tombol mengikuti angak yang ada pada listing di bawah ini : misalnya tombol 9 :

IF operator = 0

IF tampil = "0" then

nil1 = 9

tampil = "9"

ELSE

tampil = tampil +"9"

nil1 = VAL(tampil)

ENDIF

ELSE

IF tampil = "0" then

nil2 = 9

tampil = "9"

ELSE

tampil = tampil +"9"

nil2 = VAL(tampil)

ENDIF

ENDIF

thisform.text1.Value = tampil

Untuk tombol operator yaitu + - x / pada procedure click isikan listing program berikut dengan catatan nilai op masing-masing listing berbeda tergantung operatornya.

1 : kali

2 : bagi

3 : kurang

4 : tambah

Pada contoh listing program dibawah ini adalah contoh untuk operator kali(x) :

IF operator = 1 then

thisform.kalkulasi

tampil = STR(nil1)

op = 1

ELSE

op = 1

tampil = "0"

ENDIF

operator = 1

thisform.text1.Value = tampil

tampil = "0"

MUDAH Kannnnnn

OK”’’’ Selamat mencoba semoga Sukses….”””

Tugas untuk anda.. kembangkan program ini agar bisa menghitung bilangan decimal… Logikanya sama dengan diatas

Tidak ada komentar: