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
    giovedì 30 aprile 2026
    Bari
    02
    58
    76
    30
    50
    Cagliari
    28
    06
    35
    51
    39
    Firenze
    46
    27
    71
    88
    50
    Genova
    01
    08
    15
    17
    38
    Milano
    82
    50
    87
    51
    02
    Napoli
    65
    38
    37
    53
    46
    Palermo
    56
    62
    58
    10
    67
    Roma
    57
    82
    49
    80
    02
    Torino
    39
    74
    29
    35
    47
    Venezia
    54
    76
    22
    73
    85
    Nazionale
    69
    62
    88
    43
    21
    Estrazione Simbolotto
    Genova
    01
    37
    04
    17
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto