BlitzPlus => AGB vor Programmstart akzeptieren?

Übersicht

BlitzBasic

BlitzPlus

	maxihabbo Betreff: BlitzPlus => AGB vor Programmstart akzeptieren?	Fr, Aug 12, 2005 0:11 Antworten mit Zitat
Hallo! Ich habe mir jetzt auch Blitz+ gekauft. Jetzt will ich damit vor mein Spiel eine AGB machen. Die muss vor dem Spielstart Akzeptiert werden. Wie macht man das? Ich weiß leider auch noch nicht, wie das mit dem Text bei Blitz+ funktioniert... Gruß Maxi

maxihabbo

Betreff: BlitzPlus => AGB vor Programmstart akzeptieren?

Fr, Aug 12, 2005 0:11
Antworten mit Zitat

Hallo!
Ich habe mir jetzt auch Blitz+ gekauft. Jetzt will ich damit vor mein Spiel eine AGB machen. Die muss vor dem Spielstart Akzeptiert werden.

Wie macht man das?
Ich weiß leider auch noch nicht, wie das mit dem Text bei Blitz+ funktioniert...

Gruß Maxi

	DA	Fr, Aug 12, 2005 11:03 Antworten mit Zitat
Hi, Ganz einfach. Mach einfach ein Fenster und schau dir die Befehle hier an: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] CreateLabel CreateButton Damit müsstes gehen. Mfg
Deutscher Blitz Basic Chat

DA

Fr, Aug 12, 2005 11:03
Antworten mit Zitat

Hi,

Ganz einfach.
Mach einfach ein Fenster und schau dir die Befehle hier an:
BlitzBasic: [AUSKLAPPEN]


CreateLabel CreateButton

Damit müsstes gehen.

Mfg

Deutscher Blitz Basic Chat

	maxihabbo	Fr, Aug 12, 2005 11:31 Antworten mit Zitat
Ok. Ich habe da jetzt die Nutzungsbedingungen geschrieben. Nur wie prüfe ich einen Button? Ich habe schon in der Befehlstabelle von blitzbase gesucht, aber nichts funktioniert richtig! Hier der Quellcode der Nutzungsbedingungen: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1) label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(13)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window) button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1) button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2) WaitKey() End Ich hatte das vorher bei dem Text mit Print gemacht Gruß maxi

maxihabbo

Fr, Aug 12, 2005 11:31
Antworten mit Zitat

Ok. Ich habe da jetzt die Nutzungsbedingungen geschrieben.
Nur wie prüfe ich einen Button?
Ich habe schon in der Befehlstabelle von blitzbase gesucht, aber nichts funktioniert richtig!
Hier der Quellcode der Nutzungsbedingungen:
BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1)
label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(13)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window)
button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1)
button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2)
WaitKey()
End

Ich hatte das vorher bei dem Text mit Print gemacht Laughing

Gruß maxi

	ICE TRUCK	Fr, Aug 12, 2005 12:07 Antworten mit Zitat
hi BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1) label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(10)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+Chr(10)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window) button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1) button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2) Repeat If WaitEvent()=$401 Then If EventSource()=button1 And ButtonState( button2 )=1 Then Exit ;exit verlässt die schleife End If Forever End das ist der code schaus dir genau an ICE TRUCK

ICE TRUCK

Fr, Aug 12, 2005 12:07
Antworten mit Zitat

hi

BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1) 
label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(10)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+Chr(10)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window) 
button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1) 
button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2) 

Repeat
If WaitEvent()=$401 Then 
If EventSource()=button1 And ButtonState( button2 )=1 Then Exit ;exit verlässt die schleife
End If 
Forever
End

das ist der code

schaus dir genau an

ICE TRUCK

	maxihabbo	Fr, Aug 12, 2005 12:29 Antworten mit Zitat
Okay, danke! Nur das Programm kann man nicht beenden. Also oben auf das X. Muss man das bei B+ erst Programmieren, dass das sich mit dem X beendet? Gruß maxi

maxihabbo

Fr, Aug 12, 2005 12:29
Antworten mit Zitat

Okay, danke!
Nur das Programm kann man nicht beenden.
Also oben auf das X. Muss man das bei B+ erst Programmieren, dass das sich mit dem X beendet?

Gruß maxi

	gamble	Fr, Aug 12, 2005 12:41 Antworten mit Zitat
Ja, EventID ist dazu $803

gamble

Fr, Aug 12, 2005 12:41
Antworten mit Zitat

Ja, EventID ist dazu $803

	maxihabbo	Fr, Aug 12, 2005 13:17 Antworten mit Zitat
wie baut man das dann ein? Gruß maxi

maxihabbo

Fr, Aug 12, 2005 13:17
Antworten mit Zitat

wie baut man das dann ein?

Gruß maxi

	Rallimen Sieger des 30-EUR-Wettbewerbs	Fr, Aug 12, 2005 13:38 Antworten mit Zitat
das Grundgerüst ist mit select ... case einfacher zu benutzen und noch einfacher zu erweitern, da der Event einfach eingebaut wird! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1) label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(10)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+Chr(10)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window) button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1) button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2) Repeat Ergebnis = WaitEvent () Select Ergebnis Case $803 End ; das Kreuz geklickt oder (Alt + F4) und alles was sonst noch geht! Case $401 Select EventSource () Case Button1 If ButtonState(Button2) = True Then Notify \"Programm wird gestartet..!\"+Chr$(13)+Chr$(10)+\"Daten werden geladen...\" End Else Notify \"Sie müssen die Nutzungsbedingungen akzeptieren!\"+Chr$(13)+Chr$(10)+\"oder beenden Sie das Programm\" End If End Select End Select Forever
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Fr, Aug 12, 2005 13:38
Antworten mit Zitat

das Grundgerüst ist mit select ... case einfacher zu benutzen und noch einfacher zu erweitern, da der Event einfach eingebaut wird!
BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Nutzungsbedingungen!\",250,200,250,250,0,1) 
label=CreateLabel(\"Nutzungsbedingungen:\"+Chr$(13)+Chr$(10)+\"1) Dieses Programm ist Freeware und darf nicht verkauft werden!\"+Chr(13)+Chr(10)+ \"2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!\",10,10,240,200,window) 
button1=CreateButton(\"Weiter >>>\",70,175,100,30,window,1) 
button2=CreateButton(\"Ich akzeptiere die Nutzungsbedingungen\",15,145,220,30,window,2) 


Repeat
    Ergebnis = WaitEvent ()
    Select Ergebnis
      Case $803 End ; das Kreuz geklickt oder (Alt + F4) und alles was sonst noch geht!
      Case $401
        Select EventSource ()
          Case Button1
            If ButtonState(Button2) = True Then
               Notify \"Programm wird gestartet..!\"+Chr$(13)+Chr$(10)+\"Daten werden geladen...\"
               End 
            Else
                Notify \"Sie müssen die Nutzungsbedingungen akzeptieren!\"+Chr$(13)+Chr$(10)+\"oder beenden Sie das Programm\"
            End If 
        End Select
    End Select
Forever

[BB2D | BB3D | BB+]

	blitz	Fr, Aug 12, 2005 17:04 Antworten mit Zitat
maxihabbo hat Folgendes geschrieben: author =engl.

blitz

Fr, Aug 12, 2005 17:04
Antworten mit Zitat

maxihabbo hat Folgendes geschrieben:

author

=engl.

	$tankY Betreff: einfacher:	Mo, Sep 12, 2005 16:22 Antworten mit Zitat
window=CreateWindow("Nutzungsbedingungen!",250,200,250,250,0,1) label=CreateLabel("Nutzungsbedingungen:"+Chr$(13)+Chr$(13)+"1) Dieses Programm ist Freeware und darf nicht verkauft werden!"+Chr(13)+ "2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!",10,10,240,200,window) button1=CreateButton("Weiter >>>",70,175,100,30,window,1) button2=CreateButton("Ich akzeptiere die Nutzungsbedingungen",15,145,220,30,window,2) repeat id=waitevent() dat=eventdata() sor=eventsource() if id=$401 and sor=button1 then end elseif id=$401 and sor=button2 then [weiter] endif until id=$803 ;end

$tankY

Betreff: einfacher:

Mo, Sep 12, 2005 16:22
Antworten mit Zitat

window=CreateWindow("Nutzungsbedingungen!",250,200,250,250,0,1)
label=CreateLabel("Nutzungsbedingungen:"+Chr$(13)+Chr$(13)+"1) Dieses Programm ist Freeware und darf nicht verkauft werden!"+Chr(13)+ "2) Für eventuelle Schäden des Computers haftet nicht der Author dieses Programmes!",10,10,240,200,window)
button1=CreateButton("Weiter >>>",70,175,100,30,window,1)
button2=CreateButton("Ich akzeptiere die Nutzungsbedingungen",15,145,220,30,window,2)
repeat
id=waitevent()
dat=eventdata()
sor=eventsource()
if id=$401 and sor=button1 then
end
elseif id=$401 and sor=button2 then
[weiter]
endif
until id=$803
;end

	bear1	Di, Sep 27, 2005 18:10 Antworten mit Zitat
Ein Tipp: Wenn Du die Onlinehilfe von blitzbase.de noch nicht hast, dann UNBEDINGT herunterladen! Da steht sehr viel über die GUI drin
Ja, ne... Zum virtuellen Staat Eranien: http://www.eranien.de Zu meinem Blog: http://www.erixpage.de

bear1

Di, Sep 27, 2005 18:10
Antworten mit Zitat

Ein Tipp: Wenn Du die Onlinehilfe von blitzbase.de noch nicht hast, dann UNBEDINGT herunterladen! Da steht sehr viel über die GUI drin Wink

Ja, ne...

Zum virtuellen Staat Eranien:
http://www.eranien.de
Zu meinem Blog:
http://www.erixpage.de

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

BlitzPlus => AGB vor Programmstart akzeptieren?

Betreff: BlitzPlus => AGB vor Programmstart akzeptieren?

Betreff: einfacher: