Arduino.ru

Писните на htpicc@gmail.com, обсудим.

написал, жду.

Cделаем. Мой адрес ydom@mail.ru 

Нужно только согласовать детали - какие кнопки, какой корпус, чем питать.

А Норбеков к тренажеру интуиции еще элекрошокер подключает, для достижения лучшего результата. Причем, чем сильнее шарахает, тем быстрее интуиция развивается.  https://tintuit.ru/tin/

я вкурсе и поэтому хочу сделать с вибрацией.

Могу помочь, пишите chemill@yandex.ru

Принцип работы генератора случайных чисел имеет значение?

какие бывают принципы?

мне кажется бывают зависящие от времени нажатия а бывают просто случайные вот второй тип меня устраивает.

нужно только схема и какие детали. остальное я сам сделаю.

то есть нужны : схема , список деталей и скетч для arduino ide?

Без проблем. Все есть. Соберу макет, напишу код, проверю на макете, так что Вы получите проверенный, на 100% работающий как надо код. Пишите ydom@mail.ru или сообщите Ваш адрес.

на процессоре нельзя сделать генератор случайных чисел, а кто говорит, что может - нагло врёт, можно только генератор псевдослучайной последовательности

спасибо большое буду иметь ввиду.

Если ещё не определились с исполнителем - пишите yaryarikyar@ya.ru

да, ладно:

bool n() {return millis()&1;}

мне одному кажется, что статистически максимум после четырёх нажатий будут постоянно гореть обе лампочки?

#include <class_BUTTON_v2f.h>

BUTTON Button_01;
BUTTON Button_02;

bool n() {return millis()&1;}

void setup() {
Button_01.pin_auto(6);
Button_02.pin_auto(7);
pinMode(14, OUTPUT); // LED_01
digitalWrite(14, 1);
pinMode(15, OUTPUT); // LED_02
digitalWrite(15, 1);
}

void loop() {
Button_01.read();
Button_02.read();
if (Button_01.event_click_Dn || Button_02.event_click_Dn) { // не помешало бы и третью, прочищающую нижнюю чакру, кнопку подключить.
bool m = n();
digitalWrite(14, !m);
digitalWrite(15,  m);
}
}

я обычно по минному полю кандидатов в интуины ганяю, пока не выявятся просветлённые.

Фарход, если честно, программно-аппаратно на базе ардуинок данная задача яйца выведенного не стоит. Но Мирзакарим Норбеков, не зря подключил к своему тренажеру мини-электрошокер(не вибратор!). Потому что реально только связка ОШИБКА-БОЛЬ действительно эффективно перестраивает организм человека в режим интуита. Кроме того, данный тренажер подключается к компьютеру по USB и позволяет управлять играми, направленными на развитие интуиции. Удобный мобильный корпус в виде рукоятки с кнопками и индикатором заряда и силы удара током. Норбеков не зря за данную наработку получил патенты и военные заказы. 

У меня есть данная модель ТИН, но у нее есть недостатки - если уровень удара током довольно высокий, то довольно часто перезагружается и отключается сам ТИН, похоже формирование высоковольтного импульса сбрасывает устройтво управления ТИН, неудобное питание в виде трех батареек АА.

С Вашей подачи, я решил провести реинженеринг данной модели - внести опторазвязку для формирования высоковольтного импульса, добавить индикатор для отображения статистики и выставления уровня силы удара током, добавить хранилище результатов, перевести на Lion батарейку и тд. Спасибо за хорошую идею!!!

На ардуинке можно отладить решение, а вот мобильную реализацию сделаю на базе STM32L. Как-то так.  

*блин. вот так живёшь среди, вроде нормальных, людей и не знаешь, где их сумасшествие может проявиться.

ssergo, ты серьёзно считаешь, что можно обыграть в чёт-нечет генератор случайных чисел, обладая некими супер-способностями?

Да нет конечно. Я уже этим преболел. Но вот прочитал тему и что-то зацепило. Мне как разработчику просто захотелось довести до ума ТИН, перевести данную разработку в open source. Это будет прикольно. Я даже умудрился в кладовке найти давным-давно купленный ТИН, разобрал его. Кста, он сделан на базе ATmega8L, даже на плате ISP разведены, Ща впаяю разъем и посмотрю что за прошивка, не удивлюсь если все залочено. Тогда напишу свое. А то мозги за праздники ужо совсем по работе заскучали. А тут для души.

Заодно отпишусь Мирзакариму о том, что хочу его железку доработать, ибо он патентодержатель и тд.

бизнес бывает разный:

один бизнес создаёт вокруг тебя райские кущи.

другой бизнес оставляет вокруг себя пустыню, населённую зомби.

*понимаешь теперь, почему ракеты падают в Туву, а не в космос и все вы теперь поголовно православные, хотя ваши диды вешали священников и взрывали церкви?

Извини конечно, возможно я тупой, но я не понял к чему это было написано. Я просто хочу это сделать и мне в кайф. Just for fun!

Разработчиков ТИН я в известность поставил о своих намерениях - https://tintuit.ru/forum/messages/forum31/topic771/message12856/?result=edit#message12856

ты тупой.

А ты технический импотент, который только пиз*еть может, а сам из себя ноль без палки, ибо она отсохла, и кроме того как блевать грязью ничего не можешь.

обоснуй.

Все просто - что делает этот код? Ответишь - тогда передумаю.

.include "tn2313def.inc"

.equ	Red_Pin	 =PIND
.equ	Pin_Z	 =PD4
.equ	Pin_A	 =PD5

.def	temp	 =R16
.def	FLAGS	 =R17	
.def	BUTTON	 =R18	

.equ	Red_L	 =0		
.equ	Red_R	 =1		

.equ	Red_Act	 =0	
.equ	Red_Turn =1	

.equ	XTALL	=8000000				
.equ	BAUD	=9600					
.equ	SPEED	=(XTALL/(16*BAUD))-1	

										
.cseg
.org	0x00
			rjmp	start
.org	0x20
start:		ldi		temp,RAMEND
			out	SPL,temp
			
			ldi	temp,~(1<<Pin_Z|1<<Pin_A)	
			out	DDRD,temp
			ldi	temp,(1<<Pin_Z|1<<Pin_A)	
			out	PORTD,temp
			
			clr	BUTTON
			clr	FLAGS

			ldi	temp,high(SPEED)		
			out	UBRRH,temp				
			ldi	temp,low(SPEED)
			out	UBRRL,temp

			ldi	temp,(1<<UCSZ1|1<<UCSZ0)	
			out	UCSRC,temp

			ldi	temp,(1<<RXEN|1<<TXEN)		
			out	UCSRB,temp


main:		rcall	Red
			rcall	Message
			rjmp	main

Message:	ldi		temp,'L'
			sbrc	BUTTON,Red_L
			rjmp	Send_Mes
			ldi	temp,'R'
			sbrc	BUTTON,Red_R
			rjmp	Send_Mes
			ret
Send_Mes:	rcall	out_com
			cbr	BUTTON,(1<<Red_L|1<<Red_R)
			ret

Red:	in		temp,Red_Pin			
			com	temp						
			andi	temp,(1<<Pin_Z|1<<Pin_A)	
			brne	No_Neutral					
			cbr	FLAGS,(1<<Red_Act)		
			ret									
No_Neutral:	sbrc	FLAGS,Red_Act			
			ret									
			cpi	temp,(1<<Pin_Z|1<<Pin_A)	
			breq	Run							
			cbr	FLAGS,(1<<Red_Turn)		
			sbrc	temp,Pin_A					
			sbr	FLAGS,(1<<Red_Turn)		
			ret									
Run:		sbr		FLAGS,(1<<Red_Act)		
			sbr	BUTTON,(1<<Red_L)		
			cbr	BUTTON,(1<<Red_R)		
			sbrc	FLAGS,Red_Turn			
			ret
			cbr	BUTTON,(1<<Red_L)		
			sbr	BUTTON,(1<<Red_R)		
			ret


out_com:	sbis	UCSRA,UDRE	
			rjmp	out_com		
			out	UDR,temp	
			ret

что ты передумаешь? - делать тренажёр для интуитов и лишишь страну стабильного дохода во всех казино и лотереях?

https://tintuit.ru/tin/

вот это толпу штырит !!!!

От доработки ТИН - нее... я не привык лишать себя кайфа. Так что насчет небольшого кусочка кода? Все таки надеюсь, что код читать еще можешь, а не только в стиральных машинах разбираться? Если слабо - то выложу код с комментариями, хотя по коду все видно.

Не понял к чему это ?

Если кто-то объяснит или не объяснит приведенный код, то что изменится ???

Идея (принцип) ТИН так и останется дебильной идеей !!!

с чего ты решил, что я должен уметь разбираться в коде, что бы тебе понравиться?

тс! он обещал меня поцеловать...

По поводу дебильности идеи ТИН мне амбивалентно. Просто захотелось сделать что-нибудь прикольное. Типа небольшая игрушка с OLED дисплеем, которая в случае ошибки выдает небольшой щекотный импульс и хранит статистику.

ты не девочка, чтобы пытаться мне понравиться. Но похоже код читать не умеешь - ибо КЛАПУЦИЙ234 - есть по сути ТЕХНО ИМПОТЕНТ. Так что Вам батенька только на форумах по стиральным машинам выступать. И ардуинки в бредбоарды фтыкивать.  Учите матчасть, Шура!

Привожу выше изложенный код с комментариями:

/*
Расшифровка сигнала о направлении поворота 
с энкодера и передача по USART на ПК

Микроконтроллер		ATtiny2313
Тактовая частота	8 MHz	
*/ 
.include "tn2313def.inc"

.equ	Encoder_Pin	=PIND
.equ	Pin_A		=PD4
.equ	Pin_B		=PD5

.def	temp		=R16
.def	FLAGS		=R17	;Регистр флагов
.def	BUTTON		=R18	;Регистр кнопок

;Разряды регистра BUTTON
.equ	Encoder_L	=0		;Флаг поворота влево
.equ	Encoder_R	=1		;Флаг поворота вправо

;Разряды регистра FLAGS
.equ	Encoder_Act		=0	;Флаг обработки состояния энкодера
.equ	Encoder_Turn	=1	;Флаг направления поворота

;Определение параметров USART
.equ	XTALL	=8000000				;Тактовая частота в ГЕРЦАХ
.equ	BAUD	=9600					;Скорость обмена данными в бит/с
.equ	SPEED	=(XTALL/(16*BAUD))-1	;Коэфициент деления для получения 

										;заданой скорости обмена
.cseg
.org	0x00
			rjmp	start
.org	0x20
start:		ldi		temp,RAMEND
			out		SPL,temp
			
			ldi		temp,~(1<<Pin_A|1<<Pin_B)	;Выводы энкодера на вход
			out		DDRD,temp
			ldi		temp,(1<<Pin_A|1<<Pin_B)	;Подключаем на выводы подтягивающие резисторы
			out		PORTD,temp
			
			clr		BUTTON
			clr		FLAGS

			ldi		temp,high(SPEED)		;Запись делителя для задания желаемой 
			out		UBRRH,temp				;скорости обмена
			ldi		temp,low(SPEED)
			out		UBRRL,temp

			ldi		temp,(1<<UCSZ1|1<<UCSZ0)	;Выбор размера слова данных 8 бит
			out		UCSRC,temp

			ldi		temp,(1<<RXEN|1<<TXEN)		;Разрешение приема и передачи
			out		UCSRB,temp


;### ГЛАВНЫЙ ЦИКЛ ###
main:		rcall	Encoder
			rcall	Message
			rjmp	main

;#### ОТПРАВКА СООБЩЕНИЯ О НАПРАВЛЕНИИ ПОВОРОТА ####
Message:	ldi		temp,'L'
			sbrc	BUTTON,Encoder_L
			rjmp	Send_Mes
			ldi		temp,'R'
			sbrc	BUTTON,Encoder_R
			rjmp	Send_Mes
			ret
Send_Mes:	rcall	out_com
			cbr		BUTTON,(1<<Encoder_L|1<<Encoder_R)
			ret

;#### ОБРАБОТКА СОСТОЯНИЯ ЭНКОДЕРА ####
Encoder:	in		temp,Encoder_Pin			;Считываем регистр PINX порта энкодера
			com		temp						;Инвертируем прочитанное значение
			andi	temp,(1<<Pin_A|1<<Pin_B)	;Оставляем только выводы энкодера
			brne	No_Neutral					;Если энкодер в нейтральном положении,
			cbr		FLAGS,(1<<Encoder_Act)		;то сбрасываем бит обработки энкодера
			ret									;и выходим
No_Neutral:	sbrc	FLAGS,Encoder_Act			;Если сигнал с энкодера уже обработан,
			ret									;то выходим
			cpi		temp,(1<<Pin_A|1<<Pin_B)	;Если оба вывода замкнуты,
			breq	Run							;то переходим на обработку сигнала с энкодера
			cbr		FLAGS,(1<<Encoder_Turn)		;Поворот влево
			sbrc	temp,Pin_B					;Проверка вывода энкодера
			sbr		FLAGS,(1<<Encoder_Turn)		;Поворот вправо
			ret									
Run:		sbr		FLAGS,(1<<Encoder_Act)		;Установка флага обработки сигнала с энкодера
			sbr		BUTTON,(1<<Encoder_L)		;Поворот влево
			cbr		BUTTON,(1<<Encoder_R)		
			sbrc	FLAGS,Encoder_Turn			;Проверка флага направления поворота
			ret
			cbr		BUTTON,(1<<Encoder_L)		
			sbr		BUTTON,(1<<Encoder_R)		;Поворот вправо
			ret


;#### ОТПРАВКА БАЙТА ЧЕРЕЗ UART ####
out_com:	sbis	UCSRA,UDRE	;Ожидание, когда бит UDRE 
			rjmp	out_com		;будет установлен в 1 (предыдущий байт отправлен) 
			out		UDR,temp	;Отправляем байт
			ret

а, нафига хранить статистику булевого генератора случайных чисел? О_О

я тебе заранее скажу - будет 50/50 ровно.

отцепись от меня со своим кодом...

Хранить статистик кенератор слущайных щисел - это есть самый гениальный щасть мой проект. Гыыыы!

Но штоб нихто не догадалса я буду сохранить статистик отгадываний ф прасентах. Но об этом никаму!

ловлю на слове - докажи документально, что ты или любой твой гениальный друг может обыграть генератор случайных чисел.

вот этот, что бы не было у тебя повода мухлевать:

bool n() {return millis()&1;}

[ушёл за попкорном в ожидании хотя бы 55/45]

Клапа так ты еще и ИМБИЦИЛЛ? я не хочу обыгрывать ГСС, я хочу с ним поиграть. Разницу чувствуешь? Или тебе только на примере стиральных машин и их амортизаторов объяснить? Так ты только скажи... Гыыыы! 

ушел пить пиво.

объясни разницу между "играть" и "играть" на примере футбола, например.

*ещё раз повторю вопрос: если статистика твоих угадываний будет равна статистике генератора случайных чисел, то нахера её сохранять?

подорвало пукан амортизаторами от стиральных машин?

Да не обижайся ты по поводу стиральных машин, тут намедни в одном форуме тыж прям как специалист по ним советы давал аж на три экрана, ну я и подумал что ты в этом круто разбираешься. Могу ссылку тебе кинуть если забыл. 

На примере футбола - пожалуйста, хотя со стиральными машинами было бы проще... Гыыы...

Возьмем две команды типа спартакчампион и дворовая команда из Мухасранска. Вероятность того что вторая команда обыграет спарак, как ты уже писал составляет 50 процентов, или одна вторая - т.е. Или выиграет или нет. Гыы. Надеюсь документально это обосновывать не надо? Кроме того команды могут всретиться и поиграть просто для души... Но с учетом статистики. И тут статистика покажет что мухосранск футболистов готовить не может. Но! Чем чаще команды будут встречаться поиграть просто так, тем быстрее начнет изменяться статистика по выигрышам и проигрышам. Очень надеюсь что объяснил понятно. Если не понял, то тогда извини буду обосновывать на примере СМ.

стиралки у тебя подорвали пукан, а обижаюсь я?

слушай, давай я ещё чуть так пообижаюсь - меня прикалывает, как тебя рвёт простынями странного кода в ответ на амортизаторы.

*и, ссылку давай - мне интересно, где я тебя подорвал.

ок. и,.. нафига сохранять статистику 50/50?

Бля..... Объясняю на уровне специалистов по стральным машинам. Епт... Ничего личного. Ты реально считаешь, что команда из мухосранска сразу начнет выигрывать спатакчампион на уровне 50/50 ? Тогда проведи такой екскперемент - запусти на ардуине свой супер ГСС и выведи его круто в сериал монитора бля ардуиноИде, но выведи хитро: сначала пуст скетч тебя типо спросит - тру или фалс- ты ему дай ответ. На количество вопросов и правильных ответов повесь счетчики. Я сказал счетчики, карл! После например стапитсот таких вопросов и ответов выведи процент правильных ответов, который можно рассчитать разделив содержание счетчика правильных ответов к содержанию счетчика заданных тебе вопросов и умножь результат на 100. Ты будешь удивлен, но результат 50 процентов не получится! Попробуй если не веришь. Результат сохрани.

Далее вторая часть эксперимента. Поставь рядом с монитором своего другана с утюгом или сковородкой. И пусть этот друган тебе при каждом неправильном ответе ебашит сковородкой по затылку слабо, но чувствительно. Результат созрани. 

Далее третья часть эксперимента - делай тоже самое , но друган уже пусть бьет со всей дури. Результат сохрани и потом сверь между собой. Ты будешь поражен. Верь мне! Мрзакарим Норбеков такую хрень делал с военными, но их при неправильном ответе било нехило током. У норбекова данная методика защищена авторским свидетельством, и когда твой друг будет тебя добивать сковородкой ты должен думать какую часть прибыли от просветления ты перечислишь Норбекову - как держателю патента.

Кста, эксперимент можно дополнить если при правильном ответе другану сковородкой будешь бить ты. Надеюсь что ты отпишешься о результатах. А то я как то это на практике не проверял - поверил Мирзакариму на слово. Да и приборчик он сделал глючный - батарейки жрал, а при уровнях болевого импульса выше среднего отрубался. Из-за этого и был закинут в кладовку. А вот сегодня прочитал тему и возникло желание доработать эту хреньку.

По поводу ссылки - оно  тут http://arduino.ru/forum/programmirovanie/arduino#comment-249487

Я ржал....поэтому извини, что я так к тебе сразу с кодом.... Надо было сразу вибрации в баке спрашивать. Гыыы

зачем?

нет уж - это ты проверь и обоснуй смысл сохранять результат 50/50

*не я собрался собирать статистику, я считаю, что нет смысла - ты собрался собирать статистику, т.к. заявляешь, что будет не 50/50 - а, значит ты выигрываешь у генератора случайных чисел.

Похоже я пиво лишнего выпил. Йа нигуя не понел что ты хочешь на уровне 50/50. Мы тут с мужиками ужо скоро обоссымся с твоих ответов. Но тут я понял, что ты просто прикидываешься таким! Или у тебя попкорн с шайтан травой и тебя уже нехило вставило...

пока брат... Ты нас реально развеселил....

но ежели ты всетаки в твердом уме и здравой памяти попробуй поиграть со скетчем с гсс. Ты напиши его как я сказал, отработай даже без сковородки. И посмотри результат. Просто посмотри на сколько он будет отличаться от 50 процентов.

а по поводу вибраций- оно ж реально биврирует. Верь мне.

на сколько?

*у меня по высшей математике была пятёрка - я точно знаю, какая будет статистика.

мне интересен твой ответ - как так: не выигрываешь у ГСЧ и не 50/50?

не гони пургу - у чела амортизаторы перестали работать, машина не вибрирует, а болтается бак во все стороны.

Клапа давай дружить. Математика для стиралок накуй не нужна. А вот твоего препода по вышке ф топку.  Ты напиши просто скетч и поиграй. Самое интересное что графики результатов при сплайн апроксимации для разных людей будут строго индивидуальны и узнаваемы. Мы на кафедре с этим уже наигрались еще лет шесть-восемь назад. Т.е. Линия удачи у каждого своя. Применение подобного тренажера реально вносило корректировку. Но ненадолго. Гораздо лучший результат получался после литра пива. Когда чел ослаблял сознательное и приближался к границе бессозналки - тут правдо уже литром не ограничивалось- результат вообще ошарашивал. Данные отрабатывались в бауманке на кафедре - номер не скажу.нельзя. И еще - зажми в кулак конфету и попроси ребенка 2 - 5 лет отгадать в каком кулаке конфета. Будешь удивлен.

ты не балаболь, а публикуй статистику отличную от 50/50

*лично я не знаю, как добиться результата отличного от 50/50 - вся надежда на тебя, твою кафедру и пилота космического грузовика, упавшего в Туву.

Иди ты к своим стиральным машинным аммортизаторам. Сантехник хренов. Изыди сотона.

...а, могли бы поработить мир - сука статистика.

Чуть выше вы писали, что " По поводу дебильности идеи ТИН мне амбивалентно. Просто захотелось сделать что-нибудь прикольное. Типа небольшая игрушка с OLED дисплеем, которая в случае ошибки выдает небольшой щекотный импульс и хранит статистику. "

А тут такой развернутый план "подтверждения" ТИН (стимулятор сковородка)...

Или вы действительно считаете, что физическое воздествие на подопытного повлияет на его "интуитивные" способности ???

Вы полагаете, что в предложеных трех вариантах будет различное процентное соотношения, или может у вас есть конкретный подтверждающий факт ??

Или просто решили поиздеваться над своим опонентом ?