[es] - Da li neko vidi bug (VB) ?

boki
Boris Prpic
CTO
CodeZen, Cityexpert
Beograd

SuperModerator
Član broj: 2681
Poruke: 2442
213.244.197.*

Jabber: boki@elitesecurity.org
ICQ: 195245022
Sajt: www.goglasi.com

+34 Profil

Da li neko vidi bug (VB) ?

^{14.11.2004. u 16:02 - pre 236 meseci}

Pisem neki program za CallerID ali imam mnogo cudan bug. Da li sam ja corav, glup ili nesto trece...

Kada se poziva glavna forma izvrsava se ovo:

Code:
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        MSComm1.CommPort = Port
        If AutoStart = True Then CidEnable()
    End Sub

Odatle se poziva procedura CidEnable koja izgleda ovako:

Code:
Public Sub CidEnable()
        On Error GoTo CommErrorMain
        cmdEnable.Enabled = False
        If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
        MSComm1.Output = "ATZ0S82=76S42=3" & vbCr
        CidStatus = "Enableing"
        AddToLog("Enableing...")
        Timer1.Enabled = True
        Exit Sub
CommErrorMain:
        CommError(Err.Number)
    End Sub

Odatle u slicaju greske se poziva procedura CommError koja izgleda ovako:

Code:
    Public Sub CommError(ByVal errortohandle As Integer)
        Select Case errortohandle
            Case 0 : Resume Next
            Case 20 : Resume Next
            Case 8002
                cmdEnable.Enabled = True
                MsgBox("The Comm port" & Port & " does not exist", vbCritical)
                CidStatus = "Disabled"
                AddToLog("Disabled")
                Exit Sub
            Case 8005
                cmdEnable.Enabled = True
                MsgBox("The Comm port " & Port & " is in use.", vbCritical)
                CidStatus = "Disabled"
                AddToLog("Disabled")
            Case 8012
                MsgBox("netMod is in use.")
                cmdEnable.Enabled = True
                If MyBase.WindowState = vbNormal Then cmdEnable.Focus()
                CidStatus = "Disabled"
                AddToLog("Disabled")
                Exit Sub
                ' DODATI ZA AUTO ENABLE
            Case Else
                MsgBox("ERROR " & Err.Number & " : " & Err.Description, vbCritical)
                Exit Sub
        End Select
    End Sub

Tu recimo se izvrsi slucaj za gresku 8005 i izvrsavanje bi trebalo da stane ali umesto toga se ponovo izvrsava frmMain_Load i tako u endless loop. Ima li neko ideju o cemu se radi.
Ukoliko treba jos neki deo koda slobodno recite, program ce iovako biti open source.

Goglasi! - Šta god da kupuješ, naći ćeš na Goglasima! Pretraga malih oglasa i eProdavnica, preko 10 milionda proizvoda.

Cityexpert.rs - Prva srpska onlajn agencija za nekretnine

ॐ

Odgovor na temu

havramm
Miroslav Havram
Software Developer / Engineer
Beograd

Član broj: 4603
Poruke: 255
212.62.55.*

Profil

Re: Da li neko vidi bug (VB) ?

^{14.11.2004. u 20:53 - pre 236 meseci}

Code:
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated

Da ne treba mozda MyBase.Load? Posto posle message box-a tvoja forma ponovo dobija fokus pa se izmedju ostalih ispaljuje i event Form.Activated, tako da se ponovo izvrsava kod unutar te metode...

prijateljski savet - koristi try...catch umesto on error goto...

If it's a girl then they're gonna call it Sigourney, after an actress. If it's a boy, then they're gonna call it Rodney, after Dave!

Odgovor na temu

boki
Boris Prpic
CTO
CodeZen, Cityexpert
Beograd

SuperModerator
Član broj: 2681
Poruke: 2442
*.vdial.verat.net.

Jabber: boki@elitesecurity.org
ICQ: 195245022
Sajt: www.goglasi.com

+34 Profil

Re: Da li neko vidi bug (VB) ?

^{14.11.2004. u 21:57 - pre 236 meseci}

Da, da.. Ja sam se malo zabunio jer je tu bilo promene u odnosu na VB6.

Sad opet imam problem. event Load suvise rano ispaljuje, treba mi neki nacin da to izvrsim nakon sto se cela forma ucitala.

Goglasi! - Šta god da kupuješ, naći ćeš na Goglasima! Pretraga malih oglasa i eProdavnica, preko 10 milionda proizvoda.

Cityexpert.rs - Prva srpska onlajn agencija za nekretnine

ॐ

Odgovor na temu

Deep|Blue
Srce Srbije

Član broj: 631
Poruke: 1431
*.ptt.yu.

ICQ: 101830817

+314 Profil

Re: Da li neko vidi bug (VB) ?

^{15.11.2004. u 14:27 - pre 236 meseci}

stavis taj kod u form_activated ali dodas proveru dal je to prvo okidanje tog eventa. inace form_activated se desava kad god se prebaci fokus na formu, a prvi put se desava kad zavrsi form_load event

"Hmmm", rekao je, "...suprostavlja se nadrealizmu prikrivene metafore..." Razmišljao je tome na trenutak, a onda je zatvorio beležnicu s mrkim osmehom.
"I smrt je za njih suviše dobra"

Odgovor na temu

boki
Boris Prpic
CTO
CodeZen, Cityexpert
Beograd

SuperModerator
Član broj: 2681
Poruke: 2442
*.vdial.verat.net.

Jabber: boki@elitesecurity.org
ICQ: 195245022
Sajt: www.goglasi.com

+34 Profil

Re: Da li neko vidi bug (VB) ?

^{15.11.2004. u 17:02 - pre 236 meseci}

ok. Mislio sam da postoji neki event samo za to ali naravno moze i ovako.

Goglasi! - Šta god da kupuješ, naći ćeš na Goglasima! Pretraga malih oglasa i eProdavnica, preko 10 milionda proizvoda.

Cityexpert.rs - Prva srpska onlajn agencija za nekretnine

ॐ

Odgovor na temu