圣龙扬特-AVR电子

标题: 求助：关于bascom 控制BH1415 程序编译出错，请大神协助。 [打印本页]

---

作者: tanjianchao    时间: 2013-7-3 15:35
标题: 求助：关于bascom 控制BH1415 程序编译出错，请大神协助。
在网上看到有一个关于M8控制BH1415的BASCOM程序，编译不能通过，哪位高人能帮忙看看嘛？

$regfile = "m8def.dat"                                      'M8-Deklarationen
$crystal = 1000000                                          'interner RC-Oszillator reicht

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portb.1 , Rs = Portb.2
Config Lcd = 16 * 2

Dim Retvalue As Byte
Dim Zahlstr As String * 5

Dim Frequ As Word : Frequ = 961                             'Programm-Default-Werte
Dim Stereo As Byte : Stereo = 1                             'alles Ein
Dim Driver As Byte : Driver = 1
Dim Licht As Byte : Licht = 1

Dim Dummy_ee As Eram Long                                   'Werte fürs EEPROM
Dim Frequ_ee As Eram Word
Dim Stereo_ee As Eram Byte
Dim Driver_ee As Eram Byte
Dim Licht_ee As Eram Byte

Dim Menu1(8) As String * 8                                  'Menüwerte
Menu1(1) = "Frequenz"
Menu1(2) = "Stereo "
Menu1(3) = "Treiber "
Menu1(4) = "Licht "
Menu1(5) = "Sichern "
Menu1(6) = "AbstimmU"
Menu1(7) = "AntenneU"
Menu1(8) = "zurueck "

Dim Menu2(2) As String * 3
Menu2(1) = "Ein"
Menu2(2) = "Aus"


Ddrd.2 = 0                                                  'drehimpuls 1 = INT0
Portd.2 = 1                                                 'Pullup
Ddrb.0 = 0                                                  'drehimpuls 2
Portb.0 = 1                                                 'Pullup
Ddrd.3 = 0                                                  'Set-Button = INT1
Portd.3 = 1                                                 'Pull-Up
Setbutton Alias Pind.3                                      'Menübest?tigungs-Knopf

Dim Drehgeber As Word                                       'wird von ISR (INT0) ver?ndert
On Int0 Onint0
Mcucr.isc00 = 1                                             'INT0 bei FALLING + RISING
Mcucr.isc01 = 0
Gicr.int0 = 1


Config Int1 = Low Level                                     'nur zum Aufwachen aus Sleep-Modus
On Int1 Onint1


Mcucr.sm1 = 1
Mcucr.se = 1                                                'Sleep-Modus=Power-Down


Ddrd.4 = 1                                                  'PD4= "Licht"

Ddrd.5 = 1                                                  'PD5= Ausgang zum IC-PLL (Data)
Datas Alias Portd.5
Ddrd.6 = 1                                                  'PD6= Clock
Clock Alias Portd.6
Ddrd.7 = 1                                                  'PD7= Chip Enable
Chipena Alias Portd.7


Admux.refs0 = 1                                             'ADC-Config:
Admux.refs1 = 1                                             'interne Referenz
Adcsr.adps0 = 1
Adcsr.adps1 = 1
Adcsr.adps2 = 1                                             'Prescaler=128
Adcsr.aden = 1                                              'ADC einschalten
Ddrc.0 = 0                                                  'als Eing?nge schalten (ADC0-1)
Ddrc.1 = 0


Sreg.7 = 1                                                  'alle Interrupts freigeben


Declare Function Menu(menuitems() As String , Byval Maxentry As Byte , Byval Default As Byte ) As Byte
Declare Function Frequenz(byval Default As Word) As Word
Declare Sub To Ic -pll
Declare Sub Showadc(byval Anz_mod As Byte)


If Frequ_ee <> &HFFFF Then                                  'abgespeicherte Default-Werte
Frequ = Frequ_ee
Stereo = Stereo_ee
Driver = Driver_ee
Licht = Licht_ee
End If

Portd.4 = Not Licht.0                                       'Display-Licht; LOW-Aktiv
To Ic -pll                                                  ' schiebt frequ, stereo u. driver i.d. Chip

Cls
Locate 2 , 1
Lcd "PLL SENDER"

Do
Cursor Off
Locate 1 , 1 : Lcd Menu1(1)
Locate 1 , 10 : Zahlstr = Str(frequ) : Zahlstr = Format(zahlstr , " 00.0") : Lcd Zahlstr ; Spc(2)

Enable Int1
!sleep                                                      'nur Druck (LOW LEVEL-Int) weckt auf
Disable Int1

Waitms 500

Locate 1 , 10 : Lcd Spc(6)
Cursor On Blink

Do
Locate 1 , 1
Retvalue = Menu(menu1(1) , 8 , 1)
Locate 1 , 10
Select Case Retvalue
Case 1 : Frequ = Frequenz(frequ)
Exit Do

Case 2 : Stereo = Menu(menu2(1) , 2 , Stereo)
Exit Do

Case 3 : Driver = Menu(menu2(1) , 2 , Driver)
Exit Do

Case 4 : Licht = Menu(menu2(1) , 2 , Licht)
Portd.4 = Not Licht.0                                       'Low-Aktiv
Goto Loopend

Case 5 : Sreg.7 = 0                                         'zum Abspeichern INTs abschalten
Frequ_ee = Frequ
Stereo_ee = Stereo
Driver_ee = Driver
Licht_ee = Licht
Sreg.7 = 1
Goto Loopend

Case 6 : Admux.0 = 0                                        'ADC-Kanal 0
Call Showadc(0)
Goto Loopend2

Case 7 : Admux.0 = 1                                        'ADC-Kanal 1
Call Showadc(1)
Goto Loopend2

Case 8 : Goto Loopend2
End Select
Loop

Call To Ic -pll
Loopend:
Locate 1 , 10 : Lcd "ok" ; Spc(3)
Wait 1
Loopend2:
Loop


End



Function Menu(menuitems() As String , Byval Maxentry As Byte , Byval Default As Byte ) As Byte
Local Curent As Byte
Local Mlen As Byte
Local Drehgeber_alt As Word
Local Lauf As Byte

Drehgeber = &H8000
Drehgeber_alt = &H8000
Mlen = Len(menuitems(1))
Lcd Menuitems(default);
Curent = Default

Do
If Setbutton = 0 Then
Menu = Curent
Waitms 500
Exit Function
End If

If Drehgeber <> Drehgeber_alt Then
If Drehgeber > Drehgeber_alt Then
Incr Curent
If Curent > Maxentry Then
Curent = 1
End If
End If

If Drehgeber < Drehgeber_alt Then
Decr Curent
If Curent = 0 Then
Curent = Maxentry
End If
End If

For Lauf = 1 To Mlen
Shiftcursor Left
Next Lauf
Lcd Menuitems(curent);
Drehgeber_alt = Drehgeber
End If
Loop
End Function



Function Frequenz(byval Default As Word) As Word
Local S As String * 5
Local Drehgeber_alt As Word
Local Lauf As Byte

Drehgeber = Default
Drehgeber_alt = Drehgeber
S = Str(drehgeber)
S = Format(s , " 00.0" )
Lcd S
Do
If Drehgeber <> Drehgeber_alt Then

If Drehgeber > 1080 Then
Drehgeber = 875
End If

If Drehgeber < 875 Then
Drehgeber = 1080
End If

Drehgeber_alt = Drehgeber

For Lauf = 1 To 5
Shiftcursor Left
Next Lauf
S = Str(drehgeber_alt)
S = Format(s , " 00.0" )
Lcd S

End If

If Setbutton = 0 Then
Frequenz = Drehgeber_alt
Waitms 500
Exit Function
End If
Loop
End Function



Sub To Ic -pll
Local Seriellword As Word
Local Lauf As Byte
Seriellword = Frequ
Seriellword.11 = Stereo.0
Seriellword.14 = Driver.0
'locate 2 , 1
'lcd bin(seriellword )
Chipena = 1                                                 'Chip selektieren
For Lauf = 1 To 16
Datas = Seriellword.0                                       'Datenbit 0 anlegen
Clock = 1                                                   'und übergeben
Waitus 250
Clock = 0
Shift Seriellword , Right                                   'n?chstes Bit in Position 0 schieben
Next Lauf                                                   'Chip deselektieren
Chipena = 0
End Sub



