Oberdan
Member
Stai diventando il Re della Nazionale!
La stai rivoltando come un calzino...
Oberdan
Stai diventando il Re della Nazionale!
Perchè è l'ultima ruota nata e comincia a fare statisticaStai diventando il Re della Nazionale!
La stai rivoltando come un calzino...
Oberdan
Option Explicit
Sub Main()
ColoreTesto 2
Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA 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 Cadenza(a) = 1 Then
n(1) = 22
n(2) = 23
n(3) = 28
n(4) = 56
n(5) = 66
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
n(1) = 2
n(2) = 8
n(3) = 75
n(4) = 81
n(5) = 82
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
n(1) = 5
n(2) = 11
n(3) = 50
n(4) = 56
n(5) = 59
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
n(1) = 16
n(2) = 32
n(3) = 36
n(4) = 81
n(5) = 85
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
n(1) = 5
n(2) = 10
n(3) = 13
n(4) = 19
n(5) = 21
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
n(1) = 21
n(2) = 42
n(3) = 62
n(4) = 68
n(5) = 70
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
n(1) = 3
n(2) = 8
n(3) = 20
n(4) = 35
n(5) = 64
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
n(1) = 4
n(2) = 19
n(3) = 31
n(4) = 34
n(5) = 49
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
n(1) = 9
n(2) = 17
n(3) = 23
n(4) = 78
ruota(1) = 7
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
n(1) = 1
n(2) = 5
n(3) = 13
n(4) = 27
n(5) = 89
ruota(1) = 2
ruota(2) = 7
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) & " ]" & " * cadenza : " & " [ " & Cadenza(a) & " ] ",1
ColoreTesto 0
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub
Option Explicit
Sub Main()
ColoreTesto 2
Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA 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),Importo(2,15)
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)
Importo(2,1) = 1
Importo(2,2) = 1.3
Importo(2,3) = 1.6
Importo(2,4) = 1.9
Importo(2,5) = 2.3
Importo(2,6) = 2.7
Importo(2,7) = 3.1
Importo(2,8) = 3.5
Importo(2,9) = 4
Importo(2,10) = 4.5
Importo(2,11) = 5
Importo(2,12) = 6
Importo(2,13) = 7
Importo(2,14) = 8
Importo(2,15) = 10
ok = 0
If IndiceMensile(es) = 1 And Cadenza(a) = 1 Then
n(1) = 22
n(2) = 23
n(3) = 28
n(4) = 56
n(5) = 66
ruota(1) = 2
ruota(2) = 6
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
n(1) = 2
n(2) = 8
n(3) = 75
n(4) = 81
n(5) = 82
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
n(1) = 5
n(2) = 11
n(3) = 50
n(4) = 56
n(5) = 59
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
n(1) = 16
n(2) = 32
n(3) = 36
n(4) = 81
n(5) = 85
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
n(1) = 5
n(2) = 10
n(3) = 13
n(4) = 19
n(5) = 21
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
n(1) = 21
n(2) = 42
n(3) = 62
n(4) = 68
n(5) = 70
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
n(1) = 3
n(2) = 8
n(3) = 20
n(4) = 35
n(5) = 64
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
n(1) = 4
n(2) = 19
n(3) = 31
n(4) = 34
n(5) = 49
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
n(1) = 9
n(2) = 17
n(3) = 23
n(4) = 78
ruota(1) = 7
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
n(1) = 1
n(2) = 5
n(3) = 13
n(4) = 27
n(5) = 89
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If ok = 1 Then
co = co + 1
ImpostaGiocata 1,n,ruota,posta,clp,2
ImpostaProgressione 1,Importo
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) & " ]" & " * cadenza : " & " [ " & Cadenza(a) & " ] ",1
ColoreTesto 0
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub
Option Explicit
Sub Main()
ColoreTesto 2
Scrivi " PREVISIONE MENSILE VINCOLATA ALLA DECINA E/O NUMERETTO 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(4),ruota(10),n(5),Importo(2,15)
posta(2) = 1
posta(3) = 1
posta(4) = 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)
Importo(2,1) = 1
Importo(2,2) = 1.3
Importo(2,3) = 1.6
Importo(2,4) = 1.9
Importo(2,5) = 2.3
Importo(2,6) = 2.7
Importo(2,7) = 3.1
Importo(2,8) = 3.5
Importo(2,9) = 4
Importo(2,10) = 4.5
Importo(2,11) = 5
Importo(2,12) = 6
Importo(2,13) = 7
Importo(2,14) = 8
Importo(2,15) = 10
ok = 0
If IndiceMensile(es) = 1 And Decina(a) = 1 Then
n(1) = 4
n(2) = 11
n(3) = 23
n(4) = 42
n(5) = 63
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 2 Then
n(1) = 6
n(2) = 30
n(3) = 38
n(4) = 44
n(5) = 87
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 3 Then
n(1) = 9
n(2) = 50
n(3) = 63
n(4) = 65
n(5) = 73
ruota(1) = 2
ruota(2) = 3
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 4 Then
n(1) = 33
n(2) = 43
n(3) = 46
n(4) = 50
n(5) = 83
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 5 Then
n(1) = 43
n(2) = 47
n(3) = 54
n(4) = 62
n(5) = 72
ruota(1) = 4
ruota(2) = 7
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 6 Then
n(1) = 7
n(2) = 37
n(3) = 53
n(4) = 54
n(5) = 57
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 7 Then
n(1) = 9
n(2) = 24
n(3) = 49
n(4) = 54
n(5) = 63
ruota(1) = 2
ruota(2) = 8
ok = 1
End If
If IndiceMensile(es) = 1 And Decina(a) = 8 Then
n(1) = 10
n(2) = 13
n(3) = 33
n(4) = 63
n(5) = 90
ruota(1) = 3
ruota(2) = 6
ok = 1
End If
If IndiceMensile(es) = 1 And a < 10 Then
n(1) = 10
n(2) = 26
n(3) = 28
n(4) = 42
n(5) = 48
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If ok = 1 Then
co = co + 1
ImpostaGiocata 1,n,ruota,posta,clp
ImpostaProgressione 1,Importo
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) & " ]" & " * decina : " & " [ " & Decina(a) & " ] ",1
ColoreTesto 0
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub
Mi vorrei 'mbriacare 😂 😂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
Vedi l'allegato 2285254
Vedi l'allegato 2285255
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
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