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