LISTING
- INPUT DATA
thisform.SetAll(“value”,”",”textbox”)
thisform.text1.SetFocus
- TAMPIL DATA
nim=thisform.text1.Value
IF LEFT(nim,1)=”1″
thisform.text2.Value=”AMIK”
IF SUBSTR(nim,2,1)=”1″
thisform.text3.Value=”komputerisasi akuntansi”
ELSE
IF SUBSTR(nim,2,1)=”2″
thisform.text3.Value=”manajemen informatika”
ELSE
IF SUBSTR(nim,2,1)=”3″
thisform.text3.Value=”tehnik komputer”
ENDIF
ENDIF
ENDIF
ELSE
MESSAGEBOX(“salah input”,64+0″,”onfo”)
ENDIF
IF SUBSTR(nim,3,1)=”0″
thisform.txt4.value=”20″+SUBSTR(nim,3,2)
ELSE
IF SUBSTR(nim,3,1)=”9″
thisform.text4.Value=”19″+SUBSTR(nim,3,2)
ENDIF
ENDIF
thisform.text5.Value=SUBSTR(nim,5,4)
thisform.text6.Value=UPPER(thisform.text3.Value)
thisform.text7.Value=LOWER(thisform.text3.Value)
- KELUAR
i=MESSAGEBOX(“yakin ingin keluar?”,32+4,”konfirmasi”)
IF i=6 then
thisform.release
ENDIF
