Vecchi metodi e vecchi script by BaffoBlù
- Creatore Discussione BaffoBlù
- Data di inizio
BaffoBlù
Advanced Member >PLATINUM<
wuagliò, ma quale copia e incolla...Vedo che di copia incolla, vai spedito...
mi fa piacere.....
se uno una cosa la capita, la capita!
ok, me lo hai spiegato tu...
adesso non posso più nemmeno mettere script?
piuttosto rispondi in sezione download dove sta lo stesso script...
così mi insegni un altra cosa...
vabbè, ora mi dirai che nun se po' fà...
BaffoBlù
Advanced Member >PLATINUM<
Perché mi getti sopra discredito?Vedo che di copia incolla, vai spedito...
mi fa piacere.....
LO SCRIPT è FRUTTO DEL MIO SACCO DALLA PRIMA ALL'ULTIMA RIGA
ti avevo chiesto solo del VeriìficaEsito che già conoscevo
e tu mi hai fatto conoscere VerificaEsiti.
mi toccherà non usare più quelle 3 righe???
Che San LuigiB ti fulmini...
San LuigiB ci ha lasciato una valanga di funzioni che non usate, è dall'help che bisogna partire.
Ci sono strumenti per fare di tutto, anche gli "oggetti"
Bisogna solo ampliare la conoscenza della lingua.
ciao
BaffoBlù
Advanced Member >PLATINUM<
di sicuro in Arabo e Aramaico sono più ferrato io.
ci vuole molto tempo per padroneggiare una lingua come hai fatto tu
o come ho fatto io nel mio caso...
In mancanza di Luigi, in fatto di script, sei tu lo spietato "Bacchettatore"...
Non posso assolutamente essere messo alla pari di Luigi, tra lui e me e come "tra me e Monsignore".di sicuro in Arabo e Aramaico sono più ferrato io.
ci vuole molto tempo per padroneggiare una lingua come hai fatto tu
o come ho fatto io nel mio caso...
In mancanza di Luigi, in fatto di script, sei tu lo spietato "Bacchettatore"...
Poi c'è una differenza sostanziale lui perdona... io no
.... scherzo 
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Claudio
Se fosse come dici tu che per imparare basta solo guardare negli aiuti non ci sarebbe bisogno di maestri di professori, esempio basta leggere delle ricette di cucina e saremmo tutti cuochi, a che servono i professori alle medie, diamo ai ragazzi i libri e se vogliono imparare gli bastano i libri ed il discorso vale anche per i bimbi delle elementari, e per qualunque altro mestiere o professione.
Se quando ho iniziato a chiedere aiuti qui, Luigi, Joe, Mike58, Enplein ecc... mi avessero risposto guarda negli aiuti invece di aiutarmi adesso non saprei proprio niente.
Ultima modifica:
Salvo, non mi mettere parole in bocca che non ho detto
,Non ho detto che non servono i professori, i maestri ecc , ho detto che per migliorare negli script bisogna conoscere le parole ( le funzioni), è un po come se una persona che volendo ampliare il proprio lessico, va a cercarsi i vocaboli nel vocabolario.
BaffoBlù
Advanced Member >PLATINUM<
vi vedo tutti dormienti (forse è solo impressione...)
su, su, eccovi il caffè
ma che dico?
eccovi l'AmmazzaCaffè !
Le 2 immagini vi chiariranno tutto
(bisogna avere ì premi aggiornati...per gustarselo...)
Giocando con queste poste:
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €
-------------------------------------------------
*********************************
Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €
--------------------------------------------------
lo script contiene un mix di superalcoolici
gli astemi stiano alla larga...
su, su, eccovi il caffè
ma che dico?
eccovi l'AmmazzaCaffè !
Le 2 immagini vi chiariranno tutto
(bisogna avere ì premi aggiornati...per gustarselo...)
Giocando con queste poste:
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €
-------------------------------------------------
*********************************
Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €
--------------------------------------------------
lo script contiene un mix di superalcoolici
gli astemi stiano alla larga...
Codice:
Option Explicit
Sub Main()
Dim ruote(1),n1(5),n2(5),n3(5),n4(5)
Dim c1(5),c2(5),c3(5),s1(6),s2(6)
Dim posta(10),poste(10)
Dim a,b,x,x1,P1,P2
Dim ww,fin,Ini,es,r,casi,co
Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
ww = 9
ruote(1) = r
Ini = 1
fin = EstrazioneFin
co = 0
ResetTimer
For es = Ini To fin
Messaggio "Hai solo il tempo di un caffè, Preparo l'AmmazzaCaffé [" &(es) & "] " & DataEstrazione(es)
Call AvanzamentoElab(Ini,fin,es)
For r = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
a = Estratto(es,r,P1)
b = Estratto(es,r,P2)
If(a = 15 And b = 76) Or(a = 76 And b = 15) Then
x = a + b
x1 = Fuori90(a + b)
z1 = DiametraleD(x1)
z2 = Fuori90(z1 + x1)
z3 = ComplAdX(x1)
z4 = DiametraleD(z3)
z5 = Fuori90(z1 + z2)
z6 = Fuori90(z5 * 2)
z7 = Differenza(z4,z1)
z8 = Fuori90(z7 + x1)
z9 = Fuori90(z2 * z2)
z10 = Fuori90(z9 + z1)
z11 = ComplAdX(z10)
z12 = Differenza(z7,z11)
n1(1) = x1
n1(2) = z1
n1(3) = z10
n1(4) = z8
n1(5) = z4
n2(1) = x1
n2(2) = z1
n2(3) = z2
n2(4) = z6
n2(5) = z12
n3(1) = x1
n3(2) = z2
n3(3) = z6
n3(4) = z7
n3(5) = z4
n4(1) = x1
n4(2) = z10
n4(3) = z12
n4(4) = z7
n4(5) = z3
c1(1) = x1
c1(2) = z6
c1(3) = z10
c1(4) = z7
c1(5) = z4
c2(1) = z6
c2(2) = z10
c2(3) = z7
c2(4) = z8
c2(5) = z3
c3(1) = z2
c3(2) = z10
c3(3) = z8
c3(4) = z4
c3(5) = z3
s1(1) = x1
s1(2) = z2
s1(3) = z12
s1(4) = z10
s1(5) = z8
s1(6) = z3
s2(1) = z2
s2(2) = z12
s2(3) = z7
s2(4) = z8
s2(5) = z4
s2(6) = z3
ruote(1) = r
co = co + 1
casi = casi + 1
Scrivi String(120,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] ",1,,,1,2
Scrivi "Ambo Spia Blù : " & Format2(a) & "." & Format2(b) & " in " & P1 & "° e in " & P2 & "° Posizione ",1,,,,2
Scrivi "Somma : " & Format2(a) & "+" & Format2(b) & " = " & Format2(x) & " - " & " 90 " & " = " & Format2(x1),,,,7,2
Scrivi "CHIAVE MAGICA di BaffoBlù : [" & Format2(x1) & "] ",1,,1,4,2
Scrivi "-----------------------------------------------------------------"
ImpostaGiocata 1,c1,ruote,posta,ww',2 ' Togli remmature se vuoi fermarti al primo esito raggiunto...
ImpostaGiocata 2,c2,ruote,posta,ww',2
ImpostaGiocata 3,c3,ruote,posta,ww',2
ImpostaGiocata 4,s1,ruote,posta,ww',2
ImpostaGiocata 5,s2,ruote,posta,ww',2
ImpostaGiocata 6,n1,ruote,poste,ww',3
ImpostaGiocata 7,n2,ruote,poste,ww',3
ImpostaGiocata 8,n3,ruote,poste,ww',3
ImpostaGiocata 9,n4,ruote,poste,ww',3
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" * * * L'AmmazzaCaffé *** Idea e Script by BaffoBlù *** "),1,3,0
ScriviResoconto,True
Scrivi " Tempo elaborazione " & TempoTrascorso
End Sub
Marco-elle
Advanced Member >PLATINUM PLUS<
Previsione mensile......
Codice:
Option Explicit
Sub Main()
ColoreTesto 2
Scrivi " PREVISIONE MENSILE VINCOLATA ALLA FIGURA DEL 1° ESTRATTO DELLA NZ "
Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
Scrivi " METODO STATISTICO BY Marco"
ColoreTesto 0
Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5)
posta(2) = 1
posta(3) = 1
clp = 15
Ini = EstrazioneIni + 7430
fin = EstrazioneFin
co = 0
For es = Ini To fin
For r = 12 To 12
a = Estratto(es,r,1)
Messaggio es
Call AvanzamentoElab(Ini,fin,es)
ok = 0
If IndiceMensile(es) = 1 And Figura(a) = 1 Then
n(1) = 9
n(2) = 11
n(3) = 25
n(4) = 41
n(5) = 56
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 2 Then
n(1) = 3
n(2) = 31
n(3) = 36
n(4) = 65
n(5) = 80
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 3 Then
n(1) = 8
n(2) = 15
n(3) = 54
n(4) = 75
n(5) = 82
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 4 Then
n(1) = 2
n(2) = 20
n(3) = 59
n(4) = 67
n(5) = 81
ruota(1) = 3
ruota(2) = 6
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 5 Then
n(1) = 11
n(2) = 27
n(3) = 68
n(4) = 70
n(5) = 82
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 6 Then
n(1) = 3
n(2) = 6
n(3) = 23
n(4) = 60
n(5) = 89
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 7 Then
n(1) = 8
n(2) = 20
n(3) = 45
n(4) = 46
n(5) = 52
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 8 Then
n(1) = 10
n(2) = 14
n(3) = 17
n(4) = 19
n(5) = 51
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If IndiceMensile(es) = 1 And Figura(a) = 9 Then
n(1) = 2
n(2) = 13
n(3) = 16
n(4) = 40
n(5) = 71
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
ImpostaGiocata 1,n,ruota,posta,clp
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"*") & " Caso n°" & co,1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
ColoreTesto 0
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub
Oberdan
Member
Ciao Marco,
credo che ci sia qualcosa che non va. Questo è l'output che ottengo facendo girare lo script...
Codice:
PREVISIONE MENSILE VINCOLATA ALLA CADENZA DEL 1° ESTRATTO DELLA NZ
USCITO ALLA 1° ESTRAZIONE DEL MESE
METODO STATISTICO BY Marco
+----------------------------------------+
| Prima Giocata : 0 |
| Ultima Giocata : 0 |
| Range : 1 |
| Casi giocab perc. : % |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 0 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 0 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 0 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 0 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 0 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 0 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 0 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 0 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 0 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 0 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 0 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 0,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 0,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 0,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 0 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 0,00 € |
| |
+----------------------------------------+Buona serata.
Oberdan
Marco-elle
Advanced Member >PLATINUM PLUS<
Ciao Oberdan,
ho provato a fare il copia-incolla dello script in CODE e a me funziona.....fammi sapere
Oberdan
Member
Ciao Marco,
ho provato più volte a rifare il copia e incolla dello script e ad eseguirlo, sempre con lo stesso risultato che ti ho mostrato.
Poi ho modificato:
Ini = EstrazioneIni + 7430
con
Ini = 7431
e adesso funziona con lo stesso output postato da dbr.
Oberdan
Marco-elle
Advanced Member >PLATINUM PLUS<
Stesso Output mio
Oberdan
Member
Questo è il mio output impostando Ini = 7430
Codice:
+----------------------------------------+
| Prima Giocata : 7431 |
| Ultima Giocata : 10450 |
| Range : 3020 |
| Casi giocab perc. : 7,616% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 230 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 222 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 96,52 % | | BA | | 75| 6| | | | BA | |21,61| 37,5| | | | BA | 97| |
| Pronostici totali : 230 | | CA | | 79| 3| | | | CA | |22,77|18,75| | | | CA | 113| |
| Pronostici vinc. : 222 | | FI | | 24| 1| | | | FI | | 6,92| 6,25| | | | FI | 33| |
| Percentuale pos. : 96,52 % | | GE | | 30| | | | | GE | | 8,65| | | | | GE | 53| |
| Giocate in corso : 1 | | MI | | 31| 2| | | | MI | | 8,93| 12,5| | | | MI | 30| |
| Giocate terminate : 229 | | NA | | 27| 1| | | | NA | | 7,78| 6,25| | | | NA | 33| |
| Bollette giocate : 6.886 | | PA | | 33| 2| | | | PA | | 9,51| 12,5| | | | PA | 45| |
| Bollette vincenti : 315 | | RO | | 48| 1| | | | RO | |13,83| 6,25| | | | RO | 56| |
| Attesa media : 7 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 13.772,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 14.605,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 833,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 6,049 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 120,00 € |
| Estratto su ruota : 646 |
| Ambo su ruota : 347 |
| Terno su ruota : 16 |
| |
+----------------------------------------+
Codicebinario
Advanced Member >PLATINUM<
Devi controllare l'estrazione di partenza e poi settare l'estrazione finale.... esempio il mio archivio parte dalla 8117 (per scelta mia) se parto da li e setto l'estrazione a + 2320 ottengo un :
NZ 23.88.33.51.76
sabato, giu 1 2024 [ NZ - 23.88.33.51.76 ] * [ 23 ] * Figura : [ 5 ]
Estrazione generatrice del pronostico 10450 [ 88 - 01/06/2024]
G 0001 Numeri in gioco : 11.27.68.70.82 su BA MI per Ambo,Terno
In corso per altre 7 estrazioni
mentre se setto a + 2000 ottengo:
NZ 23.88.33.51.76
sabato, giu 1 2024 [ NZ - 23.88.33.51.76 ] * [ 23 ] * Figura : [ 5 ]
Estrazione generatrice del pronostico 10450 [ 88 - 01/06/2024]
G 0001 Numeri in gioco : 11.27.68.70.82 su BA MI per Ambo,Terno
In corso per altre 10 estrazioni
ho' cambiato i kolpi,settati a 18 e senza l'interruzzione alla prima giocata valida,ma questi sono settaggi personali,iovoglio vedere il gioco fino alla fine dei kolpi settati e scegliere poi.
Ultima modifica:
Marco-elle
Advanced Member >PLATINUM PLUS<
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 21 giugno 2024Bari1960878974Cagliari7484714903Firenze7341433117Genova1606455275Milano5875512911Napoli5114594669Palermo3850565785Roma9066671109Torino5833830371Venezia0171054854Nazionale3981582336Estrazione Simbolotto
Napoli
1412420306