In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 30/07/2023, 11:26
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.
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da DjNomade il 30/07/2023, 19:46
Tutto o quasi tutto è possibile pero' dovresti spiegare meglio che ricerca deve fare il istato con quale condizione magare con esempi reali... Ciauzzzz
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da lottomoney il 30/07/2023, 20:21
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
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da DjNomade il 30/07/2023, 23:13
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
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da lottomoney il 31/07/2023, 9:59
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
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da lottomoney il 05/08/2023, 18:07
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
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 4 ospiti
- Tutti gli orari sono UTC + 1 ora
|