Novità

Per salvo50 , una cortesia x uno script

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.271
Punti reazione
125
Punti
63
Ciao Matematico ,
lo script che cerchi l ha gia fatto salvo , basta togliere l exit for al primo riscontro e spostare il next.
ma questo lo lascio fare a salvo, lo script è suo, e, non mi piace ritoccare gli script altrui.
Buona domenica anche a te :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
Ciao a Tutti.

Invece di fare la ricerca a ritroso, come avevo capito in un primo momento, sono partito dal 1939 in avanti, lo script cerca tutti i casi che si verificano, se ne appare uno solo oppure nessuno è perche dei numeri impostati ci sono solo quelli visibili, appena ho più tempo metto la scelta delle ruote delle posizioni e dei numeri, così si può vedere se escono fuori, tutte le combinazioni postate da ILegend

Codice:
'Avrei bisogno di uno script che attraverso un imput box ,
'mi permetta di inserire 2 estratti a mia scelta ...
'il Primo su BARI In quinta Posizione e
'il secondo su MILANO In prima posizione.....
'questo per una statistica della stessa condizione a ritroso.
'Esempio : 31/10/2019
'BA-20 In quinta posiz
'MI-50 In prima posiz.
'Per i lgioco dell'ambata si fà la piramidazione:
'2050
'255
'71 vertibile 17
'Ambate 71-17 anche In 1/5 posiz.
'per ambo si fà il Diametrale In Decina del 71 = 76
'poi la Figura : 71 = 8
'Quindi ambi secchi : 71-76/ 71-8 principali e 17-76 / 17-8 secondari
Option Explicit
Sub Main
   Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,E1,E2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Pr_Mi,Qu_Ba,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,3575))
   Qu_Ba = CInt(InputBox("Inserisci il Quinto estratto di Bari",Salvo50,20))
   Pr_Mi = CInt(InputBox("Inserisci il Primo estratto di Milano",Salvo50,50))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER MATEMATICO - SCRIPT SALVO50",1,,4,,3,,1
   Ruo(1) = BA_
   Ruo(2) = MI_
   A = Qu_Ba
   B = Pr_Mi
   Es = Ini
   S(1) = A
   S(2) = B
   SS = StringaNumeri(S,"",True)
   P(1) = Piramide(SS,1)
   P(2) = Piramide(SS,2)
   Cusp = Fuori90(P(2))
   Vert_Cusp = Vert(Cusp)
   DiamD_Cu = DiametraleD(Cusp)
   Fig_Cu = Figura(Cusp)
   ColoreTesto 2
   Scrivi Space(27) & SS,1
   Scrivi Space(27) & P(1),1
   Scrivi Space(27) & Format2(Cusp),1
   ColoreTesto 0
   Scrivi " Estrazione iniziale " & Format2(Ini) & " del " & DataEstrazione(Ini),1
   Scrivi " Estratto da cercare in quinta posizione a  Bari " & Format2(A),1
   Scrivi " Estratto da cercare in prima posizione a Milano " & Format2(B),1
   Ok = 0
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      C = Estratto(Es,BA_,5)
      D = Estratto(Es,MI_,1)
      If A = C And B = D Then
         Amba(1) = Cusp : Amba(2) = Vert_Cusp
         Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
         Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
         Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
         Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi Space(15) & "Trovati in ",1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(BA_) & Sp,1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,BA_,P1)
            If E1 = C Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(MI_) & Sp,1,0
         For P2 = 1 To 5
            E2 = Estratto(Es,MI_,P2)
            If E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi " 1ª Ambata " & Format2(Cusp) & "  Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
         Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
         Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
         Scrivi
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
Questo script da quello del post 22, cambia solo nella scelta della ruota, numero e posizione in quanto si possono variare tramite inputbox, di defoult ho impostato


1BA 1MI 48-19 = 8

preso dal post di ILegend

e lo script li trova tutti e 8

è stato più semplice del previsto, non essendo una cima a livello di script, a volte annego in un bicchiere d'acqua

adesso i 2 script sono ancora da perfezionare, perchè con altre impostazioni a volte può capitare che nei 4 ambi da cercare si verificano dei numeri doppi e non penso che basti eliminaripetuti

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Es1,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,E1,E2,Pos_N1,Pos_N2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Num1,Num2,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,3575))
   Num1 = CInt(InputBox("Inserisci 1° Numero ",Salvo50,48))
   Pos_N1 = CInt(InputBox("Inserisci La Posizione del 1° Numero ",Salvo50,1))
   R1 = CInt(InputBox(" Inserisci la 1ª Ruota ",Salvo50,1))
   Num2 = CInt(InputBox("Inserisci 2° Numero ",Salvo50,19))
   Pos_N2 = CInt(InputBox("Inserisci La Posizione del 2° Numero ",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci la 2ª Ruota ",Salvo50,5))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER MATEMATICO POSIZIONI RUOTE E NUMERI VARIABILI  - SCRIPT SALVO50",1,,4,,3,,1
   Ruo(1) = R1
   Ruo(2) = R2
   A = Num1
   B = Num2
   Es = Ini
   S(1) = A
   S(2) = B
   SS = StringaNumeri(S,"",True)
   P(1) = Piramide(SS,1)
   P(2) = Piramide(SS,2)
   Cusp = Fuori90(P(2))
   Vert_Cusp = Vert(Cusp)
   DiamD_Cu = DiametraleD(Cusp)
   Fig_Cu = Figura(Cusp)
   ColoreTesto 2
   Scrivi Space(27) & SS,1
   Scrivi Space(27) & P(1),1
   Scrivi Space(27) & Format2(Cusp),1
   ColoreTesto 0
   Scrivi " Estrazione iniziale " & Format2(Ini) & " del " & DataEstrazione(Ini),1
   Scrivi " Estratto da cercare in " &(Pos_N1) & "ª Posizione Nella Ruota di " & SiglaRuota(R1) & Sp & Format2(A),1
   Scrivi " Estratto da cercare in " &(Pos_N2) & "ª Posizione Nella Ruota di " & SiglaRuota(R2) & Sp & Format2(B),1
   Scrivi
   Scrivi " 1ª Ambata " & Format2(Cusp) & "  Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
         Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
         Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      C = Estratto(Es,R1,Pos_N1)
      D = Estratto(Es,R2,Pos_N2)
      If A = C And B = D Then
         Amba(1) = Cusp : Amba(2) = Vert_Cusp
         Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
         Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
         Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
         Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi Space(15) & "Trovati in ",1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(BA_) & Sp,1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,BA_,P1)
            If E1 = C Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(MI_) & Sp,1,0
         For P2 = 1 To 5
            E2 = Estratto(Es,MI_,P2)
            If E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
       
         Scrivi
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Matematico

Super Member >PLATINUM<
Messaggi
480
Punti reazione
52
Punti
28
Grazie di cuore a salvo50 e a I legend , il listato fà esattamente quanto richiesto :)
 

gabby

Member
Messaggi
36
Punti reazione
3
Punti
8
x salvo 50 cortesemente sript 2 del mese (1 di ge+2 torino + 42 vertibile) (3 di bari + 2 naz +77) (2 ca +5 pa + 36) ( 2 ca + 5 ve + 29) (5 di ca +5 mi +81) (2 ge + 5 nz + 74) per ambo e terno su tt le ruote clpi 5 grazie
 

joe

Advanced Member >PLATINUM<
Messaggi
1.053
Punti reazione
49
Punti
48
x salvo 50 cortesemente sript 2 del mese (1 di ge+2 torino + 42 vertibile) (3 di bari + 2 naz +77) (2 ca +5 pa + 36) ( 2 ca + 5 ve + 29) (5 di ca +5 mi +81) (2 ge + 5 nz + 74) per ambo e terno su tt le ruote clpi 5 grazie
Eccolo a voi in tutta la sua magnificente ingannevolezza:

Codice:
Option Explicit
Sub Main
'Medodo SOMMATIVO pubblicato il 10/12/2019 
   Dim Ini,Fin,Es,K
   Dim Nu(6),Ru(1),Po(3),Co
   Ini = 9400 : Fin = EstrazioneFin
   Po(2) = 1 : Po(3) = 1 :Ru(1) = TT_: Co = 5
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      '2 del Mese
      If IndiceMensile(Es) = 2 Then
         K = K + 1 : Scrivi String(106,"=") & FormatSpace(K,4,True),True
         '(1 di ge+2 torino + 42 vertibile)
         Nu(1) = Vert(Fuori90(Estratto(Es,GE_,1) + Estratto(Es,TO_,2) + 42))
         '(3 di bari + 2 naz +77)
         Nu(2) = Fuori90(Estratto(Es,BA_,3) + Estratto(Es,NZ_,2) + 77)
         '(2 ca +5 pa + 36)
         Nu(3) = Fuori90(Estratto(Es,CA_,2) + Estratto(Es,PA_,5) + 36)
         '(2 ca + 5 ve + 29)
         Nu(4) = Fuori90(Estratto(Es,CA_,2) + Estratto(Es,VE_,5) + 29)
         '(5 di ca +5 mi +81)
         Nu(5) = Fuori90(Estratto(Es,CA_,5) + Estratto(Es,MI_,5) + 81)
         '(2 ge + 5 nz + 74)
         Nu(6) = Fuori90(Estratto(Es,GE_,2) + Estratto(Es,NZ_,5) + 74)
         ImpostaGiocata 1,Nu,Ru,Po,Co
         Gioca Es,True
      End If
   Next
   ScriviResoconto
End Sub
:)
 

Alien.

Advanced Premium Member
Messaggi
21.761
Punti reazione
144
Punti
63
è come mai a dicembre non da i numeri da mettere in gioco ?grazie.

Ma è un metodo di Salvozac ?
 

Alien.

Advanced Premium Member
Messaggi
21.761
Punti reazione
144
Punti
63
è giusto era aggiornato al 5 dic adesso l'ho aggiornato al 10 dic è tutto ok ......è bho
continua a dare ambi a tutte entro i 5 colpi il caos trovare la ruota giusta per adesso sono sono 4
BA
CA
GE
NA
sarebbero 9 ambi e probabili terni
....
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
L'ambo con 6 numeri a tutte le ruote, rende 1,66 volte la posta, questo 1,66 è lordo si devono togliere le tasse, quindi un sistema del genere per non andare in perdita, l'ambo deve uscire a colpo, il terno invece viene pagato 22,5 la posta, questo valore è sempre lordo, bisogna togliere la tassa, che con tutti questi cambiamenti che fanno non ho capito a quanto ammonta.

Ormai siamo in salita libera, dato che quasi tutti continuano a giocare, secondo me arriveranno a portare le tasse sul gioco superiori al 50%
 

Alien.

Advanced Premium Member
Messaggi
21.761
Punti reazione
144
Punti
63
No ho detto 9 ambi secchi,con molto rischio giocherei solo Bari.Escono da 2 a 5 ambi al mese giocando le 4 ruote sopra descritte.Entro i 5 colpi.Spesso 2/3 ambi su bari al mese entro 5 colpi :questo caso solo dal 2019 ci sono state la maggior frequenze a Bari.(ho aggiunto un ambo in +)


1920
1930
1976
2030
2076
2064
3076
3064
3034
6434*
è infatti è uscito 19-20 bari al primo colpo - poi 19-30 mi
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 febbraio 2020
    Bari
    73
    49
    52
    41
    87
    Cagliari
    47
    45
    90
    78
    09
    Firenze
    25
    21
    27
    57
    37
    Genova
    57
    41
    26
    04
    73
    Milano
    03
    40
    14
    18
    80
    Napoli
    36
    50
    13
    41
    78
    Palermo
    60
    45
    47
    78
    30
    Roma
    73
    90
    15
    74
    38
    Torino
    77
    41
    13
    83
    63
    Venezia
    44
    05
    43
    26
    20
    Nazionale
    02
    80
    84
    59
    08

Ultimi Messaggi

Alto