Graphicmode

Übersicht

BlitzBasic

Beginners-Corner

	Snaq Betreff: Graphicmode	Sa, Mai 28, 2005 0:30 Antworten mit Zitat
hallo, bin gearde am erstellen eines spieles das standartmäßig in 800600 läuft! nun möchte ich es aber so machen das er in den optionen den Graphicmode ändert, z.b. statt 800600 halt 1024*768. wie geht so etaws?

Snaq

Betreff: Graphicmode

Sa, Mai 28, 2005 0:30
Antworten mit Zitat

hallo,

bin gearde am erstellen eines spieles das standartmäßig in 800*600 läuft!
nun möchte ich es aber so machen das er in den optionen den Graphicmode ändert, z.b. statt 800*600 halt 1024*768.

wie geht so etaws?

	Dante	Sa, Mai 28, 2005 1:09 Antworten mit Zitat
wie wärs mit BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024,768 MfG

Dante

Sa, Mai 28, 2005 1:09
Antworten mit Zitat

wie wärs mit BlitzBasic: [AUSKLAPPEN]

Graphics 1024,768

MfG

	Artemis	Sa, Mai 28, 2005 8:18 Antworten mit Zitat
aber bedenke! bei einem neuen grafik modus werden alle geladenen bilder gelöscht!

Artemis

Sa, Mai 28, 2005 8:18
Antworten mit Zitat

aber bedenke!
bei einem neuen grafik modus werden alle geladenen bilder gelöscht!

	FluiX	Sa, Mai 28, 2005 11:04 Antworten mit Zitat
es wär au gut wenn du die breite und länge in variablen deffinierst damit du wenn du ein text in der mitte oder so ausgeben muss der sich anpassr Code: [AUSKLAPPEN] [EINKLAPPEN] GH=600 GW=800 graphics gw,gh,16,1

FluiX

Sa, Mai 28, 2005 11:04
Antworten mit Zitat

es wär au gut wenn du die breite und länge in variablen deffinierst damit du wenn du ein text in der mitte oder so ausgeben muss der sich anpassr

Code: [AUSKLAPPEN]

GH=600
GW=800
graphics gw,gh,16,1

	Artemis	Sa, Mai 28, 2005 11:19 Antworten mit Zitat
na dafür gibtz aber auch graphicswidth() und graphicsheight()

Artemis

Sa, Mai 28, 2005 11:19
Antworten mit Zitat

na dafür gibtz aber auch graphicswidth()
und graphicsheight()

	Spikespine	Sa, Mai 28, 2005 11:41 Antworten mit Zitat
@ Jonas: Das ständige aufrufen der Funktion kostet aber (glaub ich) mehr speed als das aufrufen einer Variablen. Spike
Athlon 64 3700+ \| 1024 MB RAM \| GeForce 7900 GT \| Blitz2D, Blitz3D, BlitzPlus, BlitzMax

Spikespine

Sa, Mai 28, 2005 11:41
Antworten mit Zitat

@ Jonas: Das ständige aufrufen der Funktion kostet aber (glaub ich) mehr speed als das aufrufen einer Variablen.

Spike

Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax

	DarkMike	Sa, Mai 28, 2005 14:46 Antworten mit Zitat
häää, ich dachte er fragt wie man in denn optionen denn graphikmodus ändern kann, also so irgendwie: if ... then Graphics...
2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

DarkMike

Sa, Mai 28, 2005 14:46
Antworten mit Zitat

häää, ich dachte er fragt wie man in denn optionen denn graphikmodus ändern kann, also so irgendwie: if ... then Graphics...

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

	Jack	Sa, Mai 28, 2005 15:23 Antworten mit Zitat
an sowas arbeite ich auch zurzeit. geh mal auf www.robsite.de und lad dir den quelltext für das spiel "heli hunter" runter. da is ne gute funktion drin, die du dir mal anschaun solltest. ich würde etwas wie folgendes machen: Code: [AUSKLAPPEN] [EINKLAPPEN] Global Breite = 640; oder 800 Global Hoehe = 480; oder 600 Global Farbtiefe = 16 Global Fenstermodus = 1 Graphics Breite,Hoehe,Farbtiefe,Fenstermodus SetBuffer BackBuffer(); solltest du nur im Hauptprogramm einbauen .Option-Label Cls Option-HGrund = LoadImage("Option-HGrund.bmp"); wenn du Vollversion hast, dann kannst du ja auch ".png" schreiben DrawBlock Option-HGrund, 0,0 ; is besser als DrawImage, wegen Transparenz Font1 = LoadFont("Arial", 50,1,0,0) SetFont Font1 x = 200 : y = 70 Color 255,0,0 Rect x,y,Breite,60,1 ; Breite ist die Breite von "Vollbildschrim" in Pixeln(natürlich) Text x,y,"Auflösung",1 Text 200,150,"Steuerung",1 Text 200,230,"Farbtiefe",1 Text 200,310,"Vollbildschirm",1 Repeat If KeyDown(208) Then y = y + 60 If y = 70 And KeyDown(28) Then Gosub Aufloesung EndIf Gosub Option-Label ElseIf KeyDown(200) Then y = y - 60 Gosub Option-Label EndIf Forever ; oder irgendeine Until-Anweisung .Aufloesung Cls Aufloesung-HGrund = LoadImage("Aufloesung-HGrund.bmp") DrawBlock Aufloesung-HGrund, 0,0 Font2 = LoadFont("Arial",45,1,0,0); kannst ja auch Font1 nehmen SetFont Font2; oder Font1 x = 200 : y = 70 Color 0,0,255; oder Color 255,0,0 Rect x,y,Breite,50,1 Text x,y,"640 x 480",1 If Write Input() = "ja" Then Breite = 640 And Hoehe = 480 Else Breite = 800 And Hoehe = 600; oder irgendein Standard EndIf Text 200,135,"800 x 600",1 If Write Input() = "ja" Then Breite = 800 And Hoehe = 600 Else Breite = 640 And Hoehe = 480 EndIf Text 200,200,"1024 x 768",1 If Write Input() = "ja" Then Breite = 1024 And Hoehe = 768 Else Breite = 800 And Hoehe = 600; oder 640 und 480 EndIf Text 200,265,"1600 x 1200",1 If Write Input() = "ja" Then Breite = 1600 And Hoehe = 1200 Else Breite = 640 And Hoehe = 480; oder 800 und 600 EndIf baue das andere auch so aus. wenn das nicht klappen sollte, dann sei bitte nicht böse, ich bin auch nur ein anfänger, aber ich habe mein bestes gegeben...

Jack

Sa, Mai 28, 2005 15:23
Antworten mit Zitat

an sowas arbeite ich auch zurzeit. geh mal auf www.robsite.de und lad dir den quelltext für das spiel "heli hunter" runter. da is ne gute funktion drin, die du dir mal anschaun solltest. ich würde etwas wie folgendes machen:
Code: [AUSKLAPPEN]

Global Breite = 640; oder 800
Global Hoehe = 480; oder 600
Global Farbtiefe = 16
Global Fenstermodus = 1
Graphics Breite,Hoehe,Farbtiefe,Fenstermodus
SetBuffer BackBuffer(); solltest du nur im Hauptprogramm einbauen
.Option-Label
Cls
Option-HGrund = LoadImage("Option-HGrund.bmp"); wenn du Vollversion hast, dann kannst du ja auch ".png" schreiben
DrawBlock Option-HGrund, 0,0 ; is besser als DrawImage, wegen Transparenz
Font1 = LoadFont("Arial", 50,1,0,0)
SetFont Font1
x = 200 : y = 70
Color 255,0,0
Rect x,y,Breite,60,1 ; Breite ist die Breite von "Vollbildschrim" in Pixeln(natürlich)
Text x,y,"Auflösung",1
Text 200,150,"Steuerung",1
Text 200,230,"Farbtiefe",1
Text 200,310,"Vollbildschirm",1
Repeat
If KeyDown(208) Then
y = y + 60
If y = 70 And KeyDown(28) Then
Gosub Aufloesung
EndIf
Gosub Option-Label
ElseIf KeyDown(200) Then
y = y - 60
Gosub Option-Label
EndIf
Forever ; oder irgendeine Until-Anweisung
.Aufloesung
Cls
Aufloesung-HGrund = LoadImage("Aufloesung-HGrund.bmp")
DrawBlock Aufloesung-HGrund, 0,0
Font2 = LoadFont("Arial",45,1,0,0); kannst ja auch Font1 nehmen
SetFont Font2; oder Font1
x = 200 : y = 70
Color 0,0,255; oder Color 255,0,0
Rect x,y,Breite,50,1
Text x,y,"640 x 480",1
If Write Input() = "ja" Then
Breite = 640 And Hoehe = 480
Else
Breite = 800 And Hoehe = 600; oder irgendein Standard
EndIf
Text 200,135,"800 x 600",1
If Write Input() = "ja" Then
Breite = 800 And Hoehe = 600
Else
Breite = 640 And Hoehe = 480
EndIf
Text 200,200,"1024 x 768",1
If Write Input() = "ja" Then
Breite = 1024 And Hoehe = 768
Else
Breite = 800 And Hoehe = 600; oder 640 und 480
EndIf
Text 200,265,"1600 x 1200",1
If Write Input() = "ja" Then
Breite = 1600 And Hoehe = 1200
Else
Breite = 640 And Hoehe = 480; oder 800 und 600
EndIf

baue das andere auch so aus. wenn das nicht klappen sollte, dann sei bitte nicht böse, ich bin auch nur ein anfänger, aber ich habe mein bestes gegeben... Laughing

Zuletzt bearbeitet von Jack am Sa, Mai 28, 2005 15:53, insgesamt einmal bearbeitet

	Snaq	So, Mai 29, 2005 10:12 Antworten mit Zitat
danke genau das hab ich gesucht!

Snaq

So, Mai 29, 2005 10:12
Antworten mit Zitat

danke genau das hab ich gesucht!

	Jack	So, Mai 29, 2005 18:34 Antworten mit Zitat
is das jetz ironisch gemeint oder net? ich hab aber noch Code: [AUSKLAPPEN] [EINKLAPPEN] Return vergessen. Bitte um Entschuldigung!

Jack

So, Mai 29, 2005 18:34
Antworten mit Zitat

is das jetz ironisch gemeint oder net? ich hab aber noch
Code: [AUSKLAPPEN]

Return

vergessen. Bitte um Entschuldigung! Laughing

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Graphicmode

Betreff: Graphicmode