PERTEMUAN 4 FORM PERCABANGAN

MD :\Percabangan\
SET DEFAULT TO c:\pertemuan1\
CREATE PROJECT
DO FORM f:\Percabangan\form1.scx
RESUME
DO FORM f:\Percabangan\form1.scx
CLOSE ALL
CLEAR ALL
CLOSE ALL
CLEAR ALL
CANCEL
DO FORM f:\Percabangan\form1.scx
MODIFY PROJECT c:\Percabangan\prjKondisi.pjx
CREATE PROJECT
MD f:\OPERATOR\
SET DEFAULT TO f:\OPERATOR\
CREATE PROJECT f:\PRJHITUNG\
CREATE FORM FRMHITUNG]

CREATE FORM FRMHITUNG]
CREATE FORM FormNilaiUjian]
DO FORM "c:\documents and settings\internet\my documents\visual foxpro projects\formnilaiujian].scx"


rumus Nilai :
IF Thisform.text3.Value>54
Thisform.text5.Value="LULUS"

ELSE
thisform.text5.Value="TIDAK LULUS"
ENDIF

Mencari Nilai Abjad Berdasarkan Nilai Akhir :
Jika lebih dari 84 -> A
Jika lebih dari 69 -> B
Jika lebih dari 54 -> C
Jika lebih dari 39 -> D
Selain itu E

Rumusnya
IF Thisform.text3.Value>84
Thisform.text4.Value="A"
ELSE

IF Thisform.text3.Value>69
Thisform.text4.Value="B"
ELSE

IF Thisform.text3.Value>54
Thisform.text4.Value="C"
ELSE

IF Thisform.text3.Value>39
Thisform.text4.Value="D"


ELSE
thisform.text5.Value="E"
ENDIF
ENDIF
ENDIF
ENDIF

materi Percabangan

Proses Percabangan Bersyarat

Seandainya sebuah instruksi perlu meloncat atau mengerjakan sebuah instruksi dengan suatu syarat tertentu, maka diperlukan suatu perintah pengulangan dan perintah percabangan.
Struktur Percabangan
Percabangan kondisional memungkinkan kita memeriksa suatu kondisi, kemudian berdasarkan hasil pemeriksaan tersebut membentuk operasi berbeda. Terdapat dua perintah di
Visual Foxpro yang dipakai untuk membuat percabangan kondisional.
Perintah Logika IF
Perintah ini mengeksekusi secara kondisional sekumpulan perintah berdasarkan nilai ekspresi logika. Secara umum, perintah percabangan bersyarat yang biasa digunakan antara
lain :
• IF … ENDIF
• IF … ELSE … ENDIF
Perintah IF … ENDIF
Sintak perintah ini adalah :
IF
………………………
……………………… Bagian program yang dijalankan bila
……………………… kodisi terpenuhi/benar
ENDIF
Perintah IF … ELSE … ENDIF
Sintak perintah ini adalah :
IF

ELSE

ENDIF
Perintah DO CASE … ENDCASE
Perintah ini mengeksekusi sejumlah perintah pertama yang ekspresi kondisinya bernilai
True (.T).
Sintak perintah ini adalah :
DO CASE
CASE

CASE

…
CASE

OTHERWISE

ENDCASE

Pertemuan 3

RUMUS MENCARI TOTAL HARGA

Total = Hargajual X Jumlah
Kembali = Bayar - Total

Text6==> Jumlah
Object:Text6 Procedure:InteractiveChange
*TotalBayar = HargaJual X Jumlah
Thisform.text7.Value=Thisform.Text5.Value*Thisform.tect6.value

TOMBOL : BATAL
Object : Command1 Procedure:Click
* Mengosongkan isi Text1 s/d Text9 (Kalau tipe Data Character-->"";kalau numeric-->0)
Thisform.Tex1.value=""
Thisform.Tex2.value=""
Thisform.Tex3.value=""
Thisform.Tex4.value=""
Thisform.Tex5.value=""
Thisform.Tex6.value=""
Thisform.Tex7.value=""
Thisform.Tex8.value=""
Thisform.Tex9.value=""

Tombol : KELUAR
Object : Command2 Procedure : Click
Thisfom.Release()

pertemuan 1 dan 2

MD c:\pertemuan1\
SET DEFAULT TO c:\pertemuan1\
CREATE PROJECT
DO FORM c:\pertemuan1\form1.scx
RESUME
DO FORM c:\pertemuan1\form1.scx
CLOSE ALL
CLEAR ALL
CLOSE ALL
CLEAR ALL
CANCEL
DO FORM c:\pertemuan1\form1.scx
MODIFY PROJECT c:\pertemuan1\prjpertemuan1.pjx
CREATE PROJECT
MD C:\OPERATOR\
SET DEFAULT TO C:\OPERATOR\
CREATE PROJECT C:\PRJHITUNG\
CREATE FORM FRMHITUNG]

pertemuan2
MD C:\-->Membuat Directory atau folder
Set Default to C:\-->Menentukan Durasi default tempat penyimpanan
Create project -->Masuk folder
do form-->untuk membuat form baru.

untuk type data pada texBox:
-klik textbox
-klik kanan mouse
1.format
-data type character--->pilih type data
date
logical
numeric
-klik OK.

rumus Tambah texBox -->Thisform.Text3.Value=Thisform.text1.Value+Thisform.text2.Value

jika error-->anda klik suspend-->lihat errornya-->klik cancel-->klik modify form