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ì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto