Re: Speedtest Viewer

2016-10-26T20:51:01+01:00

WoodPaker napisał(a):

A jaki masz telefon?
Tylko nie odpisuj, że srebrny!

Jaglarz napisał(a):

Cienki i czarny.

No i nie napisał, że srebrny

Statystyki: Napisane przez majster — 26 paź 2016, o 20:51

Re: Speedtest Viewer

2016-10-26T18:41:51+01:00

Cienki i czarny.

Powinno działać na każdym Androidzie.

Galaxy S5 Neo

Statystyki: Napisane przez Jaglarz — 26 paź 2016, o 18:41

Re: Speedtest Viewer

2016-10-26T18:35:18+01:00

A jaki masz telefon?

------------------------ [ Dodano po: głębokim zastanowieniu ]

Tylko nie odpisuj, że srebrny!

Statystyki: Napisane przez WoodPaker — 26 paź 2016, o 18:35

Speedtest Viewer

2016-10-21T06:58:27+01:00

Chciałbym przedstawić aplikację w ramach nauki z kursów naszego Guru
Wiem że aplikacja mało przydatna ALE:
czasami czekamy na coś nudząc się okropnie (np. w kolejce do czegoś) wtedy można przeglądnąć jakie ludzie mają internety.

[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: SpeedTest Viewer
#VersionCode: 1
#VersionName:
'Wymuszenie wyświetlania poziomego.
#SupportedOrientations: landscape
#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.

'Deklaracja zmiennej dla biblioteki BClipboard
Dim schowek As BClipboard

Private EditText1 As EditText
Private Button1 As Button
Private WebView1 As WebView

'Zmienna dla przechowywania numeru obrazka
Dim Liczba As Long

Private ImageView1 As ImageView
Private ImageView2 As ImageView

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("Layout1")

'Załadowanie do przeglądarki obrazka początkowego
WebView1.LoadURL("http://www.speedtest.net/result/5564572578.png")

'Poziome wyrównanie elementów bez względu na rozdzielczość
WebView1.Left = (Activity.Width - WebView1.Width) / 2
EditText1.Left = (Activity.Width - EditText1.Width) / 2
Button1.Left = (Activity.Width - Button1.Width) / 2
ImageView1.Left = (WebView1.Left - ImageView1.Width) / 2
ImageView2.Left = (WebView1.Left + WebView1.Width) + ImageView1.Left

Liczba = 5564572578
EditText1.Text = Liczba

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub EditText1_EnterPressed

'Wysłanie adresu do przeglądarki po wpisaniu na klawiaturze ekranowej
WebView1.LoadUrl("http://www.speedtest.net/result/" & EditText1.Text & ".png")

End Sub

Sub Button1_Click

'Skasowanie schowka
'Wysłanie adresu do Schowka

schowek.clrText
schowek.setText("www.speedtest.net/result/" & Liczba & ".png")

End Sub

Sub ImageView1_Click

'Wyświetlenie poprzedniego obrazka
Liczba = Liczba - 1

WebView1.LoadUrl("http://www.speedtest.net/result/" & Liczba & ".png")
EditText1.Text = Liczba
End Sub

Sub ImageView2_Click
Liczba = Liczba + 1

WebView1.LoadUrl("http://www.speedtest.net/result/" & Liczba & ".png")
EditText1.Text = Liczba
End Sub[/syntax]

Do obsługi schowka dołączona biblioteka BClipboard.

Gotową aplikację można ściągnąć stąd: http://www.jaglarz.info/android/SpeedView.apk

Uwaga, przeglądarka Dolphin ściąga to jako plik txt (nie wiem dlaczego). Testowo użyłem przeglądarki którą dostarczył producent telefonu.

SpeedTest Viewer.rar

Można sobie przerabiać jak kto woli.

Statystyki: Napisane przez Jaglarz — 21 paź 2016, o 06:58

ATNEL tech-forum

Re: Speedtest Viewer

Re: Speedtest Viewer

Re: Speedtest Viewer

Speedtest Viewer