Option Explicit
'un classico script di ricerca e metodi sommativi
'La parte remmata è il codice che vorrei scrivere
' su ruota singola lo script è ricerca su Bari e gioco su Bari o Bari-Nazionale
Sub Main
Dim ruota,ru,conta,caso,cl
Dim pronostico
Dim Ini,fin,es
Dim n(10)
Dim posta(2)
ReDim aru(0)
cl = NumeroColpi
posta(2) = 1
ru = ScegliRuota ' Ruota è Bari
ruota = ScegliRuote(aru) ' 'migliori ba_Nz
Ini = 4131'EstrazioneIni
fin = EstrazioneFin
conta = 0
For es = Ini To fin
Messaggio CStr(EstrazioneFin - es)
AvanzamentoElab Ini,fin,es
conta = conta + 1
If SommaEstratti(es,ru) = 161 Then
caso = caso + 1
Scrivi "script sommativo By I Legend su Bari"
Scrivi
Scrivi String(19," ") & "Caso n° " & Format2(caso) & " Sommatoria[(1+2+3+4+5)" & SiglaRuota(ru) & "]=161",1
' qui: una volta che la condizione è rispettata facciamo partire la form
'*************************************************************************************************************************************
' ReDim aBase(0)
' Dim nBase
' nBase=scegliBase(aBase)
' Call sub SviluppaBase(IdEstr,Ruote,MatrBasi,ColpiGioco,PercPos,Trova_nPos) ,quando trova_nPos viene raggiunto si esce dalla routine
' nella form di scegli base seleziono le basi,scelgo fino a quando sviluppare la combinazione
'questi estratti sono stati rintracciati tramite un foglio elettronico.
' le Basi utilizzate sono una matrice di 50 E da 1Ba a 5Ve
' algoritmo utilizzato= 1E+2E+nE+ Fisso da 1 a 90
' algoritmo utilizzato= 1E*2E+nE+ Fisso da 1 a 90
'*************************************************************************************************************************************
n(1) = Fuori90(Estratto(es,BA_,3) + Estratto(es,BA_,5) + Estratto(es,GE_,1) + 74)
n(2) = Fuori90(Estratto(es,CA_,2) * Estratto(es,MI_,4) + Estratto(es,NA_,3) + 76)
n(3) = Fuori90(Estratto(es,CA_,4) + Estratto(es,NA_,1) + Estratto(es,VE_,2) + 15)
n(4) = Fuori90(Estratto(es,CA_,5) * Estratto(es,GE_,1) + Estratto(es,MI_,4) + 36)
n(5) = Fuori90(Estratto(es,NA_,1) * Estratto(es,PA_,3) + Estratto(es,RO_,3) + 50)
n(6) = Fuori90(Estratto(es,CA_,3) * Estratto(es,FI_,2) + Estratto(es,FI_,4) + Estratto(es,MI_,5) + 11)
n(7) = Fuori90(Estratto(es,CA_,3) + Estratto(es,MI_,4) + Estratto(es,NA_,5) + Estratto(es,RO_,3) + 9)
n(8) = Fuori90(Estratto(es,CA_,3) * Estratto(es,PA_,1) + Estratto(es,TO_,1) + Estratto(es,VE_,2) + 60)
n(9) = Fuori90(Estratto(es,CA_,3) * Estratto(es,RO_,1) + Estratto(es,TO_,2) + Estratto(es,VE_,5) + 7)
n(10) = Fuori90(Estratto(es,CA_,4) + Estratto(es,FI_,2) + Estratto(es,MI_,1) + Estratto(es,VE_,4) + 6)
EliminaRipetuti n
ImpostaGiocata 1,n,aru,posta,cl
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub
Function NumeroCasi
Dim Ret,x,ris
ReDim aCasi(30)
For x = 1 To 30
aCasi(x) = x
Next
If Ret >= 0 Then
ris = ScegliOpzioneMenu(aCasi,1,"Quanti Casi vuoi analizzare?")
Else
ris = Ret
End If
NumeroCasi = ris
End Function
Function NumeroColpi
Dim Ret,x,ris
ReDim aCasi(18)
For x = 1 To 18
aCasi(x) = x
Next
If Ret >= 0 Then
ris = ScegliOpzioneMenu(aCasi,9,"Quanti Colpi vuoi Verificare?")
Else
ris = Ret
End If
NumeroColpi = ris
End Function
Function TrovaNpositivi(casi)
Dim Ret,x,ris
ReDim aCasi(casi - 1)
For x = 1 To UBound(aCasi)
aCasi(x) = x
Next
If Ret >= 0 Then
ris = ScegliOpzioneMenu(aCasi,1,"Quanti Positivi vuoi rintracciare?")
Else
ris = Ret
End If
TrovaNpositivi = ris
End Function
Function TrovaPercentualePositivi(nPos,nCasi)
Dim frazione
frazione=Round(Dividi(nPos,nCasi),2)*100
TrovaPercentualePositivi = frazione
End Function
Function NumeroMetodi
Dim Ret,x,ris
ReDim aCasi(90)
For x = 1 To 90
aCasi(x) = x
Next
If Ret >= 0 Then
ris = ScegliOpzioneMenu(aCasi,10,"Quanti Metodi vuoi Trovare?")
Else
ris = Ret
End If
NumeroMetodi = ris
End Function
