Korak 1
Sub ErrorMessage
SHARED EC
REM *************************************************************
REM EC = The original error code
REM *************************************************************
Msg$="The Following Error Has Occuried:"+chr$(13)+chr$(10)
Msg$=Msg$+"[ "+Error$(EC)+" ]"
MSGBOX Msg$,0, " Error Code # ( "+STR$(EC)+" ) "
End Sub
Korak 2
Kad god vaša aplikacija naiđe na grešku, možete pozvati vaš prilagođeni kodni uput nakon što ste upisali vrednost greške za EC. Primer:
[Pretpostavimo da vaš softver ne može da locira tekstualni fajl tako da se greška pojavila]
[komanda za tu šifru greške je Err.Mi sada želimo da prebacimo tu]
[grešku na EC pa radimo sledeće: EC = Err ]
[kodni uput bi trebalo da izgleda ovako: ]
SHARED EC
ON LOCAL ERROR GOTO TROUBLE
TROUBLE:
EC = Err : Resume RESULTS
RESULTS:
CALL ErrorMessage
Korak 3
Pošto ste pratili ovu proceduru bez obzira na to koji je problem, vaš prilagođeni kodni uput će identifikovati korisnika, tip greške i vrednost greške.
Dijana Petrićević
Izdvajamo iz ponude:
