RISCHIETA SCRIPT X SPAZIOMETRIA

[Dragon zf]

Provando a prendere in considerazione anche il numero non isotopo e con tutte le figure.Grazie.

 

[Reacher]

Sub Main()
Dim number(3), r1, r2, p1, p2, p3, p4, p5, n
Dim a, b, c, d, e
Dim ruote(12), poste(2)

poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla)

' Inizializzazione array ruote
For i = 1 To 12
ruote(i) = i
Next

' Ciclo estrazioni
For n = 10780 To EstrazioneFin
' Ciclo ruote r1
For r1 = 1 To 11
' Ciclo ruote r2
For r2 = r1 + 1 To 12 ' Ottimizzato: evita di controllare coppie doppie (es. 1-2 e 2-1)

' Ciclo posizioni per r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n, r1, p1)
b = Estratto(n, r1, p2)

' Ciclo posizioni per r2
For p3 = 1 To 3
For p4 = p3 + 1 To 4
For p5 = p4 + 1 To 5
c = Estratto(n, r2, p3)
d = Estratto(n, r2, p4)
e = Estratto(n, r2, p5)

' Verifica condizioni: tutti in figura 8 ed e uguale ad a oppure a b
If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 And Figura(d) = 8 And (e = a Or e = b) Then

' Calcolo dei numeri da giocare
number(1) = Vert(Diametrale(d))
number(2) = Diametrale(d)
number(3) = d ' Il diametrale del diametrale di d è d stesso

Scrivi "Rilevato su " & NomeRuota(r1) & " e " & NomeRuota(r2) & " il " & DataEstrazione
Scrivi "Ambata calcolata: " & Diametrale(number(1))

' Disegna la condizione rilevata (color blu)
ReDim MatrCasella(5, 1)
MatrCasella(1, 0) = r1 : MatrCasella(1, 1) = p1
MatrCasella(2, 0) = r1 : MatrCasella(2, 1) = p2
MatrCasella(3, 0) = r2 : MatrCasella(3, 1) = p3
MatrCasella(4, 0) = r2 : MatrCasella(4, 1) = p4
MatrCasella(5, 0) = r2 : MatrCasella(5, 1) = p5
Call DisegnaEstrazione(n, MatrCasella, , vbBlue)

' Ricerca dinamica del numero nell'estrazione successiva (n+1) sulla ruota r1
Dim posTrovata, i
posTrovata = 0
For i = 1 To 5
If Estratto(n + 1, r1, i) = number(1) Then
posTrovata = i
End If
Next

' Evidenziazione dell'esito immediato
If posTrovata > 0 Then
Scrivi "Numero " & number(1) & " trovato su " & NomeRuota(r1) & " in posizione " & posTrovata
ReDim MatrCasella2(1, 1)
MatrCasella2(1, 0) = r1
MatrCasella2(1, 1) = posTrovata
Call DisegnaEstrazione(n + 1, MatrCasella2, , vbRed)
Else
Scrivi "Il numero " & Diametrale(number(1)) & " non è uscito su " & NomeRuota(r1) & " al colpo successivo."
End If

Scrivi String(40, "-")

' Imposta e lancia la giocata sul tabellone di Spaziometria
ImpostaGiocata 1, number, ruote, poste, 10, 2
Gioca n, 1 ' Mostra il registro giocate nel report complessivo

End If
Next ' p5
Next ' p4
Next ' p3

Next ' p2
Next ' p1

Next ' r2
Next ' r1
Next ' n

End Sub

 

[Dragon zf]

Sub Main()
Dim number(3), r1, r2, p1, p2, p3, p4, p5, n
Dim a, b, c, d, e
Dim ruote(12), poste(2)

poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla)

' Inizializzazione array ruote
For i = 1 To 12
ruote(i) = i
Next

' Ciclo estrazioni
For n = 10780 To EstrazioneFin
' Ciclo ruote r1
For r1 = 1 To 11
' Ciclo ruote r2
For r2 = r1 + 1 To 12 ' Ottimizzato: evita di controllare coppie doppie (es. 1-2 e 2-1)

' Ciclo posizioni per r1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n, r1, p1)
b = Estratto(n, r1, p2)

' Ciclo posizioni per r2
For p3 = 1 To 3
For p4 = p3 + 1 To 4
For p5 = p4 + 1 To 5
c = Estratto(n, r2, p3)
d = Estratto(n, r2, p4)
e = Estratto(n, r2, p5)

' Verifica condizioni: tutti in figura 8 ed e uguale ad a oppure a b
If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 And Figura(d) = 8 And (e = a Or e = b) Then

' Calcolo dei numeri da giocare
number(1) = Vert(Diametrale(d))
number(2) = Diametrale(d)
number(3) = d ' Il diametrale del diametrale di d è d stesso

Scrivi "Rilevato su " & NomeRuota(r1) & " e " & NomeRuota(r2) & " il " & DataEstrazione
Scrivi "Ambata calcolata: " & Diametrale(number(1))

' Disegna la condizione rilevata (color blu)
ReDim MatrCasella(5, 1)
MatrCasella(1, 0) = r1 : MatrCasella(1, 1) = p1
MatrCasella(2, 0) = r1 : MatrCasella(2, 1) = p2
MatrCasella(3, 0) = r2 : MatrCasella(3, 1) = p3
MatrCasella(4, 0) = r2 : MatrCasella(4, 1) = p4
MatrCasella(5, 0) = r2 : MatrCasella(5, 1) = p5
Call DisegnaEstrazione(n, MatrCasella, , vbBlue)

' Ricerca dinamica del numero nell'estrazione successiva (n+1) sulla ruota r1
Dim posTrovata, i
posTrovata = 0
For i = 1 To 5
If Estratto(n + 1, r1, i) = number(1) Then
posTrovata = i
End If
Next

' Evidenziazione dell'esito immediato
If posTrovata > 0 Then
Scrivi "Numero " & number(1) & " trovato su " & NomeRuota(r1) & " in posizione " & posTrovata
ReDim MatrCasella2(1, 1)
MatrCasella2(1, 0) = r1
MatrCasella2(1, 1) = posTrovata
Call DisegnaEstrazione(n + 1, MatrCasella2, , vbRed)
Else
Scrivi "Il numero " & Diametrale(number(1)) & " non è uscito su " & NomeRuota(r1) & " al colpo successivo."
End If

Scrivi String(40, "-")

' Imposta e lancia la giocata sul tabellone di Spaziometria
ImpostaGiocata 1, number, ruote, poste, 10, 2
Gioca n, 1 ' Mostra il registro giocate nel report complessivo

End If
Next ' p5
Next ' p4
Next ' p3

Next ' p2
Next ' p1

Next ' r2
Next ' r1
Next ' n

End Sub

Escono solo 2 previsioni che includono solo lo stesso numero isotopo ,dovresti provare a includere lo stesso numero non isotopo.Grazie.