forum.boolean.name - Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)

forum.boolean.name (http://forum.boolean.name/index.php)

- Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)

Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)

Вообщем подобный боян встретил года 3-4 назад !! Только там был прикол с картами... ну да ладно !! Вот случайно вспомнил про эту штуку и набросал на блице подобный пример !!
Прикол собственно в чем:
Позовите кого-то из знакомых или друзей к монитору и попросите дотронуться пальцем к одному с кружочков определенного цвета !! Только незабудьте включить СИ ;-) !! т.е. когда он/она дотрагивается, держит вы говорите там типо "Посильней принимай палец" или "По серединке, по серединке нажимай" ну и все такое !!
А вы в это время держа мышку в руках, подводите ее с "ПРАВИЛЬНОЙ" стороны к кнопке "УГАДАТЬ" !! Как определить правильную сторону ??
Вообщем цвета располагаются так: Красный, Зеленый, Синий, Розовый !! Каждой стороне кнопки с которой вы будете подводить курсор мышки соответствует определенный цвет !! ВЕРХ - красный, СЛЕВА - зеленый, НИЗ - синий, СПРАВА - розовый !!
Просто аккуратно подводите мышку с "нужной" стороны и кликайте !! Вот и все !! :)
Извините если боян конечно, но мама и сестра были в недоумении !! :)

Код:

Graphics 800,600,32,2

SetBuffer BackBuffer()

SetFont LoadFont ("Arial Cyr",32,1)



anchor_X% = 400

anchor_Y% = 200

size_X = 200

size_Y = 30

offset% = 10

radius% = 100

result_OK% = 0

result_index% = 4



Dim Colors$(5)

Colors(0) = "Красный"

Colors(1) = "Зеленый"

Colors(2) = "Синий"

Colors(3) = "Розовый"

Colors(4) = "Не найдено"



Repeat



mX = MouseX()

mY = MouseY()



Cls



Color 255,0,0                        

Oval 50,25,radius,radius

Color 0,255,0                        

Oval 50,175,radius,radius

Color 0,0,255                        

Oval 50,325,radius,radius

Color 255,0,255                

Oval 50,475,radius,radius



Color 255,255,255

Rect anchor_X+size_Y+offset, anchor_Y+size_Y+offset, size_X-2*offset, size_X-2*offset;        Center



If mX>(anchor_X+size_Y+offset) And mX<(anchor_X+size_Y+size_X-offset) And mY>(anchor_Y+size_Y+offset) And mY<(anchor_Y+size_Y+size_X-offset) Then

        If MouseHit(1) Then result_OK = 1

Else

        result_OK = 0

EndIf



Color 0,0,0

If result_OK=1 Then

        Text anchor_X+size_X*0.65, anchor_Y+size_X*0.65, Colors(result_index), 1, 1

EndIf



If result_OK=0 Then

        Text anchor_X+size_X*0.65, anchor_Y+size_X*0.65, "УГАДАТЬ", 1, 1

        If mX>(anchor_X+size_Y) And mX<(anchor_X+size_Y+size_X) And mY>anchor_Y And mY<(anchor_Y+size_Y) Then result_index=0

        If mX>(anchor_X) And mX<(anchor_X+size_Y) And mY>(anchor_Y+size_Y) And mY<(anchor_Y+size_Y+size_X) Then result_index=1

        If mX>(anchor_X+size_Y+size_X) And mX<(anchor_X+2*size_Y+size_X) And mY>(anchor_Y+size_Y) And mY<(anchor_Y+size_Y+size_X) Then result_index=3

        If mX>(anchor_X+size_Y) And mX<(anchor_X+size_Y+size_X) And mY>(anchor_Y+size_X+size_Y) And mY<(anchor_Y+size_X+2*size_Y) Then result_index=2

EndIf



Flip

Until KeyHit(1)

End