Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Uno script dalla ruota verso l'ambata
- Creatore Discussione Paki144
- Data di inizio
Ciao e grazie, ma non credo di essere in grado, troppo avanti. Quello che volevo spiegare nel mio post è che sì, la posizione di caduta è corretta, ma non la ruota che a volte, rimane quella del conteggio dalla prima posizione, perchè nelle variabili letterali di Zetrix è inserito n1, che è l'estratto e non è quindi inserita la variazione dovuta allo spostamento, che nel mio script è quel q= 6-pos(x), che non è altro che il numero di posizioni occupate nella ruota di partenza. Quando n1 è in 1^ tutte le posizioni sono occupate( q= 6 -1) e la ruota si conta da quella di partenza. poi da 1^ in avanti la caduta varia secondo la cadenza. Quando la nuova posizione calcolata è inferiore a quella rispetto al calcolo dalla 1^, scatta la ruota successiva, salvo per la cadenza 1 che non cambia mai ruota mantenendo la stessa posizione, mentre la cadenza 6 rimane nella stessa posizione, ma ruota successiva.Nel mio calcolo della ruota di caduta, il q deve essere sottratto ad n1 e contare le ruote sottostanti divedendo il resto per 5. ed è appunto il resto di n1-q /5 che, se non è = 0, mi fa procedere di una ruota. Forse un po' cervellotico ma sono gli espedienti di chi è costretto ad applicare quel poco che sa.Scythe, se guardi il mio esempio si vede che calcola la niova posizione anche a partire da quella occupata e non dalla prima.
Se non ti piace la soluzione degli array puoi scrivere una funzione che calcoli la ruota e la posizione in base alla colonna di arrivo.
Sono più calcoli ma se ti piace come soluzione prova così .
Ciao
Naturalmente cambiando ruota cambia il numero di = posizione, cioè proprio il numero che cerca zetrix.
ciao
Paki144
Super member
Ciao scythe Grazie per avermi letto avermi risposto, grazie per lo script che mi hai fatto dedicandomi il tuo tempo, e aver condiviso varie soluzioni con zetrix e poi con salvo50 e i Leggend e altri.
Grazie scythe per la tua pazienza e la tua disponibilità.
Ciao scythe un Saluto e Buon Anno
Ultima modifica:
i legend
Premium Member
Ciao zetrix , io al lotto non gioco ,quindi per me la previsione non è importante, ma se hai fatto i calcoli, e sei sicuro posta pure come ottenere gli abbinamenti che ti finisco lo script.
ecco alcune cose da stabile
1) scelgo la ruota ok facile
2)prendosingolarmente i 5 estratti e li proietto sulla nuova ruota ok facile
domanda: da dove devo iniziare il conteggio?
es num 1: -> : 2* estratto = 5 comincio dalla posizione 1 -> Cade sulla stessa ruota
es num 2: -> : 2* estratto=5 comincio a contare dalla posizione di rilevamento( posizione 2) -> cade sulla ruota successiva
scelta del capogioco: quale deve essere?
3) per creare gli abbinamenti hai parlato di numeri spia , ma quali sono? i numeri della ruota base o quelli di caduta?
4) massimi abbinamenti da ricavare 4 , devono essere sempre gli stessi se vuoi fare una statistica ( quindi una formula per ogni abbinamento)
lo script decido io come impostarlo e scriverlo una volta che abbiamo tutti i passaggi.
se stabiliamo il tutto entro le 18.00 riesco a fare prima di cena , poi domani in famiglia e dopo domani rientro a lavoro e bye bye passatempo.
a dopo .
ciao.
Zetrix
Advanced Premium Member
ciao scythe,paki144,ilegend,
ilegend scusami se rispondo adesso non ho postato nessuna previsione perche
si deve vedere quale abb si abbina piu spesso per quanto riguarda gli abbinamenti
sono un professionista per fare questo lavoro a me basta che scythe fa lo script
e una volta rilevato il numero spia poi per me e facile calcolare gli abb ma ci sono diversi
abb che adesso non le scrivo qui perche ci sono i miei studi per iniziare si potrebbe fare una
statistica per vedere quale abb si abbina piu spesso, il primo pacchetto per fare
una statistica e il format con il numero spia che sviluppa 9 abb..
ogni numero sviluppa una formattazione diversa per questo si ricavano sempre
9 abb per ogni numero spia..
ilegend scusami se rispondo adesso non ho postato nessuna previsione perche
si deve vedere quale abb si abbina piu spesso per quanto riguarda gli abbinamenti
sono un professionista per fare questo lavoro a me basta che scythe fa lo script
e una volta rilevato il numero spia poi per me e facile calcolare gli abb ma ci sono diversi
abb che adesso non le scrivo qui perche ci sono i miei studi per iniziare si potrebbe fare una
statistica per vedere quale abb si abbina piu spesso, il primo pacchetto per fare
una statistica e il format con il numero spia che sviluppa 9 abb..
ogni numero sviluppa una formattazione diversa per questo si ricavano sempre
9 abb per ogni numero spia..
Ultima modifica:
Buona sera sig i legend ,volevo chiederLa se era possibile queste modifiche: alla ruota di arrivo ,dopo il conteggio, di visualizzare tutte le 10 ruote, solo il nr, Esempio primo estratto di bari 15 va a cadere sulla ruota di firenze ,ecco che qui dovrebbe visualizzare tutte le 10 ruote e infine se per esempio abbiamo controllato 100 estrazioni, un riepilogo totale di uscite sulle singole ruote.
La ringrazio anticipatamente di tutto quello che potra fare.
cordiali saluti
i legend
Premium Member
Ciao Zetrix , l importante che riesci a fare i tuoi calcoli , lo script di scythe è una scheggia. Va più che bene.buon lavoro
Ciao pigano , i legend va benissimo il sig non serve
Purtroppo credo di aver terminato il tempo per il mio passatempo.
Se riesco, provo ad inserire la funzione gioca.
Lo script funziona così, si parte da un numero è si va a controllare su che casella si sposta. La statistica si fa li . Non ha senso farla sulle 10 ruote. Sarebbe un altro metodo.
Quando esce il 2 su bari su quale delle 10 ruote esce? Classico esempio di numero spia.
se cerchi qui nel forum di script così ne trovi a bizzeffe. Alcuni sono gioiellini.
Se trovo il tempo faccio la statistica sul metodo originale di paki .
Magari per indice mensile e per posizione , il numero non importa è la casella che conta .
Magari così uno valuta squal è l indice mensile e la posizione migliore da utilizzare. E nel frattempo si diverte a fare le prove.ciao
.
.
Zetrix
Advanced Premium Member
Codice:
Sub Main()
'Scrivi : ColoreTesto 2 : Scrivi "Ambata contata by Scythe"
'Scrivi : ColoreTesto 0 : Scrivi
Dim ruotaa(5),ruote(5),ambata1(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste(2)
Dim ambo6(2),ambo7(2),ambo8(2),ambo9(2)
Dim n1(5)
Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2,ruota
Dim p,pp,k,R,ex,es,v1,v2,v3
Dim A(5)
Dim B(5)
Dim C(5)
Dim D(5)
Dim E(5)
Dim Z(5)
Dim Pc1(5)
Dim pc(5)
Dim npc(5)
posta(1) = 1
poste(2) = 1
'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
ex = InputBox("Quante estrazioni vuoi controllare ?",0)
'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
' R = ScegliRuota
ini = EstrazioneFin - ex
fin = EstrazioneFin
For R = 1 To 10
ruota = R
'co = 0
k = 0
For es = ini To fin
Messaggio(es)
'If IndiceMensile(es) = im Then
For p = 1 To 5
n1(p) = Estratto(es,R,p)
Next
'casi = casi + 1
'Scrivi String(90,"=") & " Caso n° " & casi,1
'co = co + 1
'Scrivi es & " " & " n° " & Format2(im) & " del " & DataEstrazione(es),True
'Scrivi String(90,"="),1
ReDim MatriceCaselleDaEvid(5,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = R ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = R ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = R ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = R ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = R ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quarto Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'Scrivi "Ruota di " & NomeRuota(ruota) & " " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),0,0,6,2'True
Scrivi
Scrivi
For x = 1 To 5
A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
B(x) =(50 -(R - 1) * 5)'numero di caselle a disposizione fino al 5° di venezia
C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
ruotaa(1) = R + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
ruotaa(1) = R - 1 + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 <> 0 Then
ruotaa(1) = R + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 = 0 Then
ruotaa(1) = R - 1 + Int(A(x)/5)
End If
End If
End If
End If
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
'aggiunto--------------------------------------------
If n1(x) < 5 Then
Pc1(x) =(n1(x) + 10) Mod 5
npc(x) = Estratto(es,ruotaa(1),Pc1(x))
End If
Pc1(x) = n1(x) Mod 5
If n1(x) Mod 5 = 0 Then
Pc1(x) = 5
End If
npc(x) = Estratto(es,ruotaa(1),Pc1(x)) ' <----- numero spia conteggiato
v1 = DiametraleD(npc(x))
v2 = Diametrale(v1)
v3 = DiametraleD(v2)
'--------------------------------------------
Z(x) = SiglaRuota(ruotaa(1)) & " " & npc(x) ' <---- mettere il numero spia conteggiato
sAmbo = sAmbo & Format2(n1(x)) & " " & SiglaRuota(ruotaa(1)) & "" & vbCrLf
ReDim aruote(11)
aruote(1) = BA_
aruote(2) = CA_
aruote(3) = FI_
aruote(4) = GE_
aruote(5) = MI_
aruote(6) = NA_
aruote(7) = PA_
aruote(8) = RO_
aruote(9) = TO_
aruote(10) = VE_
aruote(11) = NZ_
Scrivi Format2(n1(x)) & String(15," ") & "diretto a " & SiglaRuota(ruotaa(1)) & String(35," ") & " ",0,0,1,4
Scrivi
Scrivi
'Scrivi A(x) & " ",0,0,1,4
'Scrivi B(x) & " ",0,0,1,4
'Scrivi C(x) & " ",0,0,1,4
'Scrivi D(x) & " ",0,0,1,4
'Scrivi E(x) & " ",0,0,1,4
Scrivi Z(x) & " ",0,0,7,4
Scrivi
'ruotaa(2) = RuotaDiametrale(ruotaa(1))
'ruote(1) = ruotaa(1)
'ruote(2) = RuotaDiametrale(ruotaa(1))
'ruote(1) = TT_
'ruote(2) = NZ_
ambata1(1) = n1(x)
ambo1(1) = n1(x)
ambo1(2) = Fuori90(10 - npc(x))
ambo2(1) = n1(x)
ambo2(2) = Fuori90(20 - npc(x))
ambo3(1) = n1(x)
ambo3(2) = Fuori90(30 - npc(x))
ambo4(1) = n1(x)
ambo4(2) = Fuori90(40 - npc(x))
ambo5(1) = n1(x)
ambo5(2) = Fuori90(50 - npc(x))
ambo6(1) = n1(x)
ambo6(2) = Fuori90(60 - npc(x))
ambo7(1) = n1(x)
ambo7(2) = Fuori90(70 - npc(x))
ambo8(1) = n1(x)
ambo8(2) = Fuori90(80 - npc(x))
ambo9(1) = n1(x)
ambo9(2) = Fuori90(90 - npc(x))
ImpostaGiocata 1,ambata1,ruotaa,posta,k,0
Gioca es,1,,1
Scrivi
Scrivi
ImpostaGiocata 1,ambo1,aruote,poste,k,0
ImpostaGiocata 2,ambo2,aruote,poste,k,0
ImpostaGiocata 3,ambo3,aruote,poste,k,0
ImpostaGiocata 4,ambo4,aruote,poste,k,0
ImpostaGiocata 5,ambo5,aruote,poste,k,0
ImpostaGiocata 6,ambo6,aruote,poste,k,0
ImpostaGiocata 7,ambo7,aruote,poste,k,0
ImpostaGiocata 8,ambo8,aruote,poste,k,0
ImpostaGiocata 9,ambo9,aruote,poste,k,0
Gioca es,1,,1
Next
Next
'End If
Next
'Scrivi Format2(sAmbo),1,0,0,3,4,8,8
End SubZetrix
Advanced Premium Member
ciao ilegend lavoriamo con questo script che ho gia inserito tutti i format
per gli abb con l'ambata contata,
in pratica ogni numero spia sarà formattato a 10.20.30. sino a 90
adesso vedi un po se riesci a fare una statistica su tutti gli ambi che hanno
dato esito sia su ruota che a tutte e con quale format si verificano piu spesso
ho gia migliorato il listato ho messo ambo1 che corrisponde al format10
cosi ambo2 corrisponde al format20 ecc.. ecc..
vediamo un po che ci dice la statistica e quale format si abbina piu spesso
con l'ambata contata..
poi ce un altro pacchetto di abb con i diametrali ma prima vediamo questa
statistica..
buonanotte
per gli abb con l'ambata contata,
in pratica ogni numero spia sarà formattato a 10.20.30. sino a 90
adesso vedi un po se riesci a fare una statistica su tutti gli ambi che hanno
dato esito sia su ruota che a tutte e con quale format si verificano piu spesso
ho gia migliorato il listato ho messo ambo1 che corrisponde al format10
cosi ambo2 corrisponde al format20 ecc.. ecc..
vediamo un po che ci dice la statistica e quale format si abbina piu spesso
con l'ambata contata..
poi ce un altro pacchetto di abb con i diametrali ma prima vediamo questa
statistica..
buonanotte
X zetrix
scusa se insisto, ma ti confermo che hai inserito nel tuo script il codice del mio secondo, che funziona correttamente ma continua a darti il conteggio dalla prima posizione. La caduta in posizione è corretta ma la ruota è sbagliata. Se come chiedi devi contare dalla posizione di partenza bisogna inserire tutto il codice con una variazione dovuta alla posizione di partenza.
Nello script che segue ho inserito io tutto il codice ed eseguito la variazione necessaria. Controlla.
buona notte
scusa se insisto, ma ti confermo che hai inserito nel tuo script il codice del mio secondo, che funziona correttamente ma continua a darti il conteggio dalla prima posizione. La caduta in posizione è corretta ma la ruota è sbagliata. Se come chiedi devi contare dalla posizione di partenza bisogna inserire tutto il codice con una variazione dovuta alla posizione di partenza.
Nello script che segue ho inserito io tutto il codice ed eseguito la variazione necessaria. Controlla.
buona notte
Codice:
Sub Main()
Scrivi : ColoreTesto 7: Scrivi "Ambata contata by Scythe",True,,,10
Scrivi : ColoreTesto 0 : Scrivi
Dim ruotaa(5),ruote(5),ruo(5),ambata1(2),ambo1(2),posta(1),poste(2)
Dim n1(5)
Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2,ruota
Dim p,pp,k,R,ex,es
Dim A(5)
Dim B(5)
Dim C(5)
Dim D(5)
Dim E(5)
Dim Z(5)
Dim Pc1(5)
Dim pc(5)
Dim npc(5)
Dim pos(5)
Dim q(6)
Dim snc(5)
Dim nwpo(5),nsp(5),Dnsp(5),Ddnsp(5),Iso(5),DIso(5),DdIso(5),Dn1(5),Ddn1(5),Dnpc(5),Ddnpc(5)
posta(1) = 1
poste(2) = 1
'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
ex = InputBox("Quante estrazioni vuoi controllare ?",0)
'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
R = ScegliRuota
ini = EstrazioneFin - ex
fin = EstrazioneFin
ruota = R
'co = 0
k = 0
For es = ini To fin
Messaggio(es)
'If IndiceMensile(es) = im Then
For p = 1 To 5
n1(p) = Estratto(es,R,p)
pos(p) = Posizione(es,R,n1(p))
q(p) = 6 - pos(p)
nwpo(p) =(n1(p) - q(p)) Mod 5
Next
'casi = casi + 1
'Scrivi String(90,"=") & " Caso n° " & casi,1
'co = co + 1
'Scrivi es & " " & " n° " & Format2(im) & " del " & DataEstrazione(es),True
'Scrivi String(90,"="),1
ReDim MatriceCaselleDaEvid(5,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = R ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = R ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = R ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = R ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = R ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quarto Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'Scrivi "Ruota di " & NomeRuota(ruota) & " " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),0,0,6,2'True
Scrivi
Scrivi
For x = 1 To 5
A(x) = FuoriX((n1(x) - q(x)),50) 'numero da contare se n1 > 50
B(x) =(50 -(R - 1) * 5)'numero di caselle a disposizione fino al 5° di venezia
C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
ruotaa(1) = R + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
ruotaa(1) = R - 1 + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 <> 0 Then
ruotaa(1) = R + 1 + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 = 0 Then
ruotaa(1) = R + Int(A(x)/5)
End If
End If
End If
End If
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
If n1(x) Mod 5 <> 0 Then
ruotaa(x) = R + Int((n1(x)/5))
If pos(x) = 1 And nwpo(x) <> 1 Then
nwpo(x) = 1
End If
If nwpo(x) = 0 And pos(x) <> 1 Then
nwpo(x) = 5
' End If
End If
End If
If ruotaa(x) > 10 Then
ruotaa(x) = FuoriX(ruotaa(x),10)
End If
If n1(x) Mod 5 = 0 Then
ruotaa(x) =(R - 1) + Int((n1(x)/5))
nwpo(x) =(n1(x) - q(x)) Mod 5
If pos(x) = 1 Then
nwpo(x) = 1
End If
End If
If ruotaa(x) > 10 Then
ruotaa(x) = FuoriX(ruotaa(x),10)
End If
ruo(x) = ruotaa(x)
If nwpo(x) < pos(x) Then
ruo(x) = ruo(x) + 1
If Cadenza(n1(x)) = 6 Then
ruo(x) = ruotaa(x) + 1
End If
If ruo(x) > 10 Then
ruo(x) = FuoriX(ruo(x),10)
End If
If nwpo(x) < 0 Then
If n1(x) = 1 Then
nwpo(x) = pos(x)
ruo(x) = ruotaa(x)
End If
If n1(x) = 2 Then
nwpo(x) = nwpo(x) + 5
ruo(x) = ruotaa(x)
End If
If n1(x) = 3 Then
nwpo(x) = nwpo(x) + 5
ruo(x) = ruotaa(x)
End If
End If
End If
' End If
Dnsp(x) = Diametrale(nsp(x)) 'num 2 diametrale di 1
Ddnsp(x) = DiametraleD(nsp(x)) 'num 3 diametrale in decina di 1
Iso(x) = Estratto(es,ruotaa(x),pos(x)) 'num 4 isotopo dell' estratto della ruota di inizio ricerca sulla posizione di caduta e ruota sec. Paki
DIso(x) = Diametrale(Iso(x)) 'num 5 diametrale del num 4
DdIso(x) = DiametraleD(Iso(x)) 'num 6 diametrale in decina di num 4
Dn1(x) = Diametrale(n1(x)) 'num 7 diametrale dell'estratto che ha determinato la conta (= n1)
Ddn1(x) = DiametraleD(n1(x)) 'num 8 diametrale in decina dell'estratto che ha determinato la conta (= n1)
If n1(x) < 5 Then ' condizione che stabilisce la posizione di caduta per estratto se minore di 5
Pc1(x) =(n1(x) + 10) Mod 5
End If
nsp(x) = Estratto(es,ruo(x),nwpo(x)) ' sua Posizione di caduta e ruota: se npc con conta dalla prima posizione, se nsp conta dalla posizione
Pc1(x) = n1(x) Mod 5 ' Posizione se n1 > 4
If n1(x) Mod 5 = 0 And pos(x) = 1 Then
nwpo(x) = 5
'End If
nsp(x) = Estratto(es,ruo(x),nwpo(x))
Scrivi nsp(x)
Dnpc(x) = Diametrale(nsp(x))
Ddnpc(x) = DiametraleD(nsp(x))
If ruo(x) > 10 Then
ruo(x) = ruo - 10
End If
End If
'End If
' Next
'------------------------------------------
Z(x) = SiglaRuota(ruo(x)) & " " & nsp(x) ' <---- mettere il numero spia conteggiato
' sAmbo = sAmbo & Format2(n1(x)) & " " & SiglaRuota(ruo(x)) & "" & vbCrLf
Scrivi Format2(n1(x)) & String(15," ") & "diretto a " & SiglaRuota(ruo(x)) & " in " & nwpo(x) & "^ posizione" & String(35," ") & " ",0,0,1,4
Scrivi
Scrivi
Scrivi A(x) & " ",0,0,1,4
Scrivi B(x) & " ",0,0,1,4
Scrivi C(x) & " ",0,0,1,4
Scrivi D(x) & " ",0,0,1,4
Scrivi E(x) & " ",0,0,1,4
Scrivi Z(x) & " ",0,0,7,4
Scrivi
'ruotaa(2) = RuotaDiametrale(ruotaa(1))
'ruote(1) = ruotaa(1)
'ruote(2) = RuotaDiametrale(ruotaa(1))
'End If
' Next
ruote(1) = TT_
ruote(2) = NZ_
ambata1(1) = nsp(x)
ambo1(1) = Vert(n1(x))
ambo1(2) = Diametrale(n1(x))
ImpostaGiocata 1,ambata1,ruo,posta,k,1
' Gioca es,1,,1
Scrivi
Scrivi
ImpostaGiocata 2,ambo1,ruote,poste,k,2
Gioca es,1,,1
Next
' End If
Next
Scrivi Format2(sAmbo),1,0,0,3,4,8,8
ScriviResoconto
End Sub
Ultima modifica:
Zetrix
Advanced Premium Member
24 -----> diretto a MI
MI 8
Numeri in gioco : 24 su MI per Estratto
In corso
buona befana a tutti
scusa scythe ma lo script per me va bene cosi perche conteggia il 1 numero estratto
sempre dalla 1 pos
se conteggiamo sino a 24 l'ultimo numero conteggiato e l'8 su milano (numero spia)
il 2 numero estratto si dovrebbe conteggiare sempre dalla 1 pos almeno cosi
a scritto paki144..
e vero che avevo scritto se si poteva fare un altro conteggio dei numeri estratti
ma adesso vediamo questa e con quali abb si abbina piu spesso l'ambata contata
ma dovrebbe fare ilegend il report della statistica di tutti gli abb che ho scritto
nello script cosi vediamo se possiamo migliorare la seconda parte per fare ambo
poi se non ci soddisfa questa statistica possiamo fare un altra statistica con i diametrali
e altri abb che adesso non li scrivo ma ce ne sono altri abb ci sono anche i diametrali
trasposti ecc.ecc..
Ultima modifica:
Zetrix
Advanced Premium Member
x ilegend se puoi inserire nella statistica anche l ambata su ruota così vediamo i tempi di sfaldamento che a quanto ho visto superano anche le 10 est di gioco..
ma a noi interessa sapere quale è la media di gioco per ambata così da scegliere le ambate più favorite..
ma a noi interessa sapere quale è la media di gioco per ambata così da scegliere le ambate più favorite..
i legend
Premium Member
Ciao Zetrix, come avevo detto ieri, oggi lo passo in famiglia, visto che anche la mia compagna non lavora e da domani riprendo a lavorare, e il lavoro che faccio è molto pesante e non mi lascia voglia ed energie per dedicarmi agli script.
Forse non hai letto il messaggio che avevo scritto ieri.
Ciao.
Forse non hai letto il messaggio che avevo scritto ieri.
Ciao.
Capisco il Suo punto di riflessione e credevo che almeno una statistica totale di quante volte abbia centrato la casella, questo sarebbe utile per una statistica.
Ciao Zetrix , l importante che riesci a fare i tuoi calcoli , lo script di scythe è una scheggia. Va più che bene.buon lavoro
Ciao pigano , i legend va benissimo il sig non serve
Purtroppo credo di aver terminato il tempo per il mio passatempo.
Se riesco, provo ad inserire la funzione gioca.
Lo script funziona così, si parte da un numero è si va a controllare su che casella si sposta. La statistica si fa li . Non ha senso farla sulle 10 ruote. Sarebbe un altro metodo.
Quando esce il 2 su bari su quale delle 10 ruote esce? Classico esempio di numero spia.
se cerchi qui nel forum di script così ne trovi a bizzeffe. Alcuni sono gioiellini.
Se trovo il tempo faccio la statistica sul metodo originale di paki .
Magari per indice mensile e per posizione , il numero non importa è la casella che conta .
Magari così uno valuta squal è l indice mensile e la posizione migliore da utilizzare. E nel frattempo si diverte a fare le prove.ciao
.
.
La ringrazio per la risposta
ciao
i legend
Premium Member
i legend
Premium Member
ciao ecco la modifica con la statistica per posizione. controllare che i risultati siano esatti. non ne garantisco la correttezza .
Codice:
Option Explicit
' controllare che lo script dia risultati esatti, non se ne garantisce il funzionamento
' script richiesto dall utente Paki su lotto ced forum area downLoad
Sub Main
Dim R
Dim PosIni
Dim aR,aP
Dim IdCol,NewIdCol
Dim IdEstr,EstrIni,EstrFin,nCasi
Dim E,P,nColpi
Dim aStat(5) ' Nuova Riga
nColpi = 9
R = ScegliRuota
If R = 0 Or R = 11 Then Exit Sub ' controllo inserimento dati
PosIni = eval(InputBox(" 1=conta sempre dal 1° estratto" & vbCrLf & " 2=conta dalla posizione di rilevamento","Scegli posizione da cui iniziare a contare",1))
If Not IsNumeric(PosIni) Or(PosIni < 1 Or PosIni > 2) Then Exit Sub ' controllo inserimento dati
If Not ScegliRange(EstrIni,EstrFin,EstrazioneFin - 199,EstrazioneFin) Then Scrivi "Ciao":Exit Sub
Call ResetTimer
Call GetArrayRuPos(aR,aP) ' carico array ruote e pos in base alla colonna
nCasi = 0
If PosIni = 1 Then
IdCol =(R*5) -(4)
For IdEstr = EstrIni To EstrFin
nCasi = nCasi + 1
Call GetTitTab(IdEstr,R)
For P = 1 To 5
E = Estratto(IdEstr,R,P)
NewIdCol = FuoriX((IdCol - 1) + E,50)
Call GetTab(IdEstr,aR,aP,E,P,NewIdCol,nColpi,PosIni,aStat) ' agginto aStat
Next ' fine ciclo posizioni
Scrivi String(52,"-")
Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
Next ' fine ciclo idestr
ElseIf PosIni = 2 Then
For IdEstr = EstrIni To EstrFin
nCasi = nCasi + 1
Call GetTitTab(IdEstr,R)
For P = 1 To 5
IdCol =(R*5) -(5 - P) ' calcolo colonna posizione iniziale
E = Estratto(IdEstr,R,P)
NewIdCol = FuoriX((IdCol - 1) + E,50)' calcolo nuova colonna
Call GetTab(IdEstr,aR,aP,E,P,NewIdCol,nColpi,P,aStat) ' aggiunto aStat
Next ' fine ciclo posizioni
Scrivi String(52,"-")
Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
Next ' fine ciclo idestr
End If
Scrivi "Elaborazione in :" & TempoTrascorso
Scrivi "Colpi di Verifica: "&nColpi&Space(6),1,,RGB(47,47,47),RGB(183,238,242)
Scrivi "Pos | " & "CsCop su :" & FormatSpace(nCasi,5,1) & " | % Pos ",1,,RGB(47,47,47),RGB(183,238,242)
For P = 1 To 5
Scrivi P & " | " & FormatSpace(aStat(P),15,1) & " | " & Round((aStat(P)/nCasi)*100,2) & "%"
Next
End Sub
Sub GetArrayRuPos(aR,aP)
aR = Array(0,1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,5,5,6,6,6,6,6,7,7,7,7,7,8,8,8,8,8,9,9,9,9,9,10,10,10,10,10)
aP = Array(0,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)
End Sub
Sub GetTitTab(IdEstr,IniRu)
Scrivi " Conc: " & GetInfoEstrazione(IdEstr) & "| " & SiglaRuota(IniRu) & " " & StringaEstratti(IdEstr,IniRu) & " ",1,,RGB(47,47,47),RGB(183,238,242)
Scrivi "|Pin| E | nRu | Esito |nColpo| Estrazione |",1,,RGB(47,47,47),vbGreen
End Sub
Sub GetTab(idestr,aR,aP,E,P,IdCol,nColpi,PosIni,aStat)
Dim nClp,Esi,Colp,Estrazione
Dim aN(1):aN(1) = E
Dim aRuVer(1):aRuVer(1) = aR(IdCol)
Call VerificaEsitoTurbo(aN,aRuVer,idestr + 1,1,nColpi,,Esi,Colp,Estrazione)
If Esi = "Estratto" Then
aStat(P) = aStat(P) + 1 ' agginto else
Else
If Colp < nColpi Then Esi = "In Corso" :Else Esi = "Negativo"
End If
Scrivi " " & PosIni & " |" & FormatSpace(E,2) & " (" & aP(IdCol) & SiglaRuota(aRuVer(1)) & ") " & FormatSpace(Esi,9) & " " & FormatSpace(Colp,2) & " | " & FormatSpace(Estrazione,17) & " | "
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
