[VB6] Restituire decina e cadenza di un numero

[Magicolotto]

avrei bisogno di un aiutino
dovrei far in modo di restituire la decina e la cadenza di un numero

amb1= 78
am1=7
am2=3

il primo l'ottengo cosi =
am1= Mid$(amb1, 1, 1)

giusto?

e per la cadenza come si dovrebbe fare?

[oregon]

Originariamente inviato da Magicolotto
avrei bisogno di un aiutino

dovrei far in modo di restituire la decina e la cadenza di un numero

amb1= 78
am1=7
am2=3

il primo l'ottengo cosi =
am1= Mid$(amb1, 1, 1)

giusto?

Puoi usare la Left$ al posto della Mid$ e devi prevedere il caso dei numeri con una sola cifra ... Dovresti scrivere

am1 = Val(Left$(Format$(amb1, "00"),1))

e per la cadenza come si dovrebbe fare?

Cos'e' la cadenza per te?

[Luciano79]

Do per scontato che sia vb6 perchè di solito parli di quello (ora il moderatore ti farà il cazziatone ) Non basta la left, se il numero fosse di + cifre non otterresti le decine. Per ottenere sempre le decine fai così

if Numero > 9 then
  Decine$ = cstr(Fix(Numero / 10) mod 10)
else
  Decine$ = ""
endif

Manco io ho capito cos'è la cadenza...

[oregon]

Originariamente inviato da Luciano79
Do per scontato che sia vb6 perchè di solito parli di quello (ora il moderatore ti farà il cazziatone ) Non basta la left, se il numero fosse di + cifre non otterresti le decine. Per ottenere sempre le decine fai così

if Numero > 9 then
  Decine$ = cstr(Fix(Numero / 10) mod 10)
else
  Decine$ = ""
endif

Manco io ho capito cos'è la cadenza...

Ho suggerito quel codice perche' trattasi di numeri del lotto ... da 1 a 90 ...

... almeno ...

[Magicolotto]

si, trattasi di numeri da 1 a 90
78
7= decina
8= cadenza
la parte decimale

cmq sia ho ho fatto cosi :
am1 = Mid$(amb1, 2, 1)
e mi restituisce l'8
ovviamente se fose un numero < 10

chiedo ad eregon se basta quello che ha scritto lui :

am1 = Val(Left$(Format$(78, "00"),1))

[oregon]

Allora

decina = amb1 \ 10
cadenza = amb1 mod 10

[Magicolotto]

se faccio cosi
decina = amb1 \ 10


decina = 78/10

esce 7,8

giusto?

[oregon]

No ... avrai 7 ... ma perche' non provi invece di chiedere nel forum delle cose a cui tu stesso puoi darti la risposta?

Da me (o anche da altri) potresti avere una risposta tra un giorno e ti fermi senza fare una semplice prova?

[Brainjar]

Ti ha suggerito decina = amb1 \ 10, perchè fai 78/10 ? E' 78\10.

A parte le domande contorte ed ambigue come quella relativa a dist()
ed operatore or di qualche post fa, mi sa che fai di tutto per non
capire le risposte che ti danno.

L' operatore \ esegue una divisione senza resto, in pratica ti
ritorna un intero, come se facessi Int(78/10).


decina = amb1 \ 10 equivale a decina = Int(amb1/10)

Accendi il PC ma non dimenticare di accendere anche qualcosaltro !!
Eddai!

[alka]

Originariamente inviato da Luciano79
Do per scontato che sia vb6 perchè di solito parli di quello (ora il moderatore ti farà il cazziatone

Quoto...e correggo.