Kerestem hasonló témát a fórumokban, de sajnos nem találok.
ATmega 128L-et használok 3.3 V-on és egy MTB-112 Bluetooth modul van hozzákötve a COM2-n keresztül.
Minden működik rendesen, amíg egy laptoppal kapcsolatban vagyok a Bluetooth-on (BT) keresztül.
Mihelyt megszakítom a BT kapcsolatot, lefut egyszer a Do .. Loop és utána reset-elődik a CHIP.
Ha kiveszem a programból az UART sorokat (Config, Open, Close), magyarul nem használom a soros kommunikációt, akkor is hibátlanul fut a program.
Mi lehet a gond?
Kód: Egész kijelölése
$regfile = "m128def.dat"
$crystal = 4000000
'$baud = 19200
$hwstack = 320 ' default use 32 for the hardware stack
$swstack = 320 ' default use 10 for the SW stack
$framesize = 140 ' default use 40 for the frame space
Enable Interrupts
Config Com2 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin1 = Buffered , Size = 120
Config Serialout1 = Buffered , Size = 120
Config Pina.0 = Output
'Config Pinf.1 = Output
'Config Pinf.2 = Output
Config Pina.3 = Output
Config Pina.4 = Output
'Config Pind.2 = Output
'Config Pind.3 = Output
'Config pind.4 = Output
'Config Pind.7 = Output
'Config Pinb.6 = Output
'Config Pinb.7 = Output
'LCD vezerlok
Dog_cs Alias Porta.4 'Chip-select=0=aktiv
Dog_res Alias Porta.0 'Reset=0=reset
Dog_a0 Alias Porta.3 '0=command, 1=data
Dog_clk Alias Porta.1 'SPI CLK
Dog_si Alias Porta.2 'Soros input
'Teszt Alias Portd.7
Spiinit
Config Spi = Soft , Dout = Dog_si , Ss = None , Clock = Dog_clk
Declare Sub Ealocate(byval Pag As Byte , Byval Col As Byte)
Declare Sub Ealcd(byval Szoveg As String)
Declare Sub Eavline(byval Col1 As Byte , Byval Start1 As Byte , Byval End1 As Byte)
Declare Sub Eaicon(byval Col2 As Byte)
Dim X As Byte , Y As Byte
Dim Z As Byte , Bet As Byte
'Dim Pag As Byte , Col As Byte
Dim X1 As Byte , A1 As Byte
Dim Bin1 As String * 8
Dim Bin2 As String * 8
Dim Betu As String * 1
Dim A As Byte , B As Byte
Dim C As Byte , D As Byte
'Dim Szoveg As String * 10
Dim S As String * 22
Dim S1 As String * 1
Dim Mutato As Word
Gosub Inic_hw
Gosub Inic_sw
Gosub Cls1
Wait 6
Ealocate 0 , 10
Ealcd "REKA 03"
Ealocate 1 , 20
Ealcd "ARON 27"
Ealocate 2 , 30
Ealcd "Enci"
Ealocate 3 , 40
Ealcd "Tomi"
Restore Fold
Eaicon 95
Open "COM2:" For Binary As #1
Clear Serialin1
Clear Serialout1
S = "Bim-Bam"
Print #1 , S
Ealocate 3 , 1
Ealcd "Hoppa"
'Close #1
Do
' Open "COM2:" For Binary As #1
S = "Bim-Bam"
If Bufspace(3) < 120 Then
S = ""
End If
While Bufspace(3) < 120
A1 = Inkey(#1)
S1 = Chr(a1)
S = S + S1
Wend
Wait 2
Ealocate 1 , 1
Ealcd S
Print #1 , S
Wait 2
S = " "
Ealocate 1 , 1
Ealcd S
Print #1 , S
' Close #1
Loop
'**************************** SUB-ok kezdete *****************************
'***************************************************************************
Iras:
'***************************************************************************
Restore Abcd
Mutato = Asc(betu)
Mutato = Mutato * 6
Set Dog_a0
For Z = 1 To 6
Bet = Lookup(mutato , Abcd )
Incr Mutato
Spiout Bet , 1
Next Z
Return
'***************************************************************************
Inic_hw:
'***************************************************************************
Reset Dog_cs
Reset Dog_a0
Set Dog_res
Waitms 100
Return
'***************************************************************************
Inic_sw:
'***************************************************************************
Restore Inic_data 'LCD INIC
For X = 1 To 16
Read Y
Spiout Y , 1
Waitms 2
Next X
Return
'***************************************************************************
Cls1:
'***************************************************************************
For X = 0 To 7
Reset Dog_a0
Y = 176 + X
Spiout Y , 1
Set Dog_a0
For Z = 0 To 131
Y = 0
Spiout Y , 1
Next Z
Reset Dog_a0
Y = 16
Spiout Y , 1
Y = 0
Spiout Y , 1
Next X
Return
'***************************************************************************
Negat:
'***************************************************************************
Reset Dog_a0
X = &HA7
Spiout X , 1
Return
End
Close #1
'Goto Start1
'**************************** Eljárások kezdete **************************
'***************************************************************************
Sub Ealocate(byval Pag As Byte , Byval Col As Byte)
'***************************************************************************
X = 176 + Pag
Bin1 = Bin(col)
Bin2 = "0001"
Bin2 = Bin2 + Left(bin1 , 4)
Y = Binval(bin2)
Bin2 = "0000"
Bin2 = Bin2 + Right(bin1 , 4)
Z = Binval(bin2)
Reset Dog_a0
Spiout X , 1
Spiout Y , 1
Spiout Z , 1
End Sub
'***************************************************************************
Sub Ealcd(byval Szoveg As String * 22)
'***************************************************************************
For X1 = 1 To Len(szoveg)
Betu = Mid(szoveg , X1 , 1)
Gosub Iras
Waitms 20
Next X1
End Sub
'***************************************************************************
Sub Eavline(byval Col1 As Byte , Byval Start1 As Byte , Byval End1 As Byte)
'***************************************************************************
Set Dog_a0
' Select Case Start1
' Case 1 To 8 : Ealocate(col1,
' End Select
End Sub
'***************************************************************************
Sub Eaicon(byval Col2 As Byte)
'***************************************************************************
Dim X2 As Byte , X3 As Byte
Dim X4 As Byte , X5 As Byte
Restore Fold
For X2 = 1 To 4
X4 = X2 - 1
Ealocate X4 , Col2
For X3 = 1 To 48
Read X5
Set Dog_a0
Spiout X5 , 1
Next X3
Next X2
End Sub
'**************************** Adathalmazok kezdete **************************
'***************************************************************************
Inic_data:
'***************************************************************************
Data &H40 , &HA1 , &HC0 , &HA6 , &HA2 , &H2F , &HF8 , &H00 , &H23 , &H81 , &H1F , &HAC , &H00 , &HAF , &H10 , &H00
'Data &H40 , &HA1 , &HC0 , &HA6 , &HA2 , &H2F , &HF8 , &H00 , &H23 , &H81 , &H1F , &HAC , &H00 , &HAF , &H10 , &H00
'***************************************************************************
Abcd:
'***************************************************************************
Data 0 , 0 , 0 , 0 , 0 , 0 '0 , 0H
Data 0 , 0 , 0 , 0 , 0 , 0 '1 , 1H
Data 0 , 0 , 0 , 0 , 0 , 0 '2 , 2H
Data 0 , 0 , 0 , 0 , 0 , 0 '3 , 3H
Data 0 , 0 , 0 , 0 , 0 , 0 '4 , 4H
Data 0 , 0 , 0 , 0 , 0 , 0 '5 , 5H
Data 0 , 0 , 0 , 0 , 0 , 0 '6 , 6H
Data 0 , 0 , 0 , 0 , 0 , 0 '7 , 7H
Data 0 , 0 , 0 , 0 , 0 , 0 '8 , 8H
Data 0 , 0 , 0 , 0 , 0 , 0 '9 , 9H
Data 0 , 0 , 0 , 0 , 0 , 0 '10, 0AH
Data 0 , 0 , 0 , 0 , 0 , 0 '11, 0BH
Data 0 , 0 , 0 , 0 , 0 , 0 '12, 0CH
Data 0 , 0 , 0 , 0 , 0 , 0 '13, 0DH
Data 0 , 0 , 0 , 0 , 0 , 0 '14, 0EH
Data 0 , 0 , 0 , 0 , 0 , 0 '15, 0FH
Data 0 , 0 , 0 , 0 , 0 , 0 '16, 10H
Data 0 , 0 , 0 , 0 , 0 , 0 '17, 11H
Data 0 , 0 , 0 , 0 , 0 , 0 '18, 12H
Data 0 , 0 , 0 , 0 , 0 , 0 '19, 13H
Data 0 , 0 , 0 , 0 , 0 , 0 '20, 14H
Data 0 , 0 , 0 , 0 , 0 , 0 '21, 15H
Data 0 , 0 , 0 , 0 , 0 , 0 '22, 16H
Data 0 , 0 , 0 , 0 , 0 , 0 '23, 17H
Data 0 , 0 , 0 , 0 , 0 , 0 '24, 18H
Data 0 , 0 , 0 , 0 , 0 , 0 '25, 19H
Data 0 , 0 , 0 , 0 , 0 , 0 '26, 1AH
Data 0 , 0 , 0 , 0 , 0 , 0 '27, 1BH
Data 0 , 0 , 0 , 0 , 0 , 0 '28, 1CH
Data 0 , 0 , 0 , 0 , 0 , 0 '29, 1DH
Data 0 , 0 , 0 , 0 , 0 , 0 '30, 1EH
Data 0 , 0 , 0 , 0 , 0 , 0 '31, 1FH
Data 0 , 0 , 0 , 0 , 0 , 0 '32, 20H, SPACE
Data 0 , 0 , &H4F , 0 , 0 , 0 '33, 21H, !
Data 0 , 7 , 0 , 7 , 0 , 0 '34 , 22h , ""
Data &H14 , &H7F , &H14 , &H7F , &H14 , 0 '35, 23H, #
Data &H24 , &H2A , &H7F , &H2A , &H12 , 0 '36, 24H, $
Data &H23 , &H13 , 8 , &H64 , &H62 , 0 '37, 25H, %
Data &H36 , &H49 , &H55 , &H22 , &H50 , 0 '38, 26H, &
Data 0 , 5 , 3 , 0 , 0 , 0 '39, 27H, '
Data 0 , &H1C , &H22 , &H41 , 0 , 0 '40, 28H, (
Data 0 , &H41 , &H22 , &H1C , 0 , 0 '41, 29H, )
Data &H14 , 8 , &H3E , 8 , &H14 , 0 '42, 2AH, *
Data 8 , 8 , &H3E , 8 , 8 , 0 '43, 2BH, +
Data 0 , &H50 , &H30 , 0 , 0 , 0 '44, 2CH, ,
Data 8 , 8 , 8 , 8 , 8 , 8 '45, 2DH, -
Data 0 , &H60 , &H60 , 0 , 0 , 0 '46, 2EH, .
Data 0 , &H20 , &H10 , 8 , 4 , 2 '47, 2FH, /
Data &H3E , &H51 , &H49 , &H45 , &H3E , 0 '48, 30H, 0
Data 0 , &H42 , &H7F , &H40 , 0 , 0 '49, 31H, 1
Data &H42 , &H61 , &H51 , &H49 , &H46 , 0 '50, 32H, 2
Data &H21 , &H41 , &H45 , &H4B , &H31 , 0 '51, 33H, 3
Data &H18 , &H14 , &H12 , &H7F , &H10 , 0 '52, 34H, 4
Data &H27 , &H45 , &H45 , &H45 , &H39 , 0 '53, 35H, 5
Data &H3C , &H4A , &H49 , &H49 , &H30 , 0 '54, 36H, 6
Data 1 , &H71 , 9 , 5 , 3 , 0 '55, 37H, 7
Data &H36 , &H49 , &H49 , &H49 , &H36 , 0 '56, 38H, 8
Data 6 , &H49 , &H49 , &H29 , &H1E , 0 '57, 39H, 9
Data 0 , &H36 , &H36 , 0 , 0 , 0 '58, 3AH, :
Data 0 , &H56 , &H36 , 0 , 0 , 0 '59, 3BH, ;
Data 0 , 8 , &H14 , &H22 , &H41 , 0 '60, 3CH, <
Data &H14 , &H14 , &H14 , &H14 , &H14 , 0 '61, 3DH, =
Data 0 , &H41 , &H22 , &H14 , 8 , 0 '62, 3EH, >
Data 2 , 1 , &H51 , 9 , 6 , 0 '63, 3FH, ?
Data &H32 , &H49 , &H79 , &H41 , &H3E , 0 '64, 40H, @
Data &H7C , &H12 , &H11 , &H12 , &H7C , &H00 'A
Data &H7F , &H49 , &H49 , &H49 , &H36 , &H00 'B
Data &H3E , &H41 , &H41 , &H41 , &H22 , &H00 'C
Data &H7F , &H41 , &H41 , &H41 , &H3E , &H00 'D
Data &H7F , &H49 , &H49 , &H49 , &H41 , &H00 'E
Data &H7F , &H09 , &H09 , &H09 , &H01 , &H00 'F
Data &H3E , &H41 , &H49 , &H49 , &H7A , &H00 'G
Data &H7F , &H08 , &H08 , &H08 , &H7F , &H00 'H
Data &H00 , &H41 , &H7F , &H41 , &H00 , &H00 'I
Data &H20 , &H40 , &H41 , &H3F , &H01 , &H00 'J
Data &H7F , &H08 , &H14 , &H22 , &H41 , &H00 'K
Data &H7F , &H40 , &H40 , &H40 , &H40 , &H00 'L
Data &H7F , &H02 , &H1C , &H02 , &H7F , &H00 'M
Data &H7F , &H04 , &H08 , &H10 , &H7F , &H00 'N
Data &H3E , &H41 , &H41 , &H41 , &H3E , &H00 'O
Data &H7F , &H09 , &H09 , &H09 , &H06 , &H00 'P
Data &H3E , &H41 , &H51 , &H21 , &H5E , &H00 'Q
Data &H7F , &H09 , &H19 , &H29 , &H46 , &H00 'R
Data &H26 , &H49 , &H49 , &H49 , &H32 , &H00 'S
Data &H01 , &H01 , &H7F , &H01 , &H01 , &H00 'T
Data &H3F , &H40 , &H40 , &H40 , &H3F , &H00 'U
Data &H1F , &H20 , &H40 , &H20 , &H1F , &H00 'V
Data &H3F , &H40 , &H38 , &H40 , &H3F , &H00 'W
Data &H63 , &H14 , &H08 , &H14 , &H63 , &H00 'X
Data &H03 , &H04 , &H78 , &H04 , &H03 , &H00 'Y
Data &H61 , &H51 , &H49 , &H45 , &H43 , &H00 'Z
Data 0 , &H7F , &H41 , &H41 , 0 , 0 '91, 5BH, [
Data &H15 , &H16 , &H7C , &H16 , &H15 , 0 '92, 5CH, YEN
Data 0 , &H41 , &H41 , &H7F , 0 , 0 '93, 5DH, ]
Data 4 , 2 , 1 , 2 , 4 , 0 '94, 5EH, ^
Data &H40 , &H40 , &H40H , &H40 , &H40 , 0 '95, 5FH, _
Data 0 , 1 , 2 , 4 , 0 , 0 '96, 60H, `
Data &H20 , &H54 , &H54 , &H54 , &H78 , 0 '97, 61H, a
Data &H7F , &H48 , &H44 , &H44 , &H38 , 0 '98, 62H, b
Data &H38 , &H44 , &H44 , &H44 , &H20 , 0 '99, 63H, c
Data &H38 , &H44 , &H44 , &H48 , &H7F , 0 '100,64H, d
Data &H38 , &H54 , &H54 , &H54 , &H18 , 0 '101,65H, e
Data 8 , &H7E , 9 , 1 , 2 , 0 '102,66H, f
Data &H0C , &H52 , &H52 , &H52 , &H3E , 0 '103,67H, g
Data &H7F , 8 , 4 , 4 , &H78 , 0 '104,68H, h
Data 0 , &H44 , &H7D , &H40 , 0 , 0 '105,69H, i
Data &H20 , &H40 , &H44 , &H3D , 0 , 0 '106,6AH, j
Data &H7F , &H10 , &H28 , &H44 , 0 , 0 '107,6BH, k
Data 0 , &H41 , &H7F , &H40 , 0 , 0 '108,6CH, l
Data &H7C , 4 , &H18 , 4 , &H78 , 0 '109,6DH, m
Data &H7C , 8 , 4 , 4 , &H78 , 0 '110,6EH, n
Data &H38 , &H44 , &H44 , &H44 , &H38 , 0 '111,6FH, o
Data &H7C , &H14 , &H14 , &H14 , &H8 , 0 '112,70H, p
Data 8 , &H14 , &H14 , &H18 , &H7C , 0 '113,71H, q
Data &H7C , 8 , 4 , 4 , 8 , 0 '114,72H, r
Data &H48 , &H54 , &H54 , &H54 , &H20 , 0 '115,73H, s
Data 4 , &H3F , &H44 , &H40 , &H20 , 0 '116,74H, t
Data &H3C , &H40 , &H40 , &H20 , &H7C , 0 '117,75H, u
Data &H1C , &H20 , &H40 , &H20 , &H1C , 0 '118,76H, v
Data &H3C , &H40 , &H30 , &H40 , &H3C , 0 '119,77H, w
Data &H44 , &H28 , &H10 , &H28 , &H44 , 0 '120,78H, x
Data &H0C , &H50 , &H50 , &H50 , &H3C , 0 '121,79H, y
Data &H44 , &H64 , &H54 , &H4C , &H44 , 0 '122,7AH, z
Data 0 , 8 , &H36 , &H41 , 0 , 0 '123,7BH, {
Data 0 , 0 , &H7F , 0 , 0 , 0 '124,7CH, |
Data 0 , &H41 , &H36 , 8 , 0 , 0 '125,7DH, }
'***************************************************************************
'Sziv kezdete...
'***************************************************************************
Sziv:
Data &H80 , &HF0 , &HF8 , &HFC , &HFE , &HFF , &HFF , &H7F , &HFF , &HFF , &HFE , &HFE
Data &HFC , &HF8 , &HF0 , &HC0 , &HF0 , &HF8 , &HFC , &HFE , &HFE , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFE , &HFC , &HF8 , &HF0 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H1F , &HFF , &HFF , &HFF , &HFF , &HFF , &HF8 , &HF0 , &HF8 , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H1F , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H03 , &H0F , &H1F , &H7F , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
Data &HFF , &H7F , &H1F , &H0F , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H03 , &H07 , &H0F , &H1F
Data &H3F , &H3F , &H7F , &HFF , &H7F , &H3F , &H3F , &H1F , &H0F , &H07 , &H03 , &H01
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
'...sziv vége
'***************************************************************************
'Föld kezdete...
'***************************************************************************
Fold:
Data &H00 , &H00 , &H00 , &H80 , &H40 , &H20 , &H30 , &H78 , &H78 , &H1C , &H0C , &H06
Data &H06 , &H06 , &H21 , &H21 , &H01 , &H01 , &H81 , &H21 , &H61 , &H31 , &H99 , &HDA
Data &HFA , &HFE , &HFC , &HFC , &HF8 , &HF8 , &HF0 , &HE0 , &HC0 , &H80 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &HF0 , &H0C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H80 , &HC0 , &HC0 , &HE0 , &HE8 , &HEC , &HED , &HE4 , &HC7 , &HCF , &HD3 , &HC3
Data &HC3 , &H5F , &HFF , &HFF , &HFF , &H7F , &H7F , &H7F , &H7F , &H7F , &H7F , &HFC
Data &HF0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H0F , &H30 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H01 , &H03 , &H07 , &H07 , &H07 , &H0F , &H7F , &HFF , &HFF , &HFF , &HFF , &HFF
Data &H1F , &H0E , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H60
Data &H1F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H01 , &H02 , &H04 , &H08 , &H10 , &H10 , &H20 , &H20 , &H40
Data &H40 , &H40 , &H80 , &H80 , &H80 , &H80 , &H80 , &H87 , &H8F , &H8F , &H87 , &H43
Data &H40 , &H40 , &H40 , &H20 , &H20 , &H10 , &H08 , &H08 , &H04 , &H03 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
'...föld vége
