ScaleImage will nicht wie ich grml

Übersicht

BlitzBasic

Beginners-Corner

	Düsi Betreff: ScaleImage will nicht wie ich grml	So, Sep 21, 2008 11:26 Antworten mit Zitat
moin... der code: Code: [AUSKLAPPEN] [EINKLAPPEN] Function CreateBG(X, Y, Stars) ;================================================================================================= ;--> Erstellt das Hintergrundsbild ;================================================================================================= ;--> Image löschen wenn vorhanden If Img_BG <> 0 Then FreeImage Img_BG ;--> Image erstellen Img_BG = CreateImage(X, Y) ;--> Sterne malen SetBuffer ImageBuffer(Img_BG) For S = 0 To Stars StarX = Rnd(0, X) StarY = Rnd(0, Y) Color 255, 255, 255 Plot StarX, StarY Plot StarX-1, StarY Plot StarX+1, StarY Plot StarX, StarY-1 Plot StarX, StarY+1 Next ;--> Buffer sezten SetBuffer BackBuffer() ;================================================================================================= ;--> Erstelle die MiniMap ;================================================================================================= ;--> MapImage übergeben Img_BG_Mini = Img_BG ;--> Größe auf 200x200 Pixel anpassen ScaleImage Img_BG_Mini, 200/X, 200/Y End Function und meine zwei probleme: ich bekomme bei ScaleImage Img_BG_Mini, 200/X, 200/Y die mav meldung... Wenn ich aber direkt 0.1 und 0.15 eintippe gehts. - Wieso? grml (X enthält 2000 und Y 1500) und dann noch mein zweites problem: Es wird nicht nur Img_BG_Mini verkleinerd sondern auch Img_BG... Wesshalb? >.< mfg

Düsi

Betreff: ScaleImage will nicht wie ich grml

So, Sep 21, 2008 11:26
Antworten mit Zitat

moin...
der code:
Code: [AUSKLAPPEN]

Function CreateBG(X, Y, Stars)
;=================================================================================================
;--> Erstellt das Hintergrundsbild
;=================================================================================================
;--> Image löschen wenn vorhanden
If Img_BG <> 0 Then FreeImage Img_BG

;--> Image erstellen
Img_BG = CreateImage(X, Y)

;--> Sterne malen
SetBuffer ImageBuffer(Img_BG)

For S = 0 To Stars
   StarX = Rnd(0, X)
   StarY = Rnd(0, Y)

   Color 255, 255, 255
   Plot StarX, StarY
   Plot StarX-1, StarY
   Plot StarX+1, StarY
   Plot StarX, StarY-1
   Plot StarX, StarY+1
Next

;--> Buffer sezten
SetBuffer BackBuffer()
;=================================================================================================
;--> Erstelle die MiniMap
;=================================================================================================
;--> MapImage übergeben
Img_BG_Mini = Img_BG

;--> Größe auf 200x200 Pixel anpassen
ScaleImage Img_BG_Mini, 200/X, 200/Y
End Function

und meine zwei probleme:
ich bekomme bei ScaleImage Img_BG_Mini, 200/X, 200/Y die mav meldung... Wenn ich aber direkt 0.1 und 0.15 eintippe gehts. - Wieso? grml
(X enthält 2000 und Y 1500)

und dann noch mein zweites problem:
Es wird nicht nur Img_BG_Mini verkleinerd sondern auch Img_BG... Wesshalb? >.<

mfg

	mas93	So, Sep 21, 2008 11:30 Antworten mit Zitat
habs jetzt nur überflogen, aber zu deinem ersten Problem: Du solltest X+Y Als Float(#) deklarieren
www.lpbase.de Meine Linkin Park Fanseite[Noch im Aufbau]

mas93

So, Sep 21, 2008 11:30
Antworten mit Zitat

habs jetzt nur überflogen, aber zu deinem ersten Problem:
Du solltest X+Y Als Float(#) deklarieren

www.lpbase.de
Meine Linkin Park Fanseite[Noch im Aufbau]

	Eingeproggt	So, Sep 21, 2008 11:33 Antworten mit Zitat
Zu deinem zweiten Problem: Du hast nur ein Bild, aber 2 verweise darauf, sozusagen. Ersetze diese Zeile Code: [AUSKLAPPEN] [EINKLAPPEN] Img_BG_Mini = Img_BG Durch Code: [AUSKLAPPEN] [EINKLAPPEN] Img_BG_Mini = CopyImage(Img_BG) mfG, Christoph.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9