Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Che devo dire, io ci provo sia a giocare che divertirmi a provare a postare per altri quelle vincenti, sarò io lo sfigato di turno, perchè guarda caso i miei post sono quasi sempre vincenti, il quasi per me è un obbligo, come anche specificare quasi sempre che NON ESISTE NESSUNA GARANZIA DI VINCITA, giusto per essere onesto e NON INVOGLIARE altri a giocare, purtroppo sbaglio sempre nelle scelte e quasi non riesco a vincere mai. Spero e ti Auguro con tutto il cuore che Tu riesci a VINCERE a ogni estrazione e a vivere di questo, io purtroppo dopo circa 41 anni di contributi versati, per fortuna sono riuscito ad andare in pensione e per fortuna riesco a sfamare me e la mia famiglia dignitosamente, per il resto continuo a sperare e sognare. Buon pomeriggioBubù ti ringrazio, per la considerazione,
però secondo me le certezze ci sono.
La prima si identifica con il "limite di spesa" che ogni giocatore ha.
Questo limite si divide per il numero di giocate che intende effettuare.
Dunque se uno ha 10 Euro e li gioca tutti assieme ... o vince o perde.
Se li divide in 10 pronostici forse ha qualche possibilità in più.
Se si insegue una combinazione che ha un ritardo naturale di 100.000 Estrazioni,
prima bisogna mettere a bilancio 100.000 Euro per giocarle
e poi sperare di non morire prima, che non "faccia ritardo" ... ecc. ecc.
Dunque la seconda certezza è che Vincere al Lotto
è molto più FACILE che PERDERE al Lotto.
Come fare a braccio di ferro "1 solo" ... "contro 17".
Con queste "proporzioni".
Se poi ci si presenta alla sfida, allegramente, l'esito è certo.
Cioè traumatico.
Dunque si ... un Ambo un Terno o una Quaterna sono soddisfazioni,
ma non ci si arriva sperando.
Perché se si è alla fortuna pura ... è fortuna e basta.
Se invece si vuole o ci si spera ... ce li si deve "guadagnare". (Anche senza virgolette)
![]()
Scusami zetrix ma come mai ti ritrovi sempre sulle somme..........ancora non l'ho capito correggetemi se sbaglio.....dal pricipio che vi dico ti dico SULLE DISTANZE::::::::::OK....Vedi l'allegato 2240260
ho fatto questo cruciverba ma il difficile e come impostarre le condizioni sui simboli + e -
questo cruciverba si basa sulle somme uguali..
Credo che cambia poco anche perchè secondo me siamo Lì Differenza o Distanza voglio dire cambia il linguaggio e come dire parliamo della stessa cosa........poi vedi tu......Imaging farò una prova sulle distanze come dici tu ma secondo me e meglio fare
sulle differenze..che ne dici..
Ok Vediamo quel' è il risultato migliore.........Imaging farò una prova sulle distanze come dici tu ma secondo me e meglio fare
sulle differenze..che ne dici..
Buon pomeriggio a Voi ... a tutti.....joe per cortesia fai un listato......definiamo un traguardo come anche zetrix pubblica il listato definitivo....
Vi ringrazio moltissimo. Imaging
Sono molto d'accordo ,io penso che non tutti ........ecco il perché di uno Script......OK.Non può esistere un listato per quello che ho fatto.
Spesso ne costruisco e/o utilizzo 4/5/6 contemporaneamente, assieme alle funzioni di base di L8 e di spaziometria.
In questo caso l'immagine ed i calcoli finali sono fatti con Excel e l'immagine è stata elaborata con Paint.
Ma avevo spiegato come e cosa era.
![]()
OK vediamo .......Vedi l'allegato 2240289
iMAGING ho fatto un altro cruciverba dopo vediamo qualche esempio di gioco..
stasera non abbiamo combinato niente ..
a VE e uscito il 13 85 senza il 42 ..
Se non ti convincono allora abbiamo trovato la condizione dammi retta......OKVedi l'allegato 2240294
differenza 76 86 = 10
differenza 7 17 = 10
differenza 12 2 = 10
[NZ] [.. 22 66 .. ..] C. 1 Ambo [20/08/2022] [74.22.66.26.36]
allora questo e il cruciverba ma le dist non mi convincono tanto..
Sub Main()
Dim ruota(5),ruote(5)
Dim posta(5),poste(5)
Dim r1,r2,r3
Dim ambo1(2),ambo2(2),ambo3(2),terzina(3)
Dim caso
'
posta(2) = 1
poste(2) = 1
poste(3) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
'
caso = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r1 = 1 To 8
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
'----------------------------------
For r3 = r2 + 1 To 10
For p5 = 1 To 4
For p6 = p5 + 1 To 5
n5 = Estratto(es,r3,p5)
n6 = Estratto(es,r3,p6)
'-----------------------------------
'--------------------------------
n7 = Differenza(n1,n2)
n8 = Differenza(n3,n4)
n9 = Differenza(n5,n6)
'-------------------------
'
If Differenza(n1,n2) And Differenza(n3,n4) And n7 = n8 _
And Differenza(n3,n4) And Differenza(n5,n6) And n8 = n9 Then
'
'
n10 = Fuori90(n1 - n5 + n6)
n11 = Fuori90(n5 - n6 + n4)
n12 = Fuori90(n5 - n1 + n2)
'
ambo1(1) = n10
ambo1(2) = n11
'
ambo2(1) = n10
ambo2(2) = n12
'
ambo3(1) = n11
ambo3(2) = n12
'
terzina(1) = n10
terzina(2) = n11
terzina(3) = n12
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
'Scrivi String(99,"-") & " gioco n. " & caso
'
'---------------------------------
'
ReDim MatriceCaselleDaEvid(6,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p4 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p5 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p6 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If n7 = n8 And n8 = n9 Then
Scrivi "differenza" & Space(2) & n1 & " " & n2 & Space(0) & " = " & n7 & " ",1,1,7,3,4
Scrivi "differenza" & Space(2) & n3 & " " & n4 & Space(0) & " = " & n8 & " ",1,1,7,3,4
Scrivi "differenza" & Space(2) & n5 & " " & n6 & Space(0) & " = " & n9 & " ",1,1,7,3,4
End If
'-------------------------------------------------------------------
Scrivi
If n7 = n8 And n8 = n9 Then
Scrivi("" & Format2(n1) & "____" & Format2(n2) & "____"),0,0,1,3,6
Scrivi("" & Format2(n10) & "") & " ",0,1,2,3,6
Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " "),0,1,1,3,6
Scrivi("" & Format2(n11) & ""),0,0,2,3,6
Scrivi("" & Space(4) & Format2(n3) & Space(4) & Format2(n4) & " ") & "",0,1,1,3,6
Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " ") & "",0,0,1,3,6
Scrivi
Scrivi("" & Format2(n5) & "____"),0,0,1,3,6
Scrivi("" & Format2(n12) & ""),0,0,2,3,6
Scrivi("____" & Format2(n6) & "") & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'
Scrivi
ImpostaGiocata 1,ambo1,ruote,posta,k
ImpostaGiocata 2,ambo2,ruote,posta,k
ImpostaGiocata 3,ambo3,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Sub
Adesso lo guardo OK.Codice:Sub Main() Dim ruota(5),ruote(5) Dim posta(5),poste(5) Dim r1,r2,r3 Dim ambo1(2),ambo2(2),ambo3(2),terzina(3) Dim caso ' posta(2) = 1 poste(2) = 1 poste(3) = 1 ' rs = InputBox("Quante estrazioni vuoi controllare?",,0) k = 0 ' caso = 0 For es = EstrazioneFin - rs To EstrazioneFin AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es ' For r1 = 1 To 8 For p1 = 1 To 4 For p2 = p1 + 1 To 5 n1 = Estratto(es,r1,p1) n2 = Estratto(es,r1,p2) '----------------------------------- For r2 = r1 + 1 To 9 For p3 = 1 To 4 For p4 = p3 + 1 To 5 n3 = Estratto(es,r2,p3) n4 = Estratto(es,r2,p4) '---------------------------------- For r3 = r2 + 1 To 10 For p5 = 1 To 4 For p6 = p5 + 1 To 5 n5 = Estratto(es,r3,p5) n6 = Estratto(es,r3,p6) '----------------------------------- '-------------------------------- n7 = Differenza(n1,n2) n8 = Differenza(n3,n4) n9 = Differenza(n5,n6) '------------------------- ' If Differenza(n1,n2) And Differenza(n3,n4) And n7 = n8 _ And Differenza(n3,n4) And Differenza(n5,n6) And n8 = n9 Then ' ' n10 = Fuori90(n1 - n5 + n6) n11 = Fuori90(n5 - n6 + n4) n12 = Fuori90(n5 - n1 + n2) ' ambo1(1) = n10 ambo1(2) = n11 ' ambo2(1) = n10 ambo2(2) = n12 ' ambo3(1) = n11 ambo3(2) = n12 ' terzina(1) = n10 terzina(2) = n11 terzina(3) = n12 ' ruote(1) = r1 ruote(2) = r2 ruote(3) = r3 ruote(4) = TT_ ruote(5) = NZ_ '---------------------------- 'Scrivi String(99,"-") & " gioco n. " & caso ' '--------------------------------- ' ReDim MatriceCaselleDaEvid(6,1) ' 1 MatriceCaselleDaEvid(1,0) = r1 ' MatriceCaselleDaEvid(1,1) = p1 ' ' 2 MatriceCaselleDaEvid(2,0) = r1 ' MatriceCaselleDaEvid(2,1) = p2 ' ' 3 MatriceCaselleDaEvid(3,0) = r2 ' MatriceCaselleDaEvid(3,1) = p3 ' ' 4 MatriceCaselleDaEvid(4,0) = r2 ' MatriceCaselleDaEvid(4,1) = p4 ' ' 5 MatriceCaselleDaEvid(5,0) = r3 ' MatriceCaselleDaEvid(5,1) = p5 ' ' 6 MatriceCaselleDaEvid(6,0) = r3 ' MatriceCaselleDaEvid(6,1) = p6 ' Call DisegnaEstrazione(es,MatriceCaselleDaEvid) ' '------------------------------------------------------------- If n7 = n8 And n8 = n9 Then Scrivi "differenza" & Space(2) & n1 & " " & n2 & Space(0) & " = " & n7 & " ",1,1,7,3,4 Scrivi "differenza" & Space(2) & n3 & " " & n4 & Space(0) & " = " & n8 & " ",1,1,7,3,4 Scrivi "differenza" & Space(2) & n5 & " " & n6 & Space(0) & " = " & n9 & " ",1,1,7,3,4 End If '------------------------------------------------------------------- Scrivi If n7 = n8 And n8 = n9 Then Scrivi("" & Format2(n1) & "____" & Format2(n2) & "____"),0,0,1,3,6 Scrivi("" & Format2(n10) & "") & " ",0,1,2,3,6 Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " "),0,1,1,3,6 Scrivi("" & Format2(n11) & ""),0,0,2,3,6 Scrivi("" & Space(4) & Format2(n3) & Space(4) & Format2(n4) & " ") & "",0,1,1,3,6 Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " ") & "",0,0,1,3,6 Scrivi Scrivi("" & Format2(n5) & "____"),0,0,1,3,6 Scrivi("" & Format2(n12) & ""),0,0,2,3,6 Scrivi("____" & Format2(n6) & "") & " ",0,1,1,3,6 Scrivi "" & Space(15) & "",0,1,1,3,6 End If ' Scrivi ImpostaGiocata 1,ambo1,ruote,posta,k ImpostaGiocata 2,ambo2,ruote,posta,k ImpostaGiocata 3,ambo3,ruote,posta,k Gioca es,1,,1 Scrivi Scrivi End If Next Next Next Next Next Next Next Next Next Next Scrivi "script di Zetrix",0,1,7,3,4,4,8 Scrivi "sistema a cruciverba",0,1,7,3,4,4,8 End Sub
questo e il cruciverba 8 ma forse si deve migliorare ancora il cruciverba..
Personalmente resterei sulle distanze isotope tipo BARI 76-86 1^ e 3^ pos. , e GENOVA 12-2 1^ e 3^ pos. ; distanza o differenza 10Vedi l'allegato 2240294
differenza 76 86 = 10
differenza 7 17 = 10
differenza 12 2 = 10
[NZ] [.. 22 66 .. ..] C. 1 Ambo [20/08/2022] [74.22.66.26.36]
allora questo e il cruciverba ma le dist non mi convincono tanto..
Da parecchio che lo dico e lo scrivo .....sempre comunque a fare ricerche per nuove vincite e metodologiePersonalmente resterei sulle distanze isotope tipo BARI 76-86 1^ e 3^ pos. , e GENOVA 12-2 1^ e 3^ pos. ; distanza o differenza 10
76+12= 88 e 86+2= 88 ; somme verticali
in diagonale: 76-2= 74 e 86-12= 74 differenza diagonale
BA-GE : 10-88-74
al 1° colpo ambo in Terzina 10-88 su BARI sfiorato il Terno Secco 73-10-88
scusate se mi sono intromesso, fare adesso è facile dopo che sono usciti i numeri ma forse continuare a cercare qualcosa vi perdete gli insegnamenti di chi prima di noi ci ha sbattuto la testa . Io non mi sono inventato nulla questi sono passaggi noti lasciati in eredità di chi ci ha preceduto, per Vincere però serve la fortuna nel scegliere quella vincente, purtroppo non è sempre così. Scusate ancora e Buona serata