Program Asas DBMS- Windows & Dos For Foxpro Version
Homepage
If ..Else..Endif


If..Else..Endif command kerapkali digunakan didalam membuat keputusan program "Decision" kerana ia berfungsi dengan membaca satu variable yang dikehendaki dan bertindak sebaliknya jika ia tidak bersamaan dengan apa yang dimaksudkan iaitu (within paramaters need). Command ini boleh dibuat dengan beberapa cara seperti berikut :-


If...Endif (Without Else)

GO top

SCAN while .not. eof()

if name = 'Abdul'

@1,19 say ' Senarai Daftar Kakitangan '

@2,1 say ' Nombor Kakitangan '

@2,40 say ' Nama-Nama '

@0,0 to 23,80 double color n/bg

@l,5 say ' '+nombor

@l,35 say ' '+nama

STORE ah+1 to ah

STORE l+1 to l

endif

IF l = 16

tt = space(1)

@18,10 say 'Sambung lagi (n or << ) : 'get tt

READ

STORE lower(tt) to tt

IF len(trim(tt)) = 0

STORE 4 to l

Clear

LOOP

ENDIF

IF lower(tt) = "n"

Clear

RETURN

ENDIF

STORE 4 to l

Clear

LOOP

ENDIF

ENDSCAN

Data output ini akan ditapis mengikut kehendak ,variable tersebut. .Dengan cara demikian "Output Display" hanya data yang ada kaitan dengan 'Abdul' Sahaja di tayangkan di skrin


If..Else..Endif

SCAN while .not. eof()

IF _plineno + 3 > on_pg_line

EJECT page

ms = ms+1

?

? '(apmasdr.rpt)' at 5

?? ' '+gde at 41

?? 'Muka Surat :'+ltrim(str(ms,4)) at 73

? ' '+db at 35

? ' '+dc at 35

? ' '+dj at 5

? ' '+dk at 5

ENDIF

?

? code at 5

?? name at 25

? addr1 at 25

? addr2 at 25

? addr3 at 25

? 'No.Telefon : '+tel at 5

?? 'No.Fax : '+fax at 45

?

store charge to cha

if cha > 0

? 'Charge : '+str(charge,15,2) at 5

?? 'Bayaran : '+str(payment,15,2) at 45

else

? 'The consignee if free from debt'

endif

?

ENDSCAN

Kawalan If..Else..Endif dibuat terhadap data "Charge" .Listing cara ini adalah sesuai untuk Data bertaraf 'Selection".


. If..Else..Endif juga boleh digunakan didalam membuat keputusan tindakan program yang berangkai kepada subprogram,terutama menukar nilai 'Public Variable'. Secara keseluruhan menggunakan command mempengaruhi cara program itu dibuat.
Ke Atas