Per salvo50 , una cortesia x uno script

i legend · 24 Novembre 2019

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 · 24 Novembre 2019

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 · 24 Novembre 2019

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

Matematico · 24 Novembre 2019

Grazie di cuore a salvo50 e a I legend , il listato fà esattamente quanto richiesto

salvo50 · 25 Novembre 2019

Grazie, Matematico, ILegend

gabby · 10 Dicembre 2019

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 · 10 Dicembre 2019

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

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

salvo50 · 10 Dicembre 2019

Ciao a Tutti.

Ciao Joe, grazie.

gabby · 10 Dicembre 2019

grazie salvo50

salvo50 · 10 Dicembre 2019

gabby ha scritto:
grazie salvo50

Lo script te l'ha fatto Joe

gabby · 10 Dicembre 2019

grazie joe

Alien. · 11 Dicembre 2019

è come mai a dicembre non da i numeri da mettere in gioco ?grazie.

Ma è un metodo di Salvozac ?

salvo50 · 11 Dicembre 2019

Ciao a Tutti.

Alien. ha scritto:
è come mai a dicembre non da i numeri da mettere in gioco ?grazie.

A me li da

Forse non hai aggiornato l'archivio

Ma è un metodo di Salvozac ?

A questo deve rispondere Gabby

gabby · 11 Dicembre 2019

il metodo e' di salvozac

Alien. · 11 Dicembre 2019

è 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 · 11 Dicembre 2019

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. · 11 Dicembre 2019

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 +)

19	20
19	30
19	76
20	30
20	76
20	64
30	76
30	64
30	34
64	34	*

è infatti è uscito 19-20 bari al primo colpo - poi 19-30 mi

Alien. · 23 Dicembre 2019

gabby · 16 Ottobre 2020

aiuto script somma pentagono

gabby · 16 Ottobre 2020

x salvo 50 cortesemente formula somma pentagono,grazie

Per salvo50 , una cortesia x uno script

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Senior Member

Senior Member