Novità

Script coppia 23-41 a Milano

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
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
 
Ottimo... script... devi eliminare questa riga :
casi = 0
o sopstarlo prima di
For es = ini To fin

hai scelto numeri a caso?

Ciao
 
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:
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
?
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 120"]Tabella di calcolo vincite nette[/TD]
[TD="width: 65"] [/TD]
[TD="width: 65"] [/TD]
[TD="width: 65"] [/TD]
[TD="width: 65"] [/TD]
[TD="width: 65"] [/TD]
[TD="width: 80"] [/TD]
[/TR]
[TR]
[TD="width: 120"]Num. giocati[/TD]
[TD="width: 65"]ambata[/TD]
[TD="width: 65"]estr. det.[/TD]
[TD="width: 65"]ambo[/TD]
[TD="width: 65"]terno[/TD]
[TD="width: 65"]quaterna[/TD]
[TD="width: 80"]cinquina[/TD]
[/TR]
[TR]
[TD="width: 120"]10[/TD]
[TD="width: 65"]1,03[/TD]
[TD="width: 65"]5,06[/TD]
[TD="width: 65"]5,1[/TD]
[TD="width: 65"]34,5[/TD]
[TD="width: 65"]525,7[/TD]
[TD="width: 80"]21.904,75[/TD]
[/TR]
[/TABLE]
ma se giochi 0.50 devi dividere il premio al 50% !!!!
 
Ultima modifica:
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
 
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
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto