Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Timer?
anonim




Typ: Nie zarejestrowany
Timer?

Mam petle

For i% = 1
labelek.caption = tablica(i%-1)
'gdyby, tutaj mozna wywolac timer
Next i%

Caly moj problem polega na tym ze user ma definiowac jak dlugo ma byc wyswietlany tekst na labelku zanim petla go zmieni. Probowalem na rozne sposoby i za nic nie umiem tego z timerem powiazac, pomocyyyy

19-03-2004 16:39
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Masz timer dla jakiegoś formularza...
Chcesz, aby zmieniał się napis danego label'a co jakiś czas...
W procedurze OnTimer() wrzucasz kilka linijek kodu odpowiedzialnych za te zmiany, np.:

If Label1.Caption = "aaa" Then
    Label1.Caption = "bbb"
Else
    Label1.Caption = "aaa"
End If

Za pomocą jakiegoś przycisku (lub czegoś w tym stylu) i pola tekstowego wywołujesz procedurę zmieniającą częstotliwość timer'a, np.:

Function ZmienCzestotliwoscTimera(nowyCzas as Long)
    Timer.Time = nowyCzas 'nie pamiętam tej właściwości
End Function



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

19-03-2004 17:31
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

to niejest timer.time, tylko timer.interval

21-03-2004 11:40
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Maz rację, że to jest Timer.Interval, ale pisałem, że nie pamiętam tej właściwości.

Słuchaj, wpadłem na pomysł, że możesz w procedurze OnTimer() umieścić zmianę label'a na losowy tekst.
Zauważyłem, że chcesz coś robić w pętli i pobierać z tablicy tekst. Nic prostszego!
Wystarczy, że dopasujesz odpowiednio tę procedurkę:

Sub LosujWartosci()
Dim i As Long, war As Long
Dim gorny As Long, dolny As Long
Dim mojaTablica() As String

'okresl górny i dolny zakres tablicy - ile elementów
gorny = 49
dolny = 0

'wypełnij 50 elementową tablicę
For i = 0 To 49
    ReDim Preserve mojaTablica(i)
    mojaTablica(i) = "Element " & i + 1
Next i

'dziesięć losowań
For i = 1 To 10
    war = CLng((gorny - dolny + 1) * Rnd + dolny)
    MsgBox "Wylosowałem: " & war & " z tablicy 50 elementów" & vbCr & vbCr & _
    "Jest to: " & mojaTablica(war), vbInformation, "Losowanie " & i
Next i

End Sub


Pamiętaj, że w procedurze OnTimer() wystarczy, że umieścisz kod odpowiadający za samo losowanie (to, co jest w ciele pętli, bez samej pętli). Wypełnianie tablicy powinno być gdzieś wcześniej, np.: przy ładowaniu fomularza.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

21-03-2004 12:29
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1