ricerca ambata in figura

[lottomoney]

Volevo sapere se sia possibile uno script con la ricerca, ad ogni estrazione mensile,
di un'ambata calcolata dallo script sulle 11 ruote, + un numero fisso, sempre calcolato dallo script ed il risultato trasformato in figura da mettere in gioco su una ruota a scelta iniziale.
Inoltre, desideravo che questo calcolo fosse fatto anche mensilmente, cioè scegliendo sia il mese che l'estrazione e quindi la messa in gioco successiva.
Forse è un pò impegnativo e ringrazio anticipatamente chi vorrà aiutarmi. Grazie mille.

[DjNomade]

Tutto o quasi tutto è possibile
pero' dovresti spiegare meglio che ricerca deve fare il istato con quale condizione
magare con esempi reali...
Ciauzzzz

[lottomoney]

Buonasera DjNomade,
la ricerca deve essere fatta dallo script in base al numero di posizione su di una ruota, questo numero andrà sommato
ad un numero fisso, sempre ricercato dallo script, ed il risultato deve essere trasformato in figura da mettere in gioco su
di una ruota scelta da input.
Un esempio: alla 10a estrazione mensile di Gennaio 2023 sommare il 1° estratto di GENOVA al fisso 7 = 34+7 = 41 figura 5
da mettere in gioco sulla ruota di ROMA.
Altro esempio: alla 10a estrazione mensile di Novembre 2023 sommare il 3° di CAGLIARI al fisso 4 = 76+4 = 80 figura 8 da mettere in gioco sulla ruota di MILANO.
Potrei andare avanti con altri esempi scaturiti alla 10a estrazione mensile per questo mi interesserebbe avere la possibilità di calcolo anche nelle altre estrazioni mensili per analizzarne i risultati.
Spero sia comprensibile, ma soprattutto fattibile
lottomoney

[DjNomade]

In archivio ho trovato solo questo, purtroppo non riesco
a trasformarlo in figura

Ciauz

Codice: Seleziona tutto

'OK-Ricerca per Ambata con Nazionale
'IMPOSTAZIONI:
'(All'ultima°) estrazione del mese per (3) colpi:
'Quantità mesi Impostati: (4)
'Statistica dal: 29.10.2011 al: 11.02.2012
'Percentuale Impostata: 99%

'1° di Bari      + 82 su Bari      è uscito 3/4 : 36  in corso
Sub main()
ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Dim som(5,90)
Dim estr(5)
Dim val(5,90)
Dim amb(90)
perc=InputBox("Imposta la percentuale esiti (10% - 100%)",,99)
es=InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
nmc=InputBox("Quanti mesi da analizzare ?",,4)
ncg=InputBox("Quanti colpi di gioco ?",,3)
n=EstrazioneFin
ultest=n'8693'---------------> DA AGGIORNARE MANUALMENTE AD OGNI ESTRAZIONE INSERENDO L'ULTIMA IN ARCHIVIO

z=0
trovato=False
While z<eval(nmc)

If (((eval(es)=0)And(n=ultest))Or((Indicemensile(n)=eval(es)And(eval(es)>0))Or((Indicemensile(n+1)=1)And(eval(es)=0)))) Then

z=z+1
End If
n=n-1
Wend
nn=n+1
For r2 = 1 To 12
If r2=11 Then r2=12
For i=1 To 90
amb(i)=0
Next
ColoreTesto 0 : Scrivi : Scrivi "***********************************************************",1
ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1
If eval(es)=0 Then
s="(All'ultima"
Else
s="Alla ("+es
End If
s=s+"°) estrazione del mese per ("
If eval(ncg)=0 Then
s=s+"un mese:"
Else
If eval(ncg)=1 Then
s=s+ncg+") colpo:"
Else
s=s+ncg+") colpi:"
End If
End If
ColoreTesto 0 : Scrivi s
ColoreTesto 1 : Scrivi "Quantità mesi Impostati: ("& nmc &")",1
ColoreTesto 0 : Scrivi "Statistica dal: "+DataEstrazione(nn)+" al: "+DataEstrazione(EstrazioneFin),1
ColoreTesto 2 : Scrivi "Percentuale Impostata: "& perc &"%",1
Scrivi
For r = 1 To 12
If r=11 Then r=12
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
For n=nn To EstrazioneFin
If eval(es)=0 Then m=n+1 Else m=n End If
If (((eval(es)=0)And(n=ultest))Or((Indicemensile(n)=eval(es)And(eval(es)>0))Or((Indicemensile(n+1)=1)And(eval(es)=0)))) Then
z=z+1
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
val(i,j)=True
Next
Next
k2=eval(ncg)
k3=n+k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv=n+1 To k3
For i=1 To 5
For j=1 To 5
k=Estratto(nv,r2,j)-estr(i)
While k<=0
k=k+90
Wend
If val(i,k)=True Then
som(i,k)=som(i,k)+1
val(i,k)=False
End If
Next
Next
Next
End If
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*perc)
s=CStr(eval(i))+"° di "+FormatSpace(NomeRuota(r),9)+" + "+Format2(CStr(eval(j)))+" su "
ColoreTesto 1
s=s+FormatSpace(NomeRuota(r2),9)+" è uscito "+CStr(som(i,j))+"/"+CStr(eval(z))
s=s+" : "+FormatSpace(CStr(Fuori90(eval(estr(i)+j))),3)
If (val(i,j)=True) Then s=s+" in corso" Else s=s+"----> sfaldato" End If
If som(i,j)>=zz Then
Scrivi s
amb(Fuori90(eval(estr(i)+j)))=amb(Fuori90(eval(estr(i)+j)))+1
End If
Next
Next
Next
ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1
For i=1 To 90
If (amb(i)>1) Then ColoreTesto 1 : Scrivi CStr(eval(i))+": Convergente in ("+CStr(eval(amb(i)))+" sistemi)",1
Next
Next
End Sub

[lottomoney]

Grazie DjNomade, sempre disponibile, ma purtroppo non è quello che cercavo, anche se molto interessante.
Sperando in qualche altro volontario che magari riesca a modificarlo, ti ringrazio di nuovo e ti auguro buone vacanze.
lottomoney

[lottomoney]

Avendo a disposizione questo script dove viene trovato un numero di posizione che moltiplicato ad un numero fisso trovato dallo script, chiedevo, a chi ne fosse capace, se il risultato dell'operazione è possibile ricavarne la figura da mettere in gioco sulla ruota scelta in input. Grazie mille.

'Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)"

Sub Main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1 = InputBox("ruota : ",,1)
nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne = InputBox("Numero estrazioni:",,400)
perc = InputBox("Percentuale minima (60-99%):",,98)
ncg = InputBox("Numero colpi di gioco",,8)
ruota(1) = eval(nru1)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To 4500
ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0
Next
For es = ini To fin
If eval(nes) = 0 Then
If IndiceMensile(es + 1) = 1 Then
casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For nu = 1 To 90
co = co + 1
c = 0
a = Estratto(es,r,p)
b = Fuori90(a*nu)
nn(1) = b
esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
c = SerieFreq(es + 1,esncg,nn,ruota,1)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = nu
ambi(co,5) = ambi(co,5) + 1
ambi(co,6) = ambi(co,6) + c
End If
Next
Next
Next
End If
Else
If IndiceMensile(es) = eval(nes) Then
casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For nu = 1 To 90
co = co + 1
c = 0
a = Estratto(es,r,p)
b = Fuori90(a*nu)
nn(1) = b : nn(2) = Vert(b)
esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
c = SerieFreq(es + 1,esncg,nn,ruota,1)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = nu
ambi(co,5) = ambi(co,5) + 1
ambi(co,6) = ambi(co,6) + c
End If
Next
Next
Next
End If
End If
Next
ca = 0
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
If eval(nes) = 0 Then
Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Else
Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1
End If
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) & " - " & NomeRuota(nru2),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To 4500
If eval(ambi(ca,5)) => per Then
Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " su " & NomeRuota(nru1) & "-" & NomeRuota(nru2) & _
" è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & _
FormatSpace(ambi(ca,6),3)
End If
Next
End Sub