[Visual Basic] VBS - Erstellte Zufallszahlen in Bin umwandeln...

Priester · 30. August 2012

VBS - Erstellte Zufallszahlen in Bin umwandeln...

Hi

ich habe vor ca. 4h angefangen mit VBS zu arbeiten und habe jetzt ein rießen Problem ;D
mein Code sieht momentan so aus:

Code:

Dim a, b, D, Bit, Dateisystem, Zahlen, Textdatei, Pfad, Bin, ZahlenBin
Pfad = "./Binaer.txt"

Set Dateisystem = CreateObject("Scripting.FileSystemObject")
Set Textdatei = Dateisystem.CreateTextFile(Pfad,true)
Function Dec2Bin(D)
 Bin = ""
 For b = 7 To 0 Step -1
 Bit = Int(D / 2 ^ b)
 D = D - Bit * 2 ^ b
 Bin = Bin & CStr(Bit)
 Next
 Dec2Bin = Bin
End Function

a = InputBox("Anzahl der Binären Zahlen:","Eingabe","Anzahl") : s= ""
Do Until a = 0
Randomize
Zahlen = Int(Rnd()*100)+1
ZahlenBin = Zahlen
ZahlenBin = Dec2Bin(D)
Textdatei.WriteLine ZahlenBin
s = s & a & ", "
a = a-1
loop

Textdatei.close

Die entsprechnde Funktion für die Umwandlung ist auch schon da
jedoch fehlt mir das knowhow um die erstellten Dez Zahlen in Bin
umzuwandeln und anschließend in eine .txt zu speichern

ich hoffe ihr könnt mir helfen

mfg priester

//Edit: Die umwandlung klappt jetzt soweit nur bekomme ich als Werte nur 0000000

Anzeige

Antihero · 30. August 2012

AW: VBS - Erstellte Zufallszahlen in Bin umwandeln...

Zitat von Priester: ↑

Hi

ich habe vor ca. 4h angefangen mit VBS zu arbeiten und habe jetzt ein rießen Problem ;D
mein Code sieht momentan so aus:
Spoiler
Code:
Dim a, b, D, Bit, Dateisystem, Zahlen, Textdatei, Pfad, Bin, ZahlenBin
Pfad = "./Binaer.txt"

Set Dateisystem = CreateObject("Scripting.FileSystemObject")
Set Textdatei = Dateisystem.CreateTextFile(Pfad,true)
Function Dec2Bin(D)
 Bin = ""
 For b = 7 To 0 Step -1
 Bit = Int(D / 2 ^ b)
 D = D - Bit * 2 ^ b
 Bin = Bin & CStr(Bit)
 Next
 Dec2Bin = Bin
End Function

a = InputBox("Anzahl der Binären Zahlen:","Eingabe","Anzahl") : s= ""
Do Until a = 0
Randomize
Zahlen = Int(Rnd()*100)+1
ZahlenBin = Zahlen
ZahlenBin = Dec2Bin(D)
Textdatei.WriteLine ZahlenBin
s = s & a & ", "
a = a-1
loop

Textdatei.close
Die entsprechnde Funktion für die Umwandlung ist auch schon da
jedoch fehlt mir das knowhow um die erstellten Dez Zahlen in Bin
umzuwandeln und anschließend in eine .txt zu speichern

ich hoffe ihr könnt mir helfen

mfg priester

//Edit: Die umwandlung klappt jetzt soweit nur bekomme ich als Werte nur 0000000
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Fehler ist die Übergabe an deine Funktion. Du Übergibst die nicht deklarierte Variable "D" anstatt "Zahlen" oder "ZahlenBin". So funktioniert das:

ZahlenBin = Dec2Bin(zahlen)

Priester · 30. August 2012

AW: VBS - Erstellte Zufallszahlen in Bin umwandeln...

WOW...so simpel
heule gerade so ein bisschen

danke dir...

Nützliche Suchen

[Visual Basic] VBS - Erstellte Zufallszahlen in Bin umwandeln...

Videos zum Themenbereich