einfacher?

Übersicht

BlitzBasic

BlitzPlus

	blitz Betreff: einfacher?	Mi, Jul 20, 2005 21:24 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] login=CreateWindow(\"Login\",300,100,200,200) label1=CreateLabel(\"Username: \", 5,0,200,20,login) label2=CreateLabel(\"Passwort: \", 5,45,200,20,login) eingabe1=CreateTextField(5,20,180,20,login) eingabe2=CreateTextField(5,65,180,20,login,1) button1=CreateButton(\"OK\", 135,100,50,20,login) HotKeyEvent 28,0,$401,button1 ActivateGadget eingabe1 Repeat ereignis=WaitEvent() es=EventSource() If ereignis=260 Then es=button1 If ereignis=1025 Or ereignis=260 And es=button1 Then If TextFieldText(eingabe1)=\"XY\" And TextFieldText(eingabe2)=\"PW\" Then End Notify \"Die eingegebenen Beutzerdaten sind falsch!\" EndIf If ereignis=$803 Then End Forever geht das nicht auch einfacher??? ich glaub, ich denke zu kompliziert . . .

blitz

Betreff: einfacher?

Mi, Jul 20, 2005 21:24
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

login=CreateWindow(\"Login\",300,100,200,200)
label1=CreateLabel(\"Username: \", 5,0,200,20,login)
label2=CreateLabel(\"Passwort: \", 5,45,200,20,login)
eingabe1=CreateTextField(5,20,180,20,login)
eingabe2=CreateTextField(5,65,180,20,login,1)
button1=CreateButton(\"OK\", 135,100,50,20,login)
HotKeyEvent 28,0,$401,button1
ActivateGadget eingabe1
Repeat
 ereignis=WaitEvent()
 es=EventSource()
 If ereignis=260 Then es=button1
 If ereignis=1025 Or ereignis=260 And es=button1 Then 
  If TextFieldText(eingabe1)=\"XY\" And TextFieldText(eingabe2)=\"PW\" Then End
  Notify \"Die eingegebenen Beutzerdaten sind falsch!\"
 EndIf
 If ereignis=$803 Then End
Forever

geht das nicht auch einfacher???
ich glaub, ich denke zu kompliziert . . .

	Darky	Do, Aug 18, 2005 20:03 Antworten mit Zitat
Hi blitz Zitat: geht das nicht auch einfacher??? ich glaub, ich denke zu kompliziert . . . Was möchte Du einfacher? Den Quellcode. Schau dir mal Pure Basic an. Das ist noch komplizierter. Da finde ich Blitz + bzw Blitz Basic einfacher und viel schneller. Es rulz halt Jedes einzelene Event ist eine Befehlszeile. Natürlich kann man auch wie, die alten Programmierer schreiben. Das heißt hintereinander. Du kannst nicht erwarten mit 10 Zeilen ein komplette geiles Spiel zu schreiben. Gruß Darky

Darky

Do, Aug 18, 2005 20:03
Antworten mit Zitat

Hi blitz

Zitat:

geht das nicht auch einfacher??? ich glaub, ich denke zu kompliziert . . .

Was möchte Du einfacher? Wink

Den Quellcode. Schau dir mal Pure Basic an. Das ist noch komplizierter. Da finde ich Blitz + bzw Blitz Basic einfacher und viel schneller. Es rulz halt Wink

Jedes einzelene Event ist eine Befehlszeile. Natürlich kann man auch wie, die alten Programmierer schreiben. Das heißt hintereinander. Du kannst nicht erwarten mit 10 Zeilen ein komplette geiles Spiel zu schreiben.

Gruß
Darky

	blitz	Do, Aug 18, 2005 20:57 Antworten mit Zitat
nein, so war das gar nicht gemeint . ich habe speziell an folgende zeilen gedacht: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ereignis=260 ereignis=1025

blitz

Do, Aug 18, 2005 20:57
Antworten mit Zitat

nein, so war das gar nicht gemeint Wink

.
ich habe speziell an folgende zeilen gedacht:
BlitzBasic: [AUSKLAPPEN]

ereignis=260
ereignis=1025

	Hip Teen	Do, Aug 18, 2005 21:53 Antworten mit Zitat
Hab mal das rauskommentiert, was unnötig ist (läuft jedenfalls bei mir so wie vorher ) BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] login=CreateWindow(\"Login\",300,100,200,200) label1=CreateLabel(\"Username: \", 5,0,200,20,login) label2=CreateLabel(\"Passwort: \", 5,45,200,20,login) eingabe1=CreateTextField(5,20,180,20,login) eingabe2=CreateTextField(5,65,180,20,login,1) button1=CreateButton(\"OK\", 135,100,50,20,login) HotKeyEvent 28,0,$401,button1 ActivateGadget eingabe1 Repeat ereignis=WaitEvent() es=EventSource() ; If ereignis=260 Then es=button1 If ereignis=1025 Or ereignis=260 Then ;And es=button1 Then If TextFieldText(eingabe1)=\"XY\" And TextFieldText(eingabe2)=\"PW\" Then End Notify \"Die eingegebenen Beutzerdaten sind falsch!\" EndIf If ereignis=$803 Then End Forever
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

Hip Teen

Do, Aug 18, 2005 21:53
Antworten mit Zitat

Hab mal das rauskommentiert, was unnötig ist (läuft jedenfalls bei mir so wie vorher Wink

)

BlitzBasic: [AUSKLAPPEN]

login=CreateWindow(\"Login\",300,100,200,200)
label1=CreateLabel(\"Username: \", 5,0,200,20,login)
label2=CreateLabel(\"Passwort: \", 5,45,200,20,login)
eingabe1=CreateTextField(5,20,180,20,login)
eingabe2=CreateTextField(5,65,180,20,login,1)
button1=CreateButton(\"OK\", 135,100,50,20,login)
HotKeyEvent 28,0,$401,button1
ActivateGadget eingabe1
Repeat
 ereignis=WaitEvent()
 es=EventSource()
; If ereignis=260 Then es=button1
 If ereignis=1025 Or ereignis=260 Then ;And es=button1 Then
  If TextFieldText(eingabe1)=\"XY\" And TextFieldText(eingabe2)=\"PW\" Then End
  Notify \"Die eingegebenen Beutzerdaten sind falsch!\"
 EndIf
 If ereignis=$803 Then End
Forever

Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

	blitz	Do, Aug 18, 2005 22:36 Antworten mit Zitat
wenn ich das "übersetzten" würde, hieße es: wenn enter gedrückt oder button gedrückt, dann . . . und sonst gibt man doch immer sowas wie $blabla ein. ich hab das mit print event rausbekommen. das meinte ich . . .

blitz

Do, Aug 18, 2005 22:36
Antworten mit Zitat

wenn ich das "übersetzten" würde, hieße es:
wenn enter gedrückt oder button gedrückt, dann . . .
und sonst gibt man doch immer sowas wie $blabla ein.
ich hab das mit print event rausbekommen.
das meinte ich . . .

	Darky	Do, Aug 18, 2005 22:48 Antworten mit Zitat
Hi Blitz achso meinst du das Zitat: nein, so war das gar nicht gemeint Wink . ich habe speziell an folgende zeilen gedacht: BlitzBasic: ereignis=260 ereignis=1025 Jo gut. In Visual MB 3 mit , was ich auch programmiere schreibt man das so. Wegen den Ergebnis mit den Buttons. Code: [AUSKLAPPEN] [EINKLAPPEN] [Main].Text="Music now" [Main].Width="200" [Main].Heigt="50" [Main].Icons="0" [Main].Style="2" DecButton [Schaltflaeche] [Schaltflaeche].Text="Music Now" [Schaltflaeche].Width="150" [Schaltflaeche].Left="22" [Schaltflaeche].Top="45" [Schaltflaeche].Onclick =%Ereignis% Sub%Ereignis% mcisendstring "play C:/fettesbrot.mp3" endSub PS: Soll keine Werbung sein. Gruß Darky

Darky

Do, Aug 18, 2005 22:48
Antworten mit Zitat

Hi Blitz achso meinst du das Wink

Zitat:

nein, so war das gar nicht gemeint Wink .
ich habe speziell an folgende zeilen gedacht:
BlitzBasic:
ereignis=260
ereignis=1025

Jo gut. In Visual MB 3 mit , was ich auch programmiere schreibt man das so. Wegen den Ergebnis mit den Buttons.

Code: [AUSKLAPPEN]

[Main].Text="Music now"
[Main].Width="200"
[Main].Heigt="50"
[Main].Icons="0"
[Main].Style="2"
DecButton [Schaltflaeche]
[Schaltflaeche].Text="Music Now"
[Schaltflaeche].Width="150"
[Schaltflaeche].Left="22"
[Schaltflaeche].Top="45"
[Schaltflaeche].Onclick =%Ereignis%

Sub%Ereignis%
mcisendstring "play C:/fettesbrot.mp3"
endSub

PS: Soll keine Werbung sein. Wink

Gruß
Darky

	blitz	Do, Aug 18, 2005 22:50 Antworten mit Zitat
ich habe leider überhaupt keine ahnung von Visual MB 3

blitz

Do, Aug 18, 2005 22:50
Antworten mit Zitat

ich habe leider überhaupt keine ahnung von Visual MB 3

	Darky	Fr, Aug 19, 2005 7:15 Antworten mit Zitat
Hi Blitz unten bei den Link bekommst du weitere Informationen her über Visual MB ist ähnlich, wie C bzw. Visual Basic. Also hat fast nix mehr mit der Originalen Basicsprache zutun. Homepage: http://www.visual-mb.de PS: Die Vollversion kostet nur 5 Euro. Gruß Darky

Darky

Fr, Aug 19, 2005 7:15
Antworten mit Zitat

Hi Blitz unten bei den Link bekommst du weitere Informationen her über Visual MB ist ähnlich, wie C bzw. Visual Basic. Also hat fast nix mehr mit der Originalen Basicsprache zutun.

Homepage: http://www.visual-mb.de

PS: Die Vollversion kostet nur 5 Euro.

Gruß
Darky Wink

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

einfacher?

Betreff: einfacher?