Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 112 113 114 ... 197 198
Wyślij wiadomość do admina

Przewiń wpisy ↓

Mini Lotto moja ukochana gra!

2024-01-13 (22:32)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 277
[ CZCIONKA MONOSPACE ]

AKI,

w A1 taka formuła: =JEŻELI(B1=0;0;JEŻELI(B1=1;A1+1;A1))

"0" w B1 będzie ustawiało licznik w komórce A1 na "0"
a za każdym razem gdy w B1 pojawi się "1"
to komórka A1 będzie się zwiększać o 1.

Ja włączyłem opcję: obliczanie iteracyjne
i
ustawiłem:
Maksymalna liczba iteracji: 1
Maksymalna zmiana: 1.
2024-01-14 (06:59)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 292
[ CZCIONKA MONOSPACE ]

W sobotę 13.01.2024
w losowaniu numer 6467
w Mini Lotto
wylosowano kule:
11 17 23 31 34 (CSN 667 075)

Zawarto ok. 1 413 470 zakładów
wśród których zanotowano
2 trafienia 5/5
za które płacono 212 020,50 zł każde.
Gratulacje.

U mnie:
0 x X/5.
2024-01-14 (11:03)

status qetupas
Data rejestracji: 2022-10-17
Ilość postów: 858

16489
wpis nr 1 499 309
[ CZCIONKA MONOSPACE ]

30 34 16 7 9 13 35 23 36 40 29 26
2024-01-14 (12:44)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 339
[ CZCIONKA MONOSPACE ]

AKI,
Działająca procedura dla OpenOffice lub LibreOffice którą można skopiować i wkleić do okienka makrami z menu Makra >Edycja Makr
z podanymi wskazówkami dla ułatwienia wejścia w makra i ich zmienianie.

Skopiuj i wklej poniższy kod:


Sub ZwiekszWartosc
Dim wartoscKomorki As Integer
Dim innaKomorka As Integer
Dim zwiekszKomorka As Integer

' Ustawienie wartości zmiennej od której zależy zmiana, może też być każda inna wartość zależna np. 25
wartoscKomorki = 1

' Przypisanie do wartości zmiennej innej komórki przykładowo F2
innaKomorka = ThisComponent.Sheets(0).getCellRangeByName("B5").getValue()

' Przypisanie do wartości zmiennej innej komórki która będzie zwiększana na przykład A1
zwiekszKomorka = ThisComponent.Sheets(0).getCellRangeByName("A1").getValue()


'Lub przy iteracji gdy pobieranie wartości dotyczy wielu komórek naraz
'wygodniej użyć rozwiązania alternatywnego iterując pozycje każdej z komórek
' jak poniżej :
'innaKomorka = ThisComponent.Sheets(0).getCellByPosition(1, 4).getValue()
'zwiekszKomorka = ThisComponent.Sheets(0).getCellByPosition(0, 0).getValue()

' Zastosowanie warunku zwiększania
If innaKomorka = wartoscKomorki Then
' Zwiększ wartość komórki A1 o jeden
ThisComponent.Sheets(0).getCellRangeByName("A1").setValue(zwiekszKomorka + 1)

' Wyświetl komunikat
MsgBox "Wartosc komorki zostala zwiekszona o jeden. Nowa wartosc: " & (zwiekszKomorka + 1), 64, "Informacja"
Else
' Wyświetl komunikat o braku odpowiedniej wartości
MsgBox "Brak odpowiedniej wartosci w komorce B5", 48, "Ostrzezenie"
End If
End Sub
2024-01-14 (12:51)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 340
[ CZCIONKA MONOSPACE ]

zdjęcie
2024-01-14 (19:09)

status AKI
Data rejestracji: 2023-02-15
Ilość postów: 662

16537
wpis nr 1 499 400
[ CZCIONKA MONOSPACE ]

Witam,
serdecznie dziękuję za pomoc w opanowywaniu arkusza kalkulacyjnego.

Na dzisiaj:
35, 3, 15, 22; 2, 27, 24, 16, 21, 13,

19, 7, 16, 30, 21, 26, 13, 15, 22, 3, 20, 1

Pozdrawiam i powodzenia.
2024-01-14 (21:44)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 421
[ CZCIONKA MONOSPACE ]

Na Niedzielę:

15 25 31 33 39
24 32 33 37 40.
2024-01-15 (16:35)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 493
[ CZCIONKA MONOSPACE ]

AKI,

MAKRO z opisami
Automatyczne zwiększanie w zależnosci od wartości 1 na przykładzie 42 komórek dla MINI
Zwiększane komórki koloruje się.
Przykład wykonania na arkuszu :

zdjęcie
2024-01-15 (16:37)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 496
[ CZCIONKA MONOSPACE ]

Gotowe działaajce makro dla powyższego przykładu dla OpenOffice i LibreOffice !


REM ***** BASIC *****
Sub ZwiekszanieKomorek
Dim sheet As Object
Dim randomValue As Integer
Dim i As Integer
Dim liczbGry As integer
Dim wartoscSzukana As Integer
Dim maxlos As integer

' Ustawienie arkusza do pracy
'ThisComponent - to obiekt, tu otwarty, aktywny arkusz kalkulacyjny
' dodanie kropki po ThisComponent pozwala wybrać kolejny obiekt np. Sheets
' czyli Arkusz na którym będzie się pracować
' arkusze numerowane są od zera
' podane 0 w nawiasie to argument oznaczający pierwszy arkusz
' domyślnie opisany na dolnej zakładce jako "Arkusz1"
sheet = ThisComponent.Sheets(0)
sheet.clearContents(com.sun.star.sheet.CellFlags.VALUE)

'ustawienie zmiennej ilości iteracji
' ta zmienna to Liczbgry
' dla innej gry tylko się zmienia bez poprawiania całego kodu
liczbGry = 42
maxlos = 15 'maks.liczba dla symulacji częstotliwości wypadania liczb
randomize 'aby otrzymywać liczby naprawdę losowe
For i = 0 To liczbgry-1 'w arkuszach pozycje komórki liczone od zera !
'Wypełnij liczbami gry
sheet.getCellByPosition(0+i, 0).setValue(i+1)
' Wypełnij zakres InneKomorki
'dla tego przykładu wpisywana wartość jest wybierana losowo
'randomValue = Int((15 - 0 + 1) * Rnd) + 1

randomValue = Int(Rnd * maxlos ) + 1
'Wpis do kolejnej komórki wynika ze zwiększena numeru
'kolumny (pierszy parametr pozycji) o wartość
'iterowanej zmiennej "i" czyli dodawania od 0 do 41
sheet.getCellByPosition(0+i, 3).setValue(randomValue)
' Wypełnij zakres ZwiekszanieKomorek zerami
sheet.getCellByPosition(0+i,6).setValue(0)

Next i

' Sprawdź i zwiększ komórkę w ZwiekszanieKomorek, jeśli warunek jest spełniony
wartoscSzukana = 1
For i = 0 To liczbgry-1
sheet.getCellByPosition(0+i,6).CellBackColor = RGB(255,255,255)
If sheet.getCellByPosition(0+i,3).getValue() = wartoscSzukana Then
sheet.getCellByPosition(0+i,6).setValue(sheet.getCellByPosition(5, 4 + i).getValue() + 1)
'koloruje komórkę gdy warunek jest spełniony - zwiększona wartość komórki
sheet.getCellByPosition(0+i,6).CellBackColor = RGB(0, 255, 0)
End If

Next i
End Sub
2024-01-15 (17:00)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 501
[ CZCIONKA MONOSPACE ]

W Niedzielę 14.01.2024
w losowaniu numer 6468
w Mini Lotto
wylosowano kule:
9 22 25 40 41 (CSN 607 805)

Zawarto ok. 876 604 zakłady
wśród których zanotowano
1 trafienie 5/5
za które płacono 262 981,20 zł.
Gratulacje.

U mnie:
1 x 0/5
1 x 1/5.
2024-01-15 (22:36)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 544
[ CZCIONKA MONOSPACE ]

W poniedziałek 15.01.2024
w losowaniu numer 6469
w Mini Lotto
wylosowano kule:
1 6 25 33 37 (CSN 41 644)

Zawarto ok. 1 097 651 zakładów
wśród których zanotowano
1 trafienie 5/5
za które płacono 329 295,30 zł.
Gratulacje.

U mnie:
0 x X/5.
2024-01-16 (14:15)

status qetupas
Data rejestracji: 2022-10-17
Ilość postów: 858

16489
wpis nr 1 499 601
[ CZCIONKA MONOSPACE ]

20 23 39 16 11 25 32 4 40 28 37
10 9 33 32 26 16 41 20 18 13
2024-01-16 (19:42)

status AKI
Data rejestracji: 2023-02-15
Ilość postów: 662

16537
wpis nr 1 499 637
[ CZCIONKA MONOSPACE ]

MultiTest dziękuję BARDZO za makro

Na dzisiaj:
2, 12, 3, 20, 24, 39, 16, 5, 13, 10, 29, 23, 40, 41, 33
38, 12, 20, 24, 16, 30, 21, 26, 5, 13, 15, 10, 18, 29, 11, 23, 34,40, 41

Pozdrawiam
2024-01-16 (22:57)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 672
[ CZCIONKA MONOSPACE ]

We wtorek 16.01.2024
w losowaniu numer 6470
w Mini Lotto
wylosowano kule:
6 17 18 24 30 (CSN 458 837)

Zawarto ok. 1 152 528 zakładów
wśród których zanotowano
1 trafienie 5/5
za które płacono 345 758,40 zł.
Gratulacje.

U mnie:
0 x X/5.
2024-01-16 (23:12)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 675
[ CZCIONKA MONOSPACE ]

AKI
Można by zacząć od pobrania wyników losowania mini i automatycznie wpisać do arkusza.
W testowanym LibreOffice wygląda to tak:
zdjęcie
2024-01-16 (23:13)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 677
[ CZCIONKA MONOSPACE ]

W kodzie może być tak : (fragment)

zdjęcie
2024-01-16 (23:15)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5928

16235
wpis nr 1 499 678
[ CZCIONKA MONOSPACE ]

A cały kod procedury tak:

Sub PobierzWynikiMIni
Dim sheet As Object
Dim datastr As Date
Dim lDate As Long
Dim sDate As String
Dim Cell As Object

sheet = ThisComponent.Sheets(0)

'Dla wyświetlenia w aruszu wyniki ze strony Pasko
'zostały pobrane u mnie na dysk D

Filename = "d:\wyniki-minilotto-sortowane.csv"
FileNo = Freefile
Open Filename For Input As FileNo
Line Input #FileNo, firstLine 'pominięcie nagłówka z nazwami kolumnn
Do While not eof(FileNo)
Line Input #FileNo, Line
Sp = ";" 'separator
LineStr = Split(Line, sp)
For i = LBound(Linestr) To UBound(linestr)
If isnumeric(Linestr(i)) Then
Select Case i
Case 0 : sheet.GetCellByPosition(i,iloscwierszy).setvalue(linestr(i))
Case 1 : ADay = CInt(linestr(i))
Case 2 : AMonth = CInt(linestr(i))
Case 3 : AYear = CInt(linestr(i))

cell=sheet.GetCellByPosition(i-2,iloscwierszy)
cell.setstring(DateSerial(ayear, amonth, aday))
'format komórek
sheet.GetCellByPosition(i-2,iloscwierszy).HoriJustify = com.sun.star.table.CellHoriJustify.RIGHT
Case Else
sheet.GetCellByPosition(i-2,iloscwierszy).setvalue(linestr(i))
End select
End if
Next i
iloscWierszy = iloscWierszy + 1
loop
End Sub
2024-01-17 (13:37)

status qetupas
Data rejestracji: 2022-10-17
Ilość postów: 858

16489
wpis nr 1 499 732
[ CZCIONKA MONOSPACE ]

1 11 14 30 34
4 11 13 35 16
2 14 40 13 35
16 13 4 36 39
11 14 20 25 16
2024-01-17 (21:45)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 791
[ CZCIONKA MONOSPACE ]

Na środę:

2 5 12 27 35.
2024-01-17 (22:38)

status kostka1zn
Data rejestracji: 2021-02-25
Ilość postów: 2703

16333
wpis nr 1 499 802
[ CZCIONKA MONOSPACE ]

W środę 17.01.2024
w losowaniu numer 6471
w Mini Lotto
wylosowano kule:
7 17 20 21 36 (CSN 511 630)

Zawarto ok. 1 146 806 zakładów
wśród których nie zanotowano
trafienia 5/5.

U mnie:
1 x 0/5.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 112 113 114 ... 197 198
Wyślij wiadomość do admina