Kanał - ATNEL tech-forum
Wszystkie działy
Najnowsze wątki



Teraz jest 26 gru 2024, o 11:50


Strefa czasowa: UTC + 1





Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 3 ] 
Autor Wiadomość
PostNapisane: 21 lut 2022, o 11:10 
Offline
Nowy

Dołączył(a): 05 sie 2018
Posty: 4
Pomógł: 0

Witam:)

Jak z poziomu własnej aplikacji.
Rozjaśnić lub ściemnić ekran?

Napisałem prosty zegar, który zainstalowałem na Tablecie.
Tablet włączony na stałe i wyświetla mi godzinę jednak chcę by wieczorem się przygasał.
Fotorezystora nie chcę do niego przylutowywać:)



Góra
 Zobacz profil  
cytowanie selektywne  Cytuj  
PostNapisane: 21 lut 2022, o 14:58 
Offline
Użytkownik

Dołączył(a): 19 lip 2013
Posty: 763
Pomógł: 38

https://www.b4x.com/android/forum/threads/get-set-brightness.107899/
Poczytaj tu.



Góra
 Zobacz profil  
cytowanie selektywne  Cytuj  
PostNapisane: 21 lut 2022, o 19:03 
Offline
Nowy

Dołączył(a): 05 sie 2018
Posty: 4
Pomógł: 0

grzeniu 73, Dziękuję za naprowadzenie.

I zabawka gotowa bez użycia lutownicy:)

'-----------------------------------------
Sub Process_Globals
Dim Tablet As Phone
End Sub

Sub Globals
Private Button1 As Button
Private Button2 As Button
End Sub

'.................................

Private Sub Button1_Click
Dim ref As Reflector
ref.Target = ref.GetActivity
ref.Target = ref.RunMethod("getWindow")
ref.Target = ref.RunMethod("getAttributes")
Dim current As Float = ref.GetField("screenBrightness")


current = current - 0.1

Log(current)
Log(Round2(current,1))

Tablet.SetScreenBrightness(Min(1, Max(0.01, current)))
End Sub

'.................................

Private Sub Button2_Click
Dim ref As Reflector
ref.Target = ref.GetActivity
ref.Target = ref.RunMethod("getWindow")
ref.Target = ref.RunMethod("getAttributes")
Dim current As Float = ref.GetField("screenBrightness")


current = current + 0.1

Log(current)
Log(Round2(current,1))

Tablet.SetScreenBrightness(Min(1, Max(0.01, current)))
End Sub
'.................................

pozdrawiam Wszystkich



Góra
 Zobacz profil  
cytowanie selektywne  Cytuj  
Wyświetl posty nie starsze niż:  Sortuj wg  
Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 3 ] 

Strefa czasowa: UTC + 1


Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 0 gości


Nie możesz rozpoczynać nowych wątków
Nie możesz odpowiadać w wątkach
Nie możesz edytować swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Skocz do:  
Sitemap
Technologię dostarcza phpBB® Forum Software © phpBB Group phpBB3.PL
phpBB SEO