Vecchi metodi e vecchi script by BaffoBlù

[Oberdan]

ok

Stai diventando il Re della Nazionale!
La stai rivoltando come un calzino...

Oberdan

 

[Marco-elle]

Stai diventando il Re della Nazionale!
La stai rivoltando come un calzino...

Oberdan

Perchè è l'ultima ruota nata e comincia a fare statistica

 

[Marco-elle]

Previsione mensile 2
Nessun incremento di posta,è il giocatore a effettuarla
in base alle proprie tasche...

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

 

[Marco-elle]

Qui ho inserito un incremento sulla posta (che è strettamente personale)
con stop al primo esito utile

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

 

[Marco-elle]

Previsione Mensile 3....

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

 

[claudio8]

@BaffoBlù ci sei ?

 

[Suriciumalignu]

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...

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

Mi vorrei 'mbriacare 😂 😂

 

[Marco-elle]

Previsione mensile......

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