B
BHTan85
Guest
Имам напише програма, която е почти същата като на БТК.това е реактивен БТК.аз имам тази идея от мрежата (http://centauri.ezy.net.au/ ~ fastvid / picsound.htm)
По-долу са меки и напишете кода на продукцията, но излезе, че не е добра има ли място погрешно някой може да проверите за мен?
и моля някой да ми каже как се излезе със звука
тя е толкова azmazing ......аз също арго Повярвай него.
************************************************** *************
СПИСЪК P = 16F877
# Включват "P16F877.INC"
; 20MHz, RA4 е зададен като въртя на индикатора
__CONFIG _PWRTE_ON & _HS_OSC & _LVP_OFF & _WDT_OFF; Предпазител конфигурация
; мощност до таймера на, висока честота
; забраните ниско напрежение програмиране
; забраните Watchdog Timer
ORG 0x0000; нулиране
;**** Създадени ПОСТОЯННИ ****
Назад1 EQU 0X21; магазин ADC резултати
Предишна2 EQU 0X22; магазин ADC резултати
;**** Създадени PORT ****
BANKSEL PORTA; bank0
CLRF PORTA; ясно пристанище
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF ПОРТЕ
CLRF Назад1; ясно регистри
CLRF Предишна2
MOVLW B'10000001 '; Fosc/32 [7/6], A / D ch0 [5/3], A / D на [0]
MOVWF ADCON0; настройка на ADC на канал 0 (RA0)
; чака acquision време (20US)
; (некритични за този тест)
BANKSEL TRISA; bank1
MOVLW 01Н
MOVWF TRISA; RA0 като аналогов вход, RA4 като включите индикатор
MOVLW 00Н
MOVWF TRISB; изходни данни, RB7 продукция БТК
MOVLW 8EH; RA0 като аналогов вход, нали оправдано използването ADRESHL
MOVWF ADCON1; порта цифров вход
BANKSEL PORTA; bank0;**** Аналогово-цифров преобразувател ****
ADC
BSF ADCON0, отиде; проекта A / D конверсия
BTFSC ADCON0, отиде; чакам за преминаване към пълна
GOTO $ -1
BANKSEL TRISA; bank1
MOVF ADRESL, W; освен резултат на преобразуването в регистъра
BANKSEL PORTA; bank0
MOVWF Предишна2; магазин за следващата реактивен функция
SUBWF Назад1, 0; ПРЕДИШЕН - Ш, отговорете съхранява в З
BTFSS СТАТУС, C; пропуснете, ако предишната по-голяма от текущата
BSF PORTB, 7; предишното е по-малко от настоящите, с голям обем продукция
BTFSC СТАТУС, C; пропуснете, ако предишната по-малка от текущата
ФБК PORTB, 7; по-голяма от предишната ток, ниска мощност малко
BSF ADCON0, отиде; проекта A / D конверсия
BTFSC ADCON0, отиде; чакам за преминаване към пълна
GOTO $ -1
BANKSEL TRISA; bank1
MOVF ADRESL, W; освен резултат на преобразуването в регистъра
BANKSEL PORTA; bank0
MOVWF Назад1; магазин за следващата реактивен функция
SUBWF Предишна2, 0; ПРЕДИШЕН - Ш, отговорете съхранява в З
BTFSS СТАТУС, C; пропуснете, ако предишната по-голяма от текущата
BSF PORTB, 7; предишното е по-малко от настоящите, с голям обем продукция
BTFSC СТАТУС, C; пропуснете, ако предишната по-малка от текущата
ФБК PORTB, 7; по-голяма от предишната ток, ниска мощност малко
GOTO ADC
КРАЙ
************************************************** **************
моля кажете ми код е нещо погрешно?
и може някой моля правилното за мен?
и моля те кажи ми на концепцията за тази на БТК работи
благодаря ...
По-долу са меки и напишете кода на продукцията, но излезе, че не е добра има ли място погрешно някой може да проверите за мен?
и моля някой да ми каже как се излезе със звука
тя е толкова azmazing ......аз също арго Повярвай него.
************************************************** *************
СПИСЪК P = 16F877
# Включват "P16F877.INC"
; 20MHz, RA4 е зададен като въртя на индикатора
__CONFIG _PWRTE_ON & _HS_OSC & _LVP_OFF & _WDT_OFF; Предпазител конфигурация
; мощност до таймера на, висока честота
; забраните ниско напрежение програмиране
; забраните Watchdog Timer
ORG 0x0000; нулиране
;**** Създадени ПОСТОЯННИ ****
Назад1 EQU 0X21; магазин ADC резултати
Предишна2 EQU 0X22; магазин ADC резултати
;**** Създадени PORT ****
BANKSEL PORTA; bank0
CLRF PORTA; ясно пристанище
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF ПОРТЕ
CLRF Назад1; ясно регистри
CLRF Предишна2
MOVLW B'10000001 '; Fosc/32 [7/6], A / D ch0 [5/3], A / D на [0]
MOVWF ADCON0; настройка на ADC на канал 0 (RA0)
; чака acquision време (20US)
; (некритични за този тест)
BANKSEL TRISA; bank1
MOVLW 01Н
MOVWF TRISA; RA0 като аналогов вход, RA4 като включите индикатор
MOVLW 00Н
MOVWF TRISB; изходни данни, RB7 продукция БТК
MOVLW 8EH; RA0 като аналогов вход, нали оправдано използването ADRESHL
MOVWF ADCON1; порта цифров вход
BANKSEL PORTA; bank0;**** Аналогово-цифров преобразувател ****
ADC
BSF ADCON0, отиде; проекта A / D конверсия
BTFSC ADCON0, отиде; чакам за преминаване към пълна
GOTO $ -1
BANKSEL TRISA; bank1
MOVF ADRESL, W; освен резултат на преобразуването в регистъра
BANKSEL PORTA; bank0
MOVWF Предишна2; магазин за следващата реактивен функция
SUBWF Назад1, 0; ПРЕДИШЕН - Ш, отговорете съхранява в З
BTFSS СТАТУС, C; пропуснете, ако предишната по-голяма от текущата
BSF PORTB, 7; предишното е по-малко от настоящите, с голям обем продукция
BTFSC СТАТУС, C; пропуснете, ако предишната по-малка от текущата
ФБК PORTB, 7; по-голяма от предишната ток, ниска мощност малко
BSF ADCON0, отиде; проекта A / D конверсия
BTFSC ADCON0, отиде; чакам за преминаване към пълна
GOTO $ -1
BANKSEL TRISA; bank1
MOVF ADRESL, W; освен резултат на преобразуването в регистъра
BANKSEL PORTA; bank0
MOVWF Назад1; магазин за следващата реактивен функция
SUBWF Предишна2, 0; ПРЕДИШЕН - Ш, отговорете съхранява в З
BTFSS СТАТУС, C; пропуснете, ако предишната по-голяма от текущата
BSF PORTB, 7; предишното е по-малко от настоящите, с голям обем продукция
BTFSC СТАТУС, C; пропуснете, ако предишната по-малка от текущата
ФБК PORTB, 7; по-голяма от предишната ток, ниска мощност малко
GOTO ADC
КРАЙ
************************************************** **************
моля кажете ми код е нещо погрешно?
и може някой моля правилното за мен?
и моля те кажи ми на концепцията за тази на БТК работи
благодаря ...