is using a seperate exe a bad idea?

Author

Message

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 12th Mar 2009 18:41 Edited at: 12th Mar 2009 18:44

Link

well i was messing around with my paint program and i added settings but as a seperate program that i run (its a 400x300 screen with a grey background so it looks like another window) is this a good or a bad idea? lol just wondering?

i know i said before i didn't want to use seperate exes but i couldn't find anything that looked really windowsey lol and my forms arn't done yet

Back to top

Profile PM Website

Quirkyjim

16

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 12th Mar 2009 22:10 Edited at: 12th Mar 2009 22:11

Link

Quote: "my forms arn't done yet"

SOLUTION: Finish them!

[/smartass]

Anyways, what's in the separate window? What does it do? Why is it important? Do you like jellybeans? Why does it need to be in a separate window? Why does it have to look like windows forms? What's your favorite flavor? And finally...

[img]
http://s690.photobucket.com/albums/vv261/quirkyjim/arbiterchewbacca.png[/img]

~QJ

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 12th Mar 2009 23:50

Link

Quote: "http://s690.photobucket.com/albums/vv261/quirkyjim/arbiterchewbacca.png"

FAIL!

And to answer your question, I don't think this would be a good idea. A better way would be to simply finish your forms (I think there is some problem with running multiple DB programs at once, but I may be wrong). Are you having trouble with them? Or are you just running out of steam?

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 13th Mar 2009 01:10

Link

@quirkyjim

This is temerary till i finish them.

1. Settings
2. Changes settings lol
3. ummm i like user input lol
4. YES!
5. I like the look of the windows forms
6. ^
7. Dr. Pepper/Purple

The Code is simple. And my question isn't about the code it's your oppinion on if i should do something a certain way lol

@BN2

Fail? lol

Thats what i figured. Like i said its a fill in i was just wondering what people though.

Well I just realized my forms need to be completely re-done cuz the way i was doing it is going to use literaly hundreds of images :/ whoops so i'm in the process and its going to be a little while and i just need a fill in that will look ok because everything else is pretty much done on my paint program.

I am actually having a little problem. Latch suggested using one image for all the forms but how would i do that if the forms are all different sizes????? thats whats stumping me.

Back to top

Profile PM Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 13th Mar 2009 03:00

Link

Perhaps 1 image which would be the main part. One for the top bar. Then one for the button set. The first one can be scaled in both directions, while the second is only scaled in the x direction. The buttons would just be placed at the top right (for the X button and the _ button).

Add text and you have a form.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 13th Mar 2009 04:19

Link

ok so let me be sure i have this right?

use one image with just the title and scale it for my needs.
use a image for the button(i would say 640 wide haha just to be sure) and scale it for use
And of course use one for the exit button.

what about the form itself(the window part)

or did you mean have the title one have that in it?

Back to top

Profile PM Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 13th Mar 2009 10:42

Link

No, I mean:

Image 1 is pre-made as a square and is the window (minus any top bar)
Image 2 is the title bar without the title (just the bar colors to be scaled in the x direction to fit the window)
Image 3 is the buttons in the corner for X,_,etc

You can then just use TEXT to place the text above the Title Bar

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 13th Mar 2009 16:03

Link

oh ok i get it sorry lol.

Thanks i'll beging trying this method now

New Site! Check it out \/

Back to top

Profile PM Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 13th Mar 2009 17:26

Link

Pretty much like BN2 outlined. You have functions or stored images of the controls that can make up any form. You add and recombine these components to create your forms. The more dynamic your app (the more all the forms and buttons change) the more redrawing it will take. That is why I said before to store the main "look" of your app as it's own bitmap, and copy it to bitmap 0. If there are 4 or 5 windows overlayed, there's no point in redrawing all of them so you just copy a bitmap of the whole window with them already drawn. If you have to change the order of the windows, then you redraw and save the new screen to the offscreen bitmap. Whenever you want to write in a text box, or click on a button, that is when you redraw (on bitmap 0) that single component. The following example draws a form and lets you click on a button.

It's not pretty, but get's the idea across. Of course you would have to manage a system of keeping track of forms, buttons, text boxes, etc. and have return values when something is clicked or when the mouse hovers over it.

sync on
sync rate 0

rem create main app bitmap
rem the main look of the app is kept on bitmap 1
rem the only time I redraw anything is if something changes
create bitmap 1,bitmap width(0),bitmap height(0)

ltgrey=rgb(192,192,192)
blue=128
white=rgb(255,255,255)
button1$="My Button"

blank_form(100,100,500,400,ltgrey,1,"My Window",blue,white)
text_box(120,130,480,300,white)
draw_button(240,350,330,375,button1$)

set current bitmap 0

do
   copy bitmap 1,0

rem look if user is doing something
   gosub _user_interaction

ink white,0
   text 0,0,str$(screen fps())

sync
loop

_user_interaction:
   rem this could be anything like checking a menu
   rem or checking all of the forms.  For this example
   rem I'm just checking the button on the form
   if mouseclick()=1
      if mouse_within(240,350,330,375)
         clicked_button(240,350,330,375,button1$)
      endif
   endif
return

end

function text_box(x1,y1,x2,y2,color)
   ink color,0
   box x1,y1,x2,y2
endfunction

function blank_form(x1,y1,x2,y2,color,title,title$,tbcolor,ttcolor)
   ink color,0
   if title > 0 then title=1 else title=0
   if title=1
      tx1=x1
      ty1=y1
      tx2=x2
      th2=text height("gM")+2
      ty2=ty1+th2

rem form
      box x1,y1,x2,y2+th2

rem titlebar color
      ink tbcolor,0
      box tx1,ty1,tx2,ty2

rem title
      ink ttcolor,0
      text tx1+1,ty1+1,title$
   else
      box x1,y1,x2,y2
   endif
endfunction

function draw_button(x1,y1,x2,y2,title$)
   ink rgb(255,255,255),0
   box x1,y1,x2-1,y2-1
   ink rgb(64,64,64),0
   box x1+1,y1+1,x2+1,y2+1
   ink rgb(192,192,192),0
   box x1+1,y1+1,x2,y2
   ink 0,0
   center text x1+((x2-x1)/2),y1+((y2-y1)/4),title$
endfunction

function clicked_button(x1,y1,x2,y2,title$)
   ink rgb(64,64,64),0
   box x1,y1,x2-1,y2-1
   ink rgb(255,255,255),0
   box x1+1,y1+1,x2+1,y2+1
   ink rgb(192,192,192),0
   box x1+1,y1+1,x2,y2
   ink 0,0
   center text x1+((x2-x1)/2),y1+((y2-y1)/4),title$
endfunction

function mouse_within(x1,y1,x2,y2)
   if mousex() >=x1 and mousex()<=x2 and mousey()>=y1 and mousey()<=y2
      exitfunction 1
   endif
endfunction 0

+ Code Snippet

sync on
sync rate 0

rem create main app bitmap
rem the main look of the app is kept on bitmap 1
rem the only time I redraw anything is if something changes
create bitmap 1,bitmap width(0),bitmap height(0)

ltgrey=rgb(192,192,192)
blue=128
white=rgb(255,255,255)
button1$="My Button"

blank_form(100,100,500,400,ltgrey,1,"My Window",blue,white)
text_box(120,130,480,300,white)
draw_button(240,350,330,375,button1$)

set current bitmap 0

do
   copy bitmap 1,0

   rem look if user is doing something
   gosub _user_interaction

   ink white,0
   text 0,0,str$(screen fps())

   sync
loop

_user_interaction:
   rem this could be anything like checking a menu
   rem or checking all of the forms.  For this example
   rem I'm just checking the button on the form
   if mouseclick()=1
      if mouse_within(240,350,330,375)
         clicked_button(240,350,330,375,button1$)
      endif
   endif
return


end

function text_box(x1,y1,x2,y2,color)
   ink color,0
   box x1,y1,x2,y2
endfunction

function blank_form(x1,y1,x2,y2,color,title,title$,tbcolor,ttcolor)
   ink color,0
   if title > 0 then title=1 else title=0
   if title=1
      tx1=x1
      ty1=y1
      tx2=x2
      th2=text height("gM")+2
      ty2=ty1+th2

      rem form
      box x1,y1,x2,y2+th2

      rem titlebar color
      ink tbcolor,0
      box tx1,ty1,tx2,ty2

      rem title
      ink ttcolor,0
      text tx1+1,ty1+1,title$
   else
      box x1,y1,x2,y2
   endif
endfunction

function draw_button(x1,y1,x2,y2,title$)
   ink rgb(255,255,255),0
   box x1,y1,x2-1,y2-1
   ink rgb(64,64,64),0
   box x1+1,y1+1,x2+1,y2+1
   ink rgb(192,192,192),0
   box x1+1,y1+1,x2,y2
   ink 0,0
   center text x1+((x2-x1)/2),y1+((y2-y1)/4),title$
endfunction

function clicked_button(x1,y1,x2,y2,title$)
   ink rgb(64,64,64),0
   box x1,y1,x2-1,y2-1
   ink rgb(255,255,255),0
   box x1+1,y1+1,x2+1,y2+1
   ink rgb(192,192,192),0
   box x1+1,y1+1,x2,y2
   ink 0,0
   center text x1+((x2-x1)/2),y1+((y2-y1)/4),title$
endfunction

function mouse_within(x1,y1,x2,y2)
   if mousex() >=x1 and mousex()<=x2 and mousey()>=y1 and mousey()<=y2
      exitfunction 1
   endif
endfunction 0

Enjoy your day.

Back to top

Profile PM

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 13th Mar 2009 17:41 Edited at: 13th Mar 2009 19:07

Link

Thanks to both of you

I will Keep working on this.

!!Edit!!

ok i have worked with this and heres what i have. you can create more than one window. color the title. color the window. make button(s) and i started working on a priority type thing where when you call window you can say weather its infront or not. but it only works with window 1 i don't know why though. next i'm going to work on moving the window.

i think this is good for a hours worth of work lol

remstart
   -------------------------------------------------------------------
   program name:
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
WinX=(640/2)/2+25
WinY=(480/2)/2+25
Set window on
Set window position WinX,WinY

Dim ButtonData(100,100,100)
Dim WindowData(100,7)
Dim WindowSysData(5)
DIm Window$(100)
Dim Button$(100,100)
Dim WinOrder(100)

Create Bitmap 1,640,480
   set current bitmap 1 : Cls RGB(0,255,0) : Set current bitmap 0
   WindowSysData(0)=1

CreateWindow(1,100,100,400,300,"Window 1",RGB(192,192,192),RGB(0,0,255),1)
Createbutton(1,1,100,100,75,20,"Button")
CreateWindow(2,15,15,400,400,"Window 2",RGB(192,192,192),RGB(0,0,255),0)
CreateWindow(3,200,30,100,100,"Window 3",RGB(192,192,192),RGB(0,0,255),0)
Do
UpdateWindow()
Sync
Loop

Function Mouseinside(X,Y,X2,Y2)

if mouseX()>X and MouseX()<X2
      If mouseY()>Y and MouseY()<Y2
         exitfunction 1
      endif
   endif

endfunction -1

Function CreateButton(window,Button,X,Y,W,H,Text$)

Button$(window,Button)=Text$
   ButtonData(window,Button,0)=1
   ButtonData(window,Button,1)=X
   ButtonData(window,Button,2)=Y
   ButtonData(window,Button,3)=W
   ButtonData(window,Button,4)=H
   WindowData(Window,7)=WindowData(Window,7)+1

RedrawWindow(Window)

endfunction

Function CreateWindow(Window,X,Y,W,H,Title$,BColor,TColor,Front)

Window$(Window)=Title$
   WindowData(Window,0)=1
   WindowData(Window,1)=X
   WindowData(Window,2)=Y
   WindowData(Window,3)=W
   WindowData(Window,4)=H
   WindowData(Window,5)=Bcolor
   WindowData(Window,6)=TColor
   WindowSysData(1)=WindowSysData(1)+1
   If Front=1
      For X=1 to WindowsysData(1)
         If WinOrder(X)=1 then Winorder(X)=0
      next x
      Winorder(Window)=1
   else
      winorder(window)=0
   endif

RedrawWindow(Window)

endfunction

Function RedrawWindow(Window)
   X=WindowData(Window,1)
   Y=WindowData(Window,2)
   W=WindowData(Window,3)
   H=WindowData(Window,4)
   Buttons=WindowData(Window,7)
   set current bitmap WindowSysData(0)
   If WindowData(Window,0)=1
      Ink WindowData(Window,6),0
      Box X,Y-15,X+W,Y
      Ink WindowData(Window,5),0
      Box X,Y,X+W,Y+H
      ink RGB(255,255,255),0
      line X,Y-15,X,Y+H
      Line X,Y-15,X+W,Y-15
      ink rgb(0,0,0),0
      line X+W,Y-15,X+W,Y+H
      line X,Y+H,X+W,Y+H
      Text X+1,Y-14,Window$(Window)
      For B=1 to 1
         If ButtonData(Window,B,5)=1
            DrawButton(Window,B,1)
         else
            DrawButton(Window,b,0)
         endif
      next b
   endif
   set current bitmap 0

endfunction

Function DrawButton(Window,Button,Press)

X=WindowData(Window,1)+ButtonData(Window,button,1)
   Y=WindowData(Window,2)+BUttonData(Window,button,2)
   W=ButtonData(Window,Button,3)
   H=ButtonData(Window,Button,4)

If Press=0
      Ink RGB(192,192,192),0
      Box X,Y,X+W,Y+H
      Ink RGB(255,255,255),0
      line X,Y,X+W,Y
      Line X,Y,X,Y+H
      ink rgb(0,0,0),0
      Line X+W,y,X+W,Y+H
      Line X,Y+H,X+W,Y+H
      Text X+1,Y+1,Button$(Window,Button)
   else
      Ink RGB(192,192,192),0
      Box X,Y,X+W,Y+H
      Ink RGB(0,0,0),0
      line X,Y,X+W,Y
      Line X,Y,X,Y+H
      ink rgb(255,255,255),0
      Line X+W,y,X+W,Y+H
      Line X,Y+H,X+W,Y+H
      Text X+1,Y+1,Button$(Window,Button)
   endif

endfunction

Function CHeckAction(Window)
   Copy Bitmap 1,0
   For B=1 to windowdata(window,7)
      BX=ButtonData(Window,B,1)+WindowData(WIndow,1)
      BY=ButtonData(Window,B,2)+WindowData(Window,2)
      BX2=ButtonData(Window,B,1)+ButtonData(Window,B,3)+WIndowData(Window,1)
      By2=ButtonData(Window,B,2)+ButtonData(Window,B,4)+WindowData(Window,2)
      If MouseClick() and Mouseinside(BX,BY,bx2,BY2)=1
         ButtonData(Window,B,5)=1
         RedrawWindow(Window)
      else
         If Buttondata(Window,B,5)=0 then RedrawWindow(WIndow) : Print "hi"
         Buttondata(Window,B,5)=0
      endif
   next x

endfunction

Function UpdateWindow()

For X=1 to WindowSysData(1)
      If WinOrder(X)=0
         CheckAction(Window)
      else
         front=X
      endif
   next x

CheckAction(Front)

endfunction

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name:
   -------------------------------------------------------------------
   written by: Caleb Stewart
   date:
   -------------------------------------------------------------------
   comments:
   -------------------------------------------------------------------
remend

Sync on
Sync rate 0
WinX=(640/2)/2+25
WinY=(480/2)/2+25
Set window on
Set window position WinX,WinY

Dim ButtonData(100,100,100)
Dim WindowData(100,7)
Dim WindowSysData(5)
DIm Window$(100)
Dim Button$(100,100)
Dim WinOrder(100)

   Create Bitmap 1,640,480
   set current bitmap 1 : Cls RGB(0,255,0) : Set current bitmap 0
   WindowSysData(0)=1

CreateWindow(1,100,100,400,300,"Window 1",RGB(192,192,192),RGB(0,0,255),1)
Createbutton(1,1,100,100,75,20,"Button")
CreateWindow(2,15,15,400,400,"Window 2",RGB(192,192,192),RGB(0,0,255),0)
CreateWindow(3,200,30,100,100,"Window 3",RGB(192,192,192),RGB(0,0,255),0)
Do
UpdateWindow()
Sync
Loop

Function Mouseinside(X,Y,X2,Y2)

   if mouseX()>X and MouseX()<X2
      If mouseY()>Y and MouseY()<Y2
         exitfunction 1
      endif
   endif

endfunction -1

Function CreateButton(window,Button,X,Y,W,H,Text$)

   Button$(window,Button)=Text$
   ButtonData(window,Button,0)=1
   ButtonData(window,Button,1)=X
   ButtonData(window,Button,2)=Y
   ButtonData(window,Button,3)=W
   ButtonData(window,Button,4)=H
   WindowData(Window,7)=WindowData(Window,7)+1

   RedrawWindow(Window)

endfunction

Function CreateWindow(Window,X,Y,W,H,Title$,BColor,TColor,Front)

   Window$(Window)=Title$
   WindowData(Window,0)=1
   WindowData(Window,1)=X
   WindowData(Window,2)=Y
   WindowData(Window,3)=W
   WindowData(Window,4)=H
   WindowData(Window,5)=Bcolor
   WindowData(Window,6)=TColor
   WindowSysData(1)=WindowSysData(1)+1
   If Front=1
      For X=1 to WindowsysData(1)
         If WinOrder(X)=1 then Winorder(X)=0
      next x
      Winorder(Window)=1
   else
      winorder(window)=0
   endif

   RedrawWindow(Window)

endfunction

Function RedrawWindow(Window)
   X=WindowData(Window,1)
   Y=WindowData(Window,2)
   W=WindowData(Window,3)
   H=WindowData(Window,4)
   Buttons=WindowData(Window,7)
   set current bitmap WindowSysData(0)
   If WindowData(Window,0)=1
      Ink WindowData(Window,6),0
      Box X,Y-15,X+W,Y
      Ink WindowData(Window,5),0
      Box X,Y,X+W,Y+H
      ink RGB(255,255,255),0
      line X,Y-15,X,Y+H
      Line X,Y-15,X+W,Y-15
      ink rgb(0,0,0),0
      line X+W,Y-15,X+W,Y+H
      line X,Y+H,X+W,Y+H
      Text X+1,Y-14,Window$(Window)
      For B=1 to 1
         If ButtonData(Window,B,5)=1
            DrawButton(Window,B,1)
         else
            DrawButton(Window,b,0)
         endif
      next b
   endif
   set current bitmap 0

endfunction

Function DrawButton(Window,Button,Press)

   X=WindowData(Window,1)+ButtonData(Window,button,1)
   Y=WindowData(Window,2)+BUttonData(Window,button,2)
   W=ButtonData(Window,Button,3)
   H=ButtonData(Window,Button,4)


   If Press=0
      Ink RGB(192,192,192),0
      Box X,Y,X+W,Y+H
      Ink RGB(255,255,255),0
      line X,Y,X+W,Y
      Line X,Y,X,Y+H
      ink rgb(0,0,0),0
      Line X+W,y,X+W,Y+H
      Line X,Y+H,X+W,Y+H
      Text X+1,Y+1,Button$(Window,Button)
   else
      Ink RGB(192,192,192),0
      Box X,Y,X+W,Y+H
      Ink RGB(0,0,0),0
      line X,Y,X+W,Y
      Line X,Y,X,Y+H
      ink rgb(255,255,255),0
      Line X+W,y,X+W,Y+H
      Line X,Y+H,X+W,Y+H
      Text X+1,Y+1,Button$(Window,Button)
   endif

endfunction

Function CHeckAction(Window)
   Copy Bitmap 1,0
   For B=1 to windowdata(window,7)
      BX=ButtonData(Window,B,1)+WindowData(WIndow,1)
      BY=ButtonData(Window,B,2)+WindowData(Window,2)
      BX2=ButtonData(Window,B,1)+ButtonData(Window,B,3)+WIndowData(Window,1)
      By2=ButtonData(Window,B,2)+ButtonData(Window,B,4)+WindowData(Window,2)
      If MouseClick() and Mouseinside(BX,BY,bx2,BY2)=1
         ButtonData(Window,B,5)=1
         RedrawWindow(Window)
      else
         If Buttondata(Window,B,5)=0 then RedrawWindow(WIndow) : Print "hi"
         Buttondata(Window,B,5)=0
      endif
   next x

endfunction

Function UpdateWindow()

   For X=1 to WindowSysData(1)
      If WinOrder(X)=0
         CheckAction(Window)
      else
         front=X
      endif
   next x

   CheckAction(Front)

endfunction

New Site! Check it out \/

Back to top

Profile PM Website

Quirkyjim

16

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 13th Mar 2009 21:51

Link

Two things:

1) YES! Working buttons! Well done, Caleb.

2) Checking out the new site...oh, it doesn't seem to be there...

~QJ
That's what they WANT you to think...

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 14th Mar 2009 00:25 Edited at: 14th Mar 2009 18:27

Link

haaha thanks. not that impressive but its getting there.

oh thats odd. i put it in my info. stupid technoligy lololol

edit:

fixed the site thing(btw i just got it so its not the best yet

lol)

Edit2:

Ok I have been trying to use a saved image and just scale it but it won't work. this is how i'm trying to do it. take a sprite of the image. size the sprite to how much i need then paste the sprite and get the image of it then paste that image to the bitmap.
is that right? its not working

New Site! Check it out \/

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / is using a seperate exe a bad idea?