---

Hvordan konvater man Decimal tal til Binary i visual basic 6

eks. 257 = 100000001

---

"Jørgen Holdt" <jhdata@webspeed.dk> skrev i en meddelelse
news:465313d8$0$52088$edfadb0f@dread11.news.tele.dk...
> Hvordan konvater man Decimal tal til Binary i visual basic 6
>
> eks. 257 = 100000001

lav et project med en command1 button og prøv denne metode


Public Function DecimalToBinary(DecimalNum As Long) As String
Dim tmp As String
Dim n As Long
n = DecimalNum
tmp = Trim(Str(n Mod 2))
n = n \ 2
Do While n <> 0
tmp = Trim(Str(n Mod 2)) & tmp
n = n \ 2
Loop
DecimalToBinary = tmp
End Function

Private Sub Command1_Click()
MsgBox DecimalToBinary(257)
End Sub

---

On Tue, 22 May 2007 18:51:24 +0200, Desserten wrote:

> "Jørgen Holdt" <jhdata@webspeed.dk> skrev i en meddelelse
> news:465313d8$0$52088$edfadb0f@dread11.news.tele.dk...
>> Hvordan konvater man Decimal tal til Binary i visual basic 6
>>
>> eks. 257 = 100000001
>
> lav et project med en command1 button og prøv denne metode
>
>
> Public Function DecimalToBinary(DecimalNum As Long) As String
> Dim tmp As String
> Dim n As Long
> n = DecimalNum
> tmp = Trim(Str(n Mod 2))
> n = n \ 2
> Do While n <> 0
> tmp = Trim(Str(n Mod 2)) & tmp
> n = n \ 2
> Loop
> DecimalToBinary = tmp
> End Function
>
> Private Sub Command1_Click()
> MsgBox DecimalToBinary(257)
> End Sub

Noget galt med bare at bruge en one-liner ;)

Function binStr(val)
If val > 0 Then binStr = binStr(Int(val / 2)) & CStr(val Mod 2)
End Function

--
mvh
Benny Andersen

---

>
> Noget galt med bare at bruge en one-liner ;)
>
> Function binStr(val)
> If val > 0 Then binStr = binStr(Int(val / 2)) & CStr(val Mod 2)
> End Function
>


Svar på spørgsmålet og lad være med at svare på mit svar !

God news etikette er : Giv dit svar på hvordan opgaven løses MEN lad være med at svare
andres svar og dermed nedgøre.................. hvis dem der svarer bliver "hakket" ned
hvergang de svarer, hvordan tror du så news ser ud i fremtiden ??

---

On Wed, 23 May 2007 13:05:43 +0200, Desserten wrote:

> Svar på spørgsmålet og lad være med at svare på mit svar !
Når det er essensen af hvad mit indlæg er for dig, så skal det ikke ske
igen for dit vedkommende.
--
Mvh
Benny Andersen

---

Tak for svarene og for dem bække to



Det var det jeg skulle bruge



"Jørgen Holdt" <jhdata@webspeed.dk> wrote in message
news:465313d8$0$52088$edfadb0f@dread11.news.tele.dk...
> Hvordan konvater man Decimal tal til Binary i visual basic 6
>
> eks. 257 = 100000001
>