|
01.07.2009, 15:55
|
#1
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
Вообщем подобный боян встретил года 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
Последний раз редактировалось IGR, 01.07.2009 в 18:46.
|
(Offline)
|
|
Эти 4 пользователя(ей) сказали Спасибо IGR за это полезное сообщение:
|
|
01.07.2009, 16:24
|
#2
|
злобный флудер
Регистрация: 10.07.2007
Сообщений: 2,585
Написано 789 полезных сообщений (для 1,476 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
МЫШКА ЭТО, А НЕ МИШКА !!!!
|
(Offline)
|
|
01.07.2009, 16:38
|
#3
|
Злобный Админ
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений (для 9,330 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
Мишка плюшевый как устройство ввода
__________________
|
(Offline)
|
|
Эти 2 пользователя(ей) сказали Спасибо SBJoker за это полезное сообщение:
|
|
01.07.2009, 18:13
|
#4
|
Гигант индустрии
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений (для 4,437 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
издержки свидомого нац-образования
они говорят по-русски, а пишут на украинском-новом
__________________
|
(Offline)
|
|
Эти 3 пользователя(ей) сказали Спасибо tormoz за это полезное сообщение:
|
|
01.07.2009, 18:17
|
#5
|
Троллота
Регистрация: 09.07.2007
Сообщений: 1,829
Написано 554 полезных сообщений (для 1,772 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
Сообщение от tormoz
издержки свидомого нац-образования
они говорят по-русски, а пишут на украинском-новом
|
Ну, с ИГРом не так уж заметно, а вот раньше было дохрена народу, юзающего "і" вместо "и", и "и" вместо "ы". Я, благо, в эту категорию не попадал
|
(Offline)
|
|
01.07.2009, 18:46
|
#6
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
я пофексил !! я пофыксил !!
|
(Offline)
|
|
01.07.2009, 19:13
|
#7
|
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
tormoz
учусь в кпи, почти все предметы пишу на русском, с учителями говорю на русском, никаких претензий, до кпи "свидомоэ нац-образованиэ" не добралось
|
|
|
13.07.2009, 22:41
|
#8
|
Модератор
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений (для 1,694 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
опять завели тему украинского языка, боже...
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
13.07.2009, 23:13
|
#9
|
Бывалый
Регистрация: 20.11.2007
Сообщений: 663
Написано 145 полезных сообщений (для 176 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
Зато про эту тему уже забыли
|
(Offline)
|
|
13.07.2009, 23:26
|
#10
|
Ференька
Регистрация: 26.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,742
Написано 5,461 полезных сообщений (для 15,675 пользователей)
|
Ответ: Сенсорный ЕЛТ-монитор или как обмануть новоненького учителя по информатике :)
Ну теперь благодаря Данилу вспомнят
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**
* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 02:51.
|