---

frm_Gundersen.zip

Hallo zusammen,

ich habe eine VB6 Form mit Code für eine Startuhr für Verfolgungsrennen angelegt.
Beim Testen in VB6 läuft alles ohne Probleme, erst wenn ich eine EXE erstellt habe kommt ein Laufzeitfehler 13,
und ich habe keinen Schimmer woran es liegt.  
Dies hat man nun davon wenn man Ehrenamtlich im Sportverin tätig ist.  
Ich hoffe Ihr könnt mir hier weiterhelfen, und den Fehler ausfindig machen.

Erklärung zum Tool:
- in der csv stehen die Startnummern mit Startzeiten ab  10:00 Uhr
- beim Start des Tool erscheint ein Eingabefenster hier vorzugsweise 10:00:00 eingeben
- eure Systemzeit sollte natürlich bei ca. 09:55 Uhr sein!!! , da der Countdown immer auf die Systemzeit berechnet wird
- Form wird geöffnet, alle Startnummern stehen auf 0 und es wird der Cuntdown auf die Zeit vom Eingabefenster berechnet
- Start Button -> csv (muss auf C: stehen) Daten werden in ein Array gelesen + 4 weitere Werte angefügt
- nun wird der jeweilige Countdown je Startnummer berechnet, Daten werden dabei aus Array gelesen

Vielen Dank für Eure Mühen

------------------
Servus,
Mario   

www.the-skier.de

[Diese Nachricht wurde von m-troeger am 19. Mai. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, habe kein VB6 mehr installiert. Dennoch mal eine Nachfrage:
Kommt dieser Fehler in der EXE auf dem gleichem PC auf dem auch VB installiert ist?
Welches Betriebssystem?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo KlaK,

der Fehler Tritt nur auf wenn ich die exe starte, sowol auf PC(WIN7) wo das Teil mit VB6 erstellt wurde, wie auch auf anderen PC mit XP. Im VB6 beim Debuggen läuft ja alles super.

Ich habe auch Probleme die EXE zu erstellen, ich muss erst F-Secure abschalten.

------------------
Servus,
Mario  

www.the-skier.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

Laufzeitfehler 13 habe ich soweit in den Griff bekommen
HAbe die Variablen in Option Explicit mit As Date deklariert.
nun hab ich im "Private Timer" einen Laufzeitfehler 9
das hängt mit den Array zusammen, und ich finde einfach keine Lösung.
der Fehler tritt schon in der Zeile ... auf

Code:

---

    trennzeichen = InStr(1, strDS(ArrayNrL), ";", vbTextCompare)

---

Wäre schön wenn Ihr mal drüber schauen könntet. Ich tue mich als Laie da echt schwer.
Ich habe im Bereich Timer sehr viel auskommentiert um zu sehen wo es klemmt.

Code:

---

Private Sub cmdSTART_Click()
On Error GoTo Err_cmdSTART_Click

Zaehler = 0
'cmdSTART.BackColor = RGB(95, 95, 95)

Open "C:\test-Startliste.csv" For Input As #1

'// Lesen aller Zeilen in ein Array
Do Until EOF(1)
Zaehler = Zaehler + 1
ReDim Preserve strDS(Zaehler)
Line Input #1, strDS(Zaehler)
Loop
Zaehler = Zaehler + 1
ReDim Preserve strDS(Zaehler)
strDS(Zaehler) = "0;23:59:59"
Zaehler = Zaehler + 1
ReDim Preserve strDS(Zaehler)
strDS(Zaehler) = "0;23:59:59"
Zaehler = Zaehler + 1
ReDim Preserve strDS(Zaehler)
strDS(Zaehler) = "0;23:59:59"
Zaehler = Zaehler + 1
ReDim Preserve strDS(Zaehler)
strDS(Zaehler) = "0;23:59:59"

Close #1

ArrayNr = 1
ArrayNrL = 3
ArrayNrR = 4
cmdSTART.Enabled = False

'mdl_Array_lesen.ArrayAll(strDS, ArrayNr)

'// Setzen erste Zeile Links
trennzeichen = InStr(1, strDS(ArrayNr), ";", vbTextCompare)
strSNR1L = Mid(strDS(ArrayNr), 1, (trennzeichen - 1))
strSZ1L = Mid(strDS(ArrayNr), (trennzeichen + 1), 8)

'// Setzen erste Zeile Rechts
trennzeichen = InStr(1, strDS(ArrayNr + 1), ";", vbTextCompare)
strSNR1R = Mid(strDS(ArrayNr + 1), 1, (trennzeichen - 1))
strSZ1R = Mid(strDS(ArrayNr + 1), (trennzeichen + 1), 8)

'// Lesen zweite Zeile Links
trennzeichen = InStr(1, strDS(ArrayNr + 2), ";", vbTextCompare)
strSNR2L = Mid(strDS(ArrayNr + 2), 1, (trennzeichen - 1))
strSZ2L = Mid(strDS(ArrayNr + 2), (trennzeichen + 1), 8)

'// Lesen zweite Zeile Rechts
trennzeichen = InStr(1, strDS(ArrayNr + 3), ";", vbTextCompare)
strSNR2R = Mid(strDS(ArrayNr + 3), 1, (trennzeichen - 1))
strSZ2R = Mid(strDS(ArrayNr + 3), (trennzeichen + 1), 8)

cmd_Ampel1L.BackColor = vbRed
cmd_Ampel1R.BackColor = vbRed
cmd_Ampel2L.BackColor = vbRed
cmd_Ampel2R.BackColor = vbRed

Err_cmdSTART_Click:
    Close #1
    Exit Sub

End Sub

Private Sub Timer1_Timer()
Dim Anzeige As Date
'ArrayNr = 1
'ArrayNrL = 3
'ArrayNrR = 4
'Dim xx
'Dim yy As Date

Anzeige = Format(Now, "hh:mm:ss") ' Variable ausfüllen
sysTime.Text = Anzeige  'Text-Feld ausfüllen

'Werte Anzeige Links 1 setzen
SZ1L.Text = strSZ1L 'As Date
SNR1L.Text = strSNR1L 'As Date
SZ1L.Text = Format((CDate(strSZ1L) - CDate(Anzeige)), "hh:mm:ss")
SZss1L.Text = DateDiff("s", CDate(Anzeige), CDate(strSZ1L))
cmd_Ampel1L.BackColor = vbRed

'Werte Anzeige Rechts 1 setzen
SZ1R.Text = CDate(strSZ1R) 'As Date
SNR1R.Text = strSNR1R 'As Date
SZ1R.Text = Format((CDate(strSZ1R) - CDate(Anzeige)), "hh:mm:ss")
SZss1R.Text = DateDiff("s", CDate(Anzeige), CDate(strSZ1R))
cmd_Ampel1R.BackColor = vbRed

'Werte Anzeige Links 2 setzen
SZ2L.Text = CDate(strSZ2L) 'As Date
SNR2L.Text = strSNR2L 'As Date
SZ2L.Text = Format((CDate(strSZ2L) - CDate(Anzeige)), "hh:mm:ss")
SZss2L.Text = DateDiff("s", CDate(Anzeige), CDate(strSZ2L))
cmd_Ampel2L.BackColor = vbRed

'Werte Anzeige Rechts 2 setzen
SZ2R.Text = CDate(strSZ2R) 'As Date
SNR2R.Text = strSNR2R 'As Date
SZ2R.Text = Format((CDate(strSZ2R) - CDate(Anzeige)), "hh:mm:ss")
SZss2R.Text = DateDiff("s", CDate(Anzeige), CDate(strSZ2R))
cmd_Ampel2R.BackColor = vbRed

'Ende Werte setzen

'--------------------------------------- L I N K S ------------------------------------------
'  Abfrage des Countdown Links oben, < 0  übernächsten Array setzen
'If SZss1L.Text <= 20 And SZss1L.Text > 0.8 Then cmd_Ampel1L.BackColor = vbYellow
'If SZss1L.Text <= 0.8 Then cmd_Ampel1L.BackColor = vbGreen
If Me.cmdSTART.Enabled = False Then
If Me.SZss1L.Text <= 0 Then
    '    mdl_Array_lesen.ArrayLinks
    '// Setzen erste Zeile Links
    'cmd_Ampel1L.BackColor = vbRed
    trennzeichen = InStr(1, strDS(ArrayNrL), ";", vbTextCompare)
    ''trennzeichen = InStr(1, strDS(1), ";", vbTextCompare)
    'strSNR1L = Mid(strDS(ArrayNrL), 1, (trennzeichen - 1))
    'strSZ1L = Mid(strDS(ArrayNrL), (trennzeichen + 1), 8)

    '// Lesen zweite Zeile Links
    'trennzeichen = InStr(1, strDS(ArrayNrL + 2), ";", vbTextCompare)
    'strSNR2L = Mid(strDS(ArrayNrL + 2), 1, (trennzeichen - 1))
    'strSZ2L = Mid(strDS(ArrayNrL + 2), (trennzeichen + 1), 8)

    'ArrayNrL = ArrayNrL + 2
End If
'If SZss1L.Text > 20 Then cmd_Ampel1L.BackColor = vbRed
'If SZss1L.Text <= 20 And SZss1L.Text > 0.8 Then cmd_Ampel1L.BackColor = vbYellow
'If SZss1L.Text <= 0.8 Then cmd_Ampel1L.BackColor = vbGreen
'If SZss1L.Text = 0 Then Beep
'If SZss2L.Text <= 20 Then cmd_Ampel2L.BackColor = vbYellow Else cmd_Ampel2L.BackColor = vbRed
''If SZss2L.Text <= 0.8 Then cmd_Ampel2L.BackColor = vbGreen
'
''--------------------------------------- R E C H T S ------------------------------------------
''  Abfrage des Countdown Rechts oben, < 0  übernächsten Array setzen
''If SZss1R.Text <= 20 And SZss1R.Text > 0.6 Then cmd_Ampel1R.BackColor = vbYellow
''If SZss1R.Text <= 0.6 Then cmd_Ampel1R.BackColor = vbGreen
'If SZss1R.Text <= 0 Then
'    '   mdl_Array_lesen.ArrayRechts
'    '// Setzen erste Zeile Rechts
'    cmd_Ampel1R.BackColor = vbRed
'    trennzeichen = InStr(1, strDS(ArrayNrR), ";", vbTextCompare)
'    strSNR1R = Mid(strDS(ArrayNrR), 1, (trennzeichen - 1))
'    strSZ1R = Mid(strDS(ArrayNrR), (trennzeichen + 1), 8)
'
'    '// Lesen zweite Zeile Rechts
'    trennzeichen = InStr(1, strDS(ArrayNrR + 2), ";", vbTextCompare)
'    strSNR2R = Mid(strDS(ArrayNrR + 2), 1, (trennzeichen - 1))
'    strSZ2R = Mid(strDS(ArrayNrR + 2), (trennzeichen + 1), 8)
'    ArrayNrR = ArrayNrR + 2
'End If
'If SZss1R.Text > 20 Then cmd_Ampel1R.BackColor = vbRed
'If SZss1R.Text <= 20 And SZss1R.Text > 0.8 Then cmd_Ampel1R.BackColor = vbYellow
'If SZss1R.Text <= 0.8 Then cmd_Ampel1R.BackColor = vbGreen
'If SZss1R.Text = 0 Then Beep
'If SZss2R.Text <= 20 Then cmd_Ampel2R.BackColor = vbYellow Else cmd_Ampel2R.BackColor = vbRed
''If SZss2R.Text <= 0.8 Then cmd_Ampel2R.BackColor = vbGreen
End If

End Sub

---

------------------
Servus,
Mario    

www.the-skier.de

[Diese Nachricht wurde von m-troeger am 21. Mai. 2015 editiert.]

[Diese Nachricht wurde von m-troeger am 21. Mai. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mario,

du befüllst strDS() erst mit 'Start',
'trennzeichen = InStr(1, strDS(ArrayNrL), ";", vbTextCompare)' läuft aber schon vorher
daher Fehler 9 (Index außerhalb des gültigen Bereichs)

------------------
PST => Parametersteuerung für Solid Edge
TB Haberl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo pablo,

ja, so habe ich mir das auch schon fast gedacht,
obwohl die Zeile ja eigentlich erst ausgefürt wird, wenn ich auf START gepickt habe deshalb die IF's 

Code:

---

If Me.cmdSTART.Enabled = False Then
If Me.SZss1L.Text <= 0 Then
    '    mdl_Array_lesen.ArrayLinks
    '// Setzen erste Zeile Links
    trennzeichen = InStr(1, strDS(ArrayNrL), ";", vbTextCompare)

---

Hast du eine Idee wie ich das hinbekomme ?

------------------
Servus,
Mario  

www.the-skier.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von m-troeger:

Hast du eine Idee wie ich das hinbekomme ?

---

Mario,

- den Timer auf Enabled = False setzen und erst bei Aufruf von Start einschalten
- das Auslesen der Startliste in eine eigene Funktion packen und bei Form_Load aufrufen
- mit Sub Main starten, alles abfragen und das Formular erst aufrufen wenn alle Benutzereingaben stimmen

Servus
pablo

------------------
PST => Parametersteuerung für Solid Edge
TB Haberl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo pablo,

das nenn ich mal einen klaren Tipp. 
Vielen Dank dafür, nun werd ich die Tage mal ans Werk gehen.

VG und schönes Pfingsten.

------------------
Servus,
Mario  

www.the-skier.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP