316 ответов в теме

[AmpeR_13]

так никто и не захотел поговорить по существу )

Предлагай существо )))))))))

[olegus]

так же можем теоретически поговорить на тему искусственного интеллекта. Практически я еще мало в этом преуспел.

о! cd-ejector для ИИ? это нобелевка!

[itpb]

те генератор визуальный?

генератор изображения + генератор ключа. Все вместе примерно 15 строк кода.

[olegus]

генератор изображения + генератор ключа. Все вместе примерно 15 строк кода.

и 1,5 гига фрейворков.

[itpb]

о! cd-ejector для ИИ? это нобелевка!

вот поэтому бессмысленно на узкие темы общаться на АФ.  )   Тем более с уровнем ростовчан...

[кабан Пумба]

мои любимые  так же можем теоретически поговорить на тему искусственного интеллекта. Практически я еще мало в этом преуспел.

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

я б с радостью взял новые навыки... можешь статьи сбросить?

[itpb]

и 1,5 гига фрейворков.

нет. 

[olegus]

 Тем более с уровнем ростовчан...

а ты типа москвич?

[кабан Пумба]

вот поэтому бессмысленно на узкие темы общаться на АФ.  )   Тем более с уровнем ростовчан...

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

[olegus]

нет. 

Ага!

Давай 15 строк генерации gif на чистом пыхе без библиотек

[AmpeR_13]

генератор изображения + генератор ключа. Все вместе примерно 15 строк кода.

Ну тогда труда не составит

Порылся по сусекам, из старого простого и давно забытого )))
 

Spoiler

;===============================================================================
; Тестовая программа
;===============================================================================
; Кофигкрция МК
LIST p=PIC16F84A
__CONFIG H'3FF5' ; CP - выкл, PWRTE - вкл,
; WDTE - вкл, XT-генератор
;====================Регистры специального назначения===========================
W EQU H'0000'
F EQU H'0001'

STATUS EQU H'0003'
PORTA EQU H'0005'
PORTB EQU H'0006'
OPTION_REG EQU H'0001'
TRISA EQU H'0005'
TRISB EQU H'0006'
INTCON EQU H'000B'

RP0 EQU H'0005'
PC EQU H'0002'
;=======================Регистры общего назначения==============================
Reg_1 EQU H'000C'
Reg_2 EQU H'000D'
Reg_3 EQU H'000E'

NPROG EQU H'0012'
ORG 0
;==============================Начало программы=================================
;==========================Подготовительные действия============================
BSF STATUS,RP0 ; Переход в банк 1.
CLRF TRISB ; Все выводы PORTB работают
; на выход
MOVLW b'00011111' ; Константа для TRISA
MOVWF TRISA ; Все выводы PORTA работают
; на вход
MOVLW b'01001111' ; Константа для OPTION_REG.
MOVWF OPTION_REG ; RBPU - выкл, INTEDG - по
; переднему фронту T0CS -
; внутренний, T0SE - по перед-
; нему фронту, PSA - после WDT,
; PS - 1:128.
BCF STATUS,RP0 ; Переходим в банк 0
CLRF PORTB ; Устанавливаем отрицательный
; уровень сигнала на всех
; выводах PORTB
CLRF INTCON ; Запрещаем все прерывания
MOVLW .2 ; Программа начинется с первого
MOVWF NPROG ; варианта выполнения
GOTO VARIATION ; Переходим в таблицу выбора
; варианта выполнения программы
;=============================Основной цикл=====================================
START MOVLW b'01111111'
MOVWF PORTB
CALL key

MOVFW NPROG
GOTO VARIATION ; Зацикливание START
;===============================================================================
prog_1 BSF PORTB,2 ; Установка 1 на RB1
CALL porosity ; Вызов ПП beep


CALL key ; Вызов ПП delay
BCF PORTB,2 ; Установка 0 на RB1
;=============================Полупериод========================================
BSF PORTB,3 ; Установка 1 на RB2
CALL porosity_1 ; Вызов ПП beep

CALL key ; Вызов ПП delay
BCF PORTB,3 ; Установка 0 на RB2

MOVFW NPROG
GOTO VARIATION ; Зацикливание START
;===============================================================================
prog_2 BSF PORTB,0 ; Установка 1 на RB1
CALL porosity_1 ; Вызов ПП beep

CALL key ; Вызов ПП delay
BCF PORTB,0 ; Установка 0 на RB1
;=============================Полупериод========================================
BSF PORTB,5 ; Установка 1 на RB2
CALL porosity ; Вызов ПП beep

CALL key ; Вызов ПП delay
BCF PORTB,5 ; Установка 0 на RB2

MOVFW NPROG
GOTO VARIATION ; Зацикливание START
;===============================Подпрограммы====================================
;===============================Скважность======================================
porosity MOVLW .100 ; Устанавливаем скважность
MOVWF Reg_3

;=====================================Звук======================================
beep BSF PORTB,7 ; Установка 1 на RB7
CALL half ; Вызов ПП half-time, формиро-
; вание полупериода
NOP
NOP
NOP
;================================Полупериод=====================================
BCF PORTB,7 ; Установка 0 на RB7
CALL half ; Вызов ПП half-time, формиро-
; вание полупериода
DECFSZ Reg_3,F
GOTO beep
RETURN ; Возврат к основной программе
;=================Окончание формрования звукового сигнала=======================
;===================Пауза формирующая полупериод================================
half MOVLW .162
MOVWF Reg_1
MOVLW .1
MOVWF Reg_2
wr_1 DECFSZ Reg_1,F
GOTO wr_1
CLRWDT
DECFSZ Reg_2,F
GOTO wr_1
RETURN
;===============================================================================
;===============================Скважность======================================
porosity_1 MOVLW .25 ; Устанавливаем скважность
MOVWF Reg_3

;=====================================Звук======================================
beep_1 BSF PORTB,7 ; Установка 1 на RB7
CALL half_1 ; Вызов ПП half-time, формиро-
; вание полупериода
NOP
NOP
NOP
;================================Полупериод=====================================
BCF PORTB,7 ; Установка 0 на RB7
CALL half_1 ; Вызов ПП half-time, формиро-
; вание полупериода
DECFSZ Reg_3,F
GOTO beep_1
RETURN ; Возврат к основной программе
;=================Окончание формрования звукового сигнала=======================
;===================Пауза формирующая полупериод================================
half_1 MOVLW .148
MOVWF Reg_1
MOVLW .3
MOVWF Reg_2
wr_2 DECFSZ Reg_1,F
GOTO wr_2
CLRWDT
DECFSZ Reg_2,F
GOTO wr_2
RETURN
;===============================================================================
;======================Отслеживаем кнопки=======================================
key MOVLW .99
MOVWF Reg_1
MOVLW .10
MOVWF Reg_2
MOVLW .2
MOVWF Reg_3

wrk BTFSS PORTA,2 ; бит-проверка ножки RA2
CALL k1
BTFSS PORTA,3 ; бит-проверка ножки RA3
CALL k2
BTFSS PORTA,4 ; бит-проверка ножки RA4
GOTO k3
DECFSZ Reg_1, F
GOTO wrk
CLRWDT
DECFSZ Reg_2, F
GOTO wrk
DECFSZ Reg_3, F
GOTO wrk

RETURN
;==========================Счетчик выбора=======================================
k1 MOVLW .0
MOVWF NPROG
CLRF PORTB
RETURN

k2 MOVLW .1
MOVWF NPROG
CLRF PORTB
RETURN

k3 MOVLW .2
MOVWF NPROG
RETURN
;========================Таблица выбора варинта=================================
VARIATION ADDWF PC,F ; Складываем значение счетчика
; команд с константой
GOTO prog_1
GOTO prog_2
GOTO START
;=========================Пауза между переходами================================
delay MOVLW .99
MOVWF Reg_1
MOVLW .10
MOVWF Reg_2
MOVLW .4
MOVWF Reg_3
wr_3 DECFSZ Reg_1,F
GOTO wr_3
CLRWDT
DECFSZ Reg_2,F
GOTO wr_3
DECFSZ Reg_3,F
GOTO wr_3
NOP
NOP
RETURN

;=====================Конец программы===========================================
END
;===============================================================================

 

Даже практически с комментами ))

Внимание вопрос ))) Написать алгоритм.

[itpb]

ну, судя по всему ты во всем преуспел,  

перечисли конкретно, в чем я преуспел

помнится я упоминал только несколько вещей, самых обычных:

1. немного IT
2. немного физики.

3. немного спортом в древние времена.

4. немного автослесарь и сварщик

 

 

Было что-то еще?

а ты типа москвич?

я от вас отличаюсь. Вы почти все Индиго или Кристальные. )

Простых людей осталось очень мало...

[кабан Пумба]

перечисли конкретно, в чем я преуспел

помнится я упоминал только несколько вещей, самых обычных:

1. немного IT
2. немного физики.

3. немного спортом в древние времена.

4. немного автослесарь и сварщик

 

 

Было что-то еще?

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

 

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

[itpb]

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

[AmpeR_13]

Ой.. Глянул код во весь экран ))) С пьяну глазу там ще и оптимизировать кой чего можно )))

[itpb]

Ага!

Давай 15 строк генерации gif на чистом пыхе без библиотек

все гениальное просто... там не требуется gif )

так преуспел, или все же немного?  

что в твоем понимании преуспел? 

[olegus]

Ну тогда труда не составит

Порылся по сусекам, из старого простого и давно забытого )))

тоскую по ассемблеру

[olegus]

все гениальное просто... там не требуется gif )

развивай

[AmpeR_13]

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

От части да, только не на асме ))) Это мазохизм )))

Идеи хорошо, только работы и так выше крыше   Вот единственный день, за долгое время на побухать вышел ))

Ладно, я продолжать )))

[olegus]

1. немного IT
2. немного физики.

3. немного спортом в древние времена.

4. немного автослесарь и сварщик

а чего много?

[кабан Пумба]

что в твоем понимании преуспел? 

это значит есть реальные результаты, принятые позитивно широкой общественностью... 

 

так что с публикациями? выходные впереди, с радостью почитаю...

тоскую по ассемблеру

арм процессоры, блютус девайсы и т.п. желаешь попрограммировать?

[AmpeR_13]

тоскую по ассемблеру

Мазохизт! ))) Я его проклинал когда программно I2C реализовал ))) В последствии оказалось что ошибка в русскоязычной  доке была )))

[olegus]

Идеи хорошо, только работы и так выше крыше

зря отказываешься. чистый ии на чистом z80! с музыкальным сопроцессором и флопиком!

Изменено: olegus, 16.05.2014 - 21:35

[кабан Пумба]

а чего много?

болтовни, надо полагать... 

[Алюша]

Все банально просто:

Одним словом - засранец.

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