Novità

Aiutino per Script

Xeroxs

Advanced Member >PLATINUM<
Buon Pomeriggio a Tutti,
Purtroppo in questo periodo non riesco a frequentare il Forum come Vorrei, qualche problema prende la priorità e non mi concede lo spazio che vorrei, a volte penso he basta imporsi di fare altro per distrarsi così ci provo come in questo caso con le cose che comunque mi piacciono.

Volevo creare uno script per una mia amica sulle frequenze dei Numeri con i dati esposti in orizzontale per ogni ruota e se lo faccio per una sola tutto ok ma poi non riesco a "ciclare"
la ricerca per ogni Ruota e non capisco dove sbaglio, spostando e rispostando parte del codice, mi sono chiesto forse non è possibile, pero non credo sia così.

Cosi Chiedo se qualcuno mi aiuta a correggere lo script che riporto, e se mi aiuta a capire dove in fin dei conti dove sto sbagliando.
Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,es
   Dim Ruota
   Dim Numeri,FreqNum
   Dim RigaNumeri,RigaFreqNum
   '----------------------------- Range Estrazioni
   Ini = 10024
   Fin = EstrazioneFin
   '-----------------------------
   For Ruota = 1 To 2
      'For Ruota = 1 To 12 : If Ruota = 11 Then Ruota = 12
      Scrivi NomeRuota(Ruota),1,,,0
      Scrivi "-----------",1
      '------------------------------------------------------------------------------------------------ Ricerco i Numeri con la Frequenza Voluta
      For Numeri = 1 To 90
         FreqNum = EstrattoFrequenzaTurbo(Ruota,Numeri,Ini,Fin)
         If FreqNum > 10 Then ' Quì Scelgo la Frquenza Voluta
            RigaNumeri = RigaNumeri & FormatSpace(Numeri,2) & "    "
            RigaFreqNum = RigaFreqNum & FormatSpace(FreqNum,3) & "   "
         End If
      Next ' Chiude Numeri
      '------------------------------------------------------------------------------------------------- Scrivo i Risultati della Ricerca
      Scrivi RigaNumeri,1,,,1
      Scrivi RigaFreqNum,1,0,,2
      Scrivi
      Scrivi
   Next ' Chiude uota
End Sub

Approfitto Per Ringraziare Tutti Quelli che in qualche modo mi hanno aiutato in questo mio progetto di crescita e che in fin dei conti mi hanno aiutato a distrarmi nel modo giusto, spero di portare a termine una ricerca che mi premeva tanto ma che ho dovuto accantonare per i miei problemi...
se avrò modo riprenderò la discussione.... tante altre cose le ho davvero comprese grazie a Voi.
 
Ciao,

Non so se ho capito bene.

Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,es
   Dim Ruota
   Dim Numeri,FreqNum
   Dim RigaNumeri,RigaFreqNum
   '----------------------------- Range Estrazioni
   Ini = 10024
   Fin = EstrazioneFin
   '-----------------------------
   'For Ruota = 1 To 2
    For Ruota = 1 To 12 : If Ruota = 11 Then Ruota = 12
    RigaNumeri ="" 
    RigaFreqNum ="" 
      Scrivi NomeRuota(Ruota),1,,,0
      Scrivi String (40,"-"),1
      '------------------------------------------------------------------------------------------------ Ricerco i Numeri con la Frequenza Voluta
      For Numeri = 1 To 90
         FreqNum = EstrattoFrequenzaTurbo(Ruota,Numeri,Ini,Fin)
         If FreqNum > 10 Then ' Quì Scelgo la Frquenza Voluta
            RigaNumeri = RigaNumeri & FormatSpace(Numeri,2) & "    "
            RigaFreqNum = RigaFreqNum & FormatSpace(FreqNum,3) & "   "
         End If
      Next ' Chiude Numeri
      '------------------------------------------------------------------------------------------------- Scrivo i Risultati della Ricerca
      Scrivi RigaNumeri,1,,,1
      Scrivi RigaFreqNum,1,0,,2
      Scrivi
      Scrivi
   Next ' Chiude uota
End Sub

:)
 
Ciao, Joe

Hai Compreso benissimo, Cos ho modo di capire anche in questo caso il mio Errore nel compilare lo Script.

Gentile Come Sempre, Grazie Davvero Tanto. (y)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 02 settembre 2025
    Bari
    36
    17
    23
    80
    83
    Cagliari
    06
    17
    77
    59
    86
    Firenze
    74
    11
    43
    64
    62
    Genova
    43
    31
    55
    05
    78
    Milano
    86
    04
    34
    45
    59
    Napoli
    18
    69
    05
    30
    26
    Palermo
    20
    09
    76
    80
    55
    Roma
    89
    26
    57
    75
    46
    Torino
    17
    74
    35
    12
    54
    Venezia
    18
    34
    19
    40
    66
    Nazionale
    49
    14
    32
    19
    07
    Estrazione Simbolotto
    Palermo
    13
    19
    29
    01
    33
Indietro
Alto