On Error GoTo ...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

e sad meni nesto nije jasno... kada kucas on error goto greska, a na kraju koda kazes greska:

end sub

sta je sad tu sta??
ja kucam sledeci kod:

  On Error GoTo greska         MsgBox("AAA") greska:         MsgBox("Greska!")     End Sub
i on mi otvori i jedan i drugi msgbox....

i ovo on error resume nezt
i ovde kod

----------------------
ja sa uvek isao ako radim petlju case:
case case else case msgbox("Greska") ili if petlju: if else if else msgbox("Greska")
ili ako otvaram neki fajl, prvo proverim da li ga ima pa ako ima onda nastavi a ako nema onda stani...
a za ovo prvi put cujem... izvinite ako je pitanje glupo ali nisam imao prilike da ga sretnem u knjizi.......

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Treba obako:

Private Sub Form_Load() On Error GoTo greska    MsgBox ("AAA") Exit Sub greska:    MsgBox ("Greska!") End Sub
Kada mu kazes goto greska on ide tamo ali ako nema ispod exit sub on nastavlje da izvrsava sledeci kod ispod.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

epa to me je bunilo a u kojim slucajevim vazi ova greska? koji vid kreske pa on izvrsava ovaj kod.

jel ces mi uraditi ono kad budes mogao??

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo odgovora:

Grafik crta vrednost ULAZ iz fajla.
Klikom na Option button 3D ispod option button 2Ddobijas 3D grafik...



'Autor: Rajko Kuzmanovic 'Zapocet: 24.02.1999 godine 'Verzija: 19.03.2003. godine Dim mesec As String Dim pronadjenjeparametar As Boolean Dim podacizagrafik(24) As String Private Sub Form_Load()     cboParametar.AddItem "PARAMETARX"         cboParametar.ListIndex = 0     For n = 1 To 12         cboMesec.AddItem n     Next n         cboParametar.ListIndex = 0             For n = 1990 To 2009         cboGodina.AddItem n     Next n         cboGodina.ListIndex = 0         frmBilten.Show         Call Otvaranjefajla End Sub Public Sub Otvaranjefajla()     Call Dobijanjeimenameseca         pronadjenjeparametar = False           Open App.Path & "\Blt\" & Left(mesec, 3) & cboGodina.Text & ".blt" For Random As #1 Len = 1         duzinafajla = LOF(1)     Close #1     If duzinafajla = 0 Then         For n = 0 To 23             MSChart1.Data = 0         Next n         Exit Sub     End If     Open App.Path & "\Blt\" & Left(mesec, 3) & cboGodina.Text & ".blt" For Input As #1         Do While Not EOF(1)             Line Input #1, ucitizfajla             If InStr(ucitizfajla, cboParametar.Text) Then                 pronadjenjeparametar = True             End If             If pronadjenjeparametar = True Then                 If Left(ucitizfajla, 4) = "ULAZ" Then                     redsapodacima = Trim(Mid(ucitizfajla, 7))                     rednibrojreci = 1                     pozicija = 0                     noviredsapodacima = redsapodacima                                         Do                         pozicija = InStr(noviredsapodacima, " ")                         nadjenibroj = Mid(noviredsapodacima, 1, pozicija - 1)                         noviredsapodacima = Trim(Mid(noviredsapodacima, pozicija))                         podacizagrafik(rednibrojreci) = nadjenibroj                         rednibrojreci = rednibrojreci + 1                     Loop Until rednibrojreci = 24                 End If                 If Left(ucitizfajla, 3) = "BR " Then                     Exit Do                 End If             End If                     Loop     Close     Label11.Caption = "Mhz"         For n = 0 To 23         MSChart1.RowLabel = n                 Select Case cboParametar.Text             Case Is = "PARAMETARX"                 MSChart1.Data = podacizagrafik(n)                         Case Else                 MSChart1.Data = Val(podacizagrafik(n)) / 10         End Select     Next n End Sub Private Sub opt2D_Click()     Label13.Visible = True     If optLinija.Value = True Then         MSChart1.chartType = 3         Else             MSChart1.chartType = 5     End If End Sub Private Sub opt3D_Click()     Label13.Visible = False     If optLinija.Value = True Then         MSChart1.chartType = 2         Else             MSChart1.chartType = 4     End If End Sub Private Sub optLinija_Click()     If opt2D = True Then         MSChart1.chartType = 3         Else             MSChart1.chartType = 2     End If End Sub Private Sub optPovrsina_Click()     If opt2D = True Then         MSChart1.chartType = 5         Else             MSChart1.chartType = 4     End If End Sub Public Sub Dobijanjeimenameseca()     redbrmeseca = Val(cboMesec.Text)       Select Case redbrmeseca         Case Is = 1         mesec = "JANUAR"         Case Is = 2         mesec = "FEBRUAR"         Case Is = 3         mesec = "MART"         Case Is = 4         mesec = "APRIL"         Case Is = 5         mesec = "MAJ"         Case Is = 6         mesec = "JUN"                 Case Is = 7         mesec = "JUL"         Case Is = 8         mesec = "AVGUST"         Case Is = 9         mesec = "SEPTEMBAR"         Case Is = 10         mesec = "OKTOBAR"         Case Is = 11         mesec = "NOVEMBAR"         Case Is = 12         mesec = "DECEMBAR"     End Select End Sub

[Obrisan link do arhive koja sadrzi exe fajl... Zabranjeno pravilnikom..]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

rgdrajkoZahvaljujem se puno na primeru!probaću ga uskoro.