The_Muh
aka Mark Aroni
Anmeldungsdatum: 11.09.2006
Beiträge: 718
|
 Verfasst am: 03.10.2007, 15:03 Titel: Bin() und Val() |
 |
|
Das Problem ist, das ich die variablen nicht in Binarys umgewandelt bekomme.... ob nun als String, Integer, oder sonstwas gedimt... | Code: | dim as integer Attribut(1 to 4),karte , posY ,posX
dim as string user1,user2,user3,auswahl
'Laden der Master-Settings:
open "setting.lib" for input as #1
input #1, user1,user2,user3
close #1
'Abfrage nach dem Speicherslot:
print "Spielstand auswählen:"
if len(user1) > 1 then
print user1 & " = 1"
else
print "Slot 1 ist leer"
end if
if len(user2) > 1 then
print user1 & " = 2"
else
print "Slot 2 ist leer"
end if
if len(user3) > 1 then
print user1 & " = 3"
else
print "Slot 3 ist leer"
end if
input "Waehle einen Speicher-Slot (1,2,3): ",auswahl
'Das eigentliche Speichern:
select case auswahl
Attribut(1) = bin(Attribut(1))
Attribut(2) = bin(Attribut(2))
Attribut(3) = bin(Attribut(3))
Attribut(4) = bin(Attribut(4))
karte = bin(karte)
posY = bin(posY)
posX = bin(posX)
case "1"
open user1+".sav" for output as #2
write #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
close #2
case "2"
open user2+".sav" for output as #2
write #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
close #2
case "3"
open user3+".sav" for output as #2
write #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
close #2
end select
sleep |
Das oben ist erstmal nur der speicher-code
_________________
// nicht mehr aktiv // |
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 03.10.2007, 15:33 Titel: |
|
|
Mir ist deine Fragestellung alles andere als klar...
Möchtest du "unleserliche" Binärdateien erstellen?
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