Sub Showadc(byval Anz_mod As Byte)
Local Adc_h As Word
Local Adc_val As Word                                       '10 bit
Adcsr.adfr = 1                                              'free running
Adcsr.adsc = 1                                              'starten
Cursor Noblink
Cursor Off
Do
Adc_val = Adcl
Adc_h = Adch
Shift Adc_h , Left , 8
Adc_val = Adc_val Or Adc_h

Locate 1 , 10
Select Case Anz_mod
Case 0 : Zahlstr = Str(adc_val)                             'Abstimmspannung (V)
Zahlstr = Format(zahlstr , " 0.00")
Lcd Zahlstr ; " V"
Case 1 : Zahlstr = Str(adc_val)                             'Antennenspannung (mV)
Zahlstr = Format(zahlstr , " 0")
Lcd Zahlstr ; " "
End Select

Waitms 100
Loop Until Setbutton = 0
Adcsr.adsc = 0
Adcsr.adfr = 0                                              'free running aus
Locate 1 , 10
Waitms 500
End Sub



Drehimpuls1 Alias Pind.2
Drehimpuls2 Alias Pinb.0
Onint0:
If Drehimpuls1 = 1 Then                                     'steigende Flanke
If Drehimpuls2 = 1 Then
Decr Drehgeber
Else
Incr Drehgeber
End If
Else                                                        'fallende Flanke
If Drehimpuls2 = 0 Then
Decr Drehgeber
Else
Incr Drehgeber
End If
End If
Return

Onint1:                                                     'nur zum Aufwachen!
Return

---

作者: 箫天    时间: 2013-7-3 19:13
'在网上看到有一个关于M8控制BH1415的BASCOM程序，编译不能通过，哪位高人能帮忙看看嘛？

$regfile = "m8def.dat"                                      'M8-Deklarationen
$crystal = 1000000                                          'interner RC-Oszillator reicht

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portb.1 , Rs = Portb.2
Config Lcd = 16 * 2

Dim Retvalue As Byte
Dim Zahlstr As String * 5

Dim Frequ As Word : Frequ = 961                             'Programm-Default-Werte
Dim Stereo As Byte : Stereo = 1                             'alles Ein
Dim Driver As Byte : Driver = 1
Dim Licht As Byte : Licht = 1

Dim Dummy_ee As Eram Long                                   'Werte fürs EEPROM
Dim Frequ_ee As Eram Word
Dim Stereo_ee As Eram Byte
Dim Driver_ee As Eram Byte
Dim Licht_ee As Eram Byte

Dim Menu1(8) As String * 8                                  'Menüwerte
Menu1(1) = "Frequenz"
Menu1(2) = "Stereo "
Menu1(3) = "Treiber "
Menu1(4) = "Licht "
Menu1(5) = "Sichern "
Menu1(6) = "AbstimmU"
Menu1(7) = "AntenneU"
Menu1(8) = "zurueck "

Dim Menu2(2) As String * 3
Menu2(1) = "Ein"
Menu2(2) = "Aus"


Ddrd.2 = 0                                                  'drehimpuls 1 = INT0
Portd.2 = 1                                                 'Pullup
Ddrb.0 = 0                                                  'drehimpuls 2
Portb.0 = 1                                                 'Pullup
Ddrd.3 = 0                                                  'Set-Button = INT1
Portd.3 = 1                                                 'Pull-Up
Setbutton Alias Pind.3                                      'Menübest?tigungs-Knopf

Dim Drehgeber As Word                                       'wird von ISR (INT0) ver?ndert
On Int0 Onint0
Mcucr.isc00 = 1                                             'INT0 bei FALLING + RISING
Mcucr.isc01 = 0
Gicr.int0 = 1


Config Int1 = Low Level                                     'nur zum Aufwachen aus Sleep-Modus
On Int1 Onint1


Mcucr.sm1 = 1
Mcucr.se = 1                                                'Sleep-Modus=Power-Down


Ddrd.4 = 1                                                  'PD4= "Licht"

