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
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto