Нужна помощь - ввостановить МК

Если ваш вопрос не влез ни в одну из вышеперечисленных тем, вам сюда.
Ответить
Van_Der_Romio
Родился
Сообщения: 1
Зарегистрирован: Вт янв 06, 2015 00:47:03

Нужна помощь - ввостановить МК

Сообщение Van_Der_Romio »

Раньше было все нормально, но после полугода отдыха, решил снова по программировать.
Перестал программатор видеть МК.
Прошиваю через BascomAVR программатор USBasp isp.
Походу влез в фюзы...
уже второй МК не определяется программатором.
что интересно, что второй перестал работать после заливки прошивки.
Что не так?
Вот текс программы:

Код: Выделить всё

$regfile = "m16def.dat"
$crystal = 16000000

$hwstack = 40
$swstack = 16
$framesize = 32

$lib "LUC_lcd4busy.lib"
Const _lcddb4_portx = Portd                                 'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcddb4_ddrx = Ddrd                                   'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcddb4_pinnumber = 4                               'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcddb5_portx = Portd                                 'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcddb5_ddrx = Ddrd                                   'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcddb5_pinnumber = 5                               'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcddb6_portx = Portd                                 'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcddb6_ddrx = Ddrd                                   'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcddb6_pinnumber = 6                               'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcddb7_portx = Portd                                 'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcddb7_ddrx = Ddrd                                   'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcddb7_pinx = Pind                                   'Valid values: PINA, PINB, PINC, PIND, PINE.
Const _lcddb7_pinnumber = 7                                 'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcde_portx = Portd                                   'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcde_ddrx = Ddrd                                     'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcde_pinnumber = 2                                   'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcdrw_portx = Portd                                  'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcdrw_ddrx = Ddrd                                    'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcdrw_pinnumber = 1                                'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Const _lcdrs_portx = Portd                                  'Valid values: PORTA, PORTB, PORTC, PORTD, PORTE.
Const _lcdrs_ddrx = Ddrd                                    'Valid values: DDRA, DDRB, DDRC, DDRD, DDRE.
Const _lcdrs_pinnumber = 0                                'Valid values: 0, 1, 2, 3, 4, 5, 6, 7.

Cls
'Define the used LCD
Config Lcd = 16 * 2
Display Off
Waitms 10
Display On
Cursor On

Config Portc = Output

Dim Ii As Integer
Dim Uu As Integer
Ii = 0
Uu = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim W As Word
Start Adc

Dim Bb As Single
Dim Ss As String * 4

Do
Waitms 30

Ii = Ii + 1
Uu = Uu + 1
W = Getadc(0)
Bb = 5 * W
Bb = Bb / 1023

Ss = Str(bb)
Ss = Fusing(bb , "0.00")
Cls
Lcd "U= " ; Ss ; " B"

Locate 2 , 1
Lcd "N= " ; W ; " B"

If W > 350 Then
Portc.0 = 1
Portc.1 = 0
Locate 1 , 13
Lcd "ON"
Locate 2 , 13
Lcd "OFF"
Else
Portc.0 = 0
Portc.1 = 1
Locate 2 , 13
Lcd "ON"
Locate 1 , 13
Lcd "OFF"
End If
Loop
End

Может что то с настройками программы, вот фото настроек.
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение
Изображение

или скачать архивом: https://yadi.sk/d/BsXBPvRodoZZM


Очень нужна помощь.
Реклама
Аватара пользователя
Enigm
Говорящий с текстолитом
Сообщения: 1663
Зарегистрирован: Вт апр 03, 2012 20:36:41
Откуда: Сочи

Re: Нужна помощь - ввостановить МК

Сообщение Enigm »

Убить программно контроллер можно только фьюзами, самой прогой не смогете ))
Есть 2 варианта восстановления.
параллельный программатор или фьюздоктор.
Еще есть вариант что фьюзы на кварц, а читаете без него, то тоже есть варианты без параллельного и фьюздоктора, все легко ищется.
А вообще инфы по этому делу полно и тут на форуме тоже.
Если варианты выше не помогают то убили железно и не восстановите.
Реклама
Ответить

Вернуться в «Разные вопросы по МК»