ATNEL tech-forum

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-28T11:25:37+01:00

U mnie na S3 mini przy tym drugim przypadku, przelatuje w około 30 sekund. Wszystko zależy od ustawienia modulo przed lablami. Timer nie odpali przy zatkanej procedurze, ale możesz zrobić tą pętle "do until" jako osobną funkcję i wtedy powinien przyjmować inne eventy, pomiędzy wywołaniami. DoEvents działa tylko na odświeżenie ekranu, na inne procedury niema wpływu.
Możesz zrobić "zamkniętą" pętle, w zasadzie to zmienna "przelot" może być dowolna byle właśnie odświeżał co ileś tam, a nie za każdym odpaleniem "do until", ja użyłem licznika z for tylko dlatego że była i nie chciało mi się powoływać dodatkowej.

Statystyki: Napisane przez Harry — 28 mar 2017, o 08:42

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-28T08:16:22+01:00

Serdeczne dzięki za "DoEvents", i poprawki w kodzie. Działa!
Zauważyłem, że DoEvents odświeża tylko ekran. Timer dalej nie działa gdy pętla jest zamknięta. no i też nie pobiera danych np: EditText1_EnterPressed.
No i przy zamkniętej pętli licznik dalej jest powoli odświeżany, prawdopodobnie DoEvents zwalnia całość bo musi wyświetlić. Tak czy siak. osiągnąłem zamierzony efekt.

Dzięki też za podpowiedź "serwisu" mam motywację, żeby to ogarnąć.
Więc zabieram się do roboty!

Statystyki: Napisane przez przemo.bundy — 28 mar 2017, o 08:16

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-28T02:42:37+01:00

Podejrzewam że też by były problemy z powodu zatkania, na poprzednim nawet timer nie ruszał
[syntax=vb]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim szukana As Int
Dim szukana_tmp As Int
Dim i As Int
Dim x As Int
Dim z As Int
Dim wyjscie As Boolean

Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("pierwsze_layout")
szukana=3
dupa

End Sub

Sub dupa
Dimmax_przelot As Int
max_przelot=100000'
For przelot=1 To max_przelot
i=1
wyjscie=False
Do Until wyjscie=True 'dlaczego taka składnia nie dziala ---> Do Until z=szukana Or x=1
'pętle przyjmują tylko warunek boolean, nie może być żadnych obliczeń, dlatego nie działa.
i=i+1
x= szukana/i
z= x*i
'if z=szukana - to nie pierwsza szukaj dalej
'if x=1 - to jest liczba pierwsza
If z=szukana Then wyjscie=True
If x=1 Then wyjscie=True
Loop

If x=1 Then 'jezeli pierwsza to przepisz zawartosc
szukana_tmp= szukana
End If

szukana=szukana +1 'testuj kolejna liczbe

If (przelot Mod 50=0 Or przelot=max_przelot) Then
Label1.Text=""
Label1.Text= Label1.Text & "Testowana=" & szukana & CRLF 'wyswietl aktualnie testowana liczbe
Label1.Text= Label1.Text & "pierwsza=" & szukana_tmp & CRLF 'wyswietl ostatnia liczbe pierwsza
DoEvents
End If

If szukana <0 Then 'jezeli skonczy sie zakres zmiennej to wyswietl komunikat
Label1.Text=""
Label1.Text= Label1.Text & "ERROR !!"
Exit
End If

Next

Label1.Text= Label1.Text & "FINITO"
DoEvents

End Sub[/syntax]
Sprawdź i pomyśl gdzie leży rozwiązanie problemu

------------------------ [ Dodano po: dzisiaj, o 01:42 ]

tak działa o wieeele szybciej
[syntax=vb]Sub dupa
Dimmax_przelot As Int
Dim max_prime As Double
max_przelot=1000000

For przelot=1 To max_przelot
max_prime=Sqrt(szukana) 'pierwiastek
i=1
wyjscie=False
Do Until wyjscie=True 'dlaczego taka składnia nie dziala ---> Do Until z=szukana Or x=1
'pętle przyjmują tylko warunek boolean, nie może być żadnych obliczeń, dlatego nie działa.
i=i+1
x= szukana/i
z= x*i
'if z=szukana - to nie pierwsza szukaj dalej
'if x=1 - to jest liczba pierwsza
If (i-1)>max_prime Then 'jezeli kolejny dzielnik jest wiekszy niz pierwiastek z szukanej liczby, tzn ze to jest liczba pierwsza.
x=1
wyjscie=True
End If
If z=szukana Then wyjscie=True
If x=1 Then wyjscie=True
Loop

If x=1 Then 'jezeli pierwsza to przepisz zawartosc
szukana_tmp= szukana
End If

szukana=szukana +1 'testuj kolejna liczbe

If (przelot Mod 500=0 Or przelot=max_przelot) Then ' - co 20 przelot petli for oddwieza UI
Label1.Text=""
Label1.Text= Label1.Text & "Testowana=" & szukana & CRLF 'wyswietl aktualnie testowana liczbe
Label1.Text= Label1.Text & "pierwsza=" & szukana_tmp & CRLF 'wyswietl ostatnia liczbe pierwsza
DoEvents
End If

If szukana <0 Then 'jezeli skonczy sie zakres zmiennej to wyswietl komunikat
Label1.Text=""
Label1.Text= Label1.Text & "ERROR !!"
Exit
End If

Next

Label1.Text= Label1.Text & "FINITO"
DoEvents

End Sub[/syntax]

Statystyki: Napisane przez Harry — 28 mar 2017, o 02:42

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-27T19:37:58+01:00

Dalej bedzie to samo. Mozna przypisac nowa wartosc do label.text ale i tak dopiero po wyjscu z danej procedury. Uaktualni sie ona na ekranie. W tym szkopul. Trzeba by sie wgryzc w miejsce w ktorym B4A czeka na zdarzenie. W takiej wewnetrznej petli, ktora jawnie nie jest przekazana dla uzytkownika. Takie mam przemyslenia. No Chyba zeby uruchomic kolejne activity, ktore by zliczalo w zamknietej petli...

Statystyki: Napisane przez przemo.bundy — 27 mar 2017, o 19:37

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-27T19:06:23+01:00

czyli jest tak jak myślałem - nie odświeży formy przy zatkanej pętli.
to zrób mu np tak w pętli, bez timera.
[syntax=vb]if (szukana mod 100) =0 then label1.text="hhh"[/syntax]

Statystyki: Napisane przez Harry — 27 mar 2017, o 19:06

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-27T18:39:40+01:00

y y...

Nie działa!
Działa jeżeli pętla będzie się kończyć!
Nie działa gdy program nie wychodzi z pętli!
Jak wyjdę z pętli to później nie ma jak wywołać procedury z tą pętlą (masło maślane)
Jeżeli użyje timera do wywołania pętli to najmniejszy czas timera to 1 milisekunda. Więc program będzie kulał.
A obliczenia będą "wolne".

Więc jak zbudować licznik który zlicza z pełną prędkością zegara CPU. a inna procedura niech sprawdza co jakiś czas i wyświetla wynik na Labelce?!

Czy ktoś ma jeszcze jakieś pomysły ?

Statystyki: Napisane przez przemo.bundy — 27 mar 2017, o 18:39

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-27T15:33:02+01:00

Nie działa Ci, bo nie może działać, activity_create ma służyć do ładowania formy/ustawień a nie do odpalania programu.
Dopiero po jej załadowaniu odpala się reszta(timery też), ale możesz z niej wywołać innego suba np "dupa"

[syntax=vb]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim timer1 As Timer '<- timery muszą być w "Process_globals" a nie tym drugim.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim szukana As Int
Dim szukana_tmp As Int
Dim i As Int
Dim x As Int
Dim z As Int
Dim wyjscie As Boolean

Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("pierwsze_layout")

timer1.Initialize ("timer1",1)
timer1.Enabled=True

szukana=3 ' inicjalizacja twoich zmiennych

dupa '<-odpala następne makro i procedura kończy działanie
End Sub

Sub dupa()
Do Until szukana = z
'twoja petla
Loop

End sub

timer1_tick()
'wywołuje cyklicznie
Label1.text="twój tekst"
end sub[/syntax]

mogą być literówki - pisane na kolanie.
Jeżeli timer by nie chciał odpalać, to musisz wstawić malutkiego sleepa gdzieś do pętli, albo olać go zupełnie i zmieniać tekst na lablu co jakiś czas, a ne za każdym przelotem pętli.

Statystyki: Napisane przez Harry — 27 mar 2017, o 15:33

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-27T10:05:03+01:00

Hmmmm.... No tak juz probowalem. Klopot w tym ze dopuki nie opuszcze zdarzenia. Nie mozna wywolac innego zdarzenia. Np. Label.text.... Tzw. Kwadratura kola.

Statystyki: Napisane przez przemo.bundy — 27 mar 2017, o 10:05

Re: Jak pogodzić szybkość wykonywania i wyświetlanie na ekra

2017-03-24T13:32:22+01:00

A gdzie ma się zaczynać ta główna pętla, skoro tu wszystko opiera się na zdarzeniach. Które to muszą być wpierw wywolane.
A wartości są zwracane dopiero po opuszczeniu zdarzenia. hmmmm...
Czy ktoś mi może podpowiedzieć co robić, będę wdzięczny.

Statystyki: Napisane przez przemo.bundy — 24 mar 2017, o 13:32

Jak pogodzić szybkość wykonywania i wyświetlanie na ekranie?

2017-03-24T09:10:51+01:00

Witam.

Napisałem program do generowania liczb pierwszych.
Kłopot w tym, że obliczenia wykonują się za wolno.
Główną część programu umieściłem w Timer1 który wykonuje się z częstotliwością 1 ms.
Programowanie obiektowe stwarza mi kłopot, bo nie można wykonać innego zdarzenia, gdy trwa inne zdarzenie.
Gdyby chodziło by tylko o same obliczenia to zamknąłbym je w pętli. Ale co zrobić żeby "procek szalał" i obliczał mi tyle ile fabryka mu dała.
a w między czasie co nawet sekundę wyświetlać wynik postępu. Jak zamknę obliczenia w pętli, to nie mogę ich wyświetlić na "Labelce"
Dlatego użyłem Timer żeby cyklicznie wychodzić ze zdarzenia. No ale te 1 milisekunda burzy szybkość obliczeń.

[syntax=vb]#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim timer1 As Timer

Dim szukana As Int
Dim szukana_tmp As Int
Dim i As Int
Dim x As Int
Dim z As Int
Dim wyjscie As Boolean

Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("pierwsze_layout")

timer1.Initialize ("timer1",1)
timer1.Enabled=True

szukana=3
End Sub

Sub timer1_tick

i=1
wyjscie=False
Do Until wyjscie=True 'dlaczego taka składnia nie dziala ---> Do Until z=szukana or x=1
i=i+1
x= szukana/i
z= x*i
'if z=szukana - to nie pierwsza szukaj dalej
'if x=1 - to jest liczba pierwsza
If z=szukana Then wyjscie=True
If x=1 Then wyjscie=True
Loop
If x=1 Then 'jezeli pierwsza to przepisz zawartosc
szukana_tmp= szukana
End If

szukana=szukana +1'testuj kolejna liczbe

Label1.Text=""
Label1.Text= Label1.Text & "Testowana=" & szukana & CRLF 'wyswietl aktualnie testowana liczbe
Label1.Text= Label1.Text & "pierwsza=" & szukana_tmp & CRLF 'wyswietl ostatnia liczbe pierwsza

If szukana <0 Then 'jezeli skonczy sie zakres zmiennej to wyswietl komunikat
Label1.Text=""
Label1.Text= Label1.Text & "ERROR !!"
End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub[/syntax]

Statystyki: Napisane przez przemo.bundy — 24 mar 2017, o 09:10