Chat Könnt ihr mir helfen ? bitte

Übersicht

BlitzBasic

Beginners-Corner

	ToeB Betreff: Chat Könnt ihr mir helfen ? bitte	Mi, Nov 15, 2006 14:29 Antworten mit Zitat
Ich programmiere grad 'n Chat^^, nur ich weiß net wie ich wenn ich was eingeb dann erscheint das auch... aber wenn ich danach nochma was eingebe überschreibt er das vorher gerschriebene... hier is der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 2 Rect 20, 460, 760, 100, 0 Rect 20, 20, 760, 400, 0 Repeat Locate 20, 460 ChatText$ = Input() Cls Rect 20, 460, 760, 100, 0 Rect 20, 20, 760, 400, 0 Locate 20, 20 Print ChatText$ Forever Danke schon mal^^

ToeB

Betreff: Chat Könnt ihr mir helfen ? bitte

Mi, Nov 15, 2006 14:29
Antworten mit Zitat

Ich programmiere grad 'n Chat^^, nur ich weiß net wie ich wenn ich was eingeb dann erscheint das auch... aber wenn ich danach nochma was eingebe überschreibt er das vorher gerschriebene... hier is der Code:

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 2
Rect 20, 460, 760, 100, 0
Rect 20, 20, 760, 400, 0

Repeat
Locate 20, 460
ChatText$ = Input()
Cls
Rect 20, 460, 760, 100, 0
Rect 20, 20, 760, 400, 0

Locate 20, 20
Print ChatText$
Forever

Danke schon mal^^ Crying or Very sad

	Tankbuster	Mi, Nov 15, 2006 14:52 Antworten mit Zitat
also... auf die Schnelle würd ich DAS: nehmen Zitat: Graphics 800, 600, 16, 2 lol=20 box_x = 20 box_y = 460 While Not KeyDown(1) Locate 20, 460 ChatText$ = Input() lol=lol+20 Locate 20, lol Print ChatText$ Color 0,0,0 Rect box_x,box_y,800,20,1 Color 255,255,255 Flip Wend Dabei wird eine Schwarze Box über den Text unten gemalt^^
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Mi, Nov 15, 2006 14:52
Antworten mit Zitat

also... auf die Schnelle würd ich DAS: nehmen
Zitat:

Graphics 800, 600, 16, 2
lol=20
box_x = 20
box_y = 460

While Not KeyDown(1)
Locate 20, 460
ChatText$ = Input()
lol=lol+20
Locate 20, lol
Print ChatText$
Color 0,0,0
Rect box_x,box_y,800,20,1
Color 255,255,255
Flip
Wend

Dabei wird eine Schwarze Box über den Text unten gemalt^^

Twitter
Download Jewel Snake!
Windows|Android

	ToeB	Mi, Nov 15, 2006 14:55 Antworten mit Zitat
Hey danke ! jetzt kann ich weiter machen^^ danke !

ToeB

Mi, Nov 15, 2006 14:55
Antworten mit Zitat

Hey danke ! jetzt kann ich weiter machen^^
danke Wink

	Tankbuster	Mi, Nov 15, 2006 14:55 Antworten mit Zitat
Kein Problem
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Mi, Nov 15, 2006 14:55
Antworten mit Zitat

Kein Problem Very Happy

Twitter
Download Jewel Snake!
Windows|Android

	FreetimeCoder	Mi, Nov 15, 2006 14:56 Antworten mit Zitat
Hi, also der folgende Code behebt das Problem, wirft aber neue auf Arbeite mal Tutorials zu Types durch. Allerdings ist sowas wie: Zitat: Ich programmiere grad 'n Chat nicht gerade glaubhaft, wenn du selbst solche einfachen Dinge wie "Flächen ausmalen" nicht kennst. Übe besser noch ein bisschen und programmier was anderes. Dein Code sieht mir nicht sehr durchdacht aus und ein Chat ist keine einfache Sache! Das soll keine Beleidigung sein, sondern ist nur eine Feststellung. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 2 Rect 20, 460, 760, 100, 0 Rect 20, 20, 760, 400, 0 Type Chattext ;Type festlegen Field Msg$ End Type Repeat Locate 20, 460 C.Chattext=New Chattext ;Neuen Type erstellen C\Msg$ = Input() ;Msg zuweisen Cls Rect 20, 460, 760, 100, 0 Rect 20, 20, 760, 400, 0 Y=20 ;Start Y festlegen For C.Chattext=Each Chattext ;Alle Types durchgehen Text 20,Y,C\Msg ;Message aus Type schreiben Y=Y+15 ;Y Vergrößern um eine aufreihung zu erzielen Next Forever Edit: Tankbuster war schneller, aber wenn du wirklich einen Chat machen willst, stößt du mit seiner Methode bald an die Grenzen.
"Wir haben keine Chance, aber wir werden sie nutzen!" Projekte: Dexterity Ball (100%) Aquatic Atmosfear (22 % ca 4700 Zeilen) eingefrohren mangels OOP Fähigkeiten von Blitz (ehemals Uboot) PC: Intel D 3 GHz \| NVidiaGforce 6700 256 Mb \| 1024 Mb DDR RAM 400 Mhz \| 2x160 GB S-ATA

FreetimeCoder

Mi, Nov 15, 2006 14:56
Antworten mit Zitat

Hi, also der folgende Code behebt das Problem, wirft aber neue auf Wink

Arbeite mal Tutorials zu Types durch. Allerdings ist sowas wie:
Zitat:

Ich programmiere grad 'n Chat

nicht gerade glaubhaft, wenn du selbst solche einfachen Dinge wie "Flächen ausmalen" nicht kennst. Übe besser noch ein bisschen und programmier was anderes. Dein Code sieht mir nicht sehr durchdacht aus und ein Chat ist keine einfache Sache! Das soll keine Beleidigung sein, sondern ist nur eine Feststellung.

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 2

Rect 20, 460, 760, 100, 0
Rect 20, 20, 760, 400, 0

Type Chattext ;Type festlegen
Field Msg$
End Type

Repeat
Locate 20, 460
C.Chattext=New Chattext ;Neuen Type erstellen
C\Msg$ = Input() ;Msg zuweisen
Cls
Rect 20, 460, 760, 100, 0
Rect 20, 20, 760, 400, 0

Y=20 ;Start Y festlegen
For C.Chattext=Each Chattext ;Alle Types durchgehen
Text 20,Y,C\Msg ;Message aus Type schreiben
Y=Y+15 ;Y Vergrößern um eine aufreihung zu erzielen
Next
Forever

Edit: Tankbuster war schneller, aber wenn du wirklich einen Chat machen willst, stößt du mit seiner Methode bald an die Grenzen.

"Wir haben keine Chance, aber wir werden sie nutzen!"
Projekte:
Dexterity Ball (100%)
Aquatic Atmosfear (22 % ca 4700 Zeilen) eingefrohren mangels OOP Fähigkeiten von Blitz
(ehemals Uboot)
PC: Intel D 3 GHz | NVidiaGforce 6700 256 Mb | 1024 Mb DDR RAM 400 Mhz | 2x160 GB S-ATA

	darth	Mi, Nov 15, 2006 15:09 Antworten mit Zitat
ein chat mit input halte ich für ziemlich ... eintönig? probier mal eine eingaberoutine zu schreiben. jaaaa, das kann man wirklich tun :O befehle die du (wahrscheinlich) benötigen würdest: Code: [AUSKLAPPEN] [EINKLAPPEN] getkey() nachricht$=nachricht$+... chr() + eine schöne liste mit ascii codes (ist eine in der OH soweit ich weiss) noch ein paar befehle zum löschen: Code: [AUSKLAPPEN] [EINKLAPPEN] left() len() -1 befehle suchen, eingabe programmieren, spass haben. nachrichtenübermittlungswege suchen, programmieren, spass haben. hf PS: ganz wie ftc würde ich persönlich (niemand muss diese meinung teilen) "print" für seeeeehr ungünstig, verwende lieber "text". wie gesagt... meine meinung, tu was immer dir beliebt pfeif
Diese Signatur ist leer.

darth

Mi, Nov 15, 2006 15:09
Antworten mit Zitat

ein chat mit input halte ich für ziemlich ... eintönig?
probier mal eine eingaberoutine zu schreiben.
jaaaa, das kann man wirklich tun :O
befehle die du (wahrscheinlich) benötigen würdest:
Code: [AUSKLAPPEN]

getkey()
nachricht$=nachricht$+...
chr()

+ eine schöne liste mit ascii codes (ist eine in der OH soweit ich weiss)
noch ein paar befehle zum löschen:
Code: [AUSKLAPPEN]

left()
len()
-1

befehle suchen, eingabe programmieren, spass haben.
nachrichtenübermittlungswege suchen, programmieren, spass haben.

hf Smile

PS:
ganz wie ftc würde ich persönlich (niemand muss diese meinung teilen) "print" für seeeeehr ungünstig, verwende lieber "text". wie gesagt... meine meinung, tu was immer dir beliebt *pfeif*

Diese Signatur ist leer.

	ToeB	Mi, Nov 15, 2006 15:28 Antworten mit Zitat
sry...but ich kapier dat nich... kannste mir dat noma erklären?

ToeB

Mi, Nov 15, 2006 15:28
Antworten mit Zitat

sry...but ich kapier dat nich... Embarassed

kannste mir dat noma erklären?

	pixelshooter	Mi, Nov 15, 2006 15:33 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] repeat key = getkey() msg$ = msg$ + chr(key) if keyhit(28) [[i]nachricht senden[/i]] endif [[i]neue machrichten anzeigen[/i]] forever wäre eine sehr einfache Methode. Andere außer Zeichentasten musst du mit "if keyhit() then..." zufügen.
>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc

pixelshooter

Mi, Nov 15, 2006 15:33
Antworten mit Zitat

Code: [AUSKLAPPEN]

repeat
key = getkey()
msg$ = msg$ + chr(key)
if keyhit(28)
[[i]nachricht senden[/i]]
endif
[[i]neue machrichten anzeigen[/i]]
forever

wäre eine sehr einfache Methode. Andere außer Zeichentasten musst du mit "if keyhit() then..." zufügen.

>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc

	Tankbuster	Mi, Nov 15, 2006 17:11 Antworten mit Zitat
Zitat: Tankbuster war schneller, aber wenn du wirklich einen Chat machen willst, stößt du mit seiner Methode bald an die Grenzen. da drauf wär ich auch gekommen aber ich hatte grad keine Zeit, also hab ich ma schnell ne Lösung gesucht hast du überhaupt daran gedacht, das du die Nachrichten noch übers Netzwerk verschicken musst? (sonsz haste ja nur einen chat für eine person^^) Edit: falls du hilfe brauchst guck einfach im codearchiv nach... da gibts glaub ich noch einen chatroom!
Twitter Download Jewel Snake! Windows\|Android

Tankbuster

Mi, Nov 15, 2006 17:11
Antworten mit Zitat

Zitat:

Tankbuster war schneller, aber wenn du wirklich einen Chat machen willst, stößt du mit seiner Methode bald an die Grenzen.

da drauf wär ich auch gekommen Rolling Eyes

aber ich hatte grad keine Zeit, also hab ich ma schnell ne Lösung gesucht Rolling Eyes

hast du überhaupt daran gedacht, das du die Nachrichten noch übers Netzwerk verschicken musst? (sonsz haste ja nur einen chat für eine person^^)

Edit: falls du hilfe brauchst guck einfach im codearchiv nach... da gibts glaub ich noch einen chatroom!

Twitter
Download Jewel Snake!
Windows|Android