[VB6] optellen lukt niet

[JorisPenders]

Hallo

heb maar een hele korte vraag

Ik zit nu even iets te maken en dan moet de variable 'tijd' + 1

ik heb nu

code:

tijd = tijd + 1

en in m'n form_load:

code:

Dim tijd As Integer

Maar VB geeft een error:

code:

Runtime error (13)
Type Mismatch

Ik kom er niet uit

Joris

[Sponge]

Waar heb je die tijd = tijd +1? ook in de form_load? of ergens anders. Als je he mergens anders hebt, zet hem dan boven alles, dan is de variabele overal te gebruiken in je form.

En komt die fout echt op die tijd regel?

[Exterazzo]

Als je van

code:

Dim tijd As Integer

nou

code:

Public tijd As Integer

maakt en dat helemaal boven in je code zet (buiten een procedure of functie) dan zou het moeten werken.

[farlane]

Sla er eens een helpfile of boek op na zou ik zeggen, je zult het nodig hebben.

[Verwijderd]

/edit: oh zo... lees Exterazzo's post maar...

[ Voor 72% gewijzigd door Verwijderd op 04-09-2004 20:18 . Reden: oeps ]

[_Thanatos_]

Uhm, ik ken VB niet persoonlijk, maar een variabele gebruiken voordat je em ooit een waarde gegeven hebt, is niet bepaald slim...

[NMe]

farlane schreef op 04 september 2004 @ 20:06:
Sla er eens een helpfile of boek op na zou ik zeggen, je zult het nodig hebben.

Misschien handig om het zoekwoord "scope" daarbij te geven.

[Mizitras]

1) Welke waarde heeft tijd op dat moment ?
2) Waar heb je hem gedefiniëerd ?
3) Ken je globaal variabelen ?

4) Post anders je gehele code eens, met zo'n [code'] blablabladimpublicVBstuff [/code'] maar zonder het ' dan.

code:

Dan ziet dat er dus zo uit ;-)

[Sponge]

Exterazzo schreef op 04 september 2004 @ 10:11:
Als je van

code:

Dim tijd As Integer

nou

code:

Public tijd As Integer

maakt en dat helemaal boven in je code zet (buiten een procedure of functie) dan zou het moeten werken.

Dim werkt bovenaan ook gewoon wel hoor . Public heeft geen nut als het binnen de form blijft...

[Verwijderd]

Sponge schreef op 04 september 2004 @ 10:06:
Waar heb je die tijd = tijd +1? ook in de form_load? of ergens anders. Als je he mergens anders hebt, zet hem dan boven alles, dan is de variabele overal te gebruiken in je form.

En komt die fout echt op die tijd regel?

Mijn idee ook, met nog wat uitleg.
Variabelen gedefinieerd in een procedure zijn daarbuiten niet bruikbaar. Als een variabele in meerdere procedures (methodes) benaderbaar moet zijn, kan je er een (member)variabele van je formulier-klasse van maken.
In VB doe je dit door bij de globals van het formulier (het gedeelte tussen option
explicit en de eerste procedure) een private variabele te definieren:
-------------
option explicit

private tijd as integer

private sub Form_Load()
tijd = 0
end sub

private sub MijnSubje()
tijd = tijd +1
end sub

[Verwijderd]

De fout zit em dus waarschijnlijk in dat die variabele op een lege string wordt geinitialiseerd en daar kun je dus geen getallen mee optellen.

Initialiseer even op tijd = 0 of wat je ook maar moet hebben en kijk dan nog 's.

[Verwijderd]

Gebruik je option explicit ? Wees een vriend van jezelf, doe het WEL.

Als je twijfelt aan declaraties van variabelen kan je de volgende trucs gebruiken:
- klik in het pop-menu bij rechts-klikken op een variabele "goto definition"
- via menu "project" of "build": kies "build all" en kijk waar het schip strand

[ Voor 9% gewijzigd door Verwijderd op 04-09-2004 23:37 ]

[farlane]

Verwijderd schreef op 04 september 2004 @ 22:49:
De fout zit em dus waarschijnlijk in dat die variabele op een lege string wordt geinitialiseerd en daar kun je dus geen getallen mee optellen.

Initialiseer even op tijd = 0 of wat je ook maar moet hebben en kijk dan nog 's.

Die meneer vertelt duidelijk dattie zijn variabele declareert in form_load. Buiten form_load heb je er dus niets aan.

En 'scope' is idd het woord waarop gezocht moet worden. Misschien is het ook verstandig om het gedeelte over modules en classes/forms/objecten een wat nader te bestuderen.

[JorisPenders]

Heb nu dit:

code:

Private Sub Command1_Click()
Timer1.Enabled = True
tijd.Caption = ""
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False

End Sub

Private Sub Form_Load()
Dim tijd
tijd = 0
End Sub

Private Sub Timer1_Timer()

If tijdbox.Text = tijd Then
Form2.Show
Timer1.Enabled = False
tijd.Caption = "Eindigd"
Else
tijd = tijd + 1
tijd.Caption = tijd
End If

End Sub

Als ik de Dim Tijd weglaat of Dim Tijd As Integer doet ie het ook niet
geeft steeds fout op de regel:

code:

tijd = tijd + 1

Type Mismatch geeft ie dus

Joris

[Lorn]

DJ_Jorizzz schreef op 06 september 2004 @ 13:54:
Heb nu dit:

code:

Private Sub Form_Load()
Dim tijd
tijd = 0
End Sub

Als ik de Dim Tijd weglaat of Dim Tijd As Integer doet ie het ook niet
geeft steeds fout op de regel:

Zoals Farlane ook al zegt, je probleem is de scope van de variabele tijd. Zoals mensen je al eerder hebben verteld moet je tijd niet declareren in je Form_Load routine maar boven in de module als een globale variabele.

In de post van Bloog kun je precies zien hoe je je probleem moet oplossen.

Visual Basic:

Option Explicit

Private tijd As Integer

[etc] 

Private Sub Form_Load()
  tijd = 0
End Sub

PS: Misschien ook wel een aardig idee om eens wat in te springen in je code. Komt de leesbaarheid een hoop ten goede!

[ Voor 10% gewijzigd door Lorn op 06-09-2004 14:33 ]

[farlane]

DJ_Jorizzz schreef op 06 september 2004 @ 13:54:
Heb nu dit: .....

Beste Joris, heb je de posts gelezen die boven deze staan, en gezocht op de steekwoorden die je aangereikt staan ?

Als je wilt leren met VB ( of elke andere taal for that matter ) moet je bij het begin beginnen. ( De introduction pagina van de help file dus ( *kuch*[F1] *kuch* )

[Lustucru]

En dan nog iets: je hebt een control (een label) met de naam tijd en een variabele met de naam tijd. Je code wil aan het label een waarde +1 geven en dat werkt niet.
Wenk van Henk: noem je label lblTijd en je variabele varTijd. En declareer dan je variabele op de juiste plaats.

code:

tijd = tijd + 1
tijd.Caption = tijd

Getver!

[gorgi_19]

Dit topic schiet op deze manier niet op. Er is al gezegd dat er scope problemen kunnen ontstaan (als je in doos A een tekening definieert, kan je deze in doos B niet inkleuren")

Verder komen er nogal wat ranzigheden naar voren met je naamgeving. Als iets een appel is, moet je er opeens een banaan van maken en dan vragen aan de banaan naar de appelprijs Dat gaat niet goed. Een label is een label en die moet je niet als integer / double gaan aanspreken.

Anyway, met deze hints (en natuurlijk de eerder genoemde postings) moet je er verder wel uit kunnen komen. Sowieso is een boek over VB6 icm een artikel over consistente naamgeving aan te raden