Hi Leute !

Also ich hab folgendes Problem: Ich habe einen Timer der auf 5 hochzählt und dann wird zu einer Zahl 650 addiert, dies funktioniert aber nur 1 mal.
Wenn der Timer das 2. mal auf 5 hochzählt wird nicht mehr 650 addiert....
Variablen sind declariert...

Das ist der Timer-Code:

Private Sub Timer1_Timer()
timeA = timeA + 1
Text1.Text = timeA
If timeA = 5 Then
StatusBar1.Panels(2).Text = Rohstoffe + newres
timeA = 0
End If
End Sub

Kann mir da jemand helfen ?
Danke

naja, ersetzt newres doch mal durch dein 650...

"tsuji-giri" (japanisch) - ein neues Schwert an einem Passanten ausprobieren

Geht nicht...
Außerdem hab ich im Form_Load schon festgelegt das newres = 650 ist.

mh?
soll sich die Zahl durchgehen erhöhen?
dann kann das mit deinem Code da aber nicht gehen, denn du erhöhst ja nichts, sondern setzt ja nur StatusBar1.Panels(2).Text.
Da ändert sich ja nix dran, egal wie oft timeA 5 wird.

"tsuji-giri" (japanisch) - ein neues Schwert an einem Passanten ausprobieren

Rohstoffe = Rohstoffe + newres
StatusBar1.Panels(2).Text = Rohstoffe

Versuch das.
Wie Chronial schon sagt, du veränderst den Wert von Rohstoffe ja garnicht.
Ka, ob das da oben funzt, sollte aber.

Nee der Code geht leider auch nicht :(

*DELETE*

I'm deaf
Bin gehörlos.. naund?

feiglings Code müsste aber funzen...ausser "rohstoffe" wäre nur temporär gültig, beheb das mal.

Sig as a brick ┴┬┴┬┴┬┴┬┴┬┴┬┴
WW

Jop, Rohstoffe muss global deklariert sein und kann es auch ned funzen (ka, wie man das in VB macht).

Um die Variable in VB global zu deklarieren, muss du sie im Allgemeinen Bereich deklarieren, also ganz am Anfang vom Code [in den Boxen steht dann (Allgemein) und (Deklarationen].

und da halt:

dim rohstoffe

ICQ : 293840958

Hmm kann mir noch jemand sagen wo genau das in den Code muss also der Code von feigling ?
In den Timer oder wohin ?

Danke

Das ist der (neue) Timer-Code:

Quellcode:Private Sub Timer1_Timer()
timeA = timeA + 1
Text1.Text = timeA
If timeA = 5 Then
Rohstoffe = Rohstoffe + newres  '<--------------------hier
StatusBar1.Panels(2).Text = Rohstoffe '<--------------hier
timeA = 0
End If
End Sub


ICQ : 293840958

Juhu danke.
Es geht endlich :)

VIELEN DANK :)