Novità

Richiamare un numero - Come fare?

  • Creatore Discussione Creatore Discussione Xeroxs
  • Data di inizio Data di inizio

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti,
Dovrei creare un metodino, ma prima di farlo vorrei sapere se è possibile da una serie di numeri che vengono calcolati voler richiamare quel numero che non appartiene a quella decina,

Faccio un esempio

Mi Ritrovo ad avere questi numeri 82 85 89 ed il 24
che io chiamerò Num(1) = 82 Num(2) = 24 Num(3) = 85 e Num(4) = 89

Io vorrei utilizzare il numero 24 che non appartiene alla stessa decina 8 degli altri numeri.

Premetto che il numero che non appartiene alla stessa decina può essere anche diverso da Num(2) per cui devo capire come estrapolare il numero diverso per poterlo utilizzare ame ambata o come numero di calcolo successivo

Ad esempio si possono utilizzare degli If, o altro per dire

Ambata = al 24 in questo primo esempio


Oppure se avessi 22 28 36 29

dove Num(1) = 22 Num(2) = 28 Num(3) = 36 e Num(4) = 29

Quindi devo Richiamare il 36 che in questo caso è il Num((3)

Spero di essere stato comprensivo in ciò che vorrei fare.

Grazie come Sempre
 
Ciao xeroxs, in attesa di eventuali interventi da parte dei big scripters la butto là... Potresti forse ricorrere in qualche modo alla funzione


Function Decina(Numero) As Integer

Descrizione

Ottiene la decina del numero specificato

E poi confrontare che so il relativo vettore e nel caso ci sia un solo numero con una sola specifica decina estrapolare solo quello...

👋:)
 
Ultima modifica:
Buongiorno.

Ci sono tante soluzioni, come creare una funzione...

Prova questa soluzione:
Sub Main() Dim n(4),dc(4) n(1)=22: n(2)=28 : n(3)=36 : n(4)=29 For i=1 To 4 dc(i)=Decina (n(i)) Next For j=0 To 8 g=0 For y=1 To 4 If dc(y)<>j Then g=g+1 : q=y Next If g=1 Then Exit For Next If g=1 Then nc=n(q) Scrivi StringaNumeri (n)& Space (2)&"Num. Diverso "& nc End If End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto