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.
Ma io non vedo terzine come maiScusatemi 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
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)
rt = InputBox("Quale differenza del cruciverba 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
For x = rt To rt
'
'--------------------------------
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 b1 = b2 And n15 = x Or b3 = b4 And n16 = x Or b5 = b6 And n17 = x Or b7 = b8 And n18 = x Then
'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,1,5,4,4,8
Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & " ",0,1,1,5,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
Next
Scrivi "script di Zetrix",0,1,1,5,4,4,8
Scrivi "sistema a cruciverba 9",0,1,1,5,4,4,8
'
'ScriviResoconto
End Sub
Qualcuno mi dice quale previsione in gioco?
Gli ambi vanno bene cosi si ha più possibilità meno giochi meno possibilità
Ancora da definire.....