Ddrd.5 = 1                                                  'PD5= Ausgang zum IC-PLL (Data)
Datas Alias Portd.5
Ddrd.6 = 1                                                  'PD6= Clock
Clock Alias Portd.6
Ddrd.7 = 1                                                  'PD7= Chip Enable
Chipena Alias Portd.7


Admux.refs0 = 1                                             'ADC-Config:
Admux.refs1 = 1                                             'interne Referenz
Adcsr.adps0 = 1
Adcsr.adps1 = 1
Adcsr.adps2 = 1                                             'Prescaler=128
Adcsr.aden = 1                                              'ADC einschalten
Ddrc.0 = 0                                                  'als Eing?nge schalten (ADC0-1)
Ddrc.1 = 0


Sreg.7 = 1                                                  'alle Interrupts freigeben


Declare Function Menu(menuitems() As String , Byval Maxentry As Byte , Byval Default As Byte ) As Byte
Declare Function Frequenz(byval Default As Word) As Word
Declare Sub Toic_pll
Declare Sub Showadc(byval Anz_mod As Byte)


If Frequ_ee <> &HFFFF Then                                  'abgespeicherte Default-Werte
Frequ = Frequ_ee
Stereo = Stereo_ee
Driver = Driver_ee
Licht = Licht_ee
End If

Portd.4 = Not Licht.0                                       'Display-Licht; LOW-Aktiv
Toic_pll                                                    ' schiebt frequ, stereo u. driver i.d. Chip

Cls
Locate 2 , 1
Lcd "PLL SENDER"

Do
Cursor Off
Locate 1 , 1 : Lcd Menu1(1)
Locate 1 , 10 : Zahlstr = Str(frequ) : Zahlstr = Format(zahlstr , " 00.0") : Lcd Zahlstr ; Spc(2)

Enable Int1
!sleep                                                      'nur Druck (LOW LEVEL-Int) weckt auf
Disable Int1

Waitms 500

Locate 1 , 10 : Lcd Spc(6)
Cursor On Blink

Do
Locate 1 , 1
Retvalue = Menu(menu1(1) , 8 , 1)
Locate 1 , 10
Select Case Retvalue
Case 1 : Frequ = Frequenz(frequ)
Exit Do

Case 2 : Stereo = Menu(menu2(1) , 2 , Stereo)
Exit Do

Case 3 : Driver = Menu(menu2(1) , 2 , Driver)
Exit Do

Case 4 : Licht = Menu(menu2(1) , 2 , Licht)
Portd.4 = Not Licht.0                                       'Low-Aktiv
Goto Loopend

Case 5 : Sreg.7 = 0                                         'zum Abspeichern INTs abschalten
Frequ_ee = Frequ
Stereo_ee = Stereo
Driver_ee = Driver
Licht_ee = Licht
Sreg.7 = 1
Goto Loopend

Case 6 : Admux.0 = 0                                        'ADC-Kanal 0
Call Showadc(0)
Goto Loopend2

Case 7 : Admux.0 = 1                                        'ADC-Kanal 1
Call Showadc(1)
Goto Loopend2

Case 8 : Goto Loopend2
End Select
Loop

Call Toic_pll
Loopend:
Locate 1 , 10 : Lcd "ok" ; Spc(3)
Wait 1
Loopend2:
Loop


End



Function Menu(menuitems() As String , Byval Maxentry As Byte , Byval Default As Byte ) As Byte
Local Curent As Byte
Local Mlen As Byte
Local Drehgeber_alt As Word
Local Lauf As Byte

Drehgeber = &H8000
Drehgeber_alt = &H8000
Mlen = Len(menuitems(1))
Lcd Menuitems(default);
Curent = Default

Do
If Setbutton = 0 Then
Menu = Curent
Waitms 500
Exit Function
End If

If Drehgeber <> Drehgeber_alt Then
If Drehgeber > Drehgeber_alt Then
Incr Curent
If Curent > Maxentry Then
Curent = 1
End If
End If

If Drehgeber < Drehgeber_alt Then
Decr Curent
If Curent = 0 Then
Curent = Maxentry
End If
End If

For Lauf = 1 To Mlen
Shiftcursor Left
Next Lauf
Lcd Menuitems(curent);
Drehgeber_alt = Drehgeber
End If
Loop
End Function



Function Frequenz(byval Default As Word) As Word
Local S As String * 5
Local Drehgeber_alt As Word
Local Lauf As Byte

Drehgeber = Default
Drehgeber_alt = Drehgeber
S = Str(drehgeber)
S = Format(s , " 00.0" )
Lcd S
Do
If Drehgeber <> Drehgeber_alt Then

If Drehgeber > 1080 Then
Drehgeber = 875
End If

If Drehgeber < 875 Then
Drehgeber = 1080
End If

Drehgeber_alt = Drehgeber

For Lauf = 1 To 5
Shiftcursor Left
Next Lauf
S = Str(drehgeber_alt)
S = Format(s , " 00.0" )
Lcd S

End If

If Setbutton = 0 Then
Frequenz = Drehgeber_alt
Waitms 500
Exit Function
End If
Loop
End Function



Sub Toic_pll
Local Seriellword As Word
Local Lauf As Byte
Seriellword = Frequ
Seriellword.11 = Stereo.0
Seriellword.14 = Driver.0
'locate 2 , 1
'lcd bin(seriellword )
Chipena = 1                                                 'Chip selektieren
For Lauf = 1 To 16
Datas = Seriellword.0                                       'Datenbit 0 anlegen
Clock = 1                                                   'und übergeben
Waitus 250
Clock = 0
Shift Seriellword , Right                                   'n?chstes Bit in Position 0 schieben
Next Lauf                                                   'Chip deselektieren
Chipena = 0
End Sub



Sub Showadc(byval Anz_mod As Byte)
Local Adc_h As Word
Local Adc_val As Word                                       '10 bit
Adcsr.adfr = 1                                              'free running
Adcsr.adsc = 1                                              'starten
Cursor Noblink
Cursor Off
Do
Adc_val = Adcl
Adc_h = Adch
Shift Adc_h , Left , 8
Adc_val = Adc_val Or Adc_h

Locate 1 , 10
Select Case Anz_mod
Case 0 : Zahlstr = Str(adc_val)                             'Abstimmspannung (V)
Zahlstr = Format(zahlstr , " 0.00")
Lcd Zahlstr ; " V"
Case 1 : Zahlstr = Str(adc_val)                             'Antennenspannung (mV)
Zahlstr = Format(zahlstr , " 0")
Lcd Zahlstr ; " "
End Select

Waitms 100
Loop Until Setbutton = 0
Adcsr.adsc = 0
Adcsr.adfr = 0                                              'free running aus
Locate 1 , 10
Waitms 500
End Sub



Drehimpuls1 Alias Pind.2
Drehimpuls2 Alias Pinb.0
Onint0:
If Drehimpuls1 = 1 Then                                     'steigende Flanke
If Drehimpuls2 = 1 Then
Decr Drehgeber
Else
Incr Drehgeber
End If
Else                                                        'fallende Flanke
If Drehimpuls2 = 0 Then
Decr Drehgeber
Else
Incr Drehgeber
End If
End If
Return

Onint1:                                                     'nur zum Aufwachen!
Return

---

作者: zzzd    时间: 2013-7-4 15:10
To Ic -pll
这个函数起名有问题，TO是专用字不能用- 号也有问题，应该是小划线，将函数名改为改名成ICPLL程序就可以通过了。

---

作者: 箫天    时间: 2013-7-4 16:47

zzzd 发表于 2013-7-4 15:10
To Ic -pll
这个函数起名有问题，TO是专用字不能用- 号也有问题，应该是小划线，将函数名改为改名成ICPLL程 ...

对的。
我楼上的程序改他改过了。

---

作者: tanjianchao    时间: 2013-7-4 18:19
原来是这样，非常感谢楼上的两位！另外编译后仿真时发现按键操作和显示有不对的地方，不知是何原因，打个电路试试看再说。

---

作者: tanjianchao    时间: 2013-7-17 12:52
经过实际的电路测试，发现LCD没有显示，奇怪了，麻烦版主看看是什么原因吧，我快崩溃了。

---

欢迎光临 圣龙扬特-AVR电子 (http://avr.cnta.net/)

Powered by Discuz! X2.5