Novità

help

lla

Super Member >PLATINUM<
ciao a tutti

volevo chiedere a chi può:

come si scrive un if che trovi ssu una ruota a scelta se ci sono 2 cadenze uguali oppure 2 figure uguali oppure 2 decine uguali?
basta un esempio dei tre
grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Lia

Ci sono tanti modi per farlo, questo è uno dei tanti

Codice:
Option Explicit
Sub Main
   Dim A,B,CaA,CaB,Es,R,Fin,Ini,P1,P2
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9800))'scelta inizio estrazioni
   R = CInt(InputBox("Inserisci Il Numero Della Ruota",,1))'scelta ruota
   For Es = Ini To Fin
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R,P1)'estratto 1
            B = Estratto(Es,R,P2)'estratto 2
            CaA = Cadenza(A) 'cadenza estratto 1
            CaB = Cadenza(B)'cadenza estratto 2
            If CaA = CaB Then 'filtra solo gli estratti con cadenza uguale
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R) & " " & StringaEstratti(Es,R),1
               Scrivi Space(10) & "  Estratti con Cadenza Uguale  " & Format2(A) & " " & Format2(B),1
               Scrivi String(52,"=")
            End If
         Next
      Next
   Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    Thursday 29 October 2020
    Bari
    26
    78
    70
    83
    51
    Cagliari
    62
    21
    12
    11
    44
    Firenze
    48
    38
    85
    90
    79
    Genova
    81
    57
    25
    32
    34
    Milano
    13
    49
    15
    82
    27
    Napoli
    31
    09
    27
    24
    33
    Palermo
    08
    25
    31
    86
    40
    Roma
    10
    06
    39
    57
    85
    Torino
    77
    39
    71
    74
    22
    Venezia
    67
    76
    29
    28
    56
    Nazionale
    30
    40
    42
    26
    16
    Estrazione Simbolotto
    08
    19
    11
    28
    37

Ultimi Messaggi

Alto