Ciao Antonio, ti ringrazio per i complementi sono solo un onesto ahimè giocatore che cerca di mettere in pratica le proprie idee.
Quello che chiedi è molto complesso da realizzare con gli script almeno per me.
Per capire la materia vbscript bisogna iniziare dalle cose semplici e cominciare da script semplici nella stesura e comincire a leggere il loro percorso strutturale e piano piano ti sarà chiaro come utilizare questa o quella funzione.
C'erano delle lezione che a suo tempo fece Luigi su questo forum in materia di vbscript dai quali ho imparato a fare i primi passi.
Devi solo avere pazienza e cominciare a leggere le istruzioni ed il costrutto avendo sempre chiaro l'obiettivo che si vuole perseguire.
Per quanto riguarda il modo gi giocare io al massimo gioco 4 numeri caldi del momento e aspetto per 10 estrazioni al minimo recupero il capitale.
Poi i sistemi si possono anche creare ma essendo un gioco troppo veloce si rischia di non fare in tempo e perdere l'attimo vincente.
Ti posto un altro script fatto dal grande LuigiB conqualche mia correzione.
Ciao e buona giornata a te a all'amico Keeper.
'mia correzione script
Class clsPresenze
Dim Presenze
Dim sNumeri
Dim Rit
Dim RitMax
End Class
Sub Main
ImpostaArchivio10ELotto(2)
' mio correzione script
Dim sFile
Dim idEstr
'Dim sRecord
Dim nClasse
Dim k
Dim sKey
Dim clsPres
Dim collPres
Dim nTrovati
Dim aColonne
Dim aNumeri
fin = EstrazioniArchivioDL
Ini = fin - 200 'CInt(InputBox("DA QUALE ESTRAZIONE VUOI ANALIZZARE ? ",,5618))
nClasse = ScegliClasse
If nClasse <= 0 Then Exit Sub
'sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"
'Call EliminaFile(sFile)
Call Messaggio("Calcolo frequenza")
Set collPres = GetNewCollection
For idEstr = Ini To EstrazioniArchivioDL
ne = EstrazioniArchivioDL - Ini
ReDim aColonna(0)
If GetColonna(idEstr,aColonna) Then
'sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & StringaNumeri(aColonna,"|")
'Call ScriviFile(sFile,sRecord)
aColonne = SviluppoIntegrale(aColonna,nClasse)
For k = 1 To UBound(aColonne)
sKey = "k"
For j = 1 To nClasse
sKey = sKey & Format2(aColonne(k,j)) & "."
Next
If sKey <> "" Then
sKey = Left(sKey,Len(sKey) - 1)
Set clsPres = GetClsPres(sKey,collPres)
clsPres.Presenze = clsPres.Presenze + 1
End If
Next
End If
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
If ScriptInterrotto Then Exit For
Next
ReDim aComb(100,2)
Call IsolaPiuFrequenti(collPres,aComb)
'If ApriBaseDatiFT(sFile,20,"|") Then
Call Messaggio("Creo lista")
ColoreTesto 1
Call Scrivi("Elenco delle 100 combinazioni da " & nClasse & " numeri piu frequenti al 10 e lotto",1)
Call Scrivi("data estrazione inizio... " & GetInfoEstrazioneDL(Ini) & " data fine... " & GetInfoEstrazioneDL(fin) & " [ totali estrazioni... ] " & ne,1)
Call Scrivi
ColoreTesto 0
ReDim aTitoli(10)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
aTitoli(5) = "Ritardo x 1"
aTitoli(6) = "Ritardo x 2"
aTitoli(7) = "Ritardo x 3"
aTitoli(8) = "Frequenza x 2"
aTitoli(9) = "Frequenza x 3"
aTitoli(10) = " Posizione "
Call InitTabella(aTitoli,vbYellow)
k = 0
For k = 1 To UBound(aComb)
aNumeri = Split(aComb(k,2),".")
ReDim aV(10)
aV(1) = aComb(k,2)
aV(2) = aComb(k,1)
aV(3) = RitardoCombinazioneDL(aNumeri,nClasse)
aV(4) = SerieStoricoDL(Ini,fin,aNumeri,nClasse)
aV(5) = SerieRitardoDL(Ini,fin,aNumeri,1)
aV(6) = SerieRitardoDL(Ini,fin,aNumeri,2)
aV(7) = SerieRitardoDL(Ini,fin,aNumeri,3)
aV(8) = SerieFreqDL(Ini,fin,aNumeri,2)
aV(9) = SerieFreqDL(Ini,fin,aNumeri,3)
aV(10) = k & "°"
If aComb(k,1) > 0 Then
Call AddRigaTabella(aV)
End If
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For
Call(SetColoreCella(2,vbMagenta))
If aV(3) = 0 Then Call SetColoreCella(3,vbGreen):End If
If aV(5) = 0 Then Call SetColoreCella(5,vbGreen):End If
If aV(6) = 0 Then Call SetColoreCella(6,vbGreen):End If
If aV(7) = 0 Then Call SetColoreCella(7,vbGreen):End If
Next
Call CreaTabella(2,0,0,100)' ORDINA TABELLA PER COLONNA 2
'Else
'MsgBox "File estrazioni 10 e lotto non prodotto"
'End If
End Sub
Function GetClsPres(sKey,collPres)
On Error Resume Next
Dim clsP
Set clsP = collPres(sKey)
If clsP Is Nothing Then
Set clsP = New clsPresenze
clsP.sNumeri = Mid(sKey,2)
clsP.Presenze = 0
collPres.Add clsP,sKey
End If
Set GetClsPres = clsP
End Function
Function GetColonna(idEstrazione,colonna)
Dim nInseriti
Dim Ruota,pos,n
Dim k,i
ReDim aCol(90)
ReDim colonna(20)
Do While nInseriti < 20 And pos <= 5
For pos = 1 To 5
For Ruota = 1 To 10
n = Estratto(idEstrazione,Ruota,pos)
If n > 0 Then
If aCol
= False Then
aCol
= True
nInseriti = nInseriti + 1
If nInseriti = 20 Then Exit For
End If
End If
Next
If nInseriti = 20 Then Exit For
Next
Loop
For k = 1 To 90
If aCol(k) Then
i = i + 1
colonna(i) = k
End If
Next
ReDim Preserve colonna(i)
If i = 20 Then
GetColonna = True
Else
GetColonna = False
End If
End Function
Function ScegliClasse()
ReDim aVoci(3)
aVoci(0) = "Estratto"
aVoci(1) = "Ambo"
aVoci(2) = "Terno"
aVoci(3) = "Quaterna"
ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function
Sub IsolaPiuFrequenti(collPres,aComb)
Dim k,j,i
Dim clsPres
Call Messaggio("Selezione combinazioni piu frequenti")
ReDim aComb(100,2)
For k = 1 To UBound(aComb)
aComb(k,1) = 0
aComb(k,2) = ""
Next
i = 0
For Each clsPres In collPres
For k = 1 To UBound(aComb)
If clsPres.presenze >= aComb(k,1) Then
For j = UBound(aComb) To(k + 1) Step - 1
aComb(j,1) = aComb(j - 1,1)
aComb(j,2) = aComb(j - 1,2)
Next
aComb(k,1) = clsPres.presenze
aComb(k,2) = clsPres.snumeri
Exit For
End If
Next
i = i + 1
Call AvanzamentoElab(1,collPres.count,i)
If ScriptInterrotto Then Exit For
Next
End Sub
