We are always looking for something better. Where are we going forward?
Can we keep our civilization developing? I think those who can say optimistically yes to the question are decreasing. I cannot confidently tell that the development is definitely desirable. Do you want the unchangeable development?
The development has been desirable and positive. The development means achieving something better. Therefore, we always look for something better: jobs, foods, clothes, house, and the rest. Once we can get it, we try to protect it. Although human genes require us to protect ourselves to survive, the cultural issue causes that effort for us because issues related with survival are less weighted in our civilization.
I don't know if the development is desirable. Why don't we start realizing what we are doing to consider the civilization development? The realization should give us an insight into the future. Facing up to what we do is the first step for the future.
Do we keep our civilization developing? Or, do we need to find a turning point that changes our cultural value?
There are five white boxes moving on the floor in a room. These boxes keep looking for the place brighter and moving. When you or other boxes approach to a box, it attacks to protect its own place.
I will focus on making a prototype of the box as my final project in the introduction to Physical Computing class.
DEFINE OSC 4
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
sensor1 var word
sensor2 var word
sensor3 var word
sensor4 var word
direction var byte
tempD var byte
randomVar var word
tempR var byte
x var byte
forward var portc.2
back var portc.3
right var portc.5
Left var portc.4
checkLED var portb.7
output forward
output back
output right
output left
output checkLED
TRISA = %11111
ADCON1 = %10000010
for x = 0 to 5
high checkLED
pause 100
low checkLED
pause 200
next
main:
direction = 0
sensor1 = 0
sensor2 = 0
sensor3 = 0
sensor4 = 0
ADCIN 0, sensor1
ADCIN 1, sensor2
ADCIN 2, sensor3
ADCIN 3, sensor4
if (sensor1 > sensor2) AND (sensor1 > sensor3) AND (sensor1 > sensor4) then
direction = 1
endif
if (sensor2 > sensor1) AND (sensor2 > sensor3) AND (sensor2 > sensor4) then
direction = 2
endif
if (sensor3 > sensor1) AND (sensor3 > sensor2) AND (sensor3 > sensor4) then
direction = 3
endif
if (sensor4 > sensor1) AND (sensor4 > sensor2) AND (sensor4 > sensor3) then
direction = 4
endif
if (direction = 0) or (direction = tempD) then
random randomVar
tempR = randomVar//4
tempR = tempR+1
direction = tempR
endif
tempD = 0
tempD = direction
SELECT CASE direction
case 1
low back
low right
low left
high forward
pause 1000
low forward
case 2
low forward
low right
low left
high back
pause 1000
low back
case 3
low forward
low back
low left
high right
pause 1000
low right
case 4
low forward
low back
low right
high left
pause 1000
low left
END SELECT
pause 1000
goto main
