Imaging
Advanced Member >PLATINUM<
Stavo appunto scrivendo la stessa cosa......SI grazie..
La Figura del TRIANGOLO per TRE TERZINE
- Creatore Discussione Imaging
- Data di inizio
Zetrix
Banned
oppure in questo modo questo cruciverba mi piace di piu..
i quadretti gialli li possiamo cambiare di posto..
ma ci vuole un programma per fare questo cruciverba..
con gli script si puo anche fare ma ci vorrà una giornata per fare questo cruciverba
con il listato..
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Il listato
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
'
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)
'-----------------------------------
'
'--------------------------------
b1 = Fuori90(n1 + n5)
b2 = Fuori90(n4 + n6)
'
b3 = Fuori90(n2 + n6)
b4 = Fuori90(n3 + n5)
'
b5 = Fuori90(n3 + n5)
b6 = Fuori90(n2 + n4)
'
b7 = Fuori90(n1 + n3)
b8 = Fuori90(n4 + n6)
'
'--------------------------
n7 = Fuori90(b1 - n2)
n8 = Fuori90(b1 - n3)
n9 = Fuori90(b3 - n1)
n10 = Fuori90(b3 - n4)
'-------------------------
n11 = Fuori90(b5 - n1)
n12 = Fuori90(b5 - n6)
n13 = Fuori90(b7 - n2)
n14 = Fuori90(b7 - n5)
'-------------------------
'
If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
'
'
n15 = Fuori90(b1/2)
n16 = Fuori90(b3/2)
n17 = Fuori90(b5/2)
n18 = Fuori90(b7/2)
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = Fuori90(b1 - n2)
ambo1(2) = Fuori90(b1 - n3)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = Fuori90(b3 - n1)
ambo1(2) = Fuori90(b3 - n4)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = Fuori90(b5 - n1)
ambo1(2) = Fuori90(b5 - n6)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = Fuori90(b7 - n2)
ambo1(2) = Fuori90(b7 - n5)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
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 b1 = b2 Then
Scrivi "" & n1 & "+" & n5 & Space(0) & " = " & b1 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,3,7,4
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,3,7,4
Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
End If
'-------------------------------------------------------------------
Scrivi
If b1 = b2 Then
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n8) & "____" & Format2(n7) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'-------------------------------------------
If b3 = b4 Then
Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n10) & "____" & Format2(n9) & "____" & Format2(n6) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'--------------------------------------------------------------------
Scrivi
If b5 = b6 Then
Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n12) & "____" & Format2(n11) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
'-------------------------------------------------------------------
If b7 = b8 Then
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",1,1,7,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",1,1,7,3,6
Scrivi "" & Format2(n14) & "____" & Format2(n13) & "____" & Format2(n3) & " ",1,1,7,3,6
Scrivi "" & Space(15) & "",1,1,7,3,6
End If
Scrivi
ImpostaGiocata 1,ambo1,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
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
Fai questo piace anche a me
Zetrix
Banned
84<-------+1---------->85<-----------+1----------->86Vedi l'allegato 2240198
Imaging questa e la ruota di BA i numeri sono ordinati in sequenza..
calcolate tutte le sequenze di combinazioni e scrivete i numeri mancantI..
vi scrivo una mia combinazione..
25<-------+17---------->42<-----------+17----------->59<----------+17------------>76
qua ci sono i fatti altro che chiacchiere e distintivo..
adesso provate voi un altra combinazione in sequenza..
o vi devo scrivere tutte le combinazioni su tutte e 10 le ruote..
questo e un algoritmo semplice di 1 livello poi ci sono gli algoritmi piu complessi
di 2 livello e 3 livello...e con carta e penna nessuno li puo fare..
invece l'algoritmo di 1 livello si puo fare anche con carta e penna..
25___76|11___84
42___59|11___28
____________________________________
67___45|22___22
la somma comune e 11
Spaziometria fa anche le quadrature somme..distanze..e..differenze..
ho aggiunto un altro algoritmo..
vogliamo provare 42 85 a BA ..??..piu la ruota gemella VE....??
Ultima modifica:
joe
Advanced Member >PLATINUM PLUS<
Non è polemica:
Avevo numerato le 4 giocate e messo "una volta sola" l'istruzione gioca.
Il tuo script era stato corretto ed inserito così.
Scritto li, COSI', dove, come e quando l'ho pubblicato.
Se si scrive che non serve controllare più estrazioni ...
E' inutile contarle.
SONO UNA.
Io, ho scritto che IN UNA SOLA ESTRAZIONE con cui si formano 165-MILA formazioni
è PROBABILE che ci siano alcune coppie di numeri in Distanza(X) e/o di Somma (Y).
Questo invece è quanto leggo, scritto ADESSO:
"questo listato calcola tutte le combinazioni e sono tantissime.."
"secondo me non a senso fare una elaborazione su tante estrazioni.."
Sempre nello stesso script avevo tolto l'inputbox, perché quasi "nessuno"
sa usare bene quella istruzione.
Mentre li ce ne era un buon esempio del come è usato malamente.
A seguito di questo cattivo uso, il numero di estrazioni elaborate è sempre sbagliato.
Ci si scrive: 3 e il computer ne calcola 4.
In sintesi: Vorresti mettere il numero di (POCHE) Estrazioni (con un inputbox)
e poi vorresti chiedere al computer: "Che numero ho messo?"
Senza VOLER LEGGERE ... ANCHE ... LA RISPOSTA DEL COMPUTER.
Per rispondere ad una domanda così, si dovrebbe specificare a cosa serve un computer.
Se serve a scrivere un numero diverso di estrazioni da quello inserito in un inputbox,
ben venga ... anche il computer.
Altrimenti ... meglio ... sarebbe leggere cosa scrive.
Però trovare LOGICA IN UN ESERCIZIO COSI' è più di difficile che fare un terno al Lotto.
Mentre invece ... "Prevedere gli uomini è molto facile"
E' il Teorema di Joe ?
Oppure, Colpa di Alfredo.
Le risposte NON ci sono = Forse è meglio Dylan:
Le risposte, sono volate via, come il vento.
Avevo numerato le 4 giocate e messo "una volta sola" l'istruzione gioca.
Il tuo script era stato corretto ed inserito così.
Scritto li, COSI', dove, come e quando l'ho pubblicato.
Se si scrive che non serve controllare più estrazioni ...
E' inutile contarle.
SONO UNA.
Io, ho scritto che IN UNA SOLA ESTRAZIONE con cui si formano 165-MILA formazioni
è PROBABILE che ci siano alcune coppie di numeri in Distanza(X) e/o di Somma (Y).
Questo invece è quanto leggo, scritto ADESSO:
"questo listato calcola tutte le combinazioni e sono tantissime.."
"secondo me non a senso fare una elaborazione su tante estrazioni.."
Sempre nello stesso script avevo tolto l'inputbox, perché quasi "nessuno"
sa usare bene quella istruzione.
Mentre li ce ne era un buon esempio del come è usato malamente.
A seguito di questo cattivo uso, il numero di estrazioni elaborate è sempre sbagliato.
Ci si scrive: 3 e il computer ne calcola 4.
In sintesi: Vorresti mettere il numero di (POCHE) Estrazioni (con un inputbox)
e poi vorresti chiedere al computer: "Che numero ho messo?"
Senza VOLER LEGGERE ... ANCHE ... LA RISPOSTA DEL COMPUTER.
Per rispondere ad una domanda così, si dovrebbe specificare a cosa serve un computer.
Se serve a scrivere un numero diverso di estrazioni da quello inserito in un inputbox,
ben venga ... anche il computer.
Altrimenti ... meglio ... sarebbe leggere cosa scrive.
Però trovare LOGICA IN UN ESERCIZIO COSI' è più di difficile che fare un terno al Lotto.
Mentre invece ... "Prevedere gli uomini è molto facile"
E' il Teorema di Joe ?
Oppure, Colpa di Alfredo.
Le risposte NON ci sono = Forse è meglio Dylan:
Le risposte, sono volate via, come il vento.
Zetrix
Banned
Joe ti sbagli si scrivono cinque numeri e il programma calcola tutte le combinazioni possibili
che siano esse a due tre quattro o cinque numeri..
ma con carta e penna non si puo fare uso un programma per queste
elaborazioni..
del caso conta condizioni gioco non e che mi interessa tanto nei miei script
non lo mai scritta questa riga..
che siano esse a due tre quattro o cinque numeri..
ma con carta e penna non si puo fare uso un programma per queste
elaborazioni..
del caso conta condizioni gioco non e che mi interessa tanto nei miei script
non lo mai scritta questa riga..
joe
Advanced Member >PLATINUM PLUS<
Privatamente con quello script ho controllato quelle 6 Mila Estrazioni circa
che ci sono nella storia del lotto a 10 ruote.
(Quante sono esattamente non serve saperlo)
Le posizioni sono isotope come predisposte nello script originale
e nel primo riquadro sono 1° / 3° / 5° Estratto.
Il metodo ricava meno del previsto.
Nel secondo caso con il vicolo delle posizioni 1° / 2° / 3°, rende più del previsto.
LA PROSPETTIVA dello spendere di Meno e vincere di più ...
... e un pochino più del previsto ... in tutta la storia del lotto ... non è poco.
E... non sono polemiche.
che ci sono nella storia del lotto a 10 ruote.
(Quante sono esattamente non serve saperlo)
Le posizioni sono isotope come predisposte nello script originale
e nel primo riquadro sono 1° / 3° / 5° Estratto.
Il metodo ricava meno del previsto.
Nel secondo caso con il vicolo delle posizioni 1° / 2° / 3°, rende più del previsto.
LA PROSPETTIVA dello spendere di Meno e vincere di più ...
... e un pochino più del previsto ... in tutta la storia del lotto ... non è poco.
E... non sono polemiche.
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
'
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)
'-----------------------------------
'
'--------------------------------
b1 = Fuori90(n1 + n5)
b2 = Fuori90(n4 + n6)
'
b3 = Fuori90(n2 + n6)
b4 = Fuori90(n3 + n5)
'
b5 = Fuori90(n3 + n5)
b6 = Fuori90(n2 + n4)
'
b7 = Fuori90(n1 + n3)
b8 = Fuori90(n4 + n6)
'
'--------------------------
n7 = Fuori90(b1 - n2)
n8 = Fuori90(b1 - n3)
n9 = Fuori90(b3 - n1)
n10 = Fuori90(b3 - n4)
'-------------------------
n11 = Fuori90(b5 - n1)
n12 = Fuori90(b5 - n6)
n13 = Fuori90(b7 - n2)
n14 = Fuori90(b7 - n5)
'-------------------------
'
If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
'
'
n15 = Fuori90(b1/2)
n16 = Fuori90(b3/2)
n17 = Fuori90(b5/2)
n18 = Fuori90(b7/2)
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = Fuori90(b1 - n2)
ambo1(2) = Fuori90(b1 - n3)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = Fuori90(b3 - n1)
ambo1(2) = Fuori90(b3 - n4)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = Fuori90(b5 - n1)
ambo1(2) = Fuori90(b5 - n6)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = Fuori90(b7 - n2)
ambo1(2) = Fuori90(b7 - n5)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
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) = 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 & " ",1,1,7,3,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,7,3,4
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,7,3,4
Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,7,3,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
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,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
Scrivi
End If
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 Subecco il listato modificato..
Imaging
Advanced Member >PLATINUM<
Imaging
Advanced Member >PLATINUM<
Imaging
Advanced Member >PLATINUM<
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
'
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)
'-----------------------------------
'
'--------------------------------
b1 = Fuori90(n1 + n5)
b2 = Fuori90(n4 + n6)
'
b3 = Fuori90(n2 + n6)
b4 = Fuori90(n3 + n5)
'
b5 = Fuori90(n3 + n5)
b6 = Fuori90(n2 + n4)
'
b7 = Fuori90(n1 + n3)
b8 = Fuori90(n4 + n6)
'
'--------------------------
n7 = Fuori90(b1 - n2)
n8 = Fuori90(b1 - n3)
n9 = Fuori90(b3 - n1)
n10 = Fuori90(b3 - n4)
'-------------------------
n11 = Fuori90(b5 - n1)
n12 = Fuori90(b5 - n6)
n13 = Fuori90(b7 - n2)
n14 = Fuori90(b7 - n5)
'-------------------------
'
If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
'
'
n15 = Fuori90(b1/2)
n16 = Fuori90(b3/2)
n17 = Fuori90(b5/2)
n18 = Fuori90(b7/2)
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = Fuori90(b1 - n2)
ambo1(2) = Fuori90(b1 - n3)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = Fuori90(b3 - n1)
ambo1(2) = Fuori90(b3 - n4)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = Fuori90(b5 - n1)
ambo1(2) = Fuori90(b5 - n6)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = Fuori90(b7 - n2)
ambo1(2) = Fuori90(b7 - n5)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
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) = 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 & " ",1,1,7,3,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,7,3,4
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,7,3,4
Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,7,3,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
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,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
Scrivi
End If
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 Subprova questo listato ho fatto una modifica usa questo listato
che le condizioni sono isotope..
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 29 giugno 2024Bari8365111667Cagliari5930858239Firenze4679291425Genova3261247006Milano4107097016Napoli7007632239Palermo2004236907Roma7478122377Torino5208747015Venezia0432506738Nazionale0161604248Estrazione Simbolotto
Napoli
2843243213
