aiuto x script

[lla]

ciao a tutti

ho trovato in giro questo scriptino x l'ambata con distanza 45 fra 2 ruote

qualcuno gentilmente potrebbe modifcarmelo?

quello che mi interessa è la possibilità di impostare una distanza a mio piacimento fra 2 numeri di una ruota

es. ricerca due numeri su una ruota o più ruote con distanza 5, tanto per dirne una..

(se è complicato gestire la stessa distanza su + ruote o una doppia distanza su una stessa ruota , va bene anche la possibilità di scegliere la ruota con una inputbox)

e che non si interrompa al primo esito, qui c'è un calcolo espresso con nu1, io invece vorrei fare più prove con più numeri,.ma non riesco a modificare la parte che riguarda la scelta di due numeri su una stessa ruota

grazie a tutti in inticipo.



Option Explicit 'script x ambata secca di fata65 'http://forum.lottoced.com/forum/lottoced/area-download/1993808-script-x-ambata-secca
Sub Main()
Dim klp,casi
Dim Ini,fin,es
Dim n1,n2,dis
Dim a,b,c

Dim r1,r2,p1
Dim nu(01)
Dim ruota(02)
Dim posta(01)
posta(01) = 1
klp = 9
casi = 00
fin = EstrazioneFin
Ini = EstrazioneFin - 10
For es = Ini To fin
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 01 To 10
For p1 = 01 To 05
n1 = Estratto(es,r1,p1)
For r2 = r1 + 01 To 11 If r2 = 11 Then
r2 = 12 n2 = Estratto(es,r2,p1)
If Distanza(n1,n2) = 45 Then
a = Fuori90(n1 + n2)
b = Fuori90(a + n1)
c = Fuori90(a + n2)
casi = casi + 01
Call Scrivi(String(125,"-") & " Caso n° " &(casi),01) Call Scrivi(GetInfoEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(n1) & " > " & " Posizione " & Format2(p1),01)
Call Scrivi(GetInfoEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > < " & Format2(n2) & " > " & " Posizione " & Format2(p1),01)
Call Scrivi()
ruota(01) = r1
ruota(02) = r2
nu(01) = Fuori90(b + c)
Call ImpostaGiocata(01,nu,ruota,posta,klp,01)
Call Gioca(es,True,,01)
End If
Next
Next
Next
Next
Call ScriviResoconto()
End Sub

 

[salvo50]

Ciao a Tutti

Non sono sicuro daver capito bene, fammi sapere

'Impostare una Distanza a mio piacimento fra 2 numeri di una ruota
'es. ricerca due numeri su una ruota o più ruote con Distanza 5, tanto per dirne una..
'(se è complicato gestire la stessa Distanza su + ruote o una doppia Distanza su una stessa ruota
', va bene anche la possibilità di scegliere la ruota con una InputBox)
'e che non si interrompa al Primo esito, qui c'è un calcolo espresso con nu1,
'io invece vorrei fare più prove con più numeri,.ma non riesco a modificare
'la parte che riguarda la scelta di due numeri su una stessa ruota
Option Explicit
'script x ambata secca di fata65
'http://forum.lottoced.com/forum/lottoced/area-download/1993808-script-x-ambata-secca
Sub Main()
   Dim klp,casi,Ind,Clp
   Dim Ini,fin,es,Dist
   Dim n1,n2,dis
   Dim a,b,c
   Dim R1,P1,P2
   Dim nu(01)
   Dim ruota(01)
   Dim posta(01)
   posta(01) = 1
   casi = 00
   fin = EstrazioneFin
   Ind = InputBox("Inserisci di quante estrazione vuoi andare indietro",,100)
   Dist = CInt(InputBox("Inserisci la distanza da cercare",,5))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,9))
   Scrivi Space(12) & " CHIESTO DA LIA - MODIFICA SCRIPT PER AMBATA SECCA - MOD. SCRIPT SALVO50",1,,4,,3,,1
   Ini = EstrazioneFin - Ind
   Call ScegliRange(Ini,fin,Ini,fin)
   For es = Ini To fin
      Call Messaggio(es)
      Call AvanzamentoElab(Ini,fin,es)
      For R1 = 01 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               n1 = Estratto(es,R1,P1)
               n2 = Estratto(es,R1,P2)
               If Distanza(n1,n2) = Dist Then
                  a = Fuori90(n1 + n2)
                  b = Fuori90(a + n1)
                  c = Fuori90(a + n2)
                  casi = casi + 01
                  Call Scrivi(String(125,"-") & " Caso n° " &(casi),01)
                  Call Scrivi(GetInfoEstrazione(es) & " < " & SiglaRuota(R1) & " " & StringaEstratti(es,R1),1,0)
                  Call Scrivi(" > < " & Format2(n1) & " > " & " Posizione " & Format2(P1),01,00)
                  Call Scrivi(" > " & Space(2) & " < " & Format2(n2) & " > " & " Posizione " & Format2(P2),01)
                  Call Scrivi()
                  ruota(01) = R1
                  nu(01) = Fuori90(b + c)
                  Call ImpostaGiocata(01,nu,ruota,posta,Clp)
                  Call Gioca(es) ',True,,01)
               End If
            Next
         Next
      Next
   Next
   Call ScriviResoconto()
End Sub

 

[lla]

Grazie Salvo 50 è perfetto
ti chiedo ancora una gentilezza quando puoi
se come calcolo invece della somma dei 2 numeri in questione volessi lavorare sugli altri 3 numeri estratti?
es.

15,50,55,31,4

la distanza che ho impostato è 5, quindi n1 è 50 e n2 è 55

se volessi sommare 15 e 31? oppure 15 e 4?

si può fare? considerando che le posizioni di n1 e n2 non sone sempre le stesse nelle varie estrazioni e ruote?

 

[salvo50]

Grazie Salvo 50 è perfetto
ti chiedo ancora una gentilezza quando puoi
se come calcolo invece della somma dei 2 numeri in questione volessi lavorare sugli altri 3 numeri estratti?
es.

15,50,55,31,4

la distanza che ho impostato è 5, quindi n1 è 50 e n2 è 55

se volessi sommare 15 e 31? oppure 15 e 4?

si può fare? considerando che le posizioni di n1 e n2 non sone sempre le stesse nelle varie estrazioni e ruote?

Oltre agli estratti n1 n2 , ho impostato i calcoli anche per gli estratti n3,n4,n5, quindi sono risultati 4 ambate

la 1ª principale dagli estratti n1,n2
la 2ª dagli estratti n3,n4
la 3ª dagli estratti n3,n5
la 4ª dagli estratti n4,n5

'Impostare una Distanza a mio piacimento fra 2 numeri di una ruota
'es. ricerca due numeri su una ruota o più ruote con Distanza 5, tanto per dirne una..
'(se è complicato gestire la stessa Distanza su + ruote o una doppia Distanza su una stessa ruota
', va bene anche la possibilità di scegliere la ruota con una InputBox)
'e che non si interrompa al Primo esito, qui c'è un calcolo espresso con nu1,
'io invece vorrei fare più prove con più numeri,.ma non riesco a modificare
'la parte che riguarda la scelta di due numeri su una stessa ruota
'Fare i calcoli per l'ambata anche con i 3 numeri restanti
Option Explicit
'script x ambata secca di fata65
'http://forum.lottoced.com/forum/lottoced/area-download/1993808-script-x-ambata-secca
Sub Main()
   Dim klp,Casi,Ind,Clp
   Dim Ini,FIn,Es,Dist
   Dim N1,N2,N3,N4,N5,dis
   Dim A1,B1,C1,A2,B2,C2
   Dim A3,B3,C3,A4,B4,C4,E1,E2
   Dim R1,P1,P2,P3,P4,P5,P6,P7
   Dim Nu1(1),Nu2(1)
   Dim Nu3(1),Nu4(1)
   Dim Ruota(01)
   Dim Posta(01)
   Posta(01) = 1
   Casi = 00
   FIn = EstrazioneFin
   Ind = InputBox("Inserisci di quante estrazione vuoi andare indietro",,100)
   Dist = CInt(InputBox("Inserisci la distanza da cercare",,5))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,9))
   Scrivi Space(12) & " CHIESTO DA LIA - MODIFICA SCRIPT PER AMBATA SECCA - MODIFICA N2 SCRIPT SALVO50",1,,4,,3,,1
   Ini = EstrazioneFin - Ind
   Call ScegliRange(Ini,FIn,Ini,FIn)
   For Es = Ini To FIn
      Call Messaggio(Es)
      Call AvanzamentoElab(Ini,FIn,Es)
      For R1 = 01 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               N1 = Estratto(Es,R1,P1)
               N2 = Estratto(Es,R1,P2)
               If Distanza(N1,N2) = Dist Then
                  A1 = Fuori90(N1 + N2)
                  B1 = Fuori90(A1 + N1)
                  C1 = Fuori90(A1 + N2)
                  Nu1(01) = Fuori90(B1 + C1)
                  For P3 = 1 To 3
                     For P4 = P3 + 1 To 4
                        For P5 = P4 + 1 To 5
                           If(P3 <> P1 And P3 <> P2) And(P4 <> P1 And P4 <> P2) And(P5 <> P1 And P5 <> P2) Then
                              N3 = Estratto(Es,R1,P3)
                              N4 = Estratto(Es,R1,P4)
                              N5 = Estratto(Es,R1,P5)
                              A2 = Fuori90(N3 + N4)
                              B2 = Fuori90(A2 + N3)
                              C2 = Fuori90(A2 + N4)
                              Nu2(01) = Fuori90(B2 + C2)
                              A3 = Fuori90(N3 + N5)
                              B3 = Fuori90(A3 + N3)
                              C3 = Fuori90(A3 + N5)
                              Nu3(01) = Fuori90(B3 + C3)
                              A4 = Fuori90(N4 + N5)
                              B4 = Fuori90(A4 + N4)
                              C4 = Fuori90(A4 + N5)
                              Nu4(01) = Fuori90(B4 + C4)
                              Casi = Casi + 01
                              Call Scrivi(String(125,"-") & " Caso n° " &(Casi),01)
                              Call Scrivi(GetInfoEstrazione(Es) & "  " & SiglaRuota(R1) & " ",1,0)
                              For P6 = 1 To 5
                                 E1 = Estratto(Es,R1,P6)
                                 If E1 = N1 Or E1 = N2 Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi "Pronosticata dagli estratti " & Format2(N1) & " e " & Format2(N2) & " Ambata N1 " & Format2(Nu1(1)),1,,,2
                              Scrivi "Pronosticata dagli estratti " & Format2(N3) & " e " & Format2(N4) & " Ambata N2 " & Format2(Nu2(1)),1,,,1
                              Scrivi "Pronosticata dagli estratti " & Format2(N3) & " e " & Format2(N5) & " Ambata N3 " & Format2(Nu3(1)),1,,,1
                              Scrivi "Pronosticata dagli estratti " & Format2(N4) & " e " & Format2(N5) & " Ambata N4 " & Format2(Nu4(1)),1,,,1
                              Scrivi
                              Ruota(01) = R1
                              Call ImpostaGiocata(01,Nu1,Ruota,Posta,Clp)
                              Call ImpostaGiocata(02,Nu2,Ruota,Posta,Clp)
                              Call ImpostaGiocata(03,Nu3,Ruota,Posta,Clp)
                              Call ImpostaGiocata(04,Nu4,Ruota,Posta,Clp)
                              Call Gioca(Es) ',True,,01)
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
   Call ScriviResoconto()
End Sub

 

[lla]

grazie Salvo50,
ma per mettere i numeri tutti insieme? invece di controllare un'ambata x volta?

 

[lla]

come non detto..ho spostato qui ho cancellato la' ..mi è riuscito di metterli tutti insieme

ancora grazie

 

[lla]

ciao a tutti
volevo farvi una domanda

si possono mettere + di 10 numeri come pronostico? se sì come?
quando dimensiono i numeri da mettere in gioco noto che non ne prende + di 10..mi si blocca il programma

grazie