visual basic 6 loop count

[kernel]

De 3ero pola apo vb ala an enoeeis apla otan clickarei kapios 1 koumpi na metraei mesa se ena label or kati alo apo to 1-100 tote mia kali idea einai na prosanatolisteis se enan Timer o opoios otan energopoieitai 8a 3ekinaei px na pros8etei mia timi emfanizontas thn mesa sto label k me ena if aki 8a tou les oti an label=100 tote label=0 ktl.

An enoeis kati se tetio pes mou na to koita3o gia na sou kano copy/paste ton kodika.

[Chrisad]

Kernel αυτο ενοώ ακριβώς.

Ο υπόλοιποι (apoc,asim) αν και κάνουν φιλότιμες προσπάθειες να βοηθήσουν τελικά με ψιλομπέρδεψαν....

Ξέχασα να αναφέρω ότι είμαι "ψάρακας" στην VB και περιμένω πιό αναλυτικές απαντήσεις με κώδικα...

Kernel θα το ψάξω και εγώ, αλλά στείλε μου τον κωδικα μπας και βοηθήσεις, γιατί η μάθηση ανεφ διδασκάλου είναι μανίκι...

Σας ευχαριστώ όλους..

[isim]

Loipon dose basi. Ftiakse ena kainourgio project kai kane to eksis:

bale pano stin forma ena label, ena command button kai enan timer. Min allakseis ta onomata ton controls giati o kodikas den prokeitai na doulepsei.

 

sto Form_load event tis formas bale ton ekseis kodika

>  
Timer1.Enabled = False
Timer1.Interval = 1

 

sto timer event tou timer bale ta eksis

>  
Static i As Integer

If i >= 0 And i <= 100 Then
   Label1.Caption = Str(i)
   i = i + 1
Else
   i = 0
End If

 

telos sto on_Click event to command button bale to ekseis:

>  
Timer1.Enabled = True

 

Pistebo oti auto thes an den einai auto tote gine poio safeis

[Chrisad]

Isim = Αρχηγόπουλο.....

Φίλε ευχαριστώ πάρα πολύ.....

[isim]

den kanei tipota, kati asxeto sto sig sou poios einai autos??

[GrMikeD]

me auto pou rotises, apogoiteuses oxi mono ton chrisad, alla kai emas...

[isim]

giati poios einai??

[GrMikeD]

o prigipas...

[isim]

diladis???

[apoc]

axxaxxaaxax! isim σιγουρα ο drumer των Iron Maiden...και σιγουρα δεν εινια πρωταγωνιστης σε τσοντα!..ελα διπλα να σου πω!

 

 

[Chrisad]

Πάυλος Σιδηρόπουλος 1948-1990

για να μαθαίνουν οι νεότεροι αλλά κυρίως για να θυμούνται οι παλαιότεροι