ABC

Übersicht

BlitzBasic

Beginners-Corner

	blitzprogrammierer Betreff: ABC	So, März 27, 2005 11:32 Antworten mit Zitat
Hallo Leute gibt es in Blitzbasic einen Befehl für abc als zb: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If Input$ = abc Then Print \"bla,bla\" der überprüft ob "input$" besimmte Buchstaben enthält! Danke für Antworten!

blitzprogrammierer

Betreff: ABC

So, März 27, 2005 11:32
Antworten mit Zitat

Hallo Leute

gibt es in Blitzbasic einen Befehl für abc
als zb:
BlitzBasic: [AUSKLAPPEN]


If Input$ = abc Then Print \"bla,bla\"

der überprüft ob "input$" besimmte Buchstaben enthält!

Danke für Antworten!

	Ofenrohr	So, März 27, 2005 11:36 Antworten mit Zitat
aus der onlinehilfe... Zitat: Pos=INSTR (Text1$, Text2$ [,Start]) Beschreibung Diese Funktion durchsucht den ersten Text nach einem String. Wird exakt der selbe String im Text gefunden, so wird die Zeichenposition zurückgeliefert. Es kann auch die Startposition angegeben werden. Parameter Text1 = Text, welcher durchsucht werden soll Text2 = Text, nach dem gesucht werden soll Start = Startposition der Textsuche Rückgabewert Es wird die Zeichenposition des ersten Vorkommens zurückgegeben. Wurde in dem Text keine Übereinstimmung gefunden, so wird eine Null zurückgeliefert. Beispiel Dieses Programm ermittelt die Zeichenposition vom Komma-Zeichen: Zahl$="1234.45678" Pos=INSTR(Zahl$,".") IF Pos>0 THEN PRINT "Komma an der "+Pos+" Position" Siehe auch REPLACE mfg ofenrohr
Ofenrohr.net

Ofenrohr

So, März 27, 2005 11:36
Antworten mit Zitat

aus der onlinehilfe...

Zitat:

Pos=INSTR (Text1$, Text2$ [,Start])

Beschreibung
Diese Funktion durchsucht den ersten Text nach einem String. Wird exakt der selbe String im Text gefunden, so wird die Zeichenposition zurückgeliefert. Es kann auch die Startposition angegeben werden.

Parameter
Text1 = Text, welcher durchsucht werden soll
Text2 = Text, nach dem gesucht werden soll
Start = Startposition der Textsuche

Rückgabewert
Es wird die Zeichenposition des ersten Vorkommens zurückgegeben. Wurde in dem Text keine Übereinstimmung gefunden, so wird eine Null zurückgeliefert.

Beispiel
Dieses Programm ermittelt die Zeichenposition vom Komma-Zeichen:

Zahl$="1234.45678"
Pos=INSTR(Zahl$,".")
IF Pos>0 THEN PRINT "Komma an der "+Pos+" Position"

Siehe auch
REPLACE

mfg ofenrohr

Ofenrohr.net

	blitzprogrammierer	So, März 27, 2005 11:41 Antworten mit Zitat
ja Danke, aber ich möchte es einzeln überprüfen so zb: A B C D F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC usw. geht das nicht?

blitzprogrammierer

So, März 27, 2005 11:41
Antworten mit Zitat

ja Danke,

aber ich möchte es einzeln überprüfen so zb:

A
B
C
D
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
AA
AB
AC
usw.

geht das nicht?

	Ofenrohr	So, März 27, 2005 11:50 Antworten mit Zitat
du willst also jeden buchstaben einzeln testen? sonst einfach mal so: Code: [AUSKLAPPEN] [EINKLAPPEN] for i = 1 to len(mein_text) ch = mid(mein_text,i,i) if ch = "a" then ... usw. so siehst du dir jeden einzeln an. mit instr kannst du prüfen, ob überhaut der buchstabe da ist. mfg ofenrohr
Ofenrohr.net

Ofenrohr

So, März 27, 2005 11:50
Antworten mit Zitat

du willst also jeden buchstaben einzeln testen?

sonst einfach mal so:

Code: [AUSKLAPPEN]

for i = 1 to len(mein_text)

ch = mid(mein_text,i,i)

if ch = "a" then ...
usw.

so siehst du dir jeden einzeln an. mit instr kannst du prüfen, ob überhaut der buchstabe da ist.

mfg ofenrohr

Ofenrohr.net

	blitzprogrammierer	So, März 27, 2005 12:04 Antworten mit Zitat
Sorry aber ich versteh nur Banhof kannst du mir nicht ein Beispiel geben? Danke im Voraus!

