Program LottoCad w wersji 2.32 to doskonałe narzędzie dla tych co lubią kombinacje z liczbami. To doskonały sposób na spędzanie wolnego czasu i zabawę w długie wieczory tej zimy i jesieni. Przewidywanie zdarzeń losowych i doskonałe zajęcie w tym czasie. Czasem nie jest to zabawa a czasem ma nawet dobre strony w postaci premii za realne wygrane Przeczytaj więcej w artykule na ten temat ...
WYMIANA Z LOTTOCADem
Do wersji instalacyjnej dołączony jest skrypt który demonstruje działanie funkcji które zapewniają łączność pomiędzy środowiskiem skryptu PHP i programem LottoCAD. Funkcje te mogą przekazywać niezbędne dane z programu LottoCAD do skryptu PHP jak ścieżki do plików, dostęp do baz danych, zawartość tablic losowań, zawartość pól tekstowych, zmienne systemowe itd oraz mogą zapewnić pracę ineraktywną jak np punkty przerwań, komunikaty, wybieranie opcji czy wprowadzanie danych podczas pracy skryptu. Tekst żródłowy skryptu demo wraz z objasnieniami w postaci komentarzy zamieszczam poniżej :
<? // Skrypt prezentuje wbudowane fumkcje i zmienne które // służą do komunikacji z programem LC /* ---------------------------------------------------- | | | Zmienne programu LC wbudowane | | można je wykorzystywać w skryptach | | | ---------------------------------------------------- */ print " Scieżka do katalogu gdzie jest applikacja : $APP_PATH n" ; print " Ile liczb jest losowanych w bieżącej grze : $GAME_DRAW_ALL n" ; print " Ile liczb dodatkowych jest losowane : $GAME_BONUS_DRAWN n" ; print " Ile liczb jest w grze dla gry z dwoma zestawami liczb : $GAME_DUAL_NUMBERS_ALL n" ; print " Ile liczb jest losowanych dla gry z dwoma zestawami liczb : $GAME_DUAL_NUMBERS_DRAWN n" ; print " Czy jest to gra z dwoma zestawami liczb : $GAME_DUALRANGE n" ; print " Jaki jest numer id gry aktualnej (potrzebne dla operacji na bazach danych) : $GAME_ID n" ; print " Jaka jest ostatnia data losowania w bazie danych dla gry bieżącej : $GAME_LAST_DRAW_DATE n" ; print " Ostatni numer losowania w bazie danych dla gry bieżącej : $GAME_LAST_DRAW_ID n" ; print " Nazwa bieżącej gry : $GAME_NAME n" ; print " Ilość wszystkich liczb bieżącej gry : $GAME_NUMBERS_ALL n" ; print " Maksymalna ilość typowań dla bieżącej gry : $GAME_PICK_MAX n" ; print " Nazwa plik z bazą danych bieżącej gry : $GAME_TABLE_NAME n" ; print " Ilość kolumn na kuponie bieżącej gry : $GAME_TICKET_COLS n" ; print " Ilość wierszy na kuponie bieżącej gry : $GAME_TICKET_ROWS n" ; print " Czy jest to gra z bonusem (liczbą dodatkową): $GAME_WITH_BONUS n" ; print " Czy jest to gra ze stawką (Keno,Multilotek) : $GAME_WITH_STAKE n" ; print " Zawartość pola edycji w chwili uruchomienia skryptu : $mainedit n" ; /* ---------------------------------------------------- | | | Funkcje programu LC wbudowane | | można je wykorzystywać w skryptach | | | ---------------------------------------------------- */ // Uwaga Ctrl+J wyświetla dostępne funkcje, funkcje wbudowane // zaczynają się zawsze przedrostkiem delphi_ .... Print " Demo funkcji : delphi_date() nie wymaga argumentów zwraca bieżącą datę w formacie TDateTimen" ; // przykład : $data = delphi_date (); print $data . "n" ; Print " Demo funkcji : delphi_extract_file_dir($filename) Demo funkcji : delphi_extract_file_drive($filename) Demo funkcji : delphi_extract_file_name($filename) Demo funkcji : delphi_extract_file_ext($filename) -> argumentem jest nazwa pliku <- zwraca katalog, napęd, nazwę pliku, rozszerzenie plikun" ; // przykład : $filename = "C:\Windows\notepad.exe" ; $path = delphi_extract_file_dir ( $filename ); $drive = delphi_extract_file_drive ( $filename ); $fname = delphi_extract_file_name ( $filename ); $ext = delphi_extract_file_ext ( $filename ); print $path . "\n" . $drive . "\n" . $fname . "\n" . $ext . "\n" ; Print " Demo funkcji : delphi_show_message($message) -> argumentem jest wyświetlany komunikat <- wyświetla na ekranie komunikat w oknie komunikatów windows\n" ; $message = "To jest komunikat demonstracyjny" ; delphi_show_message ( $message ); Print " Demo funkcji : delphi_str_date() -> nie wymaga argumentu <- zwraca bieżącą datę jako napis\n" ; print delphi_str_date (). "\n" ; Print " Demo funkcji : delphi_get_system_directory(); -> nie wymaga argumentu <- zwraca katalog systemowy Windowsn" ; print "Katalog systemowy : " . delphi_get_system_directory (). "\n" ; Print " Demo funkcji : delphi_input_box($caption,$prompt,$defaultvalue); -> caption = tytuł okna -> prompt = tekst zachęty -> prompt = tekst wartość domyślna <- zwraca wprowadzoną w oknie wartośćn" ; $caption = "Potrzebna wartość" ; $prompt = "Wprowadź liczbę :" ; $defaultvalue = "21" ; $value = delphi_input_box ( $caption , $prompt , $defaultvalue ); print "Wprowadziłeś : $value n" ; Print " Demo funkcji : delphi_confirm_box($caption,$message); -> caption = tytuł okna -> message = tekst komunikatu <- zwraca True jeżeli naciśniesz TAKn" ; $caption = "Zdecyduj" ; $message = "Następne funkcje demonstracyjne, pokazują działanie kilku funkcji tablicowych. Czy chcesz kontynuować ?" ; $result = delphi_confirm_box ( $caption , $message ); if ( $result ) { Print " Demo funkcji : delphi_str_draw(); -> nie wymaga argumentu <- zwraca losowanie w postaci tekstu, który można poddać ewaluacji przekształacając go w tablicę losowań $drawtable.n" ; eval ( delphi_str_draw ());; // wyświetli się tylko jeden element, pierwsze losowanie w bazie // ponieważ wyświetlenie wszystkich wyprowadziłoby do edytora // kilka tysięcy linii print_r ( $drawtable [ 0 ]); print "n" ; Print " Demo funkcji : delphi_str_memoa(); Demo funkcji : delphi_str_memob(); -> nie wymagają argumentu <- zwracają cały tekst z lewego, prawego okna zakłady,wynikin" ; print "Zawartość pola zakłady : n" . delphi_str_memoa (). "n" ; Print " Demo funkcji : delphi_exec_sql($sql); -> argumentem jerst zapytanie do bazy w postaci polecenia sql <- zwraca : <- a : tablicę wyników jeżeli jest to zapytanie typu Select. I jest to tablica assocjacyjna (zawiera nazwy pól). <- b : wartość false jeżeli zapytanie da wynik pusty <- c : komunikat o ilości wprowadzonych, usuniętych, modyfikowanych wierszy jeżeli zapytanie jest typu Insert, Delete, Update, Create Table, Index, Alter Table itd. n" ; // Przykład select $g = explode ( "." , $GAME_TABLE_NAME ); $tbname = $g [ 0 ]; $sql = "Select date from $tbname where L1=1 AND L2=2 AND L3=3 AND L4=4" ; $wynik = delphi_exec_sql ( $sql ); Print " Wykonanie zapytania : $sql n" ; Print " Co można przetłumaczyć : Wybierz z tabeli MULTI daty losowań w których pierwsze cztery liczby to 1,2,3,i 4.n" ; print " Zapytanie dało wynik w postaci tabeli : n" ; print_r ( $wynik ); Print " Demo funkcji : delphi_exec_sql($sql); -> argumentem jest zapytanie do bazy w postaci polecenia sql <- funkcja nie zwraca tablicy asocjacyjnej ale tablicę w której kolejne rekordy i pola są ponumerowane od zera. Funkcję mozna stosować tylko dla polecenia Selectn" ; Print " Demo funkcji : delphi_get_draw_arr(); -> nie wymaga argumentu <- zwraca gotową tablicę losowańn" ; $drawtable = delphi_get_draw_arr (); $reversedrawtable = array_reverse ( $drawtable ); print "Ostatnie losowanie to: n" ; print_r ( $reversedrawtable [ 0 ]); print "n" ; Print " Demo funkcji : delphi_get_hot_arr($Last,$Count); -> $Last = ostatnie losowanie analizy -> $Count = Ilość losowań wstecz <- zwraca tablicę kategorii liczb posortowanych od gorących do zimnych, pierwszy klucz to liczba drugi to ilość wystąpień" ; $Last = $GAME_LAST_DRAW_ID ; // ostatnie w bazie $Count = 30 ; // analiza dla 30 losowań wstecz $hottable = delphi_get_hot_arr ( $Last , $Count ); print "n" ; print_r ( $hottable ); print "n" ; Print " Demo funkcji : delphi_get_hot_arr_assoc($Last,$Count); -> $Last = ostatnie losowanie analizy -> $Count = Ilość losowań wstecz <- zwraca tablicę kategorii liczb posortowanych od gorących do zimnych ale kluczami są liczby gry a wartościami ilości wystąpień" ; $Last = $GAME_LAST_DRAW_ID ; // ostatnie w bazie $Count = 30 ; // analiza dla 30 losowań wstecz $hottable = delphi_get_hot_arr_assoc ( $Last , $Count ); print "n" ; print_r ( $hottable ); print "n" ; Print " Demo funkcji : delphi_get_period_arr_assoc($drawid); -> $drawid = losowanie bieżące <- zwraca tablicę odstępów liczb dla losowania o numerze przekazanym w argumencie funkcji" ; $drawid = $GAME_LAST_DRAW_ID ; // ostatnie w bazie $offsettable = delphi_get_period_arr_assoc ( $drawid ); print "n" ; print_r ( $offsettable ); print "n" ; } ?>
Interaktywne działanie skryptu mozna uzyskać równiez poprzez wykonanie skryptów których wynikiem są formularze danych drukowane w postaci stron html (analogicznie jak interaktywne strony zawierajace formularze do wprowadzania danych jakie spotykacie w internecie). Wówczas moduł skryptu zachowuje sie jak serwer internetowy w ten sposób zapewniając interaktywne działanie tak skonstruowanych stron. Wówczas komunikację ułatwia wbudowany browser (przeglądarka internetowa) która pracuje jako serwer. W jednej z nastepnych lekcji taki skrypt i wyjasnienia dotyczące tej metody postaram się zaprezentować. Zapewniam że wygląda to tylko bardzo skomplikowane, ale jak LC jest łatwe do opanowania. Polecam , umiejętność pisania interaktywnych stron to dziś dość intratne i poszukiwana umiejętność. :)