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ì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto