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
    sabato 10 maggio 2025
    Bari
    13
    59
    06
    79
    87
    Cagliari
    72
    15
    60
    08
    41
    Firenze
    33
    12
    20
    40
    43
    Genova
    46
    01
    70
    16
    19
    Milano
    69
    55
    02
    44
    20
    Napoli
    33
    10
    38
    87
    72
    Palermo
    79
    55
    11
    62
    10
    Roma
    43
    29
    79
    05
    31
    Torino
    25
    26
    61
    75
    63
    Venezia
    47
    33
    64
    31
    20
    Nazionale
    56
    46
    38
    41
    74
    Estrazione Simbolotto
    Milano
    43
    28
    34
    03
    20
Indietro
Alto