Перестал программатор видеть МК.
Прошиваю через 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
Очень нужна помощь.
