Novità

A volte basta uno script facile per tutti.

Condivido con voi questo script NON MIO e non sono uno che scrive script
ci tengo a sottolinearlo ma si vede... e neanche un previsionista... ci provo e qualche volta mi dice culo ..
dicevo: l'ho smanettato un po con l'ia cosi per gioco ,ora non voglio suscitare ilarità alcuna ,
è solo per giocopocomagioco...
Fate le vostre valutazioni. magari è solo una boiata ma chissà ,io ho notato cose buone valutando le figure dei migliori ind conv., ripeto è uin gioco per gli amici del 3d,
statevi bene

Sub Main()
' NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA by Robyca
Dim nu(1)
Dim ru(1)
Dim fin, r, cs, cs1, es, x, y, spia, numToCheck, threshold, currentDelay, lastOccurrence, maxDelay, totalDraws
Dim lastOccurrences(90), numOccurrences(90), percentPresence, percentDelay, convenienceIndex, figurePresence(10)
Dim prnu(90, 5)
Dim fig, figNum ' Dichiarazione delle variabili fig e figNum

fin = EstrazioneFin()
r = CInt(InputBox("SU' CHE RUOTA FACCIO LA RICERCA", "", 10))
numToCheck = CInt(InputBox("Inserisci il numero da verificare", "", 1))
threshold = 10 ' Soglia per mostrare solo numeri con presenza maggiore di 10
totalDraws = 1000 ' Definito come il numero totale di estrazioni da considerare

ColoreTesto 2
Scrivi "Ricerca sulla ruota di " & NomeRuota(r) & " relativa alle " & _
"ultime 18 sortite della spia e alle 15 " & _
"maggiori presenze in un periodo di 9 estr. successive" & _
" alla spiata" & String(18, " ") & "Robyca"
ColoreTesto 0
Scrivi String(89, "*")
Scrivi

ru(1) = r
For spia = 1 To 90
Messaggio "NUMERO SPIA " & spia
cs = 0

' Inizializzazione degli array
For y = 1 To 90
numOccurrences(y) = 0
lastOccurrences(y) = 0
Next
For y = 1 To 10 ' Per le figure (1 a 10)
figurePresence(y) = 0
Next



For x = 0 To 1000
es = (fin - x) - 9
If Posizione(es, r, spia) > 0 Then
cs = cs + 1
For y = 1 To 90
nu(1) = y
If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
numOccurrences(y) = numOccurrences(y) + 1
' Calcola la figura del numero
fig = y Mod 10
If fig = 0 Then fig = 10
' Aggiorna figurePresence direttamente
figurePresence(fig) = figurePresence(fig) + 1
' Calcola il ritardo attuale
currentDelay = fin - es
If currentDelay > lastOccurrences(y) Then
lastOccurrences(y) = currentDelay
End If
End If
Next
If cs = 18 Then
cs1 = x
Exit For
End If
End If
Next

' Calcola il ritardo massimo per ogni numero
For y = 1 To 90
maxDelay = 0
lastOccurrence = -1
For x = 0 To 1000
es = (fin - x) - 9
If Posizione(es, r, spia) > 0 Then
If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
If lastOccurrence <> -1 Then
If (lastOccurrence - es) > maxDelay Then
maxDelay = lastOccurrence - es
End If
End If
lastOccurrence = es
End If
End If
Next
prnu(y, 1) = y
prnu(y, 2) = numOccurrences(y)
prnu(y, 3) = lastOccurrences(y)
prnu(y, 4) = maxDelay
' Calcolo delle percentuali e dell'indice di convenienza
percentPresence = (numOccurrences(y) / totalDraws) * 100
' Evita divisione per zero e calcola la percentuale di ritardo
If maxDelay > 0 Then
percentDelay = (lastOccurrences(y) / maxDelay) * 100
Else
percentDelay = 0
End If
' Calcola l'indice della figura del numero
figNum = y Mod 10
If figNum = 0 Then figNum = 10
' Verifica che l'indice sia compreso tra 1 e 10
If figNum >= 1 And figNum <= 10 Then
convenienceIndex = percentPresence + figurePresence(figNum)
Else
convenienceIndex = percentPresence
End If
prnu(y, 5) = convenienceIndex
Next

' Ordina l'array prnu in base alle presenze usando un algoritmo di ordinamento più veloce
Call QuickSort(prnu, 1, 90, 2)

' Stampa i risultati per il numero specificato dall'utente
If prnu(numToCheck, 2) > threshold Then
ColoreTesto 2
Scrivi "Risultati per la ruota di " & NomeRuota(r) & " con spia numero: " & spia & " sortito " & _
cs & " volte in " & cs1 & " estrazioni."
ColoreTesto 0
Scrivi String(90, "-")
Scrivi "Num" & Space(2) & "Pres" & Space(2) & "Rit Att" & Space(3) & "Rit Max" & Space(3) & "Ind Conv"
Scrivi String(90, "-")
Scrivi FormatSpace(prnu(numToCheck, 1), 5) & FormatSpace(prnu(numToCheck, 2), 5) & _
FormatSpace(prnu(numToCheck, 3), 8) & FormatSpace(prnu(numToCheck, 4), 8) & _
FormatSpace(prnu(numToCheck, 5), 10)
Scrivi String(90, "-")
End If

' Mostra i risultati per tutti i numeri con presenza maggiore di 10
ColoreTesto 2
Scrivi "Tabella dei risultati per la ruota di " & NomeRuota(r) & " con spia numero: " & spia
ColoreTesto 0
Scrivi String(90, "-")
Scrivi "Num" & Space(2) & "Pres" & Space(2) & "Rit Att" & Space(3) & "Rit Max" & Space(3) & "Ind Con"
Scrivi String(90, "-")

For y = 1 To 90
If prnu(y, 2) > threshold Then
Scrivi FormatSpace(prnu(y, 1), 5) & FormatSpace(prnu(y, 2), 5) & _
FormatSpace(prnu(y, 3), 8) & FormatSpace(prnu(y, 4), 8) & _
FormatSpace(prnu(y, 5), 10)
End If
Next

Scrivi
cs = 0
Next
End Sub

' Funzione per formattare lo spazio
Function FormatSpace(num, length)
Dim result
result = CStr(num)
' Utilizzare uno spazio di riempimento per garantire che la lunghezza finale sia quella desiderata
If Len(result) < length Then
result = String(length - Len(result), " ") & result
End If
FormatSpace = result
End Function

' Funzione di ordinamento veloce (QuickSort) per la matrice
Sub QuickSort(arr, first, last, col)
Dim i, j, pivot, temp1, temp2, Mid
If first < last Then
Mid = (first + last) \ 2
pivot = arr(Mid, col)
i = first
j = last
While i <= j
While arr(i, col) > pivot
i = i + 1
Wend
While arr(j, col) < pivot
j = j - 1
Wend
If i <= j Then
' Swap
temp1 = arr(i, 1)
temp2 = arr(i, col)
arr(i, 1) = arr(j, 1)
arr(i, col) = arr(j, col)
arr(j, 1) = temp1
arr(j, col) = temp2
i = i + 1
j = j - 1
End If
Wend
Call QuickSort(arr, first, j, col)
Call QuickSort(arr, i, last, col)
End If
End Sub
 
Se posso... Un regalino per Ferragosto..Però se funziona vorrei un Like.. (y)
O se vi piace... Metodo T3
'Metodo T3 by Pandit
Sub Main
Dim Nu(6),Ru(3),T,abb1,abb2,abb3,abb4,Ru1(1)
x2 = CInt(InputBox(" Quanti colpi di gioco?",,17))
Ini = EstrazioneFin - 350
fin = EstrazioneFin
r1 = 3
r2 = 4
p1 = 2
p2 = 5
colpi = x2
T = Array(T,"Estrazione","Ruote"," 2 x A","Verifica Ambata","Colpo","Abbin.","Abbin.")
Call InitTabella(T,RGB(0,71,171),,3,6,"swift")
For es = Ini To fin
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(Es,R,3) + (Estratto(Es,R1,3)))
c = Fuori90(a * 2):e = Fuori90(a + c)
f = Fuori90(c + e): g = 90 - f
h = Fuori90(Vert(g))
Nu(1) = g
Nu(2) = h
EliminaRipetuti Nu
Ru(1) = r1
Ru(2) = r2
Ru1(1) = r3
Call VerificaEsito(Nu,Ru,es + 1,1,colpi,,esito,clp,esA,id)
Call Abbinamenti(Nu(1),abb1,8072,fin,r1)
ReDim aN(4)
For k1 = 1 To 2
aN(k1) = abb1(k1,1)
Next
ReDim aM(4)
Call Abbinamenti(Nu(1),abb3,8072,fin,r2)
For k3 = 1 To 2
aM(k3) = abb3(k3,1)
Next
T = Array(T,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),esA,clp,StringaNumeri(aN,,1),_
StringaNumeri(aM,,1))
Call AddRigaTabella(T)
Call SetColoreCella(1,RGB(205,201,201),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,0),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,0,0),RGB(0,0,0))
Call SetColoreCella(4,RGB(0,255,0),RGB(0,0,0))
Call SetColoreCella(5,RGB(190,190,190),RGB(0,0,0))
Call SetColoreCella(6,RGB(255,255,0),RGB(0,0,0))
Call SetColoreCella(7,RGB(255,255,0),RGB(0,0,0))
Call SetColoreCella(8,RGB(255,255,0),RGB(0,0,0))
Call SetColoreCella(9,RGB(255,255,0),RGB(0,0,0))
End If
Next
CreaTabella
End Sub
 
Ultima modifica:
Condivido con voi questo script NON MIO e non sono uno che scrive script
ci tengo a sottolinearlo ma si vede... e neanche un previsionista... ci provo e qualche volta mi dice culo ..
dicevo: l'ho smanettato un po con l'ia cosi per gioco ,ora non voglio suscitare ilarità alcuna ,
è solo per giocopocomagioco...
Fate le vostre valutazioni. magari è solo una boiata ma chissà ,io ho notato cose buone valutando le figure dei migliori ind conv., ripeto è uin gioco per gli amici del 3d,
statevi bene

Sub Main()
' NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA by Robyca
Dim nu(1)
Dim ru(1)
Dim fin, r, cs, cs1, es, x, y, spia, numToCheck, threshold, currentDelay, lastOccurrence, maxDelay, totalDraws
Dim lastOccurrences(90), numOccurrences(90), percentPresence, percentDelay, convenienceIndex, figurePresence(10)
Dim prnu(90, 5)
Dim fig, figNum ' Dichiarazione delle variabili fig e figNum

fin = EstrazioneFin()
r = CInt(InputBox("SU' CHE RUOTA FACCIO LA RICERCA", "", 10))
numToCheck = CInt(InputBox("Inserisci il numero da verificare", "", 1))
threshold = 10 ' Soglia per mostrare solo numeri con presenza maggiore di 10
totalDraws = 1000 ' Definito come il numero totale di estrazioni da considerare

ColoreTesto 2
Scrivi "Ricerca sulla ruota di " & NomeRuota(r) & " relativa alle " & _
"ultime 18 sortite della spia e alle 15 " & _
"maggiori presenze in un periodo di 9 estr. successive" & _
" alla spiata" & String(18, " ") & "Robyca"
ColoreTesto 0
Scrivi String(89, "*")
Scrivi

ru(1) = r
For spia = 1 To 90
Messaggio "NUMERO SPIA " & spia
cs = 0

' Inizializzazione degli array
For y = 1 To 90
numOccurrences(y) = 0
lastOccurrences(y) = 0
Next
For y = 1 To 10 ' Per le figure (1 a 10)
figurePresence(y) = 0
Next



For x = 0 To 1000
es = (fin - x) - 9
If Posizione(es, r, spia) > 0 Then
cs = cs + 1
For y = 1 To 90
nu(1) = y
If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
numOccurrences(y) = numOccurrences(y) + 1
' Calcola la figura del numero
fig = y Mod 10
If fig = 0 Then fig = 10
' Aggiorna figurePresence direttamente
figurePresence(fig) = figurePresence(fig) + 1
' Calcola il ritardo attuale
currentDelay = fin - es
If currentDelay > lastOccurrences(y) Then
lastOccurrences(y) = currentDelay
End If
End If
Next
If cs = 18 Then
cs1 = x
Exit For
End If
End If
Next

' Calcola il ritardo massimo per ogni numero
For y = 1 To 90
maxDelay = 0
lastOccurrence = -1
For x = 0 To 1000
es = (fin - x) - 9
If Posizione(es, r, spia) > 0 Then
If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
If lastOccurrence <> -1 Then
If (lastOccurrence - es) > maxDelay Then
maxDelay = lastOccurrence - es
End If
End If
lastOccurrence = es
End If
End If
Next
prnu(y, 1) = y
prnu(y, 2) = numOccurrences(y)
prnu(y, 3) = lastOccurrences(y)
prnu(y, 4) = maxDelay
' Calcolo delle percentuali e dell'indice di convenienza
percentPresence = (numOccurrences(y) / totalDraws) * 100
' Evita divisione per zero e calcola la percentuale di ritardo
If maxDelay > 0 Then
percentDelay = (lastOccurrences(y) / maxDelay) * 100
Else
percentDelay = 0
End If
' Calcola l'indice della figura del numero
figNum = y Mod 10
If figNum = 0 Then figNum = 10
' Verifica che l'indice sia compreso tra 1 e 10
If figNum >= 1 And figNum <= 10 Then
convenienceIndex = percentPresence + figurePresence(figNum)
Else
convenienceIndex = percentPresence
End If
prnu(y, 5) = convenienceIndex
Next

' Ordina l'array prnu in base alle presenze usando un algoritmo di ordinamento più veloce
Call QuickSort(prnu, 1, 90, 2)

' Stampa i risultati per il numero specificato dall'utente
If prnu(numToCheck, 2) > threshold Then
ColoreTesto 2
Scrivi "Risultati per la ruota di " & NomeRuota(r) & " con spia numero: " & spia & " sortito " & _
cs & " volte in " & cs1 & " estrazioni."
ColoreTesto 0
Scrivi String(90, "-")
Scrivi "Num" & Space(2) & "Pres" & Space(2) & "Rit Att" & Space(3) & "Rit Max" & Space(3) & "Ind Conv"
Scrivi String(90, "-")
Scrivi FormatSpace(prnu(numToCheck, 1), 5) & FormatSpace(prnu(numToCheck, 2), 5) & _
FormatSpace(prnu(numToCheck, 3), 8) & FormatSpace(prnu(numToCheck, 4), 8) & _
FormatSpace(prnu(numToCheck, 5), 10)
Scrivi String(90, "-")
End If

' Mostra i risultati per tutti i numeri con presenza maggiore di 10
ColoreTesto 2
Scrivi "Tabella dei risultati per la ruota di " & NomeRuota(r) & " con spia numero: " & spia
ColoreTesto 0
Scrivi String(90, "-")
Scrivi "Num" & Space(2) & "Pres" & Space(2) & "Rit Att" & Space(3) & "Rit Max" & Space(3) & "Ind Con"
Scrivi String(90, "-")

For y = 1 To 90
If prnu(y, 2) > threshold Then
Scrivi FormatSpace(prnu(y, 1), 5) & FormatSpace(prnu(y, 2), 5) & _
FormatSpace(prnu(y, 3), 8) & FormatSpace(prnu(y, 4), 8) & _
FormatSpace(prnu(y, 5), 10)
End If
Next

Scrivi
cs = 0
Next
End Sub

' Funzione per formattare lo spazio
Function FormatSpace(num, length)
Dim result
result = CStr(num)
' Utilizzare uno spazio di riempimento per garantire che la lunghezza finale sia quella desiderata
If Len(result) < length Then
result = String(length - Len(result), " ") & result
End If
FormatSpace = result
End Function

' Funzione di ordinamento veloce (QuickSort) per la matrice
Sub QuickSort(arr, first, last, col)
Dim i, j, pivot, temp1, temp2, Mid
If first < last Then
Mid = (first + last) \ 2
pivot = arr(Mid, col)
i = first
j = last
While i <= j
While arr(i, col) > pivot
i = i + 1
Wend
While arr(j, col) < pivot
j = j - 1
Wend
If i <= j Then
' Swap
temp1 = arr(i, 1)
temp2 = arr(i, col)
arr(i, 1) = arr(j, 1)
arr(i, col) = arr(j, col)
arr(j, 1) = temp1
arr(j, col) = temp2
i = i + 1
j = j - 1
End If
Wend
Call QuickSort(arr, first, j, col)
Call QuickSort(arr, i, last, col)
End If
End Sub
Grazie Father,ci avevo provato pure io....ma sono un pippone come te negli script e per ricambiare :

Questo script del Magnifico Joe (che saluto e ringrazio con stima e rispetto) si occupa di scovare la classe di PRESENZA in un ciclo di estrazioni a scelta e classe di presenza(CdP) a scelta.Fatene buon uso.....

Option Explicit
Sub Main
'Classi di Presenza Script By Joe.
Dim Ini,Fin,Q
Dim C,D,R1
Dim CdP,P,R,K,N,Es,E,X
R1 = CInt(InputBox("Quale ruota di ricerca ? ","RUOTA",1))
R = R1
CdP = 4 'Presenze---> cambiare qui per presenze <>
Fin = EstrazioneFin
Q = 19 'Quantità Estrazioni---> cambiare qui
Ini = Fin + 1 - Q

For N = 1 To 90
If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = CdP Then
K = K + 1
ReDim Preserve L(K)
L(K) = N
End If
Next

Scrivi
Scrivi "ultima estrazione di rilevamento " & " " & Fin & " " & "del" & " " & DataEstrazione(Fin)
Scrivi
Scrivi "per valori di presenze uguali a" & " " & CdP & " " & " su X estrazioni "
ColoreTesto 2
Scrivi
Scrivi NomeRuota(R) & " ",True,False
Scrivi StringaNumeri(L,,True),True
Scrivi
ColoreTesto 0
For D = 0 To 8
Scrivi "Decina " & D & " = ",0,0
For K = 1 To UBound(L)
If Decina(L(K)) = D Then Scrivi Format2(L(K)) & Space(1),0,0
Next
Scrivi
Next
Scrivi
For C = 0 To 9
Scrivi "Cadenza " & C & " = ",0,0
For K = 1 To UBound(L)
If Cadenza(L(K)) = C Then Scrivi Format2(L(K)) & Space(1),0,0
Next
Scrivi
Next
End Sub
 
Per adesso accontatevi di questo,non ho ancora finito lo studio sulle ambate,scuasatemi.


MI BA CA 49 (1x3)

Migliori ambi:

49.8 / 49.53 / 49.61 / 49.16 / 8.61

La lunghetta :

8.16.49.53.61 x A/T

Estratti a K6 (1x3)

Ambi e lunghetta anche a tutte valido per K15
(fino a fine mese)

Fate il Vostro gioco e SUERTE a TUTTI !!!!!
 
Grazie Father,ci avevo provato pure io....ma sono un pippone come te negli script e per ricambiare :

Questo script del Magnifico Joe (che saluto e ringrazio con stima e rispetto) si occupa di scovare la classe di PRESENZA in un ciclo di estrazioni a scelta e classe di presenza(CdP) a scelta.Fatene buon uso.....

Option Explicit
Sub Main
'Classi di Presenza Script By Joe.
Dim Ini,Fin,Q
Dim C,D,R1
Dim CdP,P,R,K,N,Es,E,X
R1 = CInt(InputBox("Quale ruota di ricerca ? ","RUOTA",1))
R = R1
CdP = 4 'Presenze---> cambiare qui per presenze <>
Fin = EstrazioneFin
Q = 19 'Quantità Estrazioni---> cambiare qui
Ini = Fin + 1 - Q

For N = 1 To 90
If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = CdP Then
K = K + 1
ReDim Preserve L(K)
L(K) = N
End If
Next

Scrivi
Scrivi "ultima estrazione di rilevamento " & " " & Fin & " " & "del" & " " & DataEstrazione(Fin)
Scrivi
Scrivi "per valori di presenze uguali a" & " " & CdP & " " & " su X estrazioni "
ColoreTesto 2
Scrivi
Scrivi NomeRuota(R) & " ",True,False
Scrivi StringaNumeri(L,,True),True
Scrivi
ColoreTesto 0
For D = 0 To 8
Scrivi "Decina " & D & " = ",0,0
For K = 1 To UBound(L)
If Decina(L(K)) = D Then Scrivi Format2(L(K)) & Space(1),0,0
Next
Scrivi
Next
Scrivi
For C = 0 To 9
Scrivi "Cadenza " & C & " = ",0,0
For K = 1 To UBound(L)
If Cadenza(L(K)) = C Then Scrivi Format2(L(K)) & Space(1),0,0
Next
Scrivi
Next
End Sub
Buongiorno,
a me da questo errore. dove sbaglio?

1722953530849.png
 
Buongiorno,
a me da questo errore. dove sbaglio?

Vedi l'allegato 2288264
Mat,se scegli parametri non consoni ti restituisce l'errore ! in pratica se nella ruota scelta non trova i parametri scelti va in errore !!!Prova cambiare ruota,poi cambia i paramtri...Ora devo uscire,quando rientro ti faccio degli esempi.Lo scricpt funziona egregiamente credimi ,provato e riprovato....
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
Indietro
Alto