[Prog] vB6 Tellen

[!nFerNo]

Dit heeft te maken met mijn school, en kwist ni waar anders dit te posten
Maar ik vind dit dus totaal ni eh.......
Ik zie geen fout :/
ik heb mijn on error gecomment zoda ik een fout zie, maar die is enkel voor een lege string bestandsnaam en pad

Code: Select all

'Form om alle leerlingen per geboortejaar te tellen
Private Sub Form_Load()

'Declaraties
Dim intTellerStats
Dim arrStats(1983 To 2000)
Dim strDummy As String
Dim intAantal As Integer

    
'De jaartallen liggen vast tussen 1983 en 2000
    For intTellerStats = 1983 To 2000
'On Error GoTo error
    Open strBestandsPad & strBestandsNaam For Input As #1
    Do While Not EOF(1)
    Input #1, strDummy
        If Right(strDummy, 4) = intTellerStats Then
            intAantal = intAantal + 1
        End If
    Loop
    
'Deze array maakt het makkelijker en sneller om de label te vullen
    arrStats(intTellerStats) = "Er zijn " & intAantal & " leerlingen in het jaar " _
    & intTellerStats
    lblStats = lblStats & arrStats(intTellerStats) & vbCrLf
    Close
    Next intTellerStats
'Exit Sub
'error:
'MsgBox "Er is een fout opgetreden. Open of creëer een bestand.", vbCritical + vbOKOnly, "File"
End Sub

wat is hier fout aan?
de fout is dat dit niet gebeurt, alhoewel ik het met een break stap voor stap heb nagekeken met het jaar 1986
dus ze waren allebei 1986 maar toch telde intAantal niet op

dit wilt niet werken

Code: Select all

        If Right(strDummy, 4) = intTellerStats Then
            intAantal = intAantal + 1
        End If

edit:
een strDummy ziet er als volgt uit:

Code: Select all

666 ER                             SDFG                 1986

[j0lle]

zet is ff
debug.print strdummy
en
debug.print right(strdummy , 4)
achter
intAantal = intAantal + 1

en post dan ff de inhoud van u debug window

[j0lle]

k after some msn chatter we fixed it

twas een type mismatch probleem.
dus integer nemen van de right(strDummy, 4)
en het sluitrecord uitsluiten, anders weer type mismatch

[!nFerNo]

Code: Select all

'Form om alle leerlingen per geboortejaar te tellen
Private Sub Form_Load()

'Declaraties
Dim intTellerStats
Dim arrStats(1983 To 2000)
Dim strDummy As String
Dim intAantal As Integer
Dim strLeerling As String
Dim strKomen As String

    
'De jaartallen liggen vast tussen 1983 en 2000
    For intTellerStats = 1983 To 2000
    intAantal = 0
    
On Error GoTo error

    Open strBestandsPad & strBestandsNaam For Input As #1
    
    Do While Not EOF(1)
    
        Input #1, strDummy
        
'"ZZZ" niet meetellen, dit geeft nl. problemen
        If Not Left(strDummy, 3) = "ZZZ" Then
            If Int(Right(strDummy, 4)) = intTellerStats Then
                intAantal = intAantal + 1
                
'Vanwege een fout eerder in het programma, nakijken in de immediate
                Debug.Print strDummy
                Debug.Print Right(strDummy, 4)
            End If
        End If
    Loop
    
'Deze array maakt het makkelijker en sneller om de label te vullen
    If intAantal = 1 Then
        strLeerling = " leerling"
        strKomen = " komt "
    Else
        strLeerling = " leerlingen"
        strKomen = " komen "
    End If
    
    arrStats(intTellerStats) = "Er" & strKomen & intAantal & strLeerling & " uit het jaar " _
    & intTellerStats
    
    lblStats = lblStats & arrStats(intTellerStats) & vbCrLf
    
    Close
    Next intTellerStats

Exit Sub
error:
MsgBox "Er is een fout opgetreden. Open of creëer een bestand.", vbCritical + vbOKOnly, "File"
End Sub

werkende code
edit: wat properder gemaakt

[!nFerNo]

[j0lle]

if intaantal = 1 then strshit = "leerling" else strshit = "leerlingen"

[!nFerNo]

endif

Code: Select all

    If intAantal = 1 Then
        strLeerling = " leerling"
        strKomen = " komt "
    Else
        strLeerling = " leerlingen"
        strKomen = " komen "
    End If
    
    arrStats(intTellerStats) = "Er" & strKomen & intAantal & strLeerling & " uit het jaar " _
    & intTellerStats

[Boendie]

wat haat ik toch sequentiele bestanden

ge zult blij zijn as ge me databases begint te werke das veel makkelijker en leuker om mee te werke

[Shinta]

wat haat ik VB tog

[!nFerNo]

ik vind mezelf toch al vrij 1337 omdat ik tenminste 1 language ken :p
ik ben atm met PHP5 bezig
best wel leuk, ik kan al for lussen maken en variabele declarere *yeuy*

[!nFerNo]

Code: Select all

'Form om alle leerlingen per geboortejaar te tellen
Option Explicit
Private Sub Form_activate()

'Declaraties
Dim intTellerStats As Integer
Dim arrStats(1983 To 2000) As Integer
Dim strDummy As String
Dim strLeerling As String
Dim intjaar As Integer
Dim booaanwezig As Boolean

'De jaartallen liggen vast tussen 1983 en 2000

On Error GoTo error
     
    Open strBestandsPad & strBestandsNaam For Input As #1
    Do While Not EOF(1)
        Input #1, strDummy
'"ZZZ" niet meetellen, dit geeft nl. problemen
        If strDummy < "ZZZ" Then
            intjaar = Right(strDummy, 4)
            arrStats(intjaar) = arrStats(intjaar) + 1
        End If
    Loop
    Close
    
    booaanwezig = False
    For intjaar = 1983 To 2000
    If arrStats(intjaar) > 0 Then
        strDummy = Str(intjaar) & " " & Str(arrStats(intjaar))
        lststats.AddItem strDummy
        booaanwezig = True
    End If
    Next intjaar
    If Not booaanwezig Then
        MsgBox "Er zijn geen gegevens om te tellen", vbOKOnly, "Gegevens"
    End If


Exit Sub
error:
MsgBox "Er is een fout opgetreden. Open of creëer een bestand.", vbCritical + vbOKOnly, "File"
Unload frmStats
End Sub

dit is trouwens nog ne variant da ik gemaakt heb op 't vorig, nu kijt 'm enkel de jare waar echt iets in zit na, bij de vorige kijkt 'm alles na

[Boendie]

den dennis beginnet te kunne

[!nFerNo]