Keskustelu: Koodit: Piirto-ohjelma CB:lle

DisableEscapekey
SetWindowCaption "Piirto-ohjelma 1.0"
Graphics 640,480,24,1'jos ohjelma valittaa: "Cannot set graphics mode,", niin vaihda tuo 24 16:ksi
ClsColor 128,128,128
kyn = 1
siv = 0
kum = 0
kteh = 0
steh = 1
kuteh = 1
mx = MouseX()
my = MouseY()
ox = mx
oy = my
r = 255
g = 255
b = 255
tyh:
Cls
Color 0,0,0:Box 151,191,398,248,OFF
Color 255,255,255:Box 152,192,396,246,ON
Repeat
	mx = MouseX()
	my = MouseY()
	kx = mx - 152
	ky = my - 192
	If MouseDown(1) = 1 Or MouseDown(2) = 1 Then
		If MouseDown(1) = 1 Then
			If kx > 0 And kx < 396 And ky > 0 And ky < 246 Then
				If kyn = 1 Then
					Color r,g,b:Line ox,oy,mx,my
					 'seuraavat rivit estävät piirtäämisen muualle kuin kuvaruudulle
					Color 0,0,0:Box 151,191,398,248,OFF
					Color 128,128,128:Box 0,0,600,191,ON
					Color 128,128,128:Box 0,0,151,480,ON
					Color 128,128,128:Box 549,0,90,480,ON
					Color 128,128,128:Box 0,439,480,40,ON
				EndIf
				If siv = 1 Then
					Color r,g,b:Circle mx - 5,my - 5,10,ON
					 'seuraavat rivit estävät piirtäämisen muualle kuin kuvaruudulle
					Color 0,0,0:Box 151,191,398,248,OFF
					Color 128,128,128:Box 0,0,600,191,ON
					Color 128,128,128:Box 0,0,151,480,ON
					Color 128,128,128:Box 549,0,90,480,ON
					Color 128,128,128:Box 0,439,480,40,ON
				EndIf
				If kum = 1 Then
					Color 255,255,255:Box mx-10,my-10,20,20,ON
					 'seuraavat rivit estävät piirtäämisen muualle kuin kuvaruudulle
					Color 0,0,0:Box 151,191,398,248,OFF
					Color 128,128,128:Box 0,0,600,191,ON
					Color 128,128,128:Box 0,0,151,480,ON
					Color 128,128,128:Box 549,0,90,480,ON
					Color 128,128,128:Box 0,439,480,40,ON
				EndIf
			EndIf
		EndIf
		If mx > 20 And mx < 95 And my > 190 And my < 210 Then Goto tyh' jos painetaan "TYHJENNÄ"-nappia

		'niin tyhjennetään ruutu
		'seuraavat ehtolauseet vaihtavat piirtoväriä
		If mx > 30 And mx < 60 And my > 80 And my < 105 Then
			r = 255
			g = 0
			b = 0
		EndIf
		If mx > 45 And mx < 75 And my > 115 And my < 140 Then
			r = 0
			g = 0
			b = 255
		EndIf
		If mx > 80 And mx < 110 And my > 135 And my < 160 Then
			r = 255
			g = 255
			b = 0
		EndIf
		If mx > 120 And mx < 150 And my > 135 And my < 160 Then
			r = 0
			g = 200
			b = 0
		EndIf
		If mx > 160 And mx < 190 And my > 125 And my < 150 Then
			r = 100
			g = 80
			b = 0
		EndIf
		If mx > 175 And mx < 205 And my > 70 And my < 95 Then
			r = 0
			g = 0
			b = 0
		EndIf
		If mx > 160 And mx < 190 And my > 40 And my < 65 Then
			r = 128
			g = 128
			b = 128
		EndIf
		If mx >180 And mx < 210 And my > 100 And my < 125 Then
			r = 255
			g = 255
			b = 255
		EndIf
		'seuraavat ehtolauseet vaitavat piirtotyökalua
		If mx > 250 And mx < 295 And my > 75 And my < 95 Then
			kyn = 1
			siv = 0
			kum = 0
			kteh = 0
			steh = 1
			kuteh = 1
		EndIf
		If mx > 250 And mx < 325 And my > 100 And my < 120 Then
			kyn = 0
			siv = 1
			kum = 0
			kteh = 1
			steh = 0
			kuteh = 1
		EndIf
		If mx > 250 And mx < 295 And my > 125 And my < 145 Then
			kyn = 0
			siv = 0
			kum = 1
			kteh = 1
			steh = 1
			kuteh = 0
		EndIf
	EndIf
	Color 128,128,128:Box 490,8,150,25
	Color 128,128,128:Box 8,450,150,25
	Color 100,100,50: Oval 20,20,200,150,ON
	Color 255,0,0:Oval 30,80,30,25,ON
	Color 0,0,255:Oval 45,115,30,25,ON
	Color 255,255,0:Oval 80,135,30,25,ON
	Color 0,200,0:Oval 120,135,30,25,ON
	Color 100,80,0:Oval 160,125,30,25,ON
	Color 0,0,0:Oval 175,70,30,25,ON
	Color 128,128,128:Oval 160,40,30,25,ON
	Color 255,255,255:Oval 180,100,30,25,ON
	Color 255,255,255:Text 70,40,"Paletti"
	Color 0,0,0:Box 250,30,20,20,ON
	Color r,g,b:Box 252,32,16,16,ON
	Color 0,0,0:Text 277,33,"Valittu väri"
	Color 180,180,180:Box 20,190,75,20,ON
	Color 0,0,0:Text 25,193,"TYHJENNÄ"
	Color 180,180,180:Box 250,75,45,20,ON
	Color 0,0,0:Text 255,78,"KYNÄ"
	Color 0,0,0:Box 300,79,10,10,OFF
	Color 180,180,180:Box 250,100,75,20,ON
	Color 0,0,0:Text 255,103,"SIVELLIN"
	Color 0,0,0:Box 330,104,10,10,OFF
	Color 180,180,180:Box 250,125,45,20,ON
	Color 0,0,0:Text 255,128,"KUMI"
	Color 0,0,0:Box 300,129,10,10,OFF
	If kum = 1 Then
		Color 0,0,255:Line 300,129,309,138:Line 309,129,300,138
		Color 128,128,128:Box 330,104,10,10
		Color 128,128,128:Box 300,79,10,10
		kuteh = 1
	EndIf
	If kyn = 1 Then
		Color 0,0,255:Line 300,79,309,88:Line 309,79,300,88
		Color 128,128,128:Box 330,104,10,10
		Color 128,128,128:Box 300,129,10,10
		kteh = 1
	EndIf
	If siv = 1 Then
		Color 0,0,255:Line 330,104,339,113:Line 339,104,330,113
		Color 128,128,128:Box 300,79,10,10
		Color 128,128,128:Box 300,129,10,10
		steh = 1
	EndIf
	'näyttää kuvan koordinaatit jos ollaan kuvaruudun sisällä
	If kx => 0 And kx =< 396 And ky => 0 And ky =< 246 Then Color 0,0,0:Text 10,460, "X: "+kx+" Y: "+ky
	ox = mx
	oy = my
	Sync
Forever