blitzprogrammierer

So, März 27, 2005 12:04
Antworten mit Zitat

Sorry aber ich versteh nur Banhof Question

kannst du mir nicht ein Beispiel geben?

Danke im Voraus!

	DA	So, März 27, 2005 12:10 Antworten mit Zitat
Moin, Ofenrohr hat Folgendes geschrieben: du willst also jeden buchstaben einzeln testen? sonst einfach mal so: for i = 1 to len(mein_text) ch = mid(mein_text,i,1) if ch = "a" then ... usw. so siehst du dir jeden einzeln an. mit instr kannst du prüfen, ob überhaut der buchstabe da ist. mfg ofenrohr Vergleich den Code mal mit deinem. Du hast da nen kleinen Fehler drin... Thx DarkAngel
Deutscher Blitz Basic Chat

DA

So, März 27, 2005 12:10
Antworten mit Zitat

Moin,

Ofenrohr hat Folgendes geschrieben:

du willst also jeden buchstaben einzeln testen?

sonst einfach mal so:

for i = 1 to len(mein_text)

ch = mid(mein_text,i,1)

if ch = "a" then ...
usw.

so siehst du dir jeden einzeln an. mit instr kannst du prüfen, ob überhaut der buchstabe da ist.

mfg ofenrohr

Vergleich den Code mal mit deinem. Du hast da nen kleinen Fehler drin... Wink

Thx
DarkAngel

Deutscher Blitz Basic Chat

	Ofenrohr	So, März 27, 2005 12:30 Antworten mit Zitat

Ofenrohr.net

Ofenrohr

So, März 27, 2005 12:30
Antworten mit Zitat

Ofenrohr.net

	blitzprogrammierer	So, März 27, 2005 12:52 Antworten mit Zitat
ich glaub ihr versteht mich falsch ich möchte es ungefächr so haben nur kürzer: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] A$ = \"A\" B$ = \"B\" C$ = \"C\" AF$ = \"A\" BF$ = \"B\" CF$ = \"C\" Repeat .sprung1 Text 0,0,A$ WaitKey Cls Text 0,0,B$ WaitKey Cls Text 0,0,C$ WaitKey Cls If A$ = AF$ Then A$ = AF$ +AF$ B$ = AF$ +BF$ C$ = AF$ +CF$ Goto sprung1 EndIf If A$ = AF$ +AF$ Then A$ = BF$ +AF$ B$ = BF$ +BF$ C$ = BF$ +CF$ Goto sprung1 EndIf If A$ = BF$ +AF$ Then A$ = CF$ +AF$ B$ = CF$ +BF$ C$ = CF$ +CF$ Goto sprung1 EndIf If A$ = CF$ +AF$ Then A$ = AF$ +AF$ +AF$ B$ = AF$ +AF$ +BF$ C$ = AF$ +AF$ +CF$ Goto sprung1 EndIf Forever Diesen Code nur noch mit allen Buchstaben und vileicht noch mit mehreren Stellen das währ gut! Danke im Voraus!

blitzprogrammierer

So, März 27, 2005 12:52
Antworten mit Zitat

ich glaub ihr versteht mich falsch Wink

ich möchte es ungefächr so haben nur kürzer:

BlitzBasic: [AUSKLAPPEN]


A$ = \"A\"
B$ = \"B\"
C$ = \"C\"



AF$ = \"A\"
BF$ = \"B\"
CF$ = \"C\"



Repeat 
.sprung1
Text 0,0,A$
WaitKey
Cls
Text 0,0,B$
WaitKey
Cls
Text 0,0,C$
WaitKey
Cls



If A$ = AF$ Then
A$ = AF$ +AF$
B$ = AF$ +BF$
C$ = AF$ +CF$
Goto sprung1
EndIf 

If A$ = AF$ +AF$ Then 
A$ = BF$ +AF$
B$ = BF$ +BF$
C$ = BF$ +CF$
Goto sprung1
EndIf

If A$ = BF$ +AF$ Then 
A$ = CF$ +AF$
B$ = CF$ +BF$
C$ = CF$ +CF$
Goto sprung1
EndIf

If A$ = CF$ +AF$ Then 
A$ = AF$ +AF$ +AF$
B$ = AF$ +AF$ +BF$
C$ = AF$ +AF$ +CF$
Goto sprung1 
EndIf

Forever

Diesen Code nur noch mit allen Buchstaben und vileicht noch mit mehreren Stellen das währ gut!

Danke im Voraus!

	DarkMike	So, März 27, 2005 13:08 Antworten mit Zitat
AUwei du benutzt Goto naja egal du könntest das doch alle kopieren! dann musst zwar alles nochmal änderen aber schneller gehts trotzdem!
2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

DarkMike

So, März 27, 2005 13:08
Antworten mit Zitat

AUwei du benutzt Goto naja egal du könntest das doch alle kopieren!
dann musst zwar alles nochmal änderen aber schneller gehts trotzdem!

2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

	blitzprogrammierer	So, März 27, 2005 15:50 Antworten mit Zitat
kann ich da keine endlos schleife programmieren?

blitzprogrammierer

So, März 27, 2005 15:50
Antworten mit Zitat

kann ich da keine endlos schleife programmieren?

	Ofenrohr	So, März 27, 2005 16:15 Antworten mit Zitat
hmm... ich habe jetzt ein programm geschrieben, das alle buchstaben so ausgibt wie blitzprg. es ziemlich am anfang beschrieben hat... seht es euch an vielleicht hab ich ja diesmal mehr glück mit dem was ich sag... Code: [AUSKLAPPEN] [EINKLAPPEN] Dim ch$(26) For x = 1 To 26 ch(x) = Chr(96+x) Print ch(x) Next For x = 1 To 26 For y = 1 To 26 ch(x) = Chr(96+x) + chr(96+y) Print ch(x) Next Next WaitKey End
Ofenrohr.net

Ofenrohr

So, März 27, 2005 16:15
Antworten mit Zitat

hmm...

ich habe jetzt ein programm geschrieben, das alle buchstaben so ausgibt wie blitzprg. es ziemlich am anfang beschrieben hat... seht es euch an vielleicht hab ich ja diesmal mehr glück mit dem was ich sag...

Code: [AUSKLAPPEN]

Dim ch$(26)

For x = 1 To 26

ch(x) = Chr(96+x)
Print ch(x)

Next

For x = 1 To 26

For y = 1 To 26

   ch(x) = Chr(96+x) + chr(96+y)
   Print ch(x)

Next

Next

WaitKey

End

Ofenrohr.net

	blitzprogrammierer	So, März 27, 2005 17:42 Antworten mit Zitat
Danke ich habs jetzt so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim ch$(26) For x = 1 To 26 ch(x) = Chr(96+x) Print ch(x) Next For x = 1 To 26 For y = 1 To 26 ch(x) = Chr(96+x) + Chr(96+y) Print ch(x) Next Next For x = 1 To 26 For y = 1 To 26 For z = 1 To 26 ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z) Print ch(x) Next Next Next For x = 1 To 26 For y = 1 To 26 For z = 1 To 26 For a = 1 To 26 ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z) + Chr(96+a) Print ch(x) Next Next Next Next For x = 1 To 26 For y = 1 To 26 For z = 1 To 26 For a = 1 To 26 For b = 1 To 26 ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z) + Chr(96+a) + Chr(96+a) Print ch(x) Next Next Next Next Next For x = 1 To 26 For y = 1 To 26 For z = 1 To 26 For a = 1 To 26 For b = 1 To 26 For c = 1 To 26 ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z) + Chr(96+a) + Chr(96+b) + Chr(96+c) Print ch(x) Next Next Next Next Next Next WaitKey End

blitzprogrammierer

So, März 27, 2005 17:42
Antworten mit Zitat

Danke
ich habs jetzt so:

BlitzBasic: [AUSKLAPPEN]


Dim ch$(26) 

For x = 1 To 26 

ch(x) = Chr(96+x) 
Print ch(x) 

Next 

For x = 1 To 26 

For y = 1 To 26 

ch(x) = Chr(96+x) + Chr(96+y) 
Print ch(x) 

Next 

Next 

For x = 1 To 26 

For y = 1 To 26 

For z = 1 To 26 

ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z)
Print ch(x) 

Next 

Next 

Next 


For x = 1 To 26 

For y = 1 To 26 

For z = 1 To 26 

For a = 1 To 26 

ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z)  + Chr(96+a)
Print ch(x)  

Next 

Next 

Next 

Next 


For x = 1 To 26 

For y = 1 To 26 

For z = 1 To 26 

For a = 1 To 26 

For b = 1 To 26 

ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z)  + Chr(96+a)  + Chr(96+a)
Print ch(x)  

Next 

Next 

Next 

Next 

Next 


For x = 1 To 26 

For y = 1 To 26 

For z = 1 To 26 

For a = 1 To 26 

For b = 1 To 26 

For c = 1 To 26 


ch(x) = Chr(96+x) + Chr(96+y) + Chr(96+z)  + Chr(96+a)  + Chr(96+b) + Chr(96+c)
Print ch(x)  

Next 

Next 

Next 

Next 

Next 

Next 

WaitKey 

End

	Sir Dan	Mo, März 28, 2005 15:30 Antworten mit Zitat
Hallo, Ich hab zu dem Thema auch noch eine Frage: Wie kann ich input ersetzen? Hier im Forum wurde mir mal gesagt ich soll ´print´ und ´input´ vermeiden im double buffering. Doch auf meine Frage wie ich den zweiten ersetzen kann kam damals keine antwort. Hoffentlich klappt es heute mit der antwort edit: Ach so.., gibt es einen Befehl der einen text nach einem bestimmten wort dursucht (kein einzelnes zeichen) ,also z.B.: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] textt$ = \"Die welt ist rund.\" ; hier soll der Pc den sinn erkennen indem er die wörter ´welt´ ;und ´rund´ erkennt ;und er sollte es von diesem unterscheiden können textt2$ = \"Die welt ist flach\" Text(50,50,\"Die welt ist\" + var_die_erkennfunc_als_richtig_erkannt_hat)
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, März 28, 2005 15:30
Antworten mit Zitat

Hallo,

Ich hab zu dem Thema auch noch eine Frage:

Wie kann ich input ersetzen? Hier im Forum wurde mir mal gesagt ich soll ´print´ und ´input´ vermeiden im double buffering. Doch auf meine Frage wie ich den zweiten ersetzen kann kam damals keine antwort.
Hoffentlich klappt es heute mit der antwort Very Happy

edit: Ach so.., gibt es einen Befehl der einen text nach einem bestimmten wort dursucht (kein einzelnes zeichen) ,also z.B.:

BlitzBasic: [AUSKLAPPEN]


textt$ = \"Die welt ist rund.\"
; hier soll der Pc den sinn erkennen indem er die wörter ´welt´ 
;und ´rund´ erkennt
;und er sollte es von diesem unterscheiden können
textt2$ = \"Die welt ist flach\"
Text(50,50,\"Die welt ist\" + var_die_erkennfunc_als_richtig_erkannt_hat)

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Zuletzt bearbeitet von Sir Dan am Mo, März 28, 2005 15:38, insgesamt einmal bearbeitet

	Ofenrohr	Mo, März 28, 2005 15:33 Antworten mit Zitat
du musst mal im code archiv nach eingaberoutinen suchen. ich denke da wirst du fündig.
Ofenrohr.net

Ofenrohr

Mo, März 28, 2005 15:33
Antworten mit Zitat

du musst mal im code archiv nach eingaberoutinen suchen. ich denke da wirst du fündig.

Ofenrohr.net

	Sir Dan	Mo, März 28, 2005 15:52 Antworten mit Zitat
ah,danke die eingabefunc hab ich gefunden, aber das zu meinem edit finde ich nicht [/img]
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, März 28, 2005 15:52
Antworten mit Zitat

ah,danke die eingabefunc hab ich gefunden, aber das zu meinem edit finde ich nicht [/img]

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	Ofenrohr	Mo, März 28, 2005 15:58 Antworten mit Zitat
mach mal einen neuen thread auf... da kannst du ja mal deinen code posten... mfg ofenrohr
Ofenrohr.net

Ofenrohr

Mo, März 28, 2005 15:58
Antworten mit Zitat

mach mal einen neuen thread auf...

da kannst du ja mal deinen code posten...

mfg ofenrohr

Ofenrohr.net

	simi	Mo, März 28, 2005 16:25 Antworten mit Zitat
instr sucht nach einem Text in einem String....

simi

Mo, März 28, 2005 16:25
Antworten mit Zitat

instr sucht nach einem Text in einem String....

	Sir Dan	Mo, März 28, 2005 16:25 Antworten mit Zitat
Das ist mein ganzer Code (hab auch nichts bestimmtes vor) Meine Frage war auch lediglich, ob es einen solchen Befehl gibt.
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, März 28, 2005 16:25
Antworten mit Zitat

Das ist mein ganzer Code Very Happy

(hab auch nichts bestimmtes vor)
Meine Frage war auch lediglich, ob es einen solchen Befehl gibt.

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	Sir Dan	Mo, März 28, 2005 16:27 Antworten mit Zitat
Tatsache danach hab ich gesucht, danke
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, März 28, 2005 16:27
Antworten mit Zitat

Tatsache

danach hab ich gesucht, danke

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

ABC

Betreff: ABC