Hilfe bei Programierung

Übersicht

BlitzBasic

Beginners-Corner

	US-Blitz ehemals "SimssmiS" Betreff: Hilfe bei Programierung	So, Apr 04, 2010 12:22 Antworten mit Zitat
Da ich selbst grade in einer sackgasse stehe bittte ich jemanden etwas für mich zu programieren 3 Variablen profilename1$ profilename2$ profilename3$ sie werden an den positionen 40,146 40,246 40,346 gezeichnet soweit bin ich so habe jewals einen knopf vor den texten auf 20,150 20,250, 20,350 ach was hier mal den code Code: [AUSKLAPPEN] [EINKLAPPEN] Repeat Cls fntarial=LoadFont("Arial",24,True,False,True) SetFont fntarial If Profilename1="" Then DrawImage add_Profile,20,150 Profile1$="off" Else DrawImage delete_Profile,20,150 Text 40,146,profilename1 Profile1$="on" EndIf If Prifile1="on" And Mouse= Then If Profilename2="" Then DrawImage add_Profile,20,250 Profile2$="off" Else DrawImage delete_Profile,40,246 Text 40,146,profilename2 Profile2$="on" EndIf If Profilename3="" Then DrawImage add_Profile,20,350 Profile3$="off" Else DrawImage delete_Profile,40,346 Text 40,146,profilename3 Profile3$="on" EndIf FreeFont fntarial ;backknopf DrawImage backknopf,10,550 If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then DrawImage backknopfan,10,550 ba=1 Else ba=0 EndIf If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav") DrawImage curser,MouseX(),MouseY() Flip Until back=1 Delay 500 If back=1 Then Goto lable0 mein ziel ist es jetzt wenn der add knopf da is und man diesen anklick dass man den text neu definieren kann allso soll eine input variable an der position des textes sein mit der fontgröße und allem könnt ihr mir da helfen

US-Blitz

ehemals "SimssmiS"

Betreff: Hilfe bei Programierung

So, Apr 04, 2010 12:22
Antworten mit Zitat

Da ich selbst grade in einer sackgasse stehe bittte ich jemanden etwas für mich zu programieren
3 Variablen

profilename1$
profilename2$
profilename3$
sie werden an den positionen 40,146 40,246 40,346 gezeichnet
soweit bin ich
so habe jewals einen knopf vor den texten auf 20,150 20,250, 20,350
ach was hier mal den code
Code: [AUSKLAPPEN]

Repeat
Cls
fntarial=LoadFont("Arial",24,True,False,True)
SetFont fntarial

If Profilename1="" Then
DrawImage add_Profile,20,150
Profile1$="off"
Else
DrawImage delete_Profile,20,150
Text 40,146,profilename1
Profile1$="on"
EndIf

If Prifile1="on" And Mouse= Then

If Profilename2="" Then
DrawImage add_Profile,20,250
Profile2$="off"
Else
DrawImage delete_Profile,40,246
Text 40,146,profilename2
Profile2$="on"
EndIf

If Profilename3="" Then
DrawImage add_Profile,20,350
Profile3$="off"
Else
DrawImage delete_Profile,40,346
Text 40,146,profilename3
Profile3$="on"
EndIf

FreeFont fntarial

      ;backknopf
      DrawImage backknopf,10,550
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then
      DrawImage backknopfan,10,550 ba=1
      Else ba=0
      EndIf
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav")
      DrawImage curser,MouseX(),MouseY()
      Flip
      Until back=1
      Delay 500
      If back=1 Then Goto lable0

mein ziel ist es jetzt wenn der add knopf da is und man diesen anklick dass man den text neu definieren kann allso soll eine input variable an der position des textes sein mit der fontgröße und allem könnt ihr mir da helfen

	Badudel	So, Apr 04, 2010 12:25 Antworten mit Zitat
Einen Input an bestimmter Stelle musst du dir selbst machen. GetKey hilft dir dabei. Jemand anderes wird es dir nicht programmieren, wir geben nur Hilfestellen. Wenn du noch ein konkretes Problem hast, frage ruhig, aber fertige Lösungen bringen nichts. Viele Grüße, frohe Ostern!
Wir werden dem Schwein schon schlachten, auch wenn ihm quiekt. Zum Teufel mit das Grammatik!

Badudel

So, Apr 04, 2010 12:25
Antworten mit Zitat

Einen Input an bestimmter Stelle musst du dir selbst machen.
GetKey

hilft dir dabei.
Jemand anderes wird es dir nicht programmieren, wir geben nur Hilfestellen.
Wenn du noch ein konkretes Problem hast, frage ruhig, aber fertige Lösungen bringen nichts.

Viele Grüße, frohe Ostern!

Wir werden dem Schwein schon schlachten, auch wenn ihm quiekt.
Zum Teufel mit das Grammatik!

	Midimaster	So, Apr 04, 2010 13:18 Antworten mit Zitat
So geht es: Wenn du einen der Knöpfe geklickt hast, wird an der betreffenden Textstelle nicht mehr der ganze String, sondern ein temp. String gezeichnet. Der bestht zunächst aus einen Unterstrich "_", was den Cursor symbolisieren soll. In der gleichen Schleife läuft solange eine Tastaturroutine bis der User das AscII-Zeichen 13 <RETURN> drückt. Jede gedrückte Taste wird nun zum temp. String angefügt. In einer letzten Stufe reagierst du auch auf die <BACKSPACE>-Taste und gibst so dem User die Möglichkeit Zeichen wieder zu löschen Schreibe das ganze als eigenes Programm und integrier es erst später in dein echtes Programm. code nur symbolisch:Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global tempString$ Repeat Text 100,100, tempString Taste() Flip Until Fertig=1 Function Taste() Local i% i=GetKey() If i>0 then If I=13 fertig=True elseIf i=... ElseIf I>31 Then tempString=tempString + chr(i) EndIf Endif End Function

Midimaster

So, Apr 04, 2010 13:18
Antworten mit Zitat

So geht es:
Wenn du einen der Knöpfe geklickt hast, wird an der betreffenden Textstelle nicht mehr der ganze String, sondern ein temp. String gezeichnet. Der bestht zunächst aus einen Unterstrich "_", was den Cursor symbolisieren soll.

In der gleichen Schleife läuft solange eine Tastaturroutine bis der User das AscII-Zeichen 13 <RETURN> drückt. Jede gedrückte Taste wird nun zum temp. String angefügt.

In einer letzten Stufe reagierst du auch auf die <BACKSPACE>-Taste und gibst so dem User die Möglichkeit Zeichen wieder zu löschen

Schreibe das ganze als eigenes Programm und integrier es erst später in dein echtes Programm.

code nur symbolisch:Code: [AUSKLAPPEN]

Graphics 800,600
Global tempString$
Repeat
Text 100,100, tempString
Taste()
Flip
Until Fertig=1

Function Taste()
Local i%
i=GetKey()
If i>0 then
If I=13
fertig=True
elseIf i=...

ElseIf I>31 Then
tempString=tempString + chr(i)
EndIf
Endif
End Function

Zuletzt bearbeitet von Midimaster am Mo, Apr 05, 2010 9:35, insgesamt einmal bearbeitet

	D2006 Administrator	So, Apr 04, 2010 14:40 Antworten mit Zitat
~VERSCHOBEN~ Warum hast du das nicht in den BB-Foren einsortiert?
Intel Core i5 2500 \| 16 GB DDR3 RAM dualchannel \| ATI Radeon HD6870 (1024 MB RAM) \| Windows 7 Home Premium Intel Core 2 Duo 2.4 GHz \| 2 GB DDR3 RAM dualchannel \| Nvidia GeForce 9400M (256 MB shared RAM) \| Mac OS X Snow Leopard Intel Pentium Dual-Core 2.4 GHz \| 3 GB DDR2 RAM dualchannel \| ATI Radeon HD3850 (1024 MB RAM) \| Windows 7 Home Premium Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2