imported_n/a
Advanced Premium Member
cebino sei da ramco, non ti leggo mai !!!!
si si grazie adesso e' ok luigi e genlotto!!!
sperem semper sperem!!
si si grazie adesso e' ok luigi e genlotto!!!
sperem semper sperem!!
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.
- Stato
imported_n/a
Advanced Premium Member
queste sono le ambate di determinate di lottosenior!!
Sub main()
Dim ab(5),ruota(1),posd(10)
For es = EstrazioneFin - 3 To EstrazioneFin
Messaggio es
For r1 = 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
If Primo(a) Then
x1 = Estratto(es,r1,1)
x2 = Estratto(es,r1,2)
x3 = Estratto(es,r1,3)
x4 = Estratto(es,r1,4)
x5 = Estratto(es,r1,5)
cont = cont + 1
Scrivi
ColoreTesto 2
Scrivi String(23,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(es,1) + "" & Space(3) & "[" &(es) & "]ª" & Space(4) & _
"" & Left(NomeRuota(r1),3) + "" & Space(2) & _
"" + StringaEstratti(es,r1) + "" & Space(5) & _
"" & Format2(a) & "" & Space(6) & "" & p & "°"
ruota(1) = r1
posd(p + 5) = 1
ab(1) = Fuori90(a + x1)
ab(2) = Fuori90(a + x2)
ab(3) = Fuori90(a + x3)
ab(4) = Fuori90(a + x4)
ab(5) = Fuori90(a + x5)
colpi = 6
att = 3 ' < - - colpi e attesa
ImpostaGiocata 1,ab,ruota,posd,colpi,1,att
Gioca es
Erase posd
Scrivi String(61,151)
End If ' If Primo(a) Then ...
Next
Next
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi "•damper•",1
End Sub
sperem semper sperem!!
Sub main()
Dim ab(5),ruota(1),posd(10)
For es = EstrazioneFin - 3 To EstrazioneFin
Messaggio es
For r1 = 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
If Primo(a) Then
x1 = Estratto(es,r1,1)
x2 = Estratto(es,r1,2)
x3 = Estratto(es,r1,3)
x4 = Estratto(es,r1,4)
x5 = Estratto(es,r1,5)
cont = cont + 1
Scrivi
ColoreTesto 2
Scrivi String(23,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(es,1) + "" & Space(3) & "[" &(es) & "]ª" & Space(4) & _
"" & Left(NomeRuota(r1),3) + "" & Space(2) & _
"" + StringaEstratti(es,r1) + "" & Space(5) & _
"" & Format2(a) & "" & Space(6) & "" & p & "°"
ruota(1) = r1
posd(p + 5) = 1
ab(1) = Fuori90(a + x1)
ab(2) = Fuori90(a + x2)
ab(3) = Fuori90(a + x3)
ab(4) = Fuori90(a + x4)
ab(5) = Fuori90(a + x5)
colpi = 6
att = 3 ' < - - colpi e attesa
ImpostaGiocata 1,ab,ruota,posd,colpi,1,att
Gioca es
Erase posd
Scrivi String(61,151)
End If ' If Primo(a) Then ...
Next
Next
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi "•damper•",1
End Sub
sperem semper sperem!!
imported_n/a
Advanced Premium Member
ma e' ancora da modificare il listato,perche' non tiene conto che deve esserci un slo numero primo sulla ruota e quando passi da ramco dacci un saluto!!! ciao
sperem semper sperem!!
sperem semper sperem!!
imported_n/a
Advanced Premium Member
ciao si lo faro immediatamente.
Il listato di cui sopra mi piace molto pero non capisco il resoconto
Non mi torna il totale
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 425 |
| Casi vincenti : 42 |
| Percentuale pos. : 9,88 % |
| Giocate in corso : 68 |
| Giocate terminate : 357 |
| Bollette giocate : 838 |
| Bollette vincenti : 42 |
| Attesa media : 2 |
| Spesa : 838,00 € |
| Vincita : 2.119,70 € |
| Guadagno : 1.281,70 € |
| Perc. Rendimento : 152,947 % |
| Estratto su ruota : 51 |
| Ambo su ruota : 9 |
+---------------------------------------+
in questo caso ho avuto un utile di 1281 € ma ho giocato 838 bollette da 5 numeri per la sorte del numero determinato. I conti non tornano. Ho speso 838 € ma secondo la spesa e molto di piu
Mi fai vedere il tuo resoconto con Lottodesk ho calcolato 30 estrazioni di esame
ciao e grazie
L
LuigiB
Guest
Io non ho capito di che listato parlate pero per verificare il risultato
piu facilmente potreste fare la chiamata alla funzione ScriviResconto invece che alla fine del ciclo che analizza le estrazioni , al suo interno.
In questo modo ad ogni giocata verra mostrato il resoconto progressivo e si possono seguire meglio i calcoli.
Qualora ci fosse qualche errore ovviamente segnalatemelo ..
Ciao
piu facilmente potreste fare la chiamata alla funzione ScriviResconto invece che alla fine del ciclo che analizza le estrazioni , al suo interno.
In questo modo ad ogni giocata verra mostrato il resoconto progressivo e si possono seguire meglio i calcoli.
Qualora ci fosse qualche errore ovviamente segnalatemelo ..
Ciao
imported_n/a
Advanced Premium Member
Luigi parliamo del listato appena di "lottosenior" sopra
se tu lo controlli vedrai che va sempre in positivo pero il resoconto non mi convince anche perche come dicevo non si ferma alla primna vincita "determinata o no" ma continua non capisco per quanti colpi, e oltre tutto non so se li calcola nel bilancia finale
Secondo me non calcola bene la posta di 55 € appunto l'estratgto determinato
imported_n/a
Advanced Premium Member
fai una cosa metti indietro di 5 estrazioni
For es = EstrazioneFin - 5 To EstrazioneFin
questo e il risultato
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 84 |
| Casi vincenti : 2 |
| Percentuale pos. : 2,38 % |
| Giocate in corso : 84 |
| Giocate terminate : 0 |
| Bollette giocate : 44 |
| Bollette vincenti : 3 |
| Attesa media : 1 |
| Spesa : 44,00 € |
| Vincita : 155,10 € |
| Guadagno : 111,10 € |
| Perc. Rendimento : 252,5 % |
| Estratto su ruota : 3 |
+---------------------------------------+
Dimmi tu se e corretto
ovviamente aggiorna l'estrazione di questa sera
For es = EstrazioneFin - 5 To EstrazioneFin
questo e il risultato
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 84 |
| Casi vincenti : 2 |
| Percentuale pos. : 2,38 % |
| Giocate in corso : 84 |
| Giocate terminate : 0 |
| Bollette giocate : 44 |
| Bollette vincenti : 3 |
| Attesa media : 1 |
| Spesa : 44,00 € |
| Vincita : 155,10 € |
| Guadagno : 111,10 € |
| Perc. Rendimento : 252,5 % |
| Estratto su ruota : 3 |
+---------------------------------------+
Dimmi tu se e corretto
ovviamente aggiorna l'estrazione di questa sera
A me viene così
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 84 |
| Casi vincenti : 4 |
| Percentuale pos. : 4,76 % |
| Giocate in corso : 13 |
| Giocate terminate : 71 |
| Bollette giocate : 71 |
| Bollette vincenti : 4 |
| Attesa media : 1 |
| Spesa : 71,00 € |
| Vincita : 206,80 € |
| Guadagno : 135,80 € |
| Perc. Rendimento : 191,268 % |
| Estratto su ruota : 4 |
+---------------------------------------+
Praticamente gioca 1 euro a schedina(spesa 71) sono 5 numeri ma paga come fosse estratto determinato unico ovvero paga 51 euro ...
Magariiiii ... bisogna dividere la vincita per 5 in questo caso la vincità sarebbe sui 41 euro è un metodo che pare sempre vincente invece è sempre perdente se qualcuno sa come mettere a posto lo script grazie senno pazienza.Io ci sto provando ma Resoconto non so come si cambia.
ciao
J.M
noi vogliamo il mondo e lo vogliamo ora
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 84 |
| Casi vincenti : 4 |
| Percentuale pos. : 4,76 % |
| Giocate in corso : 13 |
| Giocate terminate : 71 |
| Bollette giocate : 71 |
| Bollette vincenti : 4 |
| Attesa media : 1 |
| Spesa : 71,00 € |
| Vincita : 206,80 € |
| Guadagno : 135,80 € |
| Perc. Rendimento : 191,268 % |
| Estratto su ruota : 4 |
+---------------------------------------+
Praticamente gioca 1 euro a schedina(spesa 71) sono 5 numeri ma paga come fosse estratto determinato unico ovvero paga 51 euro ...
Magariiiii ... bisogna dividere la vincita per 5 in questo caso la vincità sarebbe sui 41 euro è un metodo che pare sempre vincente invece è sempre perdente se qualcuno sa come mettere a posto lo script grazie senno pazienza.Io ci sto provando ma Resoconto non so come si cambia.
ciao
J.M
noi vogliamo il mondo e lo vogliamo ora
L
LuigiB
Guest
Eh sul resoconto devo intervenire io , grazie di avermi segnalato l'errore sia a te che a Cebino.
Perfetto il listato è nella 1 parte del post.
Non so da voi ma qua si bolle, se tolgo il ventilatore dal pc si spegne per temperatura troppo alta.
Un altra cosa Luigi a me le statistiche non funzionano statistica su estratto per esempio globalmente dà risultati tutti uguali e a ruota non dà nulla .. non so se è solo un mio problema ho l'ultima version
J.M
noi vogliamo il mondo e lo vogliamo ora
Non so da voi ma qua si bolle, se tolgo il ventilatore dal pc si spegne per temperatura troppo alta.
Un altra cosa Luigi a me le statistiche non funzionano statistica su estratto per esempio globalmente dà risultati tutti uguali e a ruota non dà nulla .. non so se è solo un mio problema ho l'ultima version
J.M
noi vogliamo il mondo e lo vogliamo ora
Posto questo semplice script fatto con l'autocomposizione, è una semplice somma che mi sembra dia buoni risultati su TO può andare bene per fare convergenze.
Cambiate il -100 in 300 400 ecc .. per andare indietro nel tempo i colpi sono messi a 3 provatene altri ..
-------------------------
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste(10) ' contiene le poste per ciascuna sorte giocata
Dim vetNumAmbo(2)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente gli ambi trovati
Dim clsFg ' Classe per enumerare la collection
' Imposto i limiti del range di analisi
Inizio =(EstrazioniArchivio - 100) + 1 'Cambia per il Tempo
Fine = EstrazioniArchivio
' Imposto le ruote in gioco
Call ImpostaRuote(Ruote)
' Imposto le poste in gioco
Call ImpostaPoste(Poste)
' Calcolo estrazioni da fare
nDaFare = Fine -(Inizio - 1)
' Blocco analisi estrazioni
For idEstr = Inizio To Fine
' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze
' - - - - - - INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetAmbiDistanzaX(idEstr,CollFigTrovate,32) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraCiclo(clsFg,aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata(idGiocata,aNumeriFig,Ruote,Poste,3) ' gioca la combinazione per 3 colpi
Next
Call Gioca(idEstr,True)
End If
' - - - - - - FINE CODICE RILEVAMENTO CONDIZIONE
' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0,nDaFare,nFatte)
' Gestione messaggio
Call Messaggio("Estrazioni elaborate : " & nFatte)
' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto
End Sub
Sub ImpostaRuote(vetR) ' imposta la ruote in gioco
vetR(1) = 9
End Sub
Sub ImpostaPoste(vetP) ' imposta le poste in gioco
vetP(2) = 1
End Sub
-------------------------------------------------------
resoconto 100 estrazioni
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 87 |
| Casi vincenti : 5 |
| Percentuale pos. : 5,75 % |
| Giocate in corso : 9 |
| Giocate terminate : 232 |
| Bollette giocate : 703 |
| Bollette vincenti : 5 |
| Attesa media : 2 |
| Spesa : 703,00 € |
| Vincita : 1.175,00 € |
| Guadagno : 472,00 € |
| Perc. Rendimento : 67,141 % |
| Estratto su ruota : 10 |
| Ambo su ruota : 5 |
+---------------------------------------+
resoconto 500 estrazioni
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 457 |
| Casi vincenti : 18 |
| Percentuale pos. : 3,94 % |
| Giocate in corso : 9 |
| Giocate terminate : 1.230 |
| Bollette giocate : 3.697 |
| Bollette vincenti : 18 |
| Attesa media : 2 |
| Spesa : 3.697,00
Cambiate il -100 in 300 400 ecc .. per andare indietro nel tempo i colpi sono messi a 3 provatene altri ..
-------------------------
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste(10) ' contiene le poste per ciascuna sorte giocata
Dim vetNumAmbo(2)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente gli ambi trovati
Dim clsFg ' Classe per enumerare la collection
' Imposto i limiti del range di analisi
Inizio =(EstrazioniArchivio - 100) + 1 'Cambia per il Tempo
Fine = EstrazioniArchivio
' Imposto le ruote in gioco
Call ImpostaRuote(Ruote)
' Imposto le poste in gioco
Call ImpostaPoste(Poste)
' Calcolo estrazioni da fare
nDaFare = Fine -(Inizio - 1)
' Blocco analisi estrazioni
For idEstr = Inizio To Fine
' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze
' - - - - - - INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetAmbiDistanzaX(idEstr,CollFigTrovate,32) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraCiclo(clsFg,aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata(idGiocata,aNumeriFig,Ruote,Poste,3) ' gioca la combinazione per 3 colpi
Next
Call Gioca(idEstr,True)
End If
' - - - - - - FINE CODICE RILEVAMENTO CONDIZIONE
' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0,nDaFare,nFatte)
' Gestione messaggio
Call Messaggio("Estrazioni elaborate : " & nFatte)
' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto
End Sub
Sub ImpostaRuote(vetR) ' imposta la ruote in gioco
vetR(1) = 9
End Sub
Sub ImpostaPoste(vetP) ' imposta le poste in gioco
vetP(2) = 1
End Sub
-------------------------------------------------------
resoconto 100 estrazioni
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 87 |
| Casi vincenti : 5 |
| Percentuale pos. : 5,75 % |
| Giocate in corso : 9 |
| Giocate terminate : 232 |
| Bollette giocate : 703 |
| Bollette vincenti : 5 |
| Attesa media : 2 |
| Spesa : 703,00 € |
| Vincita : 1.175,00 € |
| Guadagno : 472,00 € |
| Perc. Rendimento : 67,141 % |
| Estratto su ruota : 10 |
| Ambo su ruota : 5 |
+---------------------------------------+
resoconto 500 estrazioni
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 457 |
| Casi vincenti : 18 |
| Percentuale pos. : 3,94 % |
| Giocate in corso : 9 |
| Giocate terminate : 1.230 |
| Bollette giocate : 3.697 |
| Bollette vincenti : 18 |
| Attesa media : 2 |
| Spesa : 3.697,00
imported_n/a
Advanced Premium Member
Luigi o chi puo cortesemnte mi dici come hai cambiato il listato e il resoconto se puoi riscriverlo grazie
Ovviamente mi riferisco a quelli dei numeri Dtereminati
imported_n/a
Advanced Premium Member
ok capo
Domanda: ma Lottodesk va pure in negativo ???
Listato per medodo di beppe60
Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(2)
posta(1) = 0 '<--- posta per estratto
posta(2) = 1 '<--- posta per ambo
ruote(2) = 4 ' Ruota di verifica esito
k = 3 '<--- Colpi di gioco
For n = 7537 To EstrazioneFin '<---- Numero estrazzioni
If IndiceMensile
= 7 Then '<---- Estrazione mensile 7
numeri1(1) = Fuori90(Estratto(n,6,1) + 73)
numeri1(2) = Fuori90(Estratto(n,5,3) *43)
ImpostaGiocata 1,numeri1,ruote,posta,k,2
numeri1(1) = Fuori90(Estratto(n,6,1) + 72)
numeri1(2) = Fuori90(Estratto(n,8,1) + 80)
ImpostaGiocata 2,numeri1,ruote,posta,k,2
numeri1(1) = Fuori90(Estratto(n,6,1) + 23)
numeri1(2) = Fuori90(Estratto(n,7,1) + 81)
ImpostaGiocata 3,numeri1,ruote,posta,k,2
ImpostaInterruzioni 1,2,1
Gioca n ' se si vogliono vedere solo i casi positivi mettere n,-1
End If
Next
ScriviResoconto
End Sub
Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(2)
posta(1) = 0 '<--- posta per estratto
posta(2) = 1 '<--- posta per ambo
ruote(2) = 4 ' Ruota di verifica esito
k = 3 '<--- Colpi di gioco
For n = 7537 To EstrazioneFin '<---- Numero estrazzioni
If IndiceMensile
= 7 Then '<---- Estrazione mensile 7numeri1(1) = Fuori90(Estratto(n,6,1) + 73)
numeri1(2) = Fuori90(Estratto(n,5,3) *43)
ImpostaGiocata 1,numeri1,ruote,posta,k,2
numeri1(1) = Fuori90(Estratto(n,6,1) + 72)
numeri1(2) = Fuori90(Estratto(n,8,1) + 80)
ImpostaGiocata 2,numeri1,ruote,posta,k,2
numeri1(1) = Fuori90(Estratto(n,6,1) + 23)
numeri1(2) = Fuori90(Estratto(n,7,1) + 81)
ImpostaGiocata 3,numeri1,ruote,posta,k,2
ImpostaInterruzioni 1,2,1
Gioca n ' se si vogliono vedere solo i casi positivi mettere n,-1
End If
Next
ScriviResoconto
End Sub
Grazie a te! Il metodo sembra buono, sono i primi script che faccio grazie al mago LuigiB e anche se non vinco almeno mi diverto e imparo qualcosa tanto sono a casa in cassaintegrazione 
e poi verrà il licenziamento [xx(]. Se hai altri medoti dimmelo che provo a fare gli script.
Ciao
Per scoglio2 cambia i colpi, le ruote, ecc è il bello degli script
e poi verrà il licenziamento [xx(]. Se hai altri medoti dimmelo che provo a fare gli script.
Ciao
Per scoglio2 cambia i colpi, le ruote, ecc è il bello degli script
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 24 dicembre 2024Bari2650165861Cagliari7243487990Firenze1014247689Genova1786391548Milano6984067860Napoli1259691177Palermo6344572116Roma5583076766Torino3159437606Venezia0284105088Nazionale6388552922Estrazione Simbolotto
Venezia
4423063010
