Pengenalan Operator pada Microsoft Visual FoxPro

Pembahasan pertama untuk mata kuliah FoxPro adalah Operator yang ada di FoxPro itu sendiri... Yuuk belajar bersama.

Tolong hargai jerih payah penulis ya,,, dengan tidak meng-copast sembarangan, jangan lupa cantumin link sumber nya. Terimakasih...

PENGENALAN OPERATOR PADA MICROSOFT VISUAL FOXPRO

Pengenalan Operator pada Visual FoxPro

Dalam semua bahasa pemrograman pasti kita akan menggunakan operator. Operator merupakan sekelompok simbol yang digunakan sebagai operasi terhadap suatu nilai dari sebuah data.

Jenis-jenis operator, antara lain:

1. Operator Aritmatika

Adalah kelompok operator yang digunakan untuk operasi matematika (berhubungan dengan perhitungan pada matematika/Aljabar).

Macam-macam logika operasi matematis

Contoh Program

Berikut kode programnya

1.      CmdJumlah

thisform.text3.Value=thisform.text1.Value+thisform.text2.Value

2.      CmdKurang

thisform.text3.Value=thisform.text1.Value-thisform.text2.Value

3.      CmdBagi

thisform.text3.Value=thisform.text1.Value/thisform.text2.Value

4.      CmdKali

thisform.text3.Value=thisform.text1.Value*thisform.text2.Value

5.      CmdPangkat

thisform.text3.Value=thisform.text1.Value^thisform.text2.Value

6.      CmdMod

thisform.text3.Value=MOD(thisform.text1.Value,thisform.text2.Value

Keterangan.

      Cmd  =>  command button

      Procedure  =>  click

2.   Operator Pembanding

Adalah kelompok operator yang digunakan untuk membandingkan suatu nilai.

Macam-macam operator pembanding

Contoh Program

Berikut kode programnya

1.      Cmdlebihkecil

IF thisform.text1.Value<thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

2.      Cmdlebihbesar

IF thisform.text1.Value>thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

3.      Cmdsamadengan

IF thisform.text1.Value=thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

4.      Cmdtidaksamadengan

IF thisform.text1.Value<>thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

5.      Cmdlebihbesarsamadengan

IF thisform.text1.Value>=thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

6.      Cmdlebihkecilsamadengan

IF thisform.text1.Value<=thisform.text2.Value then thisform.text3.Value=”BENAR” ELSE thisform.text3.Value=”SALAH” ENDIF

Keterangan.

      Cmd  =>  command button

      Procedure  =>  click

By,

U2