Timer? Mam petle For i% = 1labelek.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 IfZa 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ściEnd 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
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 LongDim gorny As Long, dolny As LongDim mojaTablica() As String'okresl górny i dolny zakres tablicy - ile elementówgorny = 49dolny = 0'wypełnij 50 elementową tablicęFor i = 0 To 49 ReDim Preserve mojaTablica(i) mojaTablica(i) = "Element " & i + 1Next 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 " & iNext iEnd SubPamię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
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20