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
    martedì 28 aprile 2026
    Bari
    68
    50
    33
    31
    23
    Cagliari
    47
    80
    44
    24
    13
    Firenze
    62
    05
    49
    26
    47
    Genova
    22
    34
    29
    35
    86
    Milano
    33
    45
    55
    78
    27
    Napoli
    58
    36
    88
    47
    46
    Palermo
    21
    59
    73
    72
    46
    Roma
    40
    59
    74
    02
    32
    Torino
    64
    70
    36
    73
    13
    Venezia
    77
    64
    06
    84
    69
    Nazionale
    01
    14
    24
    04
    56
    Estrazione Simbolotto
    Genova
    05
    45
    04
    44
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto