Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] - Funzione Binaria

Ciao a tutti,
Esiste una funzione che restituisce il numero binario di es."104"
Grazie
Ciao

 Esiste una funzione che restituisce il numero binario di es."104"
maurizio, prima di essere ricoperto dagli improperi, cerca nei post degli
ultimi due giorni...
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 Esiste una funzione che restituisce il numero binario di es."104"
  Dim i, j, k, valore, h, stringa, cif(48 To 91), cifra
  valore = 0
  y = 8
  stringa = "104"
  k = Len(stringa)
  j = 0
  For i = 48 To 90
    If i < 58 Or i > 64 Then
      cif(i) = j
      j = j + 1
    End If
  Next
  j = 0
  For i = k To 1 Step -1
    cifra = cif(Asc(Mid$(stringa, i, 1)))
    valore = valore + (y ^ j * cifra)
    j = j + 1
  Next
  Base_10 = valore
Vediamo un pň di capire qualcosa... allora 18 righe di codice piů la
dichiarazione 19 OK
ottimizzato.
Reso=Hex(Valore)
--
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Forse č meglio dire:
Esistono 10 tipi di persone: chi conosce Vb e chi no.

 Reso=Hex(Valore)
Scusa, ma non parlavi di binario?
-- 
Esteban
www.seber.it
Questo post è stato scritto con bit riciclati.

Scusa, ma non parlavi di binario?
Gia', ne approfitto per aggiungere il mio cazzeggio di pranzo:
Public Function GetPositiveBinaryString( _
		ByVal numero As Long) As String
    Dim ret As String
    If (numero <= 0) Then
        GetPositiveBinaryString = "0"
        Exit Function
    End If
    While (numero)
        ret = CStr((numero Mod 2)) & ret
        numero = Fix(numero / 2)
    Wend
    GetPositiveBinaryString = ret
End Function
Da un affrettato test pare che funzioni, ma non ne rispondo :-P
-- 
ciao,
hal


  Peccato che HEX() restituisca la rappresentazione in base 16 di un numero !
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Si parlavo di binario, mi sta bene la funzione long2Bin(a As Long, n As
Long) As String
Ciao

 Ciao
Ma quante basi pensi di gestire... fammi capire...credo che HEX vada bene
nella maggior parte dei casi
Ciao


Maurizio, scusa ma devo fare un riepilogo del thread, cosě forse riesco a
capirti e forse ci riesci pure tu:
12:20 - hai aperto la discussione chiedendo se esiste una funzione per
convertire in *binario* un numero;
12:21 - CSSoft ti ha consigliato di guardarti i post degli ultimi giorni in
cui si č parlato dello stesso argomento;
13:24 - hai postato una funzione che converte in *esadecimale* un numero
commentando con sarcasmo la lunghezza del codice e mettendolo a confronto
con la funzione Hex() che ritorna un numero *esadecimale* (ma tu non volevi
un numero binario?);
13:44 - ti ho fatto notare che tu cercavi una funzione per convertire un
numero in *binario*;
13:47 - hal1961 ha postato il codice di una funzione per convertire un
numero in *binario*;
14:04 - nk6310i, riferito al tuo post delle 13:24 ti ha fatto notare che la
funzione Hex() riportata nel tuo post restituisce un numero *esadecimale*;
14:07 - confermi il tuo desiderio di avere una funzione che faccia la
conversione in *binario* e affermi di 'starti bene' la funzione long2bin
(postata da termoPilucco il 06.03.2004 alle 00:34 = sei andato a vederti i
post dei giorni scorsi?);
14:18 - in risposta al post di nk6310i scrivi: "Ma quante basi pensi di
gestire... fammi capire...credo che HEX vada bene nella maggior parte dei
casi".
Ora, mi spieghi che c***o vuol dire tutto quello che hai detto nei tuoi vari
post, e sopratutto cosa vuol dire il tuo ultimo post????
-- 
Esteban
www.seber.it
Questo post č stato scritto con bit riciclati.

 nella maggior parte dei casi
E' un troll... spero.
termoPilucco

[termoPilucco = 
circa_ter...@hotmail.com
 in
c2khuj$1ntv45$
1...@ID-188026.news.uni-berlin.de
] ha scritto:

Sě, lo spero anch'io. Arrivano sempre in coppia.


 Quindi ce ne dobbiamo aspettare un altro, tu dici!
Cia


  Quindi ce ne dobbiamo aspettare un altro, tu dici!
No, parlavo al presente.

Maurizio A. Scrive:
....avevo bisogno, e per questo ringrazio chi ha fatto la Function, di
convertire un numero
in binario...tutto qua.
Ciao!