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ì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34

Ultimi Messaggi

Indietro
Alto