TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Input

Version: 1.0.0

Information

Uploaded: 30th Apr 2014 03:13

Modified: 30th Apr 2014 06:04

Author: VisualProg

Summary

Controls can do OOP object for you DBP Project. It`s simple system use pattern "observer".

Full Description

You see - do-loop construction very simple, and control system do async render. For the time being i am work to documentation and specification. added: Label - CONTROLS_DBPLampGDI_LABEL v1.0.0 Button - CONTROLS_DBPLampGDI_BUTTON v1.0.0 Slider - CONTROLS_DBPLampGDI_SLIDER v1.0.0 Text - CONTROLS_DBPLampGDI_TEXT v1.0.0 Progress - CONTROLS_DBPLampGDI_PROGRESS v1.0.0 view in youtube - http://www.youtube.com/watch?v=5ambxJwYVac visualprog@rambler.ru

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set window on

set display mode 640,480,32,1

Utils_Core_Init()

Controls_Core_Init()

local globalObserver as integer

globalObserver=0

local lbl as integer

lbl=Controls_CreateControl(CONTROLS_DBPLampGDI_LABEL,"lbl1") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ label

Controls_Observer_AddControl(globalObserver,lbl) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

Controls_Label_SetCaption(lbl,"- Controls Ð¢ÐµÑÑ‚ -")

Controls_SetAutosize(lbl,0) ` ÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(lbl,0) ` Ð²Ñ‹ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(lbl,2,2,96,8) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

local slider as integer

slider=Controls_CreateControl(CONTROLS_DBPLampGDI_SLIDER,"slider1") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ slider

Controls_Observer_AddControl(globalObserver,slider) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

Controls_Slider_SetMax(slider,100)

Controls_Slider_SetMin(slider,0)

Controls_Slider_SetValue(slider,50)

Controls_Slider_SetCaption(slider,"Ð¡Ð»Ð°Ð¹Ð´ÐµÑ€1")

Controls_SetAutosize(slider,0) ` ÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(slider,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(slider,2,12,30,16) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

slider=Controls_CreateControl(CONTROLS_DBPLampGDI_SLIDER,"slider2") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ slider

Controls_Observer_AddControl(globalObserver,slider) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

Controls_Slider_SetMax(slider,200)

Controls_Slider_SetMin(slider,0)

Controls_Slider_SetValue(slider,100)

Controls_Slider_SetCaption(slider,"Ð¡Ð»Ð°Ð¹Ð´ÐµÑ€2")

Controls_SetAutosize(slider,0) ` ÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(slider,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(slider,2,30,40,16) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

Controls_Slider_SetSegment(slider,20) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ‡Ð¸ÑÐ»Ð¾ Ð²Ð¸Ð´Ð¸Ð¼Ñ‹Ñ… Ð´ÐµÐ»ÐµÐ½Ð¸Ð¹

local button as integer

button=Controls_CreateControl(CONTROLS_DBPLampGDI_BUTTON,"button") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ button

Controls_Observer_AddControl(globalObserver,button) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

load image "sprites\test_icon.png",8 ` Ð·Ð°Ð³Ñ€ÑƒÐ¶Ð°ÐµÐ¼ ÐºÐ°Ñ€Ñ‚Ð¸Ð½ÐºÑƒ

Controls_Button_SetImage(button,8)   ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ ÐºÐ°Ñ€Ñ‚Ð¸Ð½ÐºÑƒ

Controls_Button_SetCaption(button,"  ÐŸÑ€Ð¾Ð³Ñ€ÐµÑÑ++")

Controls_SetAutosize(button,0) ` ÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(button,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(button,65,30,30,10) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

button=Controls_CreateControl(CONTROLS_DBPLampGDI_BUTTON,"button2") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ button2

Controls_Observer_AddControl(globalObserver,button) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

load image "sprites\test_icon.png",7 ` Ð·Ð°Ð³Ñ€ÑƒÐ¶Ð°ÐµÐ¼ ÐºÐ°Ñ€Ñ‚Ð¸Ð½ÐºÑƒ

Controls_Button_SetImage(button,7)   ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ ÐºÐ°Ñ€Ñ‚Ð¸Ð½ÐºÑƒ

Controls_Button_SetCaption(button,"  ÐŸÑ€Ð¾Ð³Ñ€ÐµÑÑ--")

Controls_SetAutosize(button,0) ` ÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(button,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(button,65,41,30,10) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

local txt as integer

for y=0 to 2

for x=0 to 3

txt=Controls_CreateControl(CONTROLS_DBPLampGDI_TEXT,"text"+str$(x+(y+1)*3)) ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ text

Controls_Observer_AddControl(globalObserver,txt) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

Controls_Text_SetText(txt,"Ð¢ÐµÐºÑÑ‚")

Controls_SetAutosize(txt,0) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(txt,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(txt,2+14*x,58+10*y,12,8) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

Controls_Text_SetMultiline(txt,0) ` Ð´ÐµÐ»Ð°ÐµÐ¼ Ð¾Ð´Ð½Ð¾ÑÑ‚Ñ€Ð¾Ñ‡Ð½Ð¾Ðµ Ð¿Ð¾Ð»Ðµ

local progress as integer

progress=Controls_CreateControl(CONTROLS_DBPLampGDI_PROGRESS,"progress") ` ÑÐ¾Ð·Ð´Ð°Ñ‘Ð¼ progress

Controls_Observer_AddControl(globalObserver,progress) ` Ð´Ð¾Ð±Ð°Ð²Ð»ÑÐµÐ¼ ÐºÐ¾Ð¼Ð¿Ð°Ð½ÐµÐ½Ñ‚ Ð² Ð¾Ð±Ð·ÐµÑ€Ð²ÐµÑ€

Controls_Progress_SetMax(progress,100)

Controls_Progress_SetMin(progress,0)

Controls_Progress_SetValue(progress,50)

Controls_Progress_SetCaption(progress,"ÐŸÑ€Ð¾Ð³Ñ€ÐµÑÑ")

Controls_SetAutosize(progress,0) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹ ÑÐ°Ð¼Ð¾ÑÑ‚Ð¾ÑÑ‚ÐµÐ»ÑŒÐ½Ð¾

Controls_SetEnable(progress,1) ` Ð²ÐºÐ»ÑŽÑ‡Ð°ÐµÐ¼ "Ð²Ñ‹Ð´ÐµÐ»ÐµÐ½Ð¸Ðµ" Ð¸ "ÐºÐ»Ð¸Ðº"

Controls_SetBounds(progress,2,90,96,8) ` ÑƒÑÑ‚Ð°Ð½Ð°Ð²Ð°Ð»Ð¸Ð²Ð°ÐµÐ¼ Ñ€Ð°Ð·Ð¼ÐµÑ€Ñ‹

Controls_Progress_SetShowProgress(progress,1) ` Ð¾Ñ‚Ð¾Ð±Ñ€Ð°Ð¶Ð°Ñ‚ÑŒ Ð¿Ñ€Ð¾Ñ†ÐµÐ½Ñ‚Ñ‹ Ð¸ Ð¼ÐµÑ‚ÐºÑƒ

make object box 1,3,4,3

position object 1, newxvalue(camera position x (),camera angle y (),5),newyvalue(camera position y (),camera angle x (),5), newzvalue(camera position z (),camera angle y (),5)

rotate object 1,Controls_Slider_GetValue(slider-1),Controls_Slider_GetValue(slider),0

Select (Controls_Event_Click()) ` ÑÐ¾Ð±Ñ‹Ñ‚Ð¸Ðµ event click()

case "button"

Controls_Progress_SetValue(progress,Controls_Progress_GetValue(progress)+10) ` inc

endcase

case "button2"

Controls_Progress_SetValue(progress,Controls_Progress_GetValue(progress)-10) ` dec

endcase

endselect

Controls_Event_EndClick() ` ÑÐ¾Ð±Ñ‹Ñ‚Ð¸Ðµ endevent click()

Controls_IO_SetCursor(mouseX(),mouseY(),mouseZ(),mouseClick()) ` Ð¼Ð°Ð½Ð¸Ð¿ÑƒÐ»ÑÑ‚Ð¾Ñ€Ñ‹ I/O

Controls_Observer_Update(globalObserver) ` update

set cursor 0,0

print "fps="+str$(screen fps())

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - "OOP Controls"