Fragen: Brauche Verbesserungsvorschläge

Übersicht

BlitzBasic

Beginners-Corner

	mk Betreff: Fragen: Brauche Verbesserungsvorschläge	Mo, Okt 25, 2004 10:41 Antworten mit Zitat
Hat jemand verbesserungsvorschläge für mein kleines Programm? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 320,200,16,1 Print "" Print "Wie heisst du?" Print "" Print "" name$ = Input ("Name: ") Print "" Print "" s1$ = "hallo " s2$ =", wie geht es dir?" Print s1 + name + s2 Print "" Print "" wohlergehen$ = Input$("") Select wohlergehen Case "gut" Color 0,255,0 Print "Gott sei Dank!" Case "Gut" Color 0,255,0 Print "Gott sei Dank!" Case "GUT" Color 0,255,0 Print "Gott sei Dank!" Case "geht so" Color 255,255,0 Print "Aha." Case "mässig" Color 255,255,0 Print "Aha." Case "mäßig" Color 255,255,0 Print "Aha." Case "Mäßig" Color 255,255,0 Print "Aha." Case "Schlecht" Color 255,0,0 Print "Du arme Sau!" Case "SCHLECHT" Color 255,0,0 Print "Du arme Sau!" Case "schlecht" Color 255,0,0 Print "Du arme Sau!" End Select Repeat Until KeyHit(1)=1

mk

Betreff: Fragen: Brauche Verbesserungsvorschläge

Mo, Okt 25, 2004 10:41
Antworten mit Zitat

Hat jemand verbesserungsvorschläge für mein kleines Programm?

Code: [AUSKLAPPEN]

Graphics 320,200,16,1

Print ""
Print "Wie heisst du?"
Print ""
Print ""
name$ = Input ("Name: ")
Print ""
Print ""
s1$ = "hallo "
s2$ =", wie geht es dir?"

Print s1 + name + s2
Print ""
Print ""

wohlergehen$ = Input$("")
Select wohlergehen

Case "gut" Color 0,255,0 Print "Gott sei Dank!"
Case "Gut" Color 0,255,0 Print "Gott sei Dank!"
Case "GUT" Color 0,255,0 Print "Gott sei Dank!"

Case "geht so" Color 255,255,0 Print "Aha."
Case "mässig" Color 255,255,0 Print "Aha."
Case "mäßig" Color 255,255,0 Print "Aha."
Case "Mäßig" Color 255,255,0 Print "Aha."

Case "Schlecht" Color 255,0,0 Print "Du arme Sau!"
Case "SCHLECHT" Color 255,0,0 Print "Du arme Sau!"
Case "schlecht" Color 255,0,0 Print "Du arme Sau!"

End Select
Repeat
Until KeyHit(1)=1

	David	Mo, Okt 25, 2004 10:47 Antworten mit Zitat
Hi! Was hat das in 2D Grafik zu suchen? Btw, gleiche Wörter kannst du in Groß- oder Kleinbuchstaben umwandeln und dann prüfen, so sparst du dir einige case Fälle. Außerdem würde ein einfaches print "Hallo " + name$ + " wie geht's" auch reichen. Und statt repeat ... until keyhit( 1 ) kannst du auch waitkey nehmen, da beendet sich das Programm zwar bei jedem Tastendruck, aber das dürfte ja egal sein... Bei deinem Beispiel. grüße

David

Mo, Okt 25, 2004 10:47
Antworten mit Zitat

Hi!

Was hat das in 2D Grafik zu suchen?

Btw, gleiche Wörter kannst du in Groß- oder Kleinbuchstaben umwandeln und dann prüfen, so sparst du dir einige case Fälle.

Außerdem würde ein einfaches print "Hallo " + name$ + " wie geht's" auch reichen. Wink

Und statt repeat ... until keyhit( 1 ) kannst du auch waitkey nehmen, da beendet sich das Programm zwar bei jedem Tastendruck, aber das dürfte ja egal sein... Bei deinem Beispiel.

grüße

	mk	Mo, Okt 25, 2004 10:54 Antworten mit Zitat
Ich bin wirklich ziemlich schlecht im Programmieren. Ich fange ja auch gerade erst an. Aber übung macht den Meister. Ähh Wie wandelt man gleiche Wörter in Gross oder kleinbuchstaben um?

mk

Mo, Okt 25, 2004 10:54
Antworten mit Zitat

Ich bin wirklich ziemlich schlecht im Programmieren.
Ich fange ja auch gerade erst an.
Aber übung macht den Meister.

Ähh
Wie wandelt man gleiche Wörter in Gross oder kleinbuchstaben um?

Mad

	rambo256	Mo, Okt 25, 2004 11:04 Antworten mit Zitat
mit upper$(string$) und verkleinern tuste mit lower$(string$)
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Mo, Okt 25, 2004 11:04
Antworten mit Zitat

mit upper$(string$)
und verkleinern tuste mit lower$(string$)

Asus F53z

Das Leben ist eine reine Konkatenation...

	BladeRunner Moderator	Mo, Okt 25, 2004 11:13 Antworten mit Zitat
aber umlaute werden NICHT umgewandelt. dafür dann ein fröhliches: Code: [AUSKLAPPEN] [EINKLAPPEN] neu$=REPLACE$ (Text$, Suchen$, Ersetzen$) benutzen. Also zB: wohlergehen$=Replace$(wohlergehen,"ä","ae") Das für alle Umlaute (groß und klein) und dann durch upper$ oder lower$ geschleusst und es funzt. Idealerweise machst du dir dafür aber ne Funktion.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Okt 25, 2004 11:13
Antworten mit Zitat

aber umlaute werden NICHT umgewandelt.
dafür dann ein fröhliches:
Code: [AUSKLAPPEN]

neu$=REPLACE$ (Text$, Suchen$, Ersetzen$)

benutzen.
Also zB:
wohlergehen$=Replace$(wohlergehen,"ä","ae")
Das für alle Umlaute (groß und klein) und dann durch upper$ oder lower$ geschleusst und es funzt.
Idealerweise machst du dir dafür aber ne Funktion.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Travis	Mo, Okt 25, 2004 11:55 Antworten mit Zitat
Also erstmal sollte man den Print-Befehl durch den Text-Befehl ersetzen. Dadurch, dass man bei diesem Befehl die Koordinaten mit angeben kann, sparst du dir einige Printbefehle nur um einen Absatz zu erzeugen. Und bei mehreren Befehlen in einer Zeile würde ich Doppelpunkte setzen. Ist natürlich Geschmackssache, erhöht meiner Meinung nach aber die Übersichtlichkeit. Und man sollte den Code einrücken, damit er leichter zu lesen ist. Bsp. Code: [AUSKLAPPEN] [EINKLAPPEN] Name$ = "Travis" Repeat Cls Text 0,0, "Hallo Welt" Select Name$ Case "Travis" Text 0,10,"Was für ein Zufall" End Select Flip Until KeyHit(1) EDIT: Hier mal ein komplettes Beispiel, wie ich es machen würde: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 320,320,16,2 Text 0,0, "Wie heisst du?" Locate 0,20: Name$ = Input("Name:") Text 0,40, "Hallo " + Name$ + ", mir geht es gut," Locate 0,50 : w$ = Input("wie geht es dir? ") Select Lower(w$) Case "gut" Print "Dann geht es uns ja beiden gut. Gott, ist das toll" Case "schlecht" Print "Das ist ja schade." Case "scheisse" Print "Na na, sowas sagt man aber nicht." End Select WaitKey End
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

Mo, Okt 25, 2004 11:55
Antworten mit Zitat

Also erstmal sollte man den Print-Befehl durch den Text-Befehl ersetzen. Dadurch, dass man bei diesem Befehl die Koordinaten mit angeben kann, sparst du dir einige Printbefehle nur um einen Absatz zu erzeugen.

Und bei mehreren Befehlen in einer Zeile würde ich Doppelpunkte setzen. Ist natürlich Geschmackssache, erhöht meiner Meinung nach aber die Übersichtlichkeit.

Und man sollte den Code einrücken, damit er leichter zu lesen ist.

Bsp.
Code: [AUSKLAPPEN]

Name$ = "Travis"

Repeat
Cls

Text 0,0, "Hallo Welt"

Select Name$
Case "Travis"
Text 0,10,"Was für ein Zufall"
End Select

Flip
Until KeyHit(1)

EDIT: Hier mal ein komplettes Beispiel, wie ich es machen würde:
Code: [AUSKLAPPEN]

Graphics 320,320,16,2

Text 0,0, "Wie heisst du?"
Locate 0,20: Name$ = Input("Name:")

Text 0,40, "Hallo " + Name$ + ", mir geht es gut,"
Locate 0,50 : w$ = Input("wie geht es dir? ")

Select Lower(w$)
Case "gut"
Print "Dann geht es uns ja beiden gut. Gott, ist das toll"
Case "schlecht"
Print "Das ist ja schade."
Case "scheisse"
Print "Na na, sowas sagt man aber nicht."
End Select

WaitKey
End

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

	mk	Mo, Okt 25, 2004 14:34 Antworten mit Zitat
Danke.

mk

Mo, Okt 25, 2004 14:34
Antworten mit Zitat

Danke.