| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
 Verfasst am: 22.02.2007, 22:47 Titel: Eingaberoutine |
 |
|
also hier mein code
| Code: |
dim as integer x,y
dim as string t
screen 20,32,,
x = 10
y = 10
do
locate x, y
? "_"
do
t = inkey$
loop until t <> ""
locate x, y
? " "
select case right$(t, 1)
case "H"
x = x - 1
case "K"
y = y - 1
case "M"
y = y + 1
case "P"
x = x + 1
case chr$(13)
x=x+1
case chr$(27)
end
end select
if x < 1 then x = 1
if y < 1 then y = 1
if y > 79 then y = 79
if x > 29 then x = 29
loop
|
meine frage dazu ist wie kann ich da jetzt einfach zwischendrinne was eingeben, also einfach so was eingeben egal an welcher position |
|
| Nach oben |
|
 |
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 22.02.2007, 22:55 Titel: |
|
|
Schau einfach mal hier nach..
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
|
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 23.02.2007, 09:56 Titel: |
|
|
ok danke für die hilfreichen antworten  |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 23.02.2007, 15:52 Titel: |
|
|
| sorry aber ich muss doch noch ma fragen, denn aus ytwinky bin ich leider net so schlau geworden das ich es in mein programm einbauen kann, also wie gesgat die frage besteht ja immer noch wie kann ich also jetzt in meinem programm an irgendeiner mit dem coursor erreichten stelle buchstaben auf den bildschirm bringen ?? |
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 23.02.2007, 17:21 Titel: |
|
|
Also, wenn ich das jetz richtig verstanden hab, gehts so:
| Code: | dim text as string
input text |
Zumindest könnt es dem Sinn des gelesenen entsprechen... |
|
| Nach oben |
|
|
General
Anmeldungsdatum: 26.11.2006
Beiträge: 149
|
| Verfasst am: 23.02.2007, 17:26 Titel: |
|
|
also ich habe jetzt mehre versuche gestartet und es hat dann doch geklappt ich habe mir dann selber die eingaberoutine gebaut. Danke Trotzdem an die dei mir geholfen haben, hier einfach ma der code
| Code: |
dim shared as string a
dim shared as integer x,y
declare sub schreiben
cls
screen 12,,,
x=2
y=2
do
schreiben
locate x,y
?"_"
do
a=inkey$
loop until a<>""
locate x,y
?" "
select case right$(a,1)
case"H"
x=x-1
case"K"
y=y-1
case"M"
y=y+1
case"P"
x=x+1
case chr$(13)
x=x+1
case chr$(8)
y=y-1
case chr$(27)
end
end select
if x < 1 then x = 1
if y < 1 then y = 1
if y > 79 then y = 79
if x > 29 then x = 29
loop
sub schreiben
locate x,y
if a>chr$(48) and a<=chr$(154) then
y=y+1
print a;
end if
if a=chr$(13) then
x=x+1
print a;
end if
if a=chr$(32) then
y=y+1
end if
if a=chr$(8) then
y=y-1
?" "
end if
end sub
|
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 23.02.2007, 20:41 Titel: |
|
|
| PMedia hat Folgendes geschrieben: | Also, wenn ich das jetz richtig verstanden hab, gehts so:
| Code: | dim text as string
input text |
Zumindest könnt es dem Sinn des gelesenen entsprechen... |
..fast 
InputLn ist eine Funktion, die einen String liefert, also | Code: | Dim Antwort As String
Antwort=InputLn("Wie lautet die ultimative Antwort:")
?Antwort
Sleep
End |
Dieser String muß, wie ich schon geschrieben habe, in das gewünschte Format umgewandelt(Cast() oder wie auch immer) werden..
Bis auf den Prompt-String sind alle Parameter wahlfrei..
..und wie der Cursor auf dem Bildschirm platziert wird, weiß der General ja auch..
Wenn noch Fragen sind: Ich bin gelegentlich im Forum und beantworte sie dann.. 
(Außerdem lassen sich alle Parameter ja ausprobieren, denn ein Antwort="" verwirft die Eingabe)
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
