Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: muu kieli: PICAXE-ohjelmaan korjausta

Olli [27.05.2012 11:46:48]

#

Tässä tekemäni PICAXE-ohjelma:

alustus:
	pause 500

tekstit:
	serout 0,N2400,("Pakastin lampo")
	pause 10

paivitys:
	readtemp 4,b1

	if b1 < 143 then
		gosub alarm
	else ` muutoin
		serout 0,N2400,(254,192,"Ok       ")
	endif

	if b1 > 127 then neg

	serout 0,N2400,(254,203,#b1)
	serout 0,N2400,(254,207,"C")

	goto paivitys

alarm:
	serout 0,N2400,(254,198,"ovi!")

	serout 0,N2400,(254,192,"Sulje")
	pause 300
	serout 0,N2400,(254,192,"     ")
	pause 300
	serout 0,N2400,(254,192,"Sulje")
	tune 0,6,($44,$43,$44,$43)
	return

neg:
	let b1 = b1 - 128
	serout 0,N2400,(254,202,"-")
	serout 0,N2400,(254,203,#b1)
	serout 0,N2400,(254,207,"C")
	goto paivitys

Ongelmana on, että se ei näytä kaikkia negatiivisia lämpötiloja oikein. Lisäksi haluaisin saada niin, että piippaisi korkeintaan 10 kertaa, ja sitten lopettaisi. Olisiko tämä mahdollista?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta