ERROR-käskyllä voi simuloida virhetilanteen ilmenemistä, toisinsanoen aiheuttaa virhetilanteen.
ERROR ([i]virheen numero[/i])
ERROR-käskyä voidaan käyttää simuloimaan virhetilannetta ohjelman suorituksen aikana. Käyttöä tälle voi olla esimerkiksi virheenselvitysrutiinia testaillessa. Virheen numeroista on erillinen lista.
Esimerkki:
ON ERROR GOTO virhetilanne ' Virheen sattuessa siirrytään virhetilanne-nimiöön jakaja = 0 a = 50 / jakaja ' Aiheutetaan nollallajakovirhe CHDIR "a:\" ' Yritetään muuttaa oletushakemisto a:ksi (levykeasema) ERROR 16 ' Simuloidaan virhettä numero 16 (kaava liian monimutkainen) END virhetilanne: SELECT CASE ERR CASE 11 ' 11 on nollalla jakamisen virhekoodi CLS INPUT "Nollalla ei voi jakaa, joten anna uusi jakaja: ", jakaja ' Korjataan virhetilanne kysymällä uutta jakajaa RESUME ' Palataan takaisin kohtaan, jossa virhe tapahtui CASE 71 ' 71 on virhekoodi tapahtumalle levyke ei ole valmiina CLS PRINT "A-asemassa ei ole levykettä" ' Annetaan ilmoitus levykkeen puuttumisesta SLEEP RESUME NEXT ' Ilmoituksen jälkeen jatketaan virhetilannetta seuraavalta riviltä CASE ELSE ' Jos mikään aiemmista virheenkorjausyrityksistä ei onnistu... CLS PRINT "Ohjelmassa tapahtui täysin odottamaton virhe, ja ohjelma lopetetaan" END ' ...ohjelma joudutaan lopettamaan END SELECT
Muuta aiheeseen liittyvää:
Ajonaikaiset virhekoodit, ON ERROR, ERR