Ile pieniędzy trzeba włozyć w Mini Lotka żeby na pewno była 5 ?

Przewiń wpisy ↓	Ile pieniędzy trzeba włozyć w Mini Lotka żeby na pewno była 5 ?
2015-04-08 (21:12) sonny123 Data rejestracji: 2015-01-19 Ilość postów: 138	wpis nr 892 580 [ CZCIONKA MONOSPACE ] https://www.youtube.com/watch?v=MQ9jJpdB2tM
2015-04-09 (21:36) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 892 858 [ CZCIONKA MONOSPACE ] 007 dokładnie wskazana parka poprawnie to 100% 5/5 w mini ..w 9880-zakładach czas obliczeń 850668 kombinacji z zakresu 1 ~ 42 = 00:00:14,47 sec. pozostało 9880 kombinacji
2015-04-09 (21:43) 007 Data rejestracji: 2007-01-08 Ilość postów: 4257	wpis nr 892 863 [ CZCIONKA MONOSPACE ] 9.880 kombinacji x 1,25 zl =12.350 zl. Jesli się pomyliłem to przepraszam ale liczyłem w pamięci 007 ---------------------------------- Czyli nie pomyliłem się ...ale za to liczyłem chyba z minute a Ty w ułameczku sekundy P.S Zmyliły mnie te zera ,wychodzi jednak że ponad 14 sek ,tez nieźle --- wpis edytowano 2015-04-09 21:46 ---
2015-04-09 (21:52) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 892 865 [ CZCIONKA MONOSPACE ] to bardzo wolny algorytm ,jeszcze z czasów przeszłych..ale funkcjonuje znakomicie , o ile ktoś zrozumie ......co jest w tym kodzie to go wykorzysta Sub ELIMINATOR5() ' ' TABLICA_ELIMINATOR Makro Dim vlos As Long Dim tabgps() As Long Dim tabwyn() As Variant Dim Liczba_STARTOWA As Byte, Liczba_KOnCOWA As Byte Dim komb As Long Dim l1 As Byte, l2 As Byte, l3 As Byte, l4 As Byte, l5 As Byte Dim fs, A Dim spr As Long, tr As Byte Dim tabwar() As Variant Dim tabwar2() As Variant Dim stoper As Date, czas As String Dim minsum, maxsum, sum As Long Dim k As Long Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(ThisWorkbook.Path & "/" & "Piątki.txt", True) Cells(1, 86) = "" 'DANE LOSOWAn GPS Liczba_STARTOWA = Application.WorksheetFunction.min(Range("A1:CB65536")) Liczba_KOnCOWA = Application.WorksheetFunction.max(Range("A1:CB65536")) LICZB_LOSOWANYCH = Application.WorksheetFunction.CountA(Arkusz2.Range("C1:V1")) LICZB_GRY = Application.WorksheetFunction.max(Arkusz2.Range("C1:V6000")) If LICZB_GRY = 49 And LICZB_LOSOWANYCH = 5 Then Liczba_KOnCOWA = 42 vlos = Application.WorksheetFunction.CountA(Range("A1:A65536")) If vlos = 0 Then GoTo 100 tabwyn = Range(Cells(1, 1), Cells(vlos, 80)).value tabwar = Range(Cells(1, 82), Cells(vlos, 82)).value tabwar2 = Range(Cells(1, 84), Cells(vlos, 84)).value minsum = Cells(6, 100).value maxsum = Cells(6, 102).value stoper = Timer ReDim tabgps(vlos, 80) For los = 1 To vlos For liczba = 1 To 80 tabgps(los, tabwyn(los, liczba)) = tabwyn(los, liczba) If tabgps(los, tabwyn(los, liczba)) >= 1 Then tabgps(los, tabwyn(los, liczba)) = 1 Next liczba Next los 'WPISANO DANE do tablicy losowan GPS Cells(1, 86) = " Tablica = " & vlos & " warunków" & _ " Obliczanie kombinacji mieszczących sie w normach w TOKU !!! " Cells(1, 86).Font.ColorIndex = 2 komb = 0 k = 0 For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 4 For l2 = l1 + 1 To Liczba_KOnCOWA - 3 For l3 = l2 + 1 To Liczba_KOnCOWA - 2 For l4 = l3 + 1 To Liczba_KOnCOWA - 1 For l5 = l4 + 1 To Liczba_KOnCOWA komb = komb + 1 'sum = l1 + l2 + l3 + l4 + l5 'If sum < minsum Then GoTo 100 'If sum > maxsum Then GoTo 100 For spr = 1 To vlos tr = 0 tr = tabgps(spr, l1) + tabgps(spr, l2) + tabgps(spr, l3) + tabgps(spr, l4) + tabgps(spr, l5) If tr < tabwar(spr, 1) Then GoTo 100 If tr > tabwar2(spr, 1) Then GoTo 100 3232 Next spr k = k + 1 With A .WriteLine (l1 & " " & l2 & " " & l3 & " " & l4 & " " & l5) End With 'Cells(1, 86).Font.ColorIndex = l4 Cells(1, 86) = " Tablica = " & vlos & " warunków" & _ " Obliczanie zawierających się w normach kombinacji w TOKU !!! " & " " & komb & " / " & k 100 Next l5 Next l4 Next l3 Next l2 Next l1 czas = Format(Timer - stoper, " 00:00:00.00") & " sec." Cells(1, 86) = " czas obliczen " & komb & " kombinacji z zakresu " & Liczba_STARTOWA & " ~ " & Liczba_KOnCOWA & " = " & czas & " pozostalo " & k & " kombinacji" End Sub
2015-04-09 (21:54) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 892 866 [ CZCIONKA MONOSPACE ] był pisany pod multi ...ale nadaje się do każdej gry np. kleszek to potrafi sprawdzić i.potwierdzić pozdrowionka
2015-04-09 (22:11) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656	wpis nr 892 873 [ CZCIONKA MONOSPACE ] mój komputer jak chodzi .to zawsze coś oblicza wiec te czasy są tylko pi razy drzwi ..zależy od tego co akurat sie dzieje sprawdziłem klikając w różnych ....momentach w makro w excelu..przy kilku otwartych aplikacjach exe .....obliczajacych co innego czas obliczeń 850668 kombinacji z zakresu 1 ~ 42 = 00:00:10,30 sec. pozostało 9880 kombinacji czas obliczeń 850668 kombinacji z zakresu 1 ~ 42 = 00:00:09,48 sec. pozostało 9880 kombinacji czas obliczeń 850668 kombinacji z zakresu 1 ~ 42 = 00:00:09,39 sec. pozostało 9880 kombinacji
2015-04-10 (16:25) Nivea Data rejestracji: 2013-03-31 Ilość postów: 209	wpis nr 893 020 [ CZCIONKA MONOSPACE ] Niech ktoś mi powie co ma wspólnego szachownica szachowa z Lotto lub co może mieć wspólnego ? Ma ktoś jakieś pomysły ? Bo ja mam od dawien dawna przeczucie że to ciekawy kierunek. Szachownica to 64 pola 8x8, sam rozkład liczb czy podział losowań na 64 cykle innymi słowy upychanie liczb w 64 kratki wiele nie daje. Ale Lotto czy Mini bez powodu nie różnią się ilością liczb, pod ilość i możliwości kombinacji zapewne pisany był algorytm. W Dużym lotku 49 odwróconych liczb daje 64 pola, w mini 42 to 24 kratki. Możecie wypisać z czym Wam się kojarzą obie liczby 49 - 42.
2015-04-10 (17:46) ralfek Data rejestracji: 2009-07-08 Ilość postów: 3863	wpis nr 893 032 [ CZCIONKA MONOSPACE ] Słuchaj jak zaczniesz pisać wprost o co Ci chodzi zamiast gawędzić niezrozumiale to ktoś coś Ci powie.


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 3 Wyślij wiadomość do admina Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]