Plussing av tall.

[akristina92]

Jeg har en label.

Når jeg trykker på en knapp, skal det komme et tall i f.eks e label.

Men hvist jeg trykker enda en gang, skal den legge til et tall til.

f.eks, jeg trykker en gang, og tallet 5 komme opp i labellen, så trykker jeg en gang til, så plusser den 5 med 5, som blir 10. Da står det 10 i labelen istede for 5.

 

Hvordan kan jeg få dette til?

Har prøvd:

 

label1.caption = label1.caption + 1

Endret 15. januar 2005 av DiskSpace10GB

[Rescudo]

Dim var as Integer

 

------

 

var = var + 5

label1.caption = var

 

------

 

Det er mitt forslag... ville ha endra navn på labelen tho'

[Jonas]

Eller vil du doble tallet hver gang du trykker?

Label1.Caption = Label1.Caption * 2

[Rescudo]

Emnetittelen er da "plussing", så han vil vel ikke gange det.

[akristina92]

Vell, det som som skjer hos meg, er at når jeg trykker kommer det et 1-tall i labelen, men den vil ikke plusse...

 

Private Sub dag_Click()
Dim dag As Integer
dag = dag + 1
label_dag.Caption = dag
End Sub

Endret 15. januar 2005 av DiskSpace10GB

[Jonas]

Private Sub label_dag_Click()
label_dag.Caption = label_dag.Caption + 1
End Sub

Eller som du skriver i første innlegg:

label1.caption = label1.caption + 1

Funker her

[aadnk]

Vell, det som som skjer hos meg, er at når jeg trykker kommer det et 1-tall i labelen, men den vil ikke plusse...

Du kan ikke benytte en lokal variabel - den må være "global" i formen. Altså, plaser først deklarasjonen øverst etter "Option Explicit" eller bare på første linje:

 

Dim dag As Integer

 

Deretter kan du bruke koden din:

 

Private Sub dag_Click()

   dag = dag + 1
   label_dag.Caption = dag

End Sub

[akristina92]

Hehe, fant det ut nå.

Var bare en slurvefeil.

Hadde ikke noe tall i labelen fra før

[GeirGrusom]

Hva med

 label1.caption = Str(Val(label1.caption) + 1) 

[ostehovel]

ellers funker dette:

label1.caption = label1.caption +2-1

viss du vil plusse 1!!!