Gegenteil-Funktion von Bin?

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	juse4pro Betreff: Gegenteil-Funktion von Bin?	Di, Aug 24, 2010 23:06 Antworten mit Zitat
Hi, wollt mal fragen, ob eine Funktion im Standard-Paket enthalten ist, die das Gegenteil von Bin macht? Also aus einem binärem-String einen Integer (oder gar Byte, was besser wäre). Meine Codierung schaut so aus: Es sollen lediglicht 1 / 0 gespeichert werden: 01 11 00 10 Das ganze Teil ist als Byte speicherbar, aber wie? mfg: juse4pro EDIT: Ein, auf's gleiche hinaukommende Work-Around wäre, wenn ich ein Byte habe, und hinten oder vorne ein bit auf 1 oder 0 setzen kann
Portfolio \|LinkedIn \|XING

juse4pro

Betreff: Gegenteil-Funktion von Bin?

Di, Aug 24, 2010 23:06
Antworten mit Zitat

Hi, wollt mal fragen, ob eine Funktion im Standard-Paket enthalten ist, die das Gegenteil von Bin macht? Also aus einem binärem-String einen Integer (oder gar Byte, was besser wäre).

Meine Codierung schaut so aus:
Es sollen lediglicht 1 / 0 gespeichert werden:

01 11 00 10
Das ganze Teil ist als Byte speicherbar, aber wie? Razz

mfg: juse4pro

EDIT: Ein, auf's gleiche hinaukommende Work-Around wäre, wenn ich ein Byte habe, und hinten oder vorne ein bit auf 1 oder 0 setzen kann Wink

Portfolio |LinkedIn |XING

	Xeres Moderator	Di, Aug 24, 2010 23:27 Antworten mit Zitat
Hilft dir dieses? BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict rem AND: & OR: \| XOR: ~ endrem Const Bit_1:Int = %1, Bit_2:Int = %10, Bit_3:Int = %100 Local Test:Byte Test = Bit_1 \| Bit_3 '* Bits 1,3 ein Check(Test) Test:~ Bit_3 '* Bit 3 Umschalten Check(Test) Function Check(v:Int) Print("Bin: " + Bin(v)) If v & Bit_1 Then Print("Eins drin!") If v & Bit_2 Then Print("Zwei drin!") If v & Bit_3 Then Print("Drei drin!") Print("- - - - - -") End Function
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Di, Aug 24, 2010 23:27
Antworten mit Zitat

Hilft dir dieses?
BlitzMax: [AUSKLAPPEN]

SuperStrict
rem
	AND: &
	OR:  |
	XOR: ~
endrem

Const Bit_1:Int = %1, Bit_2:Int = %10, Bit_3:Int = %100
Local Test:Byte

Test = Bit_1 | Bit_3	'* Bits 1,3 ein
Check(Test)
Test:~ Bit_3			'* Bit 3 Umschalten
Check(Test)


Function Check(v:Int)
	Print("Bin: " + Bin(v))
	If v & Bit_1 Then Print("Eins drin!")
	If v & Bit_2 Then Print("Zwei drin!")
	If v & Bit_3 Then Print("Drei drin!")
	Print("- - - - - -")
End Function

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	n-Halbleiter	Di, Aug 24, 2010 23:58 Antworten mit Zitat
BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] SuperStrict Print Int("%10") Int() in BlitzMax und in BlitzBasic sind zwei ziemlich unterschiedliche Dinger.
mfg, Calvin Maschine: Intel Core2 Duo E6750, 4GB DDR2-Ram, ATI Radeon HD4850, Win 7 x64 und Ubuntu 12.04 64-Bit Ploing! Blog "Die Seele einer jeden Ordnung ist ein großer Papierkorb." - Kurt Tucholsky (09.01.1890 - 21.12.1935)

n-Halbleiter

Di, Aug 24, 2010 23:58
Antworten mit Zitat

BlitzMax: [AUSKLAPPEN]

SuperStrict

Print Int("%10")

Int() in BlitzMax und in BlitzBasic sind zwei ziemlich unterschiedliche Dinger. Wink

mfg, Calvin
Maschine: Intel Core2 Duo E6750, 4GB DDR2-Ram, ATI Radeon HD4850, Win 7 x64 und Ubuntu 12.04 64-Bit
Ploing!
Blog
"Die Seele einer jeden Ordnung ist ein großer Papierkorb." - Kurt Tucholsky (09.01.1890 - 21.12.1935)

	juse4pro	Mi, Aug 25, 2010 12:46 Antworten mit Zitat
Dankesehr
Portfolio \|LinkedIn \|XING

juse4pro

Mi, Aug 25, 2010 12:46
Antworten mit Zitat

Dankesehr

Portfolio |LinkedIn |XING

Übersicht

BlitzMax, BlitzMax NG

Allgemein

Nach Oben

BlitzBasic Portal

Gegenteil-Funktion von Bin?

juse4pro

Betreff: Gegenteil-Funktion von Bin?

Xeres

n-Halbleiter

juse4pro