Type Problem
Übersicht
BlitzBasic Beginners-Corner
|
DeVILBetreff: Type Problem |
 Fr, Okt 24, 2008 18:37Antworten mit Zitat 
|
|---|---|---|
|
Hey Leute
Also ich bin noch ein totaler Anfänger was Types angeht, darum bitte ich euch meinen Code anzusehen und mir den Fehler mitzuteilen ;Editor Graphics 800,600,32,2 SetBuffer BackBuffer() cubus = LoadImage("Brick.jpg") grid = LoadImage("Raster.jpg") Type cube Field x,y End Type Repeat For c.cube = Each cube DrawImage cubus,c\x,c\y If MouseHit(1) = 1 c.cube = New cube c\x = MouseX() c\y = MouseY() EndIf Next Flip Cls Forever |
||
|
Eingeproggt |
Fr, Okt 24, 2008 18:43 Antworten mit Zitat
|
|---|---|---|
Nimm die MouseHit-Abfrage aus der For Schleife raus 
EDIT @ fredko: Nein, muss er nicht. |
||
| Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 | ||
- Zuletzt bearbeitet von Eingeproggt am Fr, Okt 24, 2008 18:46, insgesamt einmal bearbeitet
Fredko |
Fr, Okt 24, 2008 18:43 Antworten mit Zitat
|
|
|---|---|---|
| Du musst es noch globalisieren, sprich, "Global c.cube" | ||
| ! | ||
Phlox |
Fr, Okt 24, 2008 18:43 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] ;Editor
Graphics 800,600,32,2 SetBuffer BackBuffer() cubus = LoadImage("Brick.jpg") grid = LoadImage("Raster.jpg") Type cube Field x,y End Type Repeat For c.cube = Each cube DrawImage cubus,c\x,c\y Next If MouseHit(1) = 1 c.cube = New cube c\x = MouseX() c\y = MouseY() EndIf Flip Cls Forever Das ist das einzige, dass mir aufgefallen ist. Was ist denn eig. der Fehler? |
||
Fredko |
Fr, Okt 24, 2008 18:49 Antworten mit Zitat
|
|
|---|---|---|
|
So , hab mal in dem Programm drin die Grafik gemacht um zu sehen ob es klappt und klappt auch, nachdem ich es verbessert habe
Ob es an dem fehlendem Global lag oder der If-Abfrage im For-Next weiß ich nicht.: Code: [AUSKLAPPEN] Graphics 800,600,32,2 cubus = CreateImage(32,32) grid = CreateImage(32,32) SetBuffer ImageBuffer(cubus) Color 200,0,0 Rect 0,0,32,32 SetBuffer ImageBuffer(grid) Color 255,255,0 Rect 0,0,32,32,0 SetBuffer BackBuffer() Type cube Field x,y End Type Global c.cube Repeat Cls For c.cube = Each cube DrawImage cubus,c\x,c\y Next If MouseHit(1) c.cube = New cube c\x = MouseX() c\y = MouseY() EndIf Flip Until KeyHit(1) End |
||
| ! | ||
|
|
DeVIL |
Fr, Okt 24, 2008 18:51 Antworten mit Zitat
|
|---|---|---|
| Der Fehler ist das einfach nichts passiert wenn ich klicke XD | ||
|
|
DeVIL |
Fr, Okt 24, 2008 18:52 Antworten mit Zitat
|
|---|---|---|
|
So habs hinbekommen
Danke euch allen für die Hilfe |
||
Phlox |
Fr, Okt 24, 2008 18:53 Antworten mit Zitat
|
|
|---|---|---|
|
Ich kann dir sagen, woran es lag:
Das Type enthielt keine Einträge, also wird das IF gar nicht aufgerufen. Folglich können keine Einträge erstellt werden! |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group