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

KURS HOME ASSISTANT

Chcesz zautomatyzować swój dom bez skomplikowanego kodowania?
Zastanawiasz się nad wyborem sprzętu, oprogramowania i aplikacji?
Od czego zacząć przygodę z HA w 2025? Co będzie najlepsze na start?

Nasz kurs Home Assistant nauczy Cię krok po kroku, jak łatwo zautomatyzować swój dom i oszczędzić na rachunkach za prąd i ogrzewanie. Bez chmur, bez zbędnych abonamentów. Twoja przygoda z Home Assistant zaczyna się tutaj!

↓↓↓

    Szanujemy Twoją prywatność. Możesz wypisać się w dowolnym momencie.




    Teraz jest 9 kwi 2025, o 00:01


    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: 771
    Pomógł: 40

    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 1 gość


    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