Skrypt "podzielnik", dzieli długie zestawy liczb na części w zestawy po tyle liczb co w parametrze $chunk w linii 7. Parametrami można ustawiać również sortowanie lub kolejność losową.

image

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

<?php require_once("include/class_Utils.php");   //------------ parametry -------- poczatek------------ $chunk=3;  // podział po n kolumn $schuffle = false; // true = miesza wyniki, false = tak jak jest $sort = false;    // true = sortuje wyniki, false = tak jak jest //------------ parametry -------- koniec -------------   srand((float)microtime() * 1000000); $sets=delphi_str_memoa(); // pobiera set z pola zaklady $set_lines=preg_split("'\r?\n'", trim($sets));   $outarr=array();   $outarr=array(); foreach($set_lines as $line) {    $ary = preg_split("/[^0-9]+/",trim($line));    if ($schuffle) shuffle($ary);    if ($sort) sort($ary);    $hk = array_chunk($ary, $chunk);    foreach($hk as $id=>$cols) $outarr[$id][] = $cols;      }      foreach($outarr as $cols) {      echo Utils::printTickets($cols),"\n\n";    } ?>

Android - Macrodroid skrypt przypominający o lekarstwach.

/*If you need to translate an article, you can find the translation options in the right toolbar at the top.*/

Choruję na cukrzycę. Ze względu na obowiązki zdarza mi się zapominać o regularnym pobieraniu lekarstw czy iniekcji insuliny. Znalazłem aplikację na Androida która daje wiele możliwości dla naszej kreatywności w stworzeniu potrzebnych zadań dla naszego smartfona. 

Program Macrodroid można pobrać ze sklepu Play-Google. Program pobierzesz z linku Macrodroid ze sklepu play.google.com. W wersji bezpłatnej można stworzyć do pięciu własnych zadań- skryptów. Pełna wersja nie ma reklam i ograniczeń a kosztuje naprawdę niewiele. Można to traktować jak mniej więcej 5 piw postawionych autorowi :) za jego dobrą pracę.

Każdy skrypt głównie składa się z kilku sekcji a podstawowe są dwie sekcje o których wspomnę a mianowicie : 

• sekcja wyzwalaczy 
• sekcja akcji

Wyzwalacze służą do inicjacji skryptu czyli są to zdarzenia na które skrypt czeka aby uruchomić akcje z następnej sekcji. Program zabezpiecza możliwość uruchomienia skryptów akcji na wiele sposobów. Może to być np czas, kalendarz, czujniki smartfona, dotyk, sms, połączenie telefoniczne, komunikator WhatsUp lub inne zdarzenie. Wybór jest ogromny.

Akcje również posiadają bogaty repertuar a mianowicie mozna uruchamiać programy, wysyłać powiadomienia, reagować na sms, robić zdalnie fotografie, nagrywać dźwięk, znajdować zgubiony smartfon, zabezpieczać przed uruchomieniem i wiele wiele innych zadań zależnych tylko od własnej wyobraźni.

To podsunęło mi pomysł napisania skryptu wg własnego pomysłu:
Podstawą są trzy wyzwalacze uruchamiające skrypt w porach pobierania lekarstw. o godzinach 9:00, 14:00 i 20:00. Robiąc skrypt dla rodziców, dziadka, niepełnosprawnego sąsiada, łatwo można dodać np wysyłanie sms od nich do osoby sprawującej opiekę że wszystko OK lub np od dłuższego czasu pacjent nie reaguje. Myslę że nie jeden z Was myślał o czymś takim no i w czasach pandemii ograniczy to kontakty tylko do niezbędnych.Wyzwalacze skryptu który nazwałem "Diabetyk" uruchamiają akcje które zebrane są w trzy jednakowe logiczne bloki :

1. Jeżeli  był wywołany wyzwalacz o godzinie 9:00 to :

• wybudź ekran
• ustaw zmienną globalną enableAction = Prawda
• Wykonuj akcje dokąd zmienna globalna enableAction = Prawda
• Czytaj na głos tekst ze zmiennej messageBreakfest (zawiera przypomnienie o wzięciu lekarstw porannych) - warunkowo gdy macroEnable = Prawda  
• Odczekaj 5 minut -  warunkowo gdy enableAction = Prawda
• Czytaj na głos ponaglenie wzięcia lekarstw zawarte w zmiennej messageRemind -  warunkowo gdy enableAction = Prawda
• Czekaj minutę i powtórz sekwencję tej pętli wykonuj akcje dotąd.
• Koniec pętli : Wykonuj akcje dokąd enableAction = Prawda, akcję przerywa inne makro o nazwie "Semafor" które uruchamiane jest aktywnością użytkownika który musi przytulic lub dotknąć smartfon zadziała wówczas czujnik zbliżeniowy. Wówczas zmienna globalna enableAction ustawia na Fałsz co przerywa akcję powtórzeń komunikatów.
• koniec akcji wyzwalacza godziny 9:00 
• 2. Jeżeli  był wywołany wyzwalacz o godzinie 14:00 to : bloki takie same jak powyżej
• 3. Jeżeli  był wywołany wyzwalacz o godzinie 20:00 to : bloki takie same jak powyżej

Drugie makro to wyzwalacz uruchamiany "przytuleniem" smartfona w opcji "blisko" co powoduje akcję ustawiania zmiennej globalnej enableAction = Fałsz co wyłącza zapętlenie komunikatów w interwałach czasowych co ok 6 minut gdy pacjent nie reaguje oraz opcjonalnie gdy zmienna globalna enableGlucometer jest ustawiona na True, uruchamia odmierzanie czasu ok 120 minut do komunikatu o konieczności pomiaru stężenia cukru glukometrem.  Wg przepisu stężenie cukru we krwi badać należy na czczo oraz dwie godziny po posiłkach.

Algorytm skryptu który nazwałem Semafor:

• Jeżeli wyzwalacz Czujnika zbliżeniowego jest "Blisko" tzn. dotykam lub "przytulam smartfon. cały skrypt ma dodane ograniczenie- warunek (enableAction=Prawda). Makro nie będzie uruchamiane gdy jest konieczne.
• Ustaw zmienną enableAction=na Fałsz przez odwrócenie tzn gdy była prawda odwracamy na Fałsz.
• Jeżeli zmienna enableGlukometer = Prawda to:
• Czekaj 120 minut
• Czytaj tekst : "Mineły dwie godziny od posiłku, możesz zmierzyć cukier glukometrem".
• Koniec akcji jeżeli zmienna enableGlukometer = Prawda.
• Koniec akcji wyzwalanej Czujnikiem zbliżeniowym.

Po wgraniu obu skryptów należy wprowadzić wczskając przycisk "Zmienne", zmienne globalne, poniżej opis w układzie nazwa zmiennej (typ) = wartość :

• alarmOff(string) ="No dobrze już nie będę Ci więcej truła"
• enableAction(Boolean)=Fałsz
• enableGlucometer(Boolean)=Fałsz
• messageLunch(string)="Pamiętaj o lekarstwach, zażyj dawkę przed obiadem. Tylko tabletka Siofor1000"
• messageBreafest(string)="Pamietaj o lekarstwach, zazyj dawkę przed śniadaniem. Tabletki Siofor, Telmizek, Beto i wstrzyknij dawkę 14 jednostek insuliny".
• messageDinner(string)="Pamiętaj o lekarstwach, zażyj dawkę przed kolacją.Tabletki Siofor,Acard i Suwardio i wstrzyknij dawkę 12 jednostek insuliny.
• messageGlucometer(string)="Mijaja własnie dwie godziny od posiłku, wiec zmierz cukier glukometrem".
• messageRemind(string)="Na boga weź wreszcie że te lekarstwa"

graficzny skrypt "Diabetyk" w języku Polskim:

Script "Diabetyk" in English.

Skrypt "Semafor" w języku Polskim.

Script "Semafor" in English.

pod adresem są spakowane skrypty : pobierz skrypty

Skrypt PHP, uzupełnia wyniki w grach "córkach" gry multilotek, rozdziela losowania ze względu na godziny losowania i wprowadza je do gier MULTI22 i MULTI14

Skrypt pobiera wyniki z gry "multi-multi", rozdziela je ze wzgledu na godzine losowania i wprowadza je do odpowiednich gier.

W programie Lottocad

• otwórz z menu "Skrypty PHP">>> "Skrypty PHP Edytor".
• utwórz nowy plik w edytorze kliknij przycisk "Nowy"
• skopiuj z tego postu kod skryptu
• wklej go w edytor
• zapisz skrypt pod dowolną nazwę jako plik "nazwa.php"
• uruchom plik w edytorze przyciskiem "PHP" [lub klawiszem F9]
• komunikaty o wykonaniu zobaczysz w polu tekstowym "zakłady" lub polu "wyniki"

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

<?php error_reporting(5); $src_tbname = "multi-multi"; $d22_tbname = "MULTI_22"; $d14_tbname = "MULTI_14"; // pytamy bazę MULTI_22 o id i datę ostatniego losowania w bazie   $sql="Select max(Date) as maxdate, max(ID) as maxid from MULTI_22;"; $wynik22=delphi_exec_sql($sql); echo "Ostatnie losowanie zapisane w tabeli $d22_tbname ma id= {$wynik22[0]['maxid']} jest z dnia {$wynik22[0]['maxdate']}\n";   // pytamy bazę MULTI_14 o id i datę ostatniego losowania w bazie   $sql="Select max(Date) as maxdate, max(ID) as maxid from MULTI_14;"; $wynik14=delphi_exec_sql($sql); echo "Ostatnie losowanie zapisane w tabeli $d14_tbname ma id= {$wynik14[0]['maxid']} jest z dnia {$wynik14[0]['maxdate']}\n";   $dta = $wynik22[0]["maxdate"]." 23:59:59"; $sql = "Select * from multi_multi where \"Date\">'$dta'"; //echo "Dla tabeli: $d22_tbname ",$sql,"\n"; $wynik2222=delphi_exec_sql($sql); //echo "Dla tabeli: $d22_tbname count= ",count($wynik2222),"\n"; //print_r($wynik2222); // filtrujemy $pass=0; foreach ($wynik2222 as $id=>$rec) {                 $pos = strpos($rec['Date'], "21",9);                 echo $pos;         if ($pos>10) {            $w=delphi_exec_sql(create_insert_query($d22_tbname,$rec));            if ($w) {            echo "do tabeli $d22_tbname dodano $w losowanie z dnia {$rec["Date"]}\n";            $pass+=1;            }            }         } if ($pass==0) echo "Nie ma jeszcze nowych wyników dla teabeli $d22_tbname\n";       $dtb = $wynik14[0]["maxdate"]." 23:59:59"; $sql = "Select * from multi_multi where \"Date\">'$dtb'"; //echo "Dla tabeli: $d14_tbname ",$sql,"\n"; $wynik1414=delphi_exec_sql($sql); //echo print_r($wynik1414,true); //echo "Dla tabeli: $d14_tbname count= ",count($wynik414),"\n";   // filtrujemy $pass=0;    foreach ($wynik1414 as $id=>$rec) {                 $pos = strpos($rec['Date'], "14",9);                 //echo $pos;                 if ($pos>10) {                 $w=delphi_exec_sql(create_insert_query($d14_tbname,$rec));                 if ($w) {                 echo "do tabeli $d14_tbname dodano $w losowanie z dnia {$rec["Date"]}\n";                 $pass+=1;                 }                 }         } if ($pass==0) echo "Nie ma jeszcze nowych wyników dla teabeli $d14_tbname\n";         function create_insert_query($tablename, $array) {     //$array['RecordID']='NULL';     $key = array_keys($array);     $val = array_values($array);     $val[0]='NULL';     $val[2]="'".substr($val[2],0,10)."'";     //sanitation needed!     $query = "INSERT INTO $tablename (" . implode(', ', $key) . ") "          . "VALUES (" . implode(", ", $val) . ")";       return($query); }

 

Powodzenia