Novità

aiuto x script

  • Creatore Discussione Creatore Discussione lla
  • Data di inizio Data di inizio
lla

lla

Premium Member
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
 
Ultima modifica:
Ciao a Tutti

Non sono sicuro daver capito bene, fammi sapere

Codice: 
'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
 
Ultima modifica:
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?
 
lla;n2171206 ha scritto:
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?
Clicca per espandere...

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


Codice: 
'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
 
Ultima modifica:
grazie Salvo50,
ma per mettere i numeri tutti insieme? invece di controllare un'ambata x volta?
 
:) come non detto..ho spostato qui ho cancellato la' ..mi è riuscito di metterli tutti insieme

ancora grazie
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto