Novità

help

lla

Super Member >PLATINUM<
Messaggi
416
Punti reazione
11
Punti
18
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<
Messaggi
2.866
Punti reazione
998
Punti
113
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
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto