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ì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto