serve script in ambo e in cinquina,grazie
Io ho una bozza, per ora, di script; la posizione del 90 sortito preferisco chiederla con Input; Scrivero' la correzione piu avanti:
Option Explicit
Sub Main
' Spia90Roma.ls V.1.6.34 del 31/03/2025
' Script per Spaziometria
'
' Link -
https://forum.lottoced.com/threads/spia-90-su-roma.2222511/
'
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)
Dim spia,ini,fin,cp,n,e,app,app1,app2,app3,ru,pos,r1,flarit
Dim Importi(2,12)
Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048
Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 2
Importi(2,4) = 3
Importi(2,5) = 5
Importi(2,6) = 8
Importi(2,7) = 10
Importi(2,8) = 13
Importi(2,9) = 15
Importi(2,10) = 20
Importi(2,11) = 25
Importi(2,12) = 30
posta(1) = 1
posta(2) = 0
poste(1) = 0
poste(2) = 1
spia = 90
ru = 8
pos = 2
ini = InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10500)
ru = InputBox("Per quale Ruota 1-12, vuoi giocare Num. Spia?",,8)
pos = InputBox("Per quale Posizione 1-5, vuoi giocare Num. Spia?",,2)
flarit = InputBox("Vuoi evidenziare Ritardi Correnti? 1 = Si / Zero = No",,0)
cp = InputBox("Per quanti colpi vuoi giocare?",,6)
ColoreTesto 1
Scrivi String(37,32) & " Estrazione per Ruota: " & ru & " In Posizione: " & pos & " numero spia 90 - Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0
fin = EstrazioneFin
For n = ini To fin
'If(spia = Estratto(n,8,1) Or spia = Estratto(n,8,2) Or spia = Estratto(n,8,3) Or spia = Estratto(n,8,4) Or spia = Estratto(n,8,5)) Then
If(spia = Estratto(n,ru,pos)) Then
'
ReDim MatriceCaselleDaEvid(ru,1)
'
MatriceCaselleDaEvid(1,0) = ru
MatriceCaselleDaEvid(1,1) = pos
'
Call DisegnaEstrazione(n,MatriceCaselleDaEvid)
ruote(1) = 1
ruote(2) = 2
ruote(3) = 0
ColoreTesto 2 :Scrivi "-- Nell' estrazione di ROMA esce Spia 90, Preparo Ambata e Ambo Secco Bari-Cagliari -- script: Spia90Roma.ls ",1
' app = CStr(Estratto(n,8,4))
If e = 1 Then
app3 = CInt(app1)
Else
app3 = CInt(CInt(app1) + CInt(app2))
End If
numeri1(1) = Vert(Fuori90(Estratto(n,8,4) + 73))
numeri1(2) = 91 - Fuori90(Estratto(n,8,4) + 75)
app = Fuori90(Estratto(n,8,3) + 16)
e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(3) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(3) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(3) = app - 5
Else
If app2 > 4 Then
numeri1(3) = app - 5
Else
numeri1(3) = app + 5
End If
End If
End If
' numeri1(3) = Diametrale (Fuori90(Estratto(n,8,3) + 16)) ' Calcolo il diametrale in decina
app = Fuori90(Estratto(n,8,4) + 43)
e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(4) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(4) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(4) = app - 5
Else
If app2 > 4 Then
numeri1(4) = app - 5
Else
numeri1(4) = app + 5
End If
End If
End If
app = Fuori90(Estratto(n,8,5) + 25)
e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(5) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(5) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(5) = app - 5
Else
If app2 > 4 Then
numeri1(5) = app - 5
Else
numeri1(5) = app + 5
End If
End If
End If
If flarit = 1 Then
For r1 = 1 To 2 ' Ruote di Bari e Ca
Scrivi ""
Scrivi "Num:" & Format2(numeri1(1)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(1))) & " Num:" & Format2(numeri1(2)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(2))) & " Num:" & Format2(numeri1(3)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(3))) & " "
Scrivi "Num:" & Format2(numeri1(4)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(4))) & " Num:" & Format2(numeri1(5)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(5))) & " Ruota: " & NomeRuota(r1)
' Scrivi ""
Next
End If
ImpostaGiocata 1,numeri1,ruote,posta,eval(cp),1
ImpostaProgressione 1,Importi
ImpostaGiocata 1,numeri1,ruote,poste,eval(cp),1
ImpostaProgressione 2,Importi
Gioca n
End If
Next
Scrivi
ScriviResoconto ' Questo OK
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
'