Novità

Script coppia 23-41 a Milano

R

Roby

Guest
eccovi uno scriptino.. fatelo andare cosi comè adesso.



Option Explicit
Codice: 
Sub Main
   Dim es,ini,fin,clp,eEsc,r,p,s1,s2,a,b,ok
   Dim am1(10)
   Dim caso,casi
   Dim poste(10)
   Dim rg(1)
   poste(2) = 3
   poste(3) = 2
   poste(4) = 1
   s1 = 23 '<
   s2 = 41 '< le due spie, così le puoi cambiare a piacimento
   eEsc = InputBox("Quante estrazioni controllo? ","N° ESTRAZIONI di CONTROLLO ",5345)
   clp = InputBox("Quanti colpi di gioco? ","COLPI di GIOCO ",9)
   ini = EstrazioneFin - eEsc
   fin = EstrazioneFin
   For es = ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         Messaggio "Estraz n° " &(es) & " del " & DataEstrazione(es) & " per " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         casi = 0
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            ok = 0
            If((a = s1 And b = s2))Then
               ok = 1
            End If
            If ok = 1 Then
               casi = casi + 1
               am1(1) = 14
               am1(2) = 57
               am1(3) = 45
               am1(4) = 58
               am1(5) = 67
               am1(6) = 48
               am1(7) = 22
               am1(8) = 8
               am1(9) = 74
               am1(10) = 33
               rg(1) = r
               Scrivi String(70,"-") & " caso n° " &(casi)
               Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es - 1,r,p)) & " ]",1,,,1
               Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es,r,p)) & " ]",1,,,1
               ImpostaGiocata 1,am1,rg,poste,clp
               Gioca es,False,,1
               If ScriptInterrotto Then Exit For
            End If
         Next
      Next
   Next
   ScriviResoconto,False
End Sub
 
C

claudio8

Premium Member
Ottimo... script... devi eliminare questa riga :
casi = 0
o sopstarlo prima di
For es = ini To fin

hai scelto numeri a caso?

Ciao
 
R

Roby

Guest
claudio8;n2113710 ha scritto:
Ottimo... script... devi eliminare questa riga :
casi = 0
o sopstarlo prima di
For es = ini To fin

hai scelto numeri a caso?

Ciao
Clicca per espandere...

grazie,piano piano sto scrostando la ruggine

questo è completo con tutti il resto dei numeri per chi li volesse

si, per i numeri ho preso il sacchetto della tombola...


Codice: 
Option Explicit
Sub Main
   Dim es,ini,fin,clp,eEsc,r,p,s1,s2,a,b,ok
   Dim am1(10)
   Dim caso,casi
   Dim poste(10)
   Dim rg(1)
   poste(2) = 3
   poste(3) = 2
   poste(4) = 1
   s1 = 23 '<
   s2 = 41 '< le due spie, così le puoi cambiare a piacimento
   eEsc = InputBox("Quante estrazioni controllo? ","N° ESTRAZIONI di CONTROLLO ",5345)
   clp = InputBox("Quanti colpi di gioco? ","COLPI di GIOCO ",9)
   ini = EstrazioneFin - eEsc
   fin = EstrazioneFin
         casi = 0
   For es = ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         Messaggio "Estraz n° " &(es) & " del " & DataEstrazione(es) & " per " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            ok = 0
            If((a = s1 And b = s2))Then
               ok = 1
            End If
            If ok = 1 Then
               casi = casi + 1
               am1(1) = 14
               am1(2) = 57
               am1(3) = 45
               am1(4) = 58
               am1(5) = 67
               am1(6) = 48
               am1(7) = 22
               am1(8) = 8
               am1(9) = 74
               am1(10) = 33
               ' 71-79-07-30 sono gli altri numeri, ma non entravano nella decina
               rg(1) = r
               Scrivi String(70,"-") & " caso n° " &(casi)
               Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es - 1,r,p)) & " ]",1,,,1
               Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es,r,p)) & " ]",1,,,1
               ImpostaGiocata 1,am1,rg,poste,clp
               Gioca es,False,,1
               If ScriptInterrotto Then Exit For
            End If
         Next
      Next
   Next
   ScriviResoconto,False
End Sub



Codice: 
----------------------------------------------------
----------------------------------------------------------------------
24.04.2018 [ MI 07.84.23.67.01 ] trovato in pos 3 [ 23 ]
26.04.2018 [ MI 01.90.41.74.58 ] trovato in pos 3 [ 41 ]
Estrazione generatrice del pronostico 09465 [ 50 - 26/04/2018]
G 0001 Numeri in gioco : 14.57.45.58.67.48.22.08.74.33 su MI per Ambo,Terno,Quaterna
  N. [14.57.45.58.67.48.22.08.74.33 ] [MI]     [.. .. .. .. ..] C.   1            09466 [ 51 - 28/04/2018] [30.05.19.84.35]
  N. [14.57.45.58.67.48.22.08.74.33 ] [MI]     [14 .. .. .. ..] C.   2 Estratto   09467 [ 52 - 02/05/2018] [14.59.75.76.44]
  N. [14.57.45.58.67.48.22.08.74.33 ] [MI]     [.. .. .. .. ..] C.   3            09468 [ 53 - 03/05/2018] [87.12.43.73.53]

In corso per altre 6 estrazioni
+----------------------------------------+
| Prima Giocata      : 4240              |
| Ultima Giocata     : 9465              |
| Range              : 5226              |
| Casi giocab perc.  : 0,593%            |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+  
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |  
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+  
| Casi esaminati     :               31  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |  
| Casi vincenti      :               24  | +----------------------------------+ +----------------------------------+ +----------------------------------+  
| Percentuale pos.   :          77,42 %  | | BA |     |     |     |     |     | | BA |     |     |     |     |     | | BA |     |                       |  
| Pronostici totali  :               31  | | CA |     |    2|     |     |     | | CA |     | 2,56|     |     |     | | CA |    2|                       |  
| Pronostici vinc.   :               24  | | FI |     |   15|    2|     |     | | FI |     |19,23|11,76|     |     | | FI |    4|                       |  
| Percentuale pos.   :          77,42 %  | | GE |     |    3|     |     |     | | GE |     | 3,85|     |     |     | | GE |    4|                       |  
| Giocate in corso   :                1  | | MI |     |   22|    9|    2|     | | MI |     |28,21|52,94|  100|     | | MI |    6|                       |  
| Giocate terminate  :               30  | | NA |     |    4|    1|     |     | | NA |     | 5,13| 5,88|     |     | | NA |    2|                       |  
| Bollette giocate   :              273  | | PA |     |    7|    1|     |     | | PA |     | 8,97| 5,88|     |     | | PA |    2|                       |  
| Bollette vincenti  :               50  | | RO |     |    4|     |     |     | | RO |     | 5,13|     |     |     | | RO |    2|                       |  
| Attesa media       :                3  | | TO |     |   13|    2|     |     | | TO |     |16,67|11,76|     |     | | TO |    6|                       |  
| Spesa              :       1.638,00 €  | | VE |     |    3|    1|     |     | | VE |     | 3,85| 5,88|     |     | | VE |    2|                       |  
| Vincita            :       3.482,57 €  | | NZ |     |    5|    1|     |     | | NZ |     | 6,41| 5,88|     |     | | NZ |    1|                       |  
| Guadagno           :       1.844,57 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |  
| Perc. Rendimento   :        112,611 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+  
| Mass. Esposizione  :         162,00 €  |    
| Estratto su ruota  :              113  |                                                                                                                
| Ambo su ruota      :               78  |                                                                                                                
| Terno su ruota     :               17  |                                                                                                                
| Quaterna su ruota  :                2  |                                                                                                                
|                                        |                                                                                                                
+----------------------------------------+






[FONT=comic\ sans\ ms]guardate che a milano ambi e terni e quaterne, prorpio la ruota dove c'è la condizione....[/FONT]
 
Ultima modifica:
Alien.

Alien.

Advanced Premium Member
e si hai ragione metti ,in gioco 10 numeri ?

se giochi 10 numeri per 9 colpi con 1 € ,sono 9 € ed un € dove lo giochi al terno ? all'ambo oppure 0.50 e 0.50
?
Tabella di calcolo vincite nette
Num. giocatiambataestr. det.amboternoquaternacinquina
101,035,065,134,5525,721.904,75
ma se giochi 0.50 devi dividere il premio al 50% !!!!
 
Ultima modifica:
R

Roby

Guest
Dovresti far girare lo script e guardati per bene l'output, magari riesci a scremare qualche numero.
io non gioco, se ti piace usalo anche come convergenze, vedi te.

Cesare
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Tutti e due gli script anche partendo dall'estrazione numero 1 sono vincenti, nel secondo col sistema dei cassetti, ho aggiunto i 4 numeri mancanti, e partendo dall'estrazione numero 5345 è ancora vincente ma partendo dall'estrazione numero 1 è perdente, ne sto preparando un altro mettendo i 14 numeri in 21 quaterne per vedere i risultati.

Codice: 
 Option Explicit
Sub Main
   Dim es,ini,fin,clp,eEsc,r,p,s1,s2,a,b,ok
   Dim am1(10),am2(9),am3(9)
   Dim caso,casi
   Dim poste(10)
   Dim rg(1)
   poste(2) = 3
   poste(3) = 2
   poste(4) = 1
   s1 = 23 '<
   s2 = 41 '< le due spie, così le puoi cambiare a piacimento
   fin = EstrazioneFin
   eEsc = InputBox("Quante estrazioni controllo? N° ESTRAZIONI di CONTROLLO ",,5345)'5345
   clp = InputBox("Quanti colpi di gioco? ","COLPI di GIOCO ",9)
   ini = EstrazioneFin - eEsc
   casi = 0
   For es = ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         Messaggio "Estraz n° " &(es) & " del " & DataEstrazione(es) & " per " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         For p = 1 To 5
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            ok = 0
            If((a = s1 And b = s2))Then
               ok = 1
            End If
            If ok = 1 Then
               casi = casi + 1
               am1(1) = 14
               am1(2) = 57
               am1(3) = 45
               am1(4) = 58
               am1(5) = 67
               am1(6) = 48
               am1(7) = 22
               am1(8) = 8
               am1(9) = 74
               am1(10) = 33
               am2(1) = 14
               am2(2) = 57
               am2(3) = 45
               am2(4) = 58
               am2(5) = 67
               am2(6) = 71
               am2(7) = 79
               am2(8) = 7
               am2(9) = 30
               am3(1) = 48
               am3(2) = 22
               am3(3) = 8
               am3(4) = 74
               am3(5) = 33
               am3(6) = 71
               am3(7) = 79
               am3(8) = 7
               am3(9) = 30

               rg(1) = r
               Scrivi String(70,"-") & " caso n° " &(casi)
               Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es - 1,r,p)) & " ]",1,,,1
               Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] trovato in pos " & p & " [ " & Format2(Estratto(es,r,p)) & " ]",1,,,1
               ImpostaGiocata 1,am1,rg,poste,clp
               ImpostaGiocata 2,am2,rg,poste,clp
               ImpostaGiocata 3,am3,rg,poste,clp
               Gioca es,False,,1
               If ScriptInterrotto Then Exit For
            End If
         Next
      Next
   Next
   ScriviResoconto,False
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 aprile 2024
    Bari
    08
    62
    22
    82
    12
    Cagliari
    86
    44
    19
    31
    72
    Firenze
    38
    70
    31
    33
    26
    Genova
    84
    71
    65
    55
    75
    Milano
    61
    32
    48
    15
    24
    Napoli
    24
    55
    49
    12
    37
    Palermo
    87
    14
    52
    18
    43
    Roma
    01
    88
    16
    50
    63
    Torino
    15
    70
    52
    62
    55
    Venezia
    15
    83
    49
    18
    44
    Nazionale
    10
    22
    68
    78
    06
    Estrazione Simbolotto
    Genova
    27
    31
    15
    32
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto