La Figura del TRIANGOLO per TRE TERZINE
- Creatore Discussione Imaging
- Data di inizio
Zetrix
Banned
solare questa e la condizione di gioco e una mia tecnica..
l'ambata e 13
Numeri in gioco 13 su GE MI per Estratto
In corso per altre 9 estrazioni
questo e il gioco dell'ambata
adesso per calcolare l'ambo a tutte si deve fare un prospetto con le formattazioni per ambo..
scrivo nello spoiler..
38 . 62 _____10_____ 3 . 8 _____
38 . 72 _____20_____ 3 . 9 _____
38 . 82 _____30_____ 3 . 1 _____
38 . 02 _____40_____ 3 . 2 _____
38 . 12 _____50_____ 3 . 3 _____
38 . 22 _____60_____ 3 . 4 _____
38 . 32 _____70_____ 3 . 5 _____
38 . 42 _____80_____ 3 . 6 _____
38 . 52 _____90_____ 3 . 7 _____
13.62 . 13.02 . 13.32 .
13.72 . 13.12 . 13.42 .
13.82 . 13.22 . 13.52 .
queste sono le formattazioni per ambo..
il 13 si deve abbinare con un numero in cadenza 2
dopo vi dirò quale ambo dobbiamo giocare..
38 . 72 _____20_____ 3 . 9 _____
38 . 82 _____30_____ 3 . 1 _____
38 . 02 _____40_____ 3 . 2 _____
38 . 12 _____50_____ 3 . 3 _____
38 . 22 _____60_____ 3 . 4 _____
38 . 32 _____70_____ 3 . 5 _____
38 . 42 _____80_____ 3 . 6 _____
38 . 52 _____90_____ 3 . 7 _____
13.62 . 13.02 . 13.32 .
13.72 . 13.12 . 13.42 .
13.82 . 13.22 . 13.52 .
queste sono le formattazioni per ambo..
il 13 si deve abbinare con un numero in cadenza 2
dopo vi dirò quale ambo dobbiamo giocare..
Ultima modifica:
Zetrix
Banned
no solare non si seleziona 4 numeri a caso..
ti scrivo come calcola la tecnica dal 43 si fa 43-1=42
poi dal 42 si scende a scaletta 42-30=12
allo stesso modo facciamo scendere a scaletta il 43
43-30=13 (ambata)
13-1=12
Zetrix
Banned
Cinzia si devono scrivere gli ambi con i rit ho provato cosi ma non so perche da il rit 0
prova un po te..
trylli
Advanced Member >PLATINUM PLUS<
Scusateeeee🤦🏻♀️🤦🏻♀️Ma che è lo spoiler??
Zetrix
Banned
Ho corretto la riga, è il risultato che volevi?
Codice:
Option Explicit
Sub Main
Dim aRetAbb
Dim rit
Dim a,k,z
z = ScegliRuota
a = InputBox("Quale numero vuoi controllare?",,10)
Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
For k = 1 To 90
rit = AmboRitardoTurbo (z,a,aRetAbb(k,1),EstrazioneIni,EstrazioneFin,2)
Scrivi a & "." & aRetAbb(k,1) & " --- ambi " & aRetAbb(k,2) & " --- rit " & rit & "",0,0,1,5,4
Scrivi
Next
Scrivi
Scrivi(" ** " & NomeRuota(z) & " ** ") & " ",0,0,1,4,7
Scrivi
Scrivi
' Next
End Subtrylli
Advanced Member >PLATINUM PLUS<
Ok grazie mille speriamo di beccatlo
Zetrix
Banned
Si Cinzia lo script e quello che volevo brava..
Zetrix
Banned
Codice:
Sub Main()
Dim ruota(5),ruote(5)
Dim posta(5),poste(5)
Dim r1,r2,r3
Dim ambo1(2),ambo2(2),terzina(3)
Dim caso
'
posta(2) = 1
poste(2) = 1
poste(3) = 1
'
'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
'rv = InputBox("Quale 2 numero vuoi controllare?",,0)
'
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 p2
'
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
'
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
'----------------------------------
For r3 = r2 + 1 To 10
'
n5 = Estratto(es,r3,p1)
n6 = Estratto(es,r3,p2)
'-----------------------------------
For rx = rk To rk
For rw = rv To rv
'
'--------------------------------
b1 = Differenza(n1,n5)
b2 = Differenza(n4,n6)
'
b3 = Differenza(n2,n6)
b4 = Differenza(n3,n5)
'
b5 = Differenza(n3,n5)
b6 = Differenza(n2,n4)
'
b7 = Differenza(n1,n3)
b8 = Differenza(n4,n6)
'
'--------------------------------
'
If Differenza(n1,n5) And Differenza(n4,n6) And b1 = b2 _
Or Differenza(n2,n6) And Differenza(n3,n5)And b3 = b4 _
Or Differenza(n3,n5) And Differenza(n2,n4)And b5 = b6 _
Or Differenza(n1,n3) And Differenza(n4,n6)And b7 = b8 Then
'
'--------------------------
If b1 < n2 Then
n7 = Fuori90(n2 - b1)
Else
n7 = Fuori90(b1 + n2)
End If
'
If b1 < n3 Then
n8 = Fuori90(n3 - b1)
Else
n8 = Fuori90(b1 + n3)
End If
'
'
'--------------------------
If b3 < n1 Then
n9 = Fuori90(n1 - b3)
Else
n9 = Fuori90(b3 + n1)
End If
'
If b3 < n4 Then
n10 = Fuori90(n4 - b3)
Else
n10 = Fuori90(b3 + n4)
End If
'
'
'--------------------------
If b5 < n1 Then
n11 = Fuori90(n1 - b5)
Else
n11 = Fuori90(b5 + n1)
End If
'
If b5 < n6 Then
n12 = Fuori90(n6 - b5)
Else
n12 = Fuori90(b5 + n6)
End If
'
'
'--------------------------------
If b7 < n2 Then
n13 = Fuori90(n2 - b7)
Else
n13 = Fuori90(b7 + n2)
End If
'
If b7 < n5 Then
n14 = Fuori90(n5 - b7)
Else
n14 = Fuori90(b7 + n5)
End If
'
'-------------------------
'
n15 = b1
n16 = b3
n17 = b5
n18 = b7
'
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = n7
ambo1(2) = n8
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = n9
ambo1(2) = n10
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = n11
ambo1(2) = n12
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = n13
ambo1(2) = n14
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
'Scrivi String(99,"-") & " gioco n. " & caso
'
'If rx = ambo1(1) And rw = ambo1(2) or rw = ambo1(1) And rx = ambo1(2) Then
'---------------------------------
'
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) = p1 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p2 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p1 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p2 '
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If b1 = b2 Then
Scrivi "" & n1 & "-" & n5 & Space(0) & " = " & b1 & " ",0,1,3,1,4,4,8
Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b2 & " ",0,1,3,1,4,4,8
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "-" & n6 & Space(0) & " = " & b3 & " ",0,1,4,1,4,4,8
Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b4 & " ",0,1,4,1,4,4,8
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b5 & " ",0,1,5,1,4,4,8
Scrivi "" & n2 & "-" & n4 & Space(0) & " = " & b6 & " ",0,1,5,1,4,4,8
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "-" & n3 & Space(0) & " = " & b7 & " ",0,1,7,1,4,4,8
Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & " ",0,1,7,1,4,4,8
End If
'-------------------------------------------------------------------
Scrivi
If b1 = b2 Then
Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------
If b3 = b4 Then
Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------------------------------
If b7 = b8 Then
Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'
Scrivi
ImpostaGiocata 1,ambo1,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
Scrivi
End If
'End If
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba 9",0,1,7,3,4,4,8
'
ScriviResoconto
End Subecco il listato del cruciverba 9 mi dovete dire se ce da fare qualche modifica..
oppure va bene cosi..
comunque la terzina la vorrei togliere e difficile che da il terno
solo una volta a dato il terno a tt..
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Scusatemi ero impegnato buona serata a tutti
Non toccare più niente non darà il terno la terzina darà L'ambo meglio poco che niente ciao zetrix
un impegno fuori programma mi ha fatto perdere più tempo del previsto
Imaging
Advanced Member >PLATINUM<
Scusatemi ero impegnato buona serata a tutti
Non toccare più niente non darà il terno la terzina darà L'ambo meglio poco che niente ciao zetrix
un impegno fuori programma mi ha fatto perdere più tempo del previsto
Zetrix
Banned
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
'
'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
'rv = InputBox("Quale 2 numero vuoi controllare?",,0)
'
'rk = InputBox("Quale numero vuoi controllare?",,0)
'
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
'
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
'----------------------------------
For r3 = r2 + 1 To 10
'
n5 = Estratto(es,r3,p1)
n6 = Estratto(es,r3,p2)
'-----------------------------------
For rx = rk To rk
For rw = rv To rv
'
'--------------------------------
b1 = Differenza(n1,n5)
b2 = Differenza(n4,n6)
'
b3 = Differenza(n2,n6)
b4 = Differenza(n3,n5)
'
b5 = Differenza(n3,n5)
b6 = Differenza(n2,n4)
'
b7 = Differenza(n1,n3)
b8 = Differenza(n4,n6)
'
'--------------------------------
'
If Differenza(n1,n5) And Differenza(n4,n6) And b1 = b2 _
Or Differenza(n2,n6) And Differenza(n3,n5)And b3 = b4 _
Or Differenza(n3,n5) And Differenza(n2,n4)And b5 = b6 _
Or Differenza(n1,n3) And Differenza(n4,n6)And b7 = b8 Then
'
'--------------------------
If b1 < n2 Then
n7 = Fuori90(n2 - b1)
Else
n7 = Fuori90(b1 + n2)
End If
'
If b1 < n3 Then
n8 = Fuori90(n3 - b1)
Else
n8 = Fuori90(b1 + n3)
End If
'
'
'--------------------------
If b3 < n1 Then
n9 = Fuori90(n1 - b3)
Else
n9 = Fuori90(b3 + n1)
End If
'
If b3 < n4 Then
n10 = Fuori90(n4 - b3)
Else
n10 = Fuori90(b3 + n4)
End If
'
'
'--------------------------
If b5 < n1 Then
n11 = Fuori90(n1 - b5)
Else
n11 = Fuori90(b5 + n1)
End If
'
If b5 < n6 Then
n12 = Fuori90(n6 - b5)
Else
n12 = Fuori90(b5 + n6)
End If
'
'
'--------------------------------
If b7 < n2 Then
n13 = Fuori90(n2 - b7)
Else
n13 = Fuori90(b7 + n2)
End If
'
If b7 < n5 Then
n14 = Fuori90(n5 - b7)
Else
n14 = Fuori90(b7 + n5)
End If
'
'-------------------------
'
n15 = b1
n16 = b3
n17 = b5
n18 = b7
'
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruota(4) = TT_
ruota(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = n7
ambo1(2) = n8
ambo2(1) = n7
ambo2(2) = n15
ambo3(1) = n8
ambo3(2) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = n9
ambo1(2) = n10
ambo2(1) = n9
ambo2(2) = n16
ambo3(1) = n10
ambo3(2) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = n11
ambo1(2) = n12
ambo2(1) = n11
ambo2(2) = n17
ambo3(1) = n12
ambo3(2) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = n13
ambo1(2) = n14
ambo2(1) = n13
ambo2(2) = n18
ambo3(1) = n14
ambo3(2) = n18
End If
'
'Scrivi String(99,"-") & " gioco n. " & caso
'
'If rx = ambo1(1) And rw = ambo1(2) Or rw = ambo1(1) And rx = ambo1(2) Then
'If rx = ambo1(1) Or rx = ambo1(2) Then
'-----------------------------------------------
'
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) = p1 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p2 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p1 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p2 '
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If b1 = b2 Then
Scrivi "" & n1 & "-" & n5 & Space(0) & " = " & b1 & " ",0,1,3,1,4,4,8
Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b2 & " ",0,1,3,1,4,4,8
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "-" & n6 & Space(0) & " = " & b3 & " ",0,1,4,1,4,4,8
Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b4 & " ",0,1,4,1,4,4,8
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b5 & " ",0,1,5,1,4,4,8
Scrivi "" & n2 & "-" & n4 & Space(0) & " = " & b6 & " ",0,1,5,1,4,4,8
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "-" & n3 & Space(0) & " = " & b7 & " ",0,1,7,1,4,4,8
Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & " ",0,1,7,1,4,4,8
End If
'-------------------------------------------------------------------
Scrivi
If b1 = b2 Then
Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------
If b3 = b4 Then
Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------------------------------
If b7 = b8 Then
Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'
Scrivi
Scrivi " 1 ambo ",0,1,1,5
ImpostaGiocata 1,ambo1,ruota,posta,k,2
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi " 2 ambo ",0,1,1,5
ImpostaGiocata 2,ambo2,ruota,posta,k,2
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi " 3 ambo ",0,1,1,5
ImpostaGiocata 3,ambo3,ruota,posta,k,2
Gioca es,1,,1
Scrivi
'End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,1,4,4,8
Scrivi "sistema a cruciverba 9",0,1,7,1,4,4,8
'
'ScriviResoconto
End Subil listato lo migliorato un po adesso giocano gli ambi..a..tutte..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 15 giugno 2024Bari8958653909Cagliari3942793028Firenze4061783454Genova2280704069Milano4731287253Napoli3350632757Palermo3487082563Roma5328360190Torino3315618013Venezia2379038536Nazionale0455675619Estrazione Simbolotto
Napoli
3726201138
