Option Explicit
' SCRIPT SU RICHIESTA DI ZETRIX UTENTE LOTTOCED
' LO SCRIPT È REGALATO PUÒ ESSERE DISTRIBUITO MA NON PUÒ ESSERE VENDUTO"
' NON SI ESCLUDONO ERRORI O EVENTUALI BUGS
' SPETTA ALL UTENTE FINALE FINALE CONTROLLARE CHE I RISULTATI SIANO ESATTI
' L UTILIZZATORE È L UNICO RESPONSABILE DI EVENTUALI PERDITE DI DENARO SE DECIE DI GIOCARE
' LO SCRIPT È DI CARATTERE GRAFICO NON RESTITUISCE PREVISIONI
' IL GIOCO IN ITALIA È VIETATO AI MINORI DI ANNI 18 ( IN BASE AL REGOLAMENTO VIGENTE IN DATA 27/12/2022) E PUÒ PROVOCARE GRAVE DIPENDENZA PATOLOGICA
Sub Main
' n.B: non inserire meno di 3 numeri o piu di 10 lo script non darebe risultato
Dim idEstr:idEstr = EstrazioneFin
Dim aSpia(1):aSpia(1) = GetSpia
ReDim aNtro(0),aLung(0):Call ScegliNumeri(aLung)
Scrivi "Numero Fisso: " & aSpia(1)
Call GetStrinaNumeriDaEvidenziare(idEstr,aLung,aNtro)
If UBound(aNtro) >= 3 And UBound(aNtro) <= 10 Then
Dim ncls:ncls = GetClasse
Scrivi "Classe sviluppo scelta:" & ncls
Call GeTSviluppoQuartina(aNtro,aSpia,ncls)
Else
Call MsgBox("Hai inserito:" & UBound(aNtro) & " Numeri" & vbCrLf & " puoi inserire un minimo di 3 numeri ed un massimo di 10" & vbCrLf & "Riprova se vuoi",vbError + vbOKOnly,"Errore")
End If
End Sub
Sub GetStrinaNumeriDaEvidenziare(idEstr,aLung,anTro)
Dim r,e,p
Dim nCaselleDaEvid
ReDim aCeck(90),anTro(0)
' azzero il vettore nel caso vengano passati piu aLung
For e = 1 To 90
aCeck(e) = 0
Next
For e = 1 To UBound(aLung)
aCeck(aLung(e)) = 1
Next
Dim aR:aR = Array(0,1,2,3,4,5,6,7,8,9,10,12)
ReDim aNumDaEvid(55,1)
For r = 1 To 11
For p = 1 To 5
e = Estratto(idEstr,aR(r),p)
If aCeck(e) = 1 Then
nCaselleDaEvid = nCaselleDaEvid + 1
ReDim Preserve anTro(nCaselleDaEvid)
anTro(nCaselleDaEvid) = e
aNumDaEvid(nCaselleDaEvid,0) = r
aNumDaEvid(nCaselleDaEvid,1) = p
End If
Next
Next
Call EliminaRipetuti(anTro,True)
' If UBound(anTro) >= 2 Then
ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
For r = 1 To nCaselleDaEvid - 1
aMatriceLegami(r,0) = aNumDaEvid(r,0)
aMatriceLegami(r,1) = aNumDaEvid(r,1)
aMatriceLegami(r,2) = aNumDaEvid(r + 1,0)
aMatriceLegami(r,3) = aNumDaEvid(r + 1,1)
Next
Scrivi "Numero elementi lunghetta: " & UBound(aLung)
Scrivi "Lunghetta Spia: " & StringaNumeri(aLung,,True)
Scrivi "Numeri trovati: " & UBound(anTro) & " -> [ " & StringaNumeri(anTro,,True) & " ]"
Scrivi
Call DisegnaEstrazione(idEstr,aNumDaEvid,aMatriceLegami,vbGreen)
' End If
End Sub
Function GetClasse
Dim aCls:aCls = Array(3,4)
GetClasse = ScegliOpzioneMenu(aCls,0,"Scegli Classe combinazione") + 3
End Function
Function GetSpia
Dim aSpia(89)
Dim i
For i = 0 To 89
aSpia(i) = i + 1
Next
GetSpia = ScegliOpzioneMenu(aSpia,0,"Seleziona Elemento Spia ") + 1
End Function
Sub GeTSviluppoQuartina(anTro,aSpia,nCls)
Dim i,K,col
col = InitSviluppoIntegrale(anTro,nCls,aSpia)
K = 0
Do While GetCombSviluppo(anTro)
DoEventsEx
If ScriptInterrotto Then Exit Do
Call AvanzamentoElab(1,col,K)
K = K + 1
Scrivi "id= " & K & " -> Sviluppo quartina con il numero Spia "
Call DisegnaCerchioCiclometrico(anTro,True,,,,1,1)
Loop
End Sub
