[es] - Hvatanje i ispravka gresaka

KaAmIkAzA
Banja Luka

Član broj: 55521
Poruke: 58
*.teol.net.

Profil

^{23.04.2008. u 08:00 - pre 194 meseci}

Haj. Mislio sam da bi bilo dobro da neko ko se razumije u obradi gresaka da postavi kao tutor o tome. Neke stvari koje ce olaksati nama pocetnicima da program zbog nekih banalnih gresaka ne puca i kako ih sve pohvatati. Ako moze koji promjer i objasnjenje bio bih vam zahvalan a vjerujem i vecina ostalih ljudi. Poz.

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Hvatanje i ispravka gresaka

^{23.04.2008. u 11:27 - pre 194 meseci}

Evo za sugradjana:

Code:
Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double

Private Sub Command1_Click()
On Error GoTo err

  a = 8
  b = 0
  Rez = a / b

Exit Sub ' ako nije doslo do greske program kad dodje do
         ' ove linije, izlazi iz procedure
err:
  If err.Description = "Division by zero" Then   ' Ovdje obradjujemo tu gresku
      MsgBox "Nemoguce je djeljenje sa nulom"
  Else
      Debug.Print err.Description   ' ili printamo novu gresku pa ce mo je kasnije obraditi
  End If

End Sub

ili

Code:

Option Explicit
Dim a As Double
Dim b As Double
Dim Rez As Double

Private Sub Command1_Click()
On Error GoTo err

  a = 8
  b = 0
ponovo:
  Rez = a / b

Exit Sub ' ako nije doslo do greske program kad dodje do
         ' ove linije, izlazi iz procedure
err:

  If err.Description = "Division by zero" Then   ' Ovdje obradjujemo tu gresku
      b = 1
      GoTo ponovo
  Else
      Debug.Print err.Description   ' ili printamo novu gresku pa ce mo je kasnije obraditi
  End If

End Sub

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

galahad
Slobodan Todorov
Radio-televizija Vojvodine,
Jack-Of-All-IT-Trades, Web redakcija
Novi Sad

Član broj: 20613
Poruke: 146
*.ADSL.panline.net.

Jabber: galahad@elitesecurity.org
ICQ: 52020296
Sajt: www.todorowww.net

+4 Profil

Re: Hvatanje i ispravka gresaka

^{23.04.2008. u 18:48 - pre 194 meseci}

Za hvatanje greshaka je pametnije koristiti Err.Number umesto Err.Description, jer nije bash efikasno kucati opise greshaka, ima i dugachkih opisa... Tako da, umesto:

Code:

  If err.Description = "Division by zero" Then   ' Ovdje obradjujemo tu gresku
      MsgBox "Nemoguce je djeljenje sa nulom"
  Else
      Debug.Print err.Description   ' ili printamo novu gresku pa ce mo je kasnije obraditi
  End If

pokushaj sa

Code:

  Select Case Err.Number
  Case 6 '*** Ovo je Division by zero greshko
      MsgBox "Nemoguce je djeljenje sa nulom"
  Case Else
      MsgBox "Desila se nepredvidjena greska!"  & vbCrLf & "Kod greske: " & Trim(Cstr(Err.Number)) & vbCrLf & "Opis: " & vbCrLf & Err.Description
  End Select

- SKRati link - JaZaKraljevo.rs -

"I have never let my schooling interfere with my education." - Mark Twain

Odgovor na temu