First Symbos Application

Página 6/47
1 | 2 | 3 | 4 | 5 | | 7 | 8 | 9 | 10 | 11

Por edoz

Prophet (2465)

Imagen del edoz

07-01-2014, 21:34

No hurry..

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 13:38

I think it has still something to do with:

IncludeSheet "puzzle",1,1,32,32

I'm not sure about the 32,32

My sheet has a resolution of 128x128 and on the sheet there are 16 titles (32x32)
I tried also IncludeSheet "puzzle",1,1,64,64 but same results

The full code:


Global Message

Global Position1%,Position2%,Position3%,Position4%,Position5%,Position6%,Position7%
Global Position8%,Position9%,Position10%,Position11%,Position12%,Position13%
Global Position14%,Position15%,Position16%

Global X_Position1%,Y_Position1%
Global X_Position2%,Y_Position2%
Global X_Position3%,Y_Position3%
Global X_Position4%,Y_Position4%
Global X_Position5%,Y_Position5%
Global X_Position6%,Y_Position6%
Global X_Position7%,Y_Position7%
Global X_Position8%,Y_Position8%
Global X_Position9%,Y_Position9%
Global X_Position10%,Y_Position10%
Global X_Position11%,Y_Position11%
Global X_Position12%,Y_Position12%
Global X_Position13%,Y_Position13%
Global X_Position14%,Y_Position14%
Global X_Position15%,Y_Position15%
Global X_Position16%,Y_Position16%

Global OpenLocation%
Global sht

IncludeSheet "puzzle",1,1,32,32

;**** Code called on Opening Window Form1
FUNCTION Form1_Open

	;Set defaults

	X_Position1= 1
	Y_Position1= 1
	X_Position2= 32
	Y_Position2= 1
	X_Position3= 64
	Y_Position3= 1
	X_Position4= 96
	Y_Position4= 1

	X_Position5= 1
	Y_Position5= 32
	X_Position6= 32
	Y_Position6= 32
	X_Position7= 64
	Y_Position7= 32
	X_Position8= 96
	Y_Position8= 32

	X_Position9= 1
	Y_Position9= 64
	X_Position10= 32
	Y_Position10= 64
	X_Position11= 64
	Y_Position11= 64
	X_Position12= 96
	Y_Position12= 64

	X_Position13= 1
	Y_Position13= 96
	X_Position14= 32
	Y_Position14= 96
	X_Position15= 64
	Y_Position15= 96
	X_Position16= 96
	Y_Position16= 96

	sht = LoadSheet("b:\puzzle.gsh")
 
 	SetObjGraphic ( Imagebox1_id , sht , 0)
	SetObjGraphic ( Imagebox2_id , sht , 1)
	SetObjGraphic ( Imagebox3_id , sht , 2)
	SetObjGraphic ( Imagebox4_id , sht , 3)
	SetObjGraphic ( Imagebox5_id , sht , 4)
	SetObjGraphic ( Imagebox6_id , sht , 5)
	SetObjGraphic ( Imagebox7_id , sht , 6)
	SetObjGraphic ( Imagebox8_id , sht , 7)
	SetObjGraphic ( Imagebox9_id , sht , 8)
	SetObjGraphic ( Imagebox10_id , sht , 9)
	SetObjGraphic ( Imagebox11_id , sht , 10)
	SetObjGraphic ( Imagebox12_id , sht , 11)
	SetObjGraphic ( Imagebox13_id , sht , 12)
	SetObjGraphic ( Imagebox14_id , sht , 13)
	SetObjGraphic ( Imagebox15_id , sht , 14)
 	SetObjGraphic ( Imagebox16_id , sht , 15)


	SetObjPos(Imagebox1_ID,X_Position1,Y_Position1)
	SetObjPos(Imagebox2_ID,X_Position2,Y_Position2)
	SetObjPos(Imagebox3_ID,X_Position3,Y_Position3)
	SetObjPos(Imagebox4_ID,X_Position4,Y_Position4)
	SetObjPos(Imagebox5_ID,X_Position5,Y_Position5)
	SetObjPos(Imagebox6_ID,X_Position6,Y_Position6)
	SetObjPos(Imagebox7_ID,X_Position7,Y_Position7)
	SetObjPos(Imagebox8_ID,X_Position8,Y_Position8)
	SetObjPos(Imagebox9_ID,X_Position9,Y_Position9)
	SetObjPos(Imagebox10_ID,X_Position10,Y_Position10)
	SetObjPos(Imagebox11_ID,X_Position11,Y_Position11)
	SetObjPos(Imagebox12_ID,X_Position12,Y_Position12)
	SetObjPos(Imagebox13_ID,X_Position13,Y_Position13)
	SetObjPos(Imagebox14_ID,X_Position14,Y_Position14)
	SetObjPos(Imagebox15_ID,X_Position15,Y_Position15)
	SetObjPos(Imagebox16_ID,X_Position16,Y_Position16)

	Position1%= 1
	Position2%= 2
	Position3%= 3
	Position4%= 4
	Position5%= 5
	Position6%= 6
	Position7%= 7
	Position8%= 8
	Position9%= 9
	Position10%= 10
	Position11%= 11
	Position12%= 12
	Position13%= 13
	Position14%= 14
	Position15%= 15
	Position16%= 16

	Openlocation = 16
	
		
	RefreshObj ImageBox1_ID
	RefreshObj ImageBox2_ID
	RefreshObj ImageBox3_ID
	RefreshObj ImageBox4_ID
	RefreshObj ImageBox5_ID
	RefreshObj ImageBox6_ID
	RefreshObj ImageBox7_ID
	RefreshObj ImageBox8_ID
	RefreshObj ImageBox9_ID
	RefreshObj ImageBox10_ID
	RefreshObj ImageBox11_ID
	RefreshObj ImageBox12_ID
	RefreshObj ImageBox13_ID
	RefreshObj ImageBox14_ID
	RefreshObj ImageBox15_ID
	RefreshObj ImageBox16_ID

	RefreshObj Form1
EndF


;**** Main loop of Form Form1
FUNCTION Form1_Main



EndF


;**** Code called on event occuring on ImageBox1
FUNCTION ImageBox1_Event

EndF
;**** Code called on event occuring on ImageBox2
FUNCTION ImageBox2_Event

EndF
;**** Code called on event occuring on ImageBox3
FUNCTION ImageBox3_Event

EndF
;**** Code called on event occuring on ImageBox4
FUNCTION ImageBox4_Event

EndF
;**** Code called on event occuring on ImageBox5
FUNCTION ImageBox5_Event

EndF
;**** Code called on event occuring on ImageBox6
FUNCTION ImageBox6_Event

EndF
;**** Code called on event occuring on ImageBox7
FUNCTION ImageBox7_Event

EndF
;**** Code called on event occuring on ImageBox8
FUNCTION ImageBox8_Event

EndF
;**** Code called on event occuring on ImageBox9
FUNCTION ImageBox9_Event

EndF
;**** Code called on event occuring on ImageBox10
FUNCTION ImageBox10_Event

EndF
;**** Code called on event occuring on ImageBox11
FUNCTION ImageBox11_Event

EndF
;**** Code called on event occuring on ImageBox12
FUNCTION ImageBox12_Event

EndF
;**** Code called on event occuring on ImageBox13
FUNCTION ImageBox13_Event

EndF
;**** Code called on event occuring on ImageBox14
FUNCTION ImageBox14_Event

EndF
;**** Code called on event occuring on ImageBox15
FUNCTION ImageBox15_Event

EndF
;**** Code called on event occuring on ImageBox16
FUNCTION ImageBox16_Event

EndF
;**** Code called on event occuring on Button1
FUNCTION Button1_Event

EndF



Por Trebmint2

Master (242)

Imagen del Trebmint2

08-01-2014, 13:46

I did look and there's something a bit strange going on that I didnt have time to look into fully

Yes the Sheet tiles should have been 32x32 not 64x64. Also on the Sheet page where you import the images. The original 128x128 is processed at 128 height (correct) but 128 byte width (Should really be 64). Thats because 16 color graphics= 2 pixels per byte so 128 pixels = 64 bytes. Doesnt mean its wrong but means the original image is processed at double width.

I will look to get this working, but as I said it crashed for me too... not sure why

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 14:01

I Just removed some unnecessary spaces and some %cin the source code. But that was not the problem.
This is what I get:

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 15:44

Something else. I noticed that when you start the picture project in symbos and stop the application (via the exit button) it's away from display but it seems that it is still active in the taskmanger in Symbos.

And the funny way is.. if you click for example on an apply button in some other application (like the display control manger application) you got a message box (Thank you for play slide) (huh ?) So it seems applications have some weird interacting..

Por Prodatron

Paragon (1836)

Imagen del Prodatron

08-01-2014, 16:12

edoz wrote:

if you click for example on an apply button in some other application (like the display control manger application) you got a message box (Thank you for play slide) (huh ?) So it seems applications have some weird interacting..

Ops, that sounds really strange Question I currently try to get the actual status of the 2.1 working on MSX, after this I should have some time for these things.

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 16:24

Cool! But I run 2.1-701007 ? Maybe this is because I'm running the pre-release Wink

Por Prodatron

Paragon (1836)

Imagen del Prodatron

08-01-2014, 16:36

Yes, that's the old one (last pre-released one) from 2007, but this shouldn't have anything to do with this funny behaviour. The version I am trying to get running is the "new" one (only one year old LOL! ) with the multiline-textinput-control etc. (Notepad...) Last night I already made some progress, so I am optimistic at the moment, that there will be something to see soon.

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 17:11

I found the problem!!!
If I use titles it is not working! .. only Sheets seems to be working!
See below, I have a graphic output on the screen!

Por edoz

Prophet (2465)

Imagen del edoz

08-01-2014, 17:13

Prodatron wrote:

Yes, that's the old one (last pre-released one) from 2007, but this shouldn't have anything to do with this funny behaviour. The version I am trying to get running is the "new" one (only one year old LOL! ) with the multiline-textinput-control etc. (Notepad...) Last night I already made some progress, so I am optimistic at the moment, that there will be something to see soon.

Sounds really cool! .. I wonder .. I'm also working at night on symstudio projects Big smile

Página 6/47
1 | 2 | 3 | 4 | 5 | | 7 | 8 | 9 | 10 | 11