PERTEMUAN 16

* dekalarasi Variabel
PUBLIC Kalimat, Kalimat1 as String
PUBLIC i,j,k,nilai as Integer



* Beri Nilai pada Variabel
kalimat ="LEZAT "
kalimat1 ="Rumah makan"
i = 1
nilai = 1
j = 1
k = 1


rumus timer 2 :
thisform.Label2.Caption = SUBSTR(Kalimat, 1,i)
i = i + 1
IF i = LEN(kalimat)
i = 0
ENDIF


rumus timer 1 :
SET CENTURY ON
Thisform.label1.caption=DMY(DATE())
thisform.label2.caption=TIME()

rumus timer 3 :
IF j=1
thisform.label1.Caption=SPACE(k) + kalimat1
k = k + 1
IF k = 23
j = 2
ENDIF
ELSE
thisform.label1.Caption = SPACE(k) + Kalimat1
k = k - 1
IF k = 0
j = 1
ENDIF
Endif

rumus timer 4 :

IF nilai=1
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=2
ELSE
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=1
Endif