 |
| Add caption |
LISTING
form——-aktive
FOR a=1 TO 31
thisform.combo1.AddItem(STR(a))
NEXT a
dowhile————ckick
k=1r=VAL(thisform.txtInputjumlahdata.Value)
DO WHILE k<=rthisform.list1.AddItem(thisform.txtInputdata.Value)
k=k+1
ENDDO
fornext———click
i=VAL(thisform.txtInputjumlahdata.Value)
FOR x=1 TO 1
thisform.list1.AddItem(thisform.txtInputdata.Value)
NEXT x
inputlagi————–click
thisform.SetAll(“value”,”",”textbox”)
thisform.list1.Clear
thisform.combo1.Value=”"
thisform.txtInputdata.SetFocus
keluar——–click
i=MESSAGEBOX(“yakin ingin keluar”,32+4,”konfirmasi”)
IF i=6 then
thisform.Release
ENDIF
