TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 15th Sep 2010 03:11

Modified: 15th Sep 2010 05:19

Author: Anonymous Coder

Summary

colourfinder for box command box(left,top,right,bottom,c1,c2,c3,c4

Full Description

with this little program you can see what you'll get if you use the box command

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem  EK-Farbe

rem  copyright Erich Kuehn, Germany

rem  08.2009

rem  kompilieren als Fenster mit selbstdefinierter Groesse 360x300

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem  Planung und Kontrolle des box-Befehls in Dark Basic Pro

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Definitions

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

DEFINITION:

global rr=0                              :rem red 0-255

global gg=0                              :rem green 0-255

global bb=0                              :rem blue 0-255

rr$=""                                   :rem green-String

bb$=""                                   :rem blue-String

eckedip=0                                :rem aktuelle Ecke 1,2,3,4

menudip=0                                :rem aktueller Menupkt (1,2,3 = r,g,b)

leer$="   "                              :rem Leerstring um zahlen <100 dreistellig darzustellen

randomize timer()                        :rem

dim r(5)                                 :rem red fÃ¼r die Ecken 1,2,3,4

dim g(5)                                 :rem green fÃ¼r die Ecken 1,2,3,4

dim b(5)                                 :rem blue fÃ¼r die Ecken 1,2,3,4

dim fa(7)                                :rem Farben zusammengesetzt aus r,g,b

dim k(11,4)                              :rem Koordinaten der einzelnen Boxen

for q= 1 to 4

rr=rnd(50)*5                        :rem zufÃ¤lliger wert am Anfang

gg=rnd(50)*5                        :rem zufÃ¤lliger wert am Anfang

bb=rnd(50)*5                        :rem zufÃ¤lliger wert am Anfang

r(q)=rr

g(q)=gg

b(q)=bb

next q

fa(1)=rgb(r(1),g(1),b(1))

fa(2)=rgb(r(2),g(2),b(2))

fa(3)=rgb(r(3),g(3),b(3))

fa(4)=rgb(r(4),g(4),b(4))

fa(5)=rgb(000,000,000)                         :rem schwarz

fa(6)=rgb(255,255,255)                         :rem weiss

fa(7)=rgb(140,140,140)                         :rem grau

k( 1,1)=  1:k( 1,2)=150:k( 1,3)= 60:k( 1,4)=270          :rem box1

k( 2,1)=  1:k( 2,2)= 30:k( 2,3)= 60:k( 2,4)=150          :rem box2

k( 3,1)=300:k( 3,2)=150:k( 3,3)=360:k( 3,4)=270          :rem box3

k( 4,1)=300:k( 4,2)= 30:k( 4,3)=360:k( 4,4)=150          :rem box4

k( 5,1)=  1:k( 5,2)=  1:k( 5,3)=360:k( 5,4)= 30          :rem box5

k( 6,1)= 60:k( 6,2)= 30:k( 6,3)=300:k( 6,4)=270          :rem box6

k( 7,1)=  1:k( 7,2)=270:k( 7,3)=360:k( 7,4)=300          :rem box7

k( 8,1)= 20:k( 8,2)=170:k( 8,3)= 40:k( 8,4)=190          :rem box8

k( 9,1)= 20:k( 9,2)= 50:k( 9,3)= 40:k( 9,4)= 70          :rem box9

k(10,1)=320:k(10,2)=170:k(10,3)=340:k(10,4)=190          :rem box10

k(11,1)=320:k(11,2)= 50:k(11,3)=340:k(11,4)= 70          :rem box11

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem  Explanation boxes

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem +            K(5,.)                            +

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem +        +                               +        +

rem +  ++(9) +                               +  ++(11)+

rem +  ++    +                               +  ++    +

rem + K(2,.) +                               + K(4,.) +

rem +        +          K(6,.)               +        +

rem +        +                               +        +

rem ++++++++++                               ++++++++++

rem +        +                               +        +

rem +  ++(8) +                               +  ++(10)+

rem +  ++    +                               +  ++    +

rem +        +                               + K(3,.) +

rem + K(1,.) +                               +        +

rem +        +                               +        +

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem +              K(7,.)                        +

rem +++++++++++++++++++++++++++++++++++++++++++++++++++

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Bildaufbau

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

BILDINIT:

rem Festlegen der Schriftgroesse

set text size 20

set text font "Courier New"

set text to bold

rem Zeichnen der Boxen ; erst auÃŸen weiss;dann innen schwarz, dadurch Rahmen

KIS(1,6):INKIS(1,5)

KIS(2,6):INKIS(2,5)

KIS(3,6):INKIS(3,5)

KIS(4,6):INKIS(4,5)

KIS(5,6):INKIS(5,5)

KIS(6,6):INKIS(6,5)

KIS(7,6):INKIS(7,5)

rem zeichnen der vier Ecken-Boxen

eckedip=1: INKIS(1,1):ECKENUM(eckedip)

eckedip=2: INKIS(2,2):ECKENUM(eckedip)

eckedip=3: INKIS(3,3):ECKENUM(eckedip)

eckedip=4: INKIS(4,4):ECKENUM(eckedip)

rem zufÃ¤lliges Setzen der Menupkte

menudip=rnd(2)+1

eckedip=rnd(3)+1

MENUZEICH(menudip,eckedip)

ECKENUM(eckedip)

rem Zeichnen der groÃŸen mittleren Kiste

FAKIS()

rem  Zeichnen der unteren Hilfszeile

ink fa(6),0:text 5,273,"  <1><2><3><4><z><li><re><ob><un>"

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem MAIN  Auswertung der Tastatureingaben

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

HAUPTSCHLEIFE:

clear entry buffer

ant$=inkey$()

if rightkey() then gosub MENURE

if leftkey() then gosub MENULI

if upkey() then gosub AUF

if downkey() then gosub AB

if escapekey() then exit

if ant$="1" then eckedip=1:ECKENUM(eckedip):MENUZEICH(menudip,eckedip)

if ant$="2" then eckedip=2:ECKENUM(eckedip):MENUZEICH(menudip,eckedip)

if ant$="3" then eckedip=3:ECKENUM(eckedip):MENUZEICH(menudip,eckedip)

if ant$="4" then eckedip=4:ECKENUM(eckedip):MENUZEICH(menudip,eckedip)

if ant$="z" or ant$="Z" then gosub ZUFALL

loop

end

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem functions Funktionen muessen nach dem Endekommando des Programmes stehen

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Zeichnen einer box

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

function KIS(n,f)

ink fa(f),0

li=k(n,1):ob=k(n,2):re=k(n,3):un=k(n,4)

box li,ob,re,un

endfunction

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Zeichnen einer box in der Box

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

function INKIS(n,f)

ink fa(f),0

li=k(n,1)+2:ob=k(n,2)+2:re=k(n,3)-2:un=k(n,4)-2

box li,ob,re,un

endfunction

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Darstellung des RGB-Menus

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

function MENUZEICH(men,eck)

rr=r(eck):gg=g(eck):bb=b(eck)

rr$="R "+right$(leer$+str$(rr),3)

gg$="G "+right$(leer$+str$(gg),3)

bb$="B "+right$(leer$+str$(bb),3)

ink fa(5),0:box 3,3,120,28

if men=1 then ink fa(6),0 else ink fa(7),0

center text 60,6,rr$

ink fa(5),0:box 120,3,240,28

if men=2 then ink fa(6),0 else ink fa(7),0

center text 180,6,gg$

ink fa(5),0:box 240,3,358,28

if men=3 then ink fa(6),0 else ink fa(7),0

center text 300,6,bb$

endfunction

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Darstellung der Eckennummern

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

function ECKENUM(eck)

ink fa(5),0

li=k(eck+7,1):ob=k(eck+7,2):re=k(eck+7,3):un=k(eck+7,4)

box li,ob,re,un

if eck=1 then ink fa(6),0 else ink fa(7),0

text  25,172,"1"

if eck=2 then ink fa(6),0 else ink fa(7),0

text  25, 52,"2"

if eck=3 then ink fa(6),0 else ink fa(7),0

text 325,172,"3"

if eck=4 then ink fa(6),0 else ink fa(7),0

text 325, 52,"4"

endfunction

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Darstellung der mittleren box mit Farbverlaeufen

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

function FAKIS()

li=k(6,1):ob=k(6,2):re=k(6,3):un=k(6,4)

box li,ob,re,un,fa(1),fa(2),fa(3),fa(4)

endfunction

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem subs  Unterprogramme

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Erhoehung des Farbwertes des angewaehlten Menupunktes

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

AUF:

rr=r(eckedip):gg=g(eckedip):bb=b(eckedip)

if menudip=1

inc rr,5

if rr>255 then rr=0

endif

if menudip=2

inc gg,5

if gg>255 then gg=0

endif

if menudip=3

inc bb,5

if bb>255 then bb=0

endif

r(eckedip)=rr:g(eckedip)=gg:b(eckedip)=bb:fa(eckedip)=rgb(rr,gg,bb)

INKIS(eckedip,eckedip)

ECKENUM(eckedip)

FAKIS()

MENUZEICH(menudip,eckedip)

wait 200

return

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Senkung des Farbwertes des angewaehlten Menupunktes

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

AB:

rr=r(eckedip):gg=g(eckedip):bb=b(eckedip)

if menudip=1

dec rr,5

if rr<0 then rr=255

endif

if menudip=2

dec gg,5

if gg<0 then gg=255

endif

if menudip=3

dec bb,5

if bb<0 then bb=255

endif

r(eckedip)=rr:g(eckedip)=gg:b(eckedip)=bb:fa(eckedip)=rgb(rr,gg,bb)

INKIS(eckedip,eckedip)

ECKENUM(eckedip)

FAKIS()

MENUZEICH(menudip,eckedip)

wait 200

return

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Anwahl der Menupunkte r g b nach rechts

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

MENURE:

inc menudip,1

if menudip>3 then menudip=1

MENUZEICH(menudip,eckedip)

wait 200

return

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Anwahl der Menupunkte r g b nach links

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

MENULI:

dec menudip,1

if menudip<1 then menudip=3

MENUZEICH(menudip,eckedip)

wait 200

return

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

rem Zufallsauswahl

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

ZUFALL:

rr=rnd(51)*5:gg=rnd(51)*5:bb=rnd(51)*5

r(eckedip)=rr:g(eckedip)=gg:b(eckedip)=bb:fa(eckedip)=rgb(rr,gg,bb)

INKIS(eckedip,eckedip)

ECKENUM(eckedip)

FAKIS()

MENUZEICH(menudip,eckedip)

wait 200

return

rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++

Download

Please login to download

Comments

No comments yet.

CodeBase - ek-farbe

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1