Novità

Aiuto

antonio65

Super Member >PLATINUM<
Buonasera cari amici....sono assente sul web da circa 9 giorni per problemi di salute...ora sto meglio...
Volevo chiedere qualora qualcuno ...sopratutto per gli esperti se e' possibile mettere un contatore con il ciclo for next...senza che esso sia abbinato a nessun estratto ....ma un contatatore
che vada da 1 a 120 da sottrarre da calcolo dove nello script in allegato c'e scritto 100 ...e' possibile grazie in anticipo Antonio!!!

Codice:
 Sub Main
   Dim Nu(5),Nn(5),Ru(12),T,V,Numero1,Numero2,Numero3,Numero4,Numero5,SommaE,SommaEx4,Nuadd,Nuadd2,NumSom,Numalti,Risnumalti,Quartonumero1,Quartonumerodiviso,Quintonumero1
   Dim poste(3),postee(3)
   Dim posta(2)
   posta(1) = 1 ' < - - - posta per estratto
   Ini = EstrazioneFin - 40
   fin = EstrazioneFin
   r = InputBox("Quale Ruota",,1)
   T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
   Call InitTabella(T,1,3,,5)
   For es = Ini To fin
      Call AvanzamentoElab(Ini,fin,es)
      p1 = 1
      p2 = 2
      p3 = 3
      p4 = 4
      p5 = 5
      SommaE = SommaEstratti(es,r)
      Numero1 = Estratto(es,r,p1)
      Nuadd = Numero1*4
      Nuadd2 = Abs(Nuadd - 100)'contatore
      Numero2 = Fuori90(Abs(SommaE - Nuadd2))
      SommaEx4 = SommaE*4
      NumSom = Nuadd + SommaE
      Numalti = Abs(SommaEx4 - NumSom)
      Risnumalti = Abs(Numalti - 100)'contatore
      Numero3 = Abs(SommaE - Risnumalti)
      Quartonumero1 = Numero1 + Numero2 + Numero3
      Quartonumerodiviso = Quartonumero1/2
      Numero4 = Quartonumerodiviso + Numero3
      Quintonumero1 = Numero2 + Numero3 + Numero4
      Numero5 = Abs(SommaE - Quintonumero1)
      Ru(5) = 4
      '************************************************************************************
      Nn(1) = Fuori90(Numero1)
      Nn(2) = Fuori90(Numero2)
      Nn(3) = Fuori90(Numero3)
      Nn(4) = Fuori90(Numero4)
      Nn(5) = Fuori90(Numero5)
      '************************************************************************************
      Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
      '.......................................
      V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Numero1,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")
      Call AddRigaTabella(V)
      ImpostaGiocata 1,Nn,Ru,posta,clp
      Gioca es
      Call SetColoreCella(15,,7)
      Call SetColoreCella(1,,1)
      Call SetColoreCella(2,,1)
      If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
      If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
      If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
      If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
      If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
      rr = 11
      If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
      If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
      If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
      If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
      If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
   Next
   SetTableTitle "         Listato  Antonio65 ","Arial",12
   SetTableWidth("100%")
   SetTableHeight("100%")
   Call CreaTabella()
   ScriviResoconto
End Sub
 
Ciao Antonio,
la richiesta non e' ben chiara, cmq se per esempio mettiamo un contatore al posto del 100 nella riga


Codice:
[FONT=arial]Risnumalti = Abs(Numalti - 100)'contatore[/FONT]
che prenda i valori da 1 a 120, quindi sottraendo i suddetti valori a "Numalti" otterremmo 120 valori di "Risnumalti" e di conseguenza avremmo 120 valori per ogni variabile che viene movimentata dal valore suddetto.
E' questo il tuo intento?
Ciao
 
Ultima modifica:
Ciao druid si esattamente cosi in base al contatore per tale operazione sottrattiva capisco appunto il miglior valore da sottrarre per un a migliore previsione del resoconto finale....
 
antonio65;n2116201 ha scritto:
Buonasera cari amici....sono assente sul web da circa 9 giorni per problemi di salute...ora sto meglio...
Volevo chiedere qualora qualcuno ...sopratutto per gli esperti se e' possibile mettere un contatore con il ciclo for next...senza che esso sia abbinato a nessun estratto ....ma un contatatore
che vada da 1 a 120 da sottrarre da calcolo dove nello script in allegato c'e scritto 100 ...e' possibile grazie in anticipo Antonio!!!

Codice:
 Sub Main
Dim Nu(5),Nn(5),Ru(12),T,V,Numero1,Numero2,Numero3,Numero4,Numero5,SommaE,SommaEx4,Nuadd,Nuadd2,NumSom,Numalti,Risnumalti,Quartonumero1,Quartonumerodiviso,Quintonumero1
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = EstrazioneFin - 40
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
For contatore = 1 to 120 '  questa si chiama variabile, non contatore
T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
Call InitTabella(T,1,3,,5)
For es = Ini To fin
Call AvanzamentoElab(Ini,fin,es)
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
SommaE = SommaEstratti(es,r)
Numero1 = Estratto(es,r,p1)
Nuadd = Numero1*4
Nuadd2 = Abs(Nuadd - contatore)'contatore
Numero2 = Fuori90(Abs(SommaE - Nuadd2))
SommaEx4 = SommaE*4
NumSom = Nuadd + SommaE
Numalti = Abs(SommaEx4 - NumSom)
Risnumalti = Abs(Numalti - 100)'contatore
Numero3 = Abs(SommaE - Risnumalti)
Quartonumero1 = Numero1 + Numero2 + Numero3
Quartonumerodiviso = Quartonumero1/2
Numero4 = Quartonumerodiviso + Numero3
Quintonumero1 = Numero2 + Numero3 + Numero4
Numero5 = Abs(SommaE - Quintonumero1)
Ru(5) = 4
'************************************************************************************
Nn(1) = Fuori90(Numero1)
Nn(2) = Fuori90(Numero2)
Nn(3) = Fuori90(Numero3)
Nn(4) = Fuori90(Numero4)
Nn(5) = Fuori90(Numero5)
'************************************************************************************
Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
'.......................................
V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Numero1,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")
Call AddRigaTabella(V)
ImpostaGiocata 1,Nn,Ru,posta,clp
Gioca es
Call SetColoreCella(15,,7)
Call SetColoreCella(1,,1)
Call SetColoreCella(2,,1)
If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
rr = 11
If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
Next
SetTableTitle " Listato Antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")
Call CreaTabella()
ScriviResoconto , false
next
End Sub

Il concetto è questo ... speriamo che ti basti la memoria del pc, perchè lo script viene ripetuto x 120 volte, compreso il resoconto ed i grafici - Va bene ... te li tolgo, vai pure.
Maledetta canna da pesca... ti scotta proprio toccarla.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto