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
 

druid

Super Member >PLATINUM<
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:

antonio65

Super Member >PLATINUM<
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....
 

claudio8

Premium Member
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ì 24 maggio 2024
    Bari
    84
    05
    39
    04
    18
    Cagliari
    13
    86
    72
    71
    32
    Firenze
    28
    76
    34
    11
    44
    Genova
    26
    89
    29
    61
    71
    Milano
    88
    12
    13
    56
    61
    Napoli
    68
    47
    87
    25
    81
    Palermo
    64
    13
    74
    28
    18
    Roma
    05
    82
    28
    87
    73
    Torino
    46
    02
    17
    27
    67
    Venezia
    07
    58
    23
    06
    19
    Nazionale
    69
    81
    01
    79
    26
    Estrazione Simbolotto
    Milano
    06
    01
    42
    17
    05
Alto