Novità

Per salvo50 , una cortesia x uno script

i legend

i legend

Premium Member
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

salvo50

Advanced Member >PLATINUM PLUS<
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

salvo50

Advanced Member >PLATINUM PLUS<
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:
G

gabby

Senior Member
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

joe

Advanced Member >PLATINUM PLUS<
gabby ha scritto:
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
Clicca per espandere...

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.

Alien.

Advanced Premium Member
è 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

salvo50

Advanced Member >PLATINUM PLUS<
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.

Alien.

Advanced Premium Member
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:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto