ricerca ambata in figura
Inviato:
30/07/2023, 11:26
da 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.
Re: ricerca ambata in figura
Inviato:
30/07/2023, 20:21
da 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
Re: ricerca ambata in figura
Inviato:
31/07/2023, 9:59
da 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
Re: ricerca ambata in figura
Inviato:
05/08/2023, 18:07
da 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