Novità

A volte basta uno script facile per tutti.

Father

Super Member >PLATINUM<
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
 

Pandit

Member
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)
x = CInt(InputBox(" Inserisci il numero della prima ruota",,3))
x1 = CInt(InputBox(" Inserisci il numero della seconda ruota",,4))
x2 = CInt(InputBox(" Quanti colpi di gioco?",,17))
Ini = EstrazioneFin - 350
fin = EstrazioneFin
r1 = x
r2 = x1
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:

Codicebinario

Advanced Member >PLATINUM<
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
 

Codicebinario

Advanced Member >PLATINUM<
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 !!!!!
 

matteo343

Junior Member
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
 

Codicebinario

Advanced Member >PLATINUM<
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
    martedì 06 agosto 2024
    Bari
    89
    80
    07
    06
    10
    Cagliari
    29
    05
    35
    02
    12
    Firenze
    83
    41
    03
    11
    07
    Genova
    40
    48
    11
    03
    88
    Milano
    47
    06
    20
    45
    28
    Napoli
    20
    09
    23
    40
    55
    Palermo
    09
    10
    73
    43
    74
    Roma
    62
    30
    05
    59
    19
    Torino
    16
    80
    05
    90
    40
    Venezia
    49
    82
    40
    07
    61
    Nazionale
    40
    26
    75
    79
    76
    Estrazione Simbolotto
    Nazionale
    13
    05
    12
    28
    25
Alto