Novità

Piccola modifica scrip

solare

Advanced Member >PLATINUM<
Ciao, chiedo cortesemente agli esperti di inserire nello script la possibilità di selezionare la ruota con apposita finestra.
Grazie
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45),mx
S = Space(1)
Ini = EstrazioneFin - 28
Fin = EstrazioneFin - 10
For Es = Ini To Fin
ColoreTesto 0
'Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
Scrivi DataEstrazione(Es) & S,False,False
For R = 3 To 3
ColoreTesto 0
Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
For P = 1 To 4
For Q = P + 1 To 5
D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
Dst(D) = Dst(D) + 1
If mx < Dst(D) Then mx = Dst(D)
If D = 33 Then ColoreTesto 2 Else ColoreTesto 5
Scrivi FormatSpace(D,3,True) & S,False,False
Next
Next
Scrivi
Next
Next
Scrivi
ColoreTesto 0
For P = mx To 1 Step - 1
For D = 1 To 45
If Dst(D) = P Then
Scrivi "Dist." & S & Format2(D) & S & FormatSpace(Dst(D),3,True) & S & "Pres"
End If
Next
Next
End Sub
 
Ciao Solare

Codice:
Sub Main
   Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45),mx,RR
   S = Space(1)
   Ini = EstrazioneFin - 28
   Fin = EstrazioneFin - 10
   RR = InputBox(" Inserisci numero ruota BA = 1, CA = 2 ecc... Nazionale = 12 ",,6)
   For Es = Ini To Fin
      ColoreTesto 0
      'Scrivi String(22,"=") & S & DataEstrazione(Es) & S & String(23,"="),True
      Scrivi DataEstrazione(Es) & S,False,False
      For R = RR To RR
      If R = 11 Then R = 12
         ColoreTesto 0
         Scrivi SiglaRuota(R) & S & StringaEstratti(Es,R) & S,True,False
         For P = 1 To 4
            For Q = P + 1 To 5
               D = Distanza(Estratto(Es,R,P),Estratto(Es,R,Q))
               Dst(D) = Dst(D) + 1
               If mx < Dst(D) Then mx = Dst(D)
               If D = 33 Then ColoreTesto 2 Else ColoreTesto 5
               Scrivi FormatSpace(D,3,True) & S,False,False
            Next
         Next
         Scrivi
      Next
   Next
   Scrivi
   ColoreTesto 0
   For P = mx To 1 Step - 1
      For D = 1 To 45
         If Dst(D) = P Then
            Scrivi "Dist." & S & Format2(D) & S & FormatSpace(Dst(D),3,True) & S & "Pres"
         End If
      Next
   Next
End Sub
 
Ciao , se serve inserire da input box si potrebbe utilizzare scegliruota e sarebbe inutile il ciclo for
Altrimenti utilizzeremo scegliruote(ar)
Molto versatile perché si possono selezionare una o più ruote il for cicla l array che potrebbe contenere una o più ruote.
Ovviamente anche l input box va bene ,queste sono due alternative possibili.
Ciao a tutti:)
Fa piacere rileggerti Salvo :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto