RISCHIETA SCRIPT X SPAZIOMETRIA

[Reacher]

Se non creo le condizioni per ogni figura da sempre errore

 

[Dragon zf]

Se non creo le condizioni per ogni figura da sempre errore

CIAO PUOI CORREGGERE QUESTO, ESCE SEMPRE ALLA RICERCA DELLA FIGURA 1.

 

[Reacher]

Sub Main()
Dim n,aOpt(9),sceltaFig,k

' Menu di selezione della Figura
For k = 1 To 9
aOpt(k) = "Figura " & k
Next
sceltaFig = ScegliOpzioneMenu(aOpt,8,"Seleziona la Figura da ricercare:")
If sceltaFig <= 0 Then Exit Sub

' Ciclo principale Estrazioni
For n = 10879 To EstrazioneFin

' In base alla scelta, chiama la procedura con le SUE ruote e i SUOI numeri
Select Case sceltaFig
Case 4 : Call ElaboraFigura4 ' Lasciato Case 1 associato alla Fig 4 come da tuo codice
Case 2 : Call ElaboraFigura2
Case 3 : Call ElaboraFigura3
Case 8 : Call ElaboraFigura8
End Select

Next ' n
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 3 (1 su R1, 1 su R2, 3 su R3)
' ==========================================
Sub ElaboraFigura3
Dim r1,r2,r3,p1,p2,p3,p4,p5
Dim a,b,c,d,e
Dim number(3),ruote(3),poste(2)
poste(2) = 1

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12

' 1 Estratto su R1
For p1 = 1 To 5
a = Estratto(n,r1,p1)
If Figura(a) = 3 Then

' 1 Estratto su R2
For p2 = 1 To 5
b = Estratto(n,r2,p2)
If Figura(b) = 3 Then

' 3 Estratti su R3
For p3 = 1 To 3
For p4 = p3 + 1 To 4
For p5 = p4 + 1 To 5

c = Estratto(n,r3,p3)
d = Estratto(n,r3,p4)
e = Estratto(n,r3,p5)

If Figura(c) = 3 And Figura(d) = 3 And Figura(e) = 3 Then

ruote(1) = r1
ruote(2) = r2
ruote(3) = r3

number(1) = Vert(Diametrale(d))
number(2) = Fuori90(number(1) + 18)
number(3) = Differenza(number(1),18)

Call Scrivi("Estrazione " & n & " [FIG 3] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2) & "-" & NomeRuota(r3))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If
Next ' p5
Next ' p4
Next ' p3

End If
Next ' p2

End If
Next ' p1

Next ' r3
Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 8 (2 su R1, 2 su R2 + condizione su 5� estratto)
' ==========================================
Sub ElaboraFigura8
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d,e
Dim number(3),ruote(2),poste(2)
poste(2) = 1

For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' 2 Estratti su R1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)

If Figura(a) = 8 And Figura(b) = 8 Then

' 2 Estratti su R2
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)
e = Estratto(n,r2,5) ' Quinto estratto su R2

If Figura(c) = 8 And Figura(d) = 8 Then
If(e = a Or e = b Or a = c Or a = d Or b = c Or b = d) Then

ruote(1) = r1
ruote(2) = r2

number(1) = Vert(Diametrale(d))
number(2) = Diametrale(d)
number(3) = d

Call Scrivi("Estrazione " & n & " [FIG 8] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If
End If

Next ' p4
Next ' p3

End If
Next ' p2
Next ' p1

Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 2 (2 su R1, 2 su R2)
' ==========================================
Sub ElaboraFigura2
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d
Dim number(3),ruote(2),poste(2)
poste(2) = 1

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' 2 Estratti su R1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)

If Figura(a) = 2 And Figura(b) = 2 Then

' 2 Estratti su R2
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)

If Figura(c) = 2 And Figura(d) = 2 Then

ruote(1) = r1
ruote(2) = r2

number(1) = Vert(Diametrale(d))
number(2) = Fuori90(number(1) + 27)
number(3) = Differenza(number(1),27)

Call Scrivi("Estrazione " & n & " [FIG 2] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If

Next ' p4
Next ' p3

End If
Next ' p2
Next ' p1

Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 4 (1 su R1 + 3 su R2)
' ==========================================
Sub ElaboraFigura4
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d
Dim number(3),ruote(2),poste(2)
poste(2) = 1 ' Posta per Ambo

For r1 = 1 To 11
If r1 = 11 Then r1 = 12

For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' p1 scorre tutte e 5 le posizioni della prima ruota (r1)
For p1 = 1 To 5
a = Estratto(n,r1,p1)

' Se il numero su R1 � di Figura 4
If Figura(a) = 4 Then

' Combinazioni di 3 posizioni distinte sulla seconda ruota (r2)
For p2 = 1 To 3
For p3 = p2 + 1 To 4
For p4 = p3 + 1 To 5

b = Estratto(n,r2,p2)
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)

If Figura(b) = 4 And Figura(c) = 4 And Figura(d) = 4 Then

ruote(1) = r1
ruote(2) = r2

' Calcolo Pronostico
number(1) = Fuori90(a + 9)
number(2) = Diametrale(a)
number(3) = a

Call Scrivi("Estrazione " & n & " (" & DataEstrazione & ") [FIG 4] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call Scrivi("Rilevati: " & NomeRuota(r1) & " " & a & " (pos " & p1 & ") | " & NomeRuota(r2) & " " & b & "-" & c & "-" & d & " (pos " & p2 & "," & p3 & "," & p4 & ")")
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If

Next ' p4
Next ' p3
Next ' p2

End If
Next ' p1

Next ' r2
Next ' r1
End Sub

 

[Dragon zf]

Sub Main()
Dim n,aOpt(9),sceltaFig,k

' Menu di selezione della Figura
For k = 1 To 9
aOpt(k) = "Figura " & k
Next
sceltaFig = ScegliOpzioneMenu(aOpt,8,"Seleziona la Figura da ricercare:")
If sceltaFig <= 0 Then Exit Sub

' Ciclo principale Estrazioni
For n = 10879 To EstrazioneFin

' In base alla scelta, chiama la procedura con le SUE ruote e i SUOI numeri
Select Case sceltaFig
Case 4 : Call ElaboraFigura4 ' Lasciato Case 1 associato alla Fig 4 come da tuo codice
Case 2 : Call ElaboraFigura2
Case 3 : Call ElaboraFigura3
Case 8 : Call ElaboraFigura8
End Select

Next ' n
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 3 (1 su R1, 1 su R2, 3 su R3)
' ==========================================
Sub ElaboraFigura3
Dim r1,r2,r3,p1,p2,p3,p4,p5
Dim a,b,c,d,e
Dim number(3),ruote(3),poste(2)
poste(2) = 1

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12

' 1 Estratto su R1
For p1 = 1 To 5
a = Estratto(n,r1,p1)
If Figura(a) = 3 Then

' 1 Estratto su R2
For p2 = 1 To 5
b = Estratto(n,r2,p2)
If Figura(b) = 3 Then

' 3 Estratti su R3
For p3 = 1 To 3
For p4 = p3 + 1 To 4
For p5 = p4 + 1 To 5

c = Estratto(n,r3,p3)
d = Estratto(n,r3,p4)
e = Estratto(n,r3,p5)

If Figura(c) = 3 And Figura(d) = 3 And Figura(e) = 3 Then

ruote(1) = r1
ruote(2) = r2
ruote(3) = r3

number(1) = Vert(Diametrale(d))
number(2) = Fuori90(number(1) + 18)
number(3) = Differenza(number(1),18)

Call Scrivi("Estrazione " & n & " [FIG 3] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2) & "-" & NomeRuota(r3))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If
Next ' p5
Next ' p4
Next ' p3

End If
Next ' p2

End If
Next ' p1

Next ' r3
Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 8 (2 su R1, 2 su R2 + condizione su 5� estratto)
' ==========================================
Sub ElaboraFigura8
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d,e
Dim number(3),ruote(2),poste(2)
poste(2) = 1

For r1 = 1 To 10
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' 2 Estratti su R1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)

If Figura(a) = 8 And Figura(b) = 8 Then

' 2 Estratti su R2
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)
e = Estratto(n,r2,5) ' Quinto estratto su R2

If Figura(c) = 8 And Figura(d) = 8 Then
If(e = a Or e = b Or a = c Or a = d Or b = c Or b = d) Then

ruote(1) = r1
ruote(2) = r2

number(1) = Vert(Diametrale(d))
number(2) = Diametrale(d)
number(3) = d

Call Scrivi("Estrazione " & n & " [FIG 8] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If
End If

Next ' p4
Next ' p3

End If
Next ' p2
Next ' p1

Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 2 (2 su R1, 2 su R2)
' ==========================================
Sub ElaboraFigura2
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d
Dim number(3),ruote(2),poste(2)
poste(2) = 1

For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' 2 Estratti su R1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)

If Figura(a) = 2 And Figura(b) = 2 Then

' 2 Estratti su R2
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)

If Figura(c) = 2 And Figura(d) = 2 Then

ruote(1) = r1
ruote(2) = r2

number(1) = Vert(Diametrale(d))
number(2) = Fuori90(number(1) + 27)
number(3) = Differenza(number(1),27)

Call Scrivi("Estrazione " & n & " [FIG 2] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If

Next ' p4
Next ' p3

End If
Next ' p2
Next ' p1

Next ' r2
Next ' r1
End Sub

' ==========================================
' LOGICA SPECIFICA FIGURA 4 (1 su R1 + 3 su R2)
' ==========================================
Sub ElaboraFigura4
Dim r1,r2,p1,p2,p3,p4
Dim a,b,c,d
Dim number(3),ruote(2),poste(2)
poste(2) = 1 ' Posta per Ambo

For r1 = 1 To 11
If r1 = 11 Then r1 = 12

For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12

' p1 scorre tutte e 5 le posizioni della prima ruota (r1)
For p1 = 1 To 5
a = Estratto(n,r1,p1)

' Se il numero su R1 � di Figura 4
If Figura(a) = 4 Then

' Combinazioni di 3 posizioni distinte sulla seconda ruota (r2)
For p2 = 1 To 3
For p3 = p2 + 1 To 4
For p4 = p3 + 1 To 5

b = Estratto(n,r2,p2)
c = Estratto(n,r2,p3)
d = Estratto(n,r2,p4)

If Figura(b) = 4 And Figura(c) = 4 And Figura(d) = 4 Then

ruote(1) = r1
ruote(2) = r2

' Calcolo Pronostico
number(1) = Fuori90(a + 9)
number(2) = Diametrale(a)
number(3) = a

Call Scrivi("Estrazione " & n & " (" & DataEstrazione & ") [FIG 4] - Ruote: " & NomeRuota(r1) & "-" & NomeRuota(r2))
Call Scrivi("Rilevati: " & NomeRuota(r1) & " " & a & " (pos " & p1 & ") | " & NomeRuota(r2) & " " & b & "-" & c & "-" & d & " (pos " & p2 & "," & p3 & "," & p4 & ")")
Call ImpostaGiocata(1,number,ruote,poste,10,2)
Call Gioca(n,1)

End If

Next ' p4
Next ' p3
Next ' p2

End If
Next ' p1

Next ' r2
Next ' r1
End Sub

e per i 2 metodi nuovi che ho messo in questo post sei riuscito?Grazie.

 

[Reacher]

Se noti ci sono 4 figure tra cui quelli postati anche

 

[Dragon zf]

Se noti ci sono 4 figure tra cui quelli postati anche

I nuovi sono questi 2 metodi

 

[Reacher]

Troppe condizioni con estrazioni diverse complesso
Mi fermo qui per ora