Bascomfehler mit RN-Control und wtv020
Hallo,
ich habe meinen wtv020 an meinen RN-Control angeschlossen.
Beim Programmieren mit Bascom treffe ich auf folgenden Fehler: "Error programming fuses: Fuse Extended error"
Code:
'##############################################################
'wtv020_ansteuerung.bas
'
'Ein Testprogramm für die Universalplatine RN-AVR UNIVERSAL
'
'Das Programm zeigt wie man das Sprachausgabemodul wtv020 ansteuert
'und beliebige Sound Dateien abspielen kann
'
'Bezug: www.robotikhardware.de
'Weitere Beispiele auf DVD oder im www.Roboternetz.de und rn-wissen.de
'######################################################################
'Portbelegung bzw. Modulverbindunga
'DATA PB1
'BUSY PB2
'CLK PB3
'RESET RESET
'GND GND
'3V 3V
Declare Sub Speakout(byval Song_nr As Word)
Declare Sub Warteaudio()
'MCS USB (Zeile weglassen wenn anderer Programmer)
$prog &HFF , &HFF , &HD9 , &HFE 'Fusebits richtig programmieren (Quarz ein,Jtag aus)
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000 'QuarzFrequenzuenz
$baud = 9600
Baud = 9600
' ************ Hilfsfunktionen zur Kommunikation mit Spachausgabemodul wtv020 (c) Robotikhardware.de **************
' (nähere Infos im Datenblatt des Sprachausgabemoduls auf der www.Robotikhardeware.de DVD)
Dout Alias Portb.1
Clk Alias Portb.3
Config Dout = Output
Config Clk = Output
Config Pinb.2 = Input
Busy Alias Pinb.2
Dout = 0
Clk = 1
Wait 3
' ************ ************** ************ ************** ************ ************** ************ ***********
Config Pind.6 = Output 'LED
Led1 Alias Portd.6
Led1 = 0 'ein
Do
Call Speakout(450)
Warteaudio
Call Speakout(451)
Warteaudio
Call Speakout(1)
Warteaudio
Call Speakout(2)
Warteaudio
Call Speakout(3)
Warteaudio
wait 15
Loop
' ************ Hilfsfunktionen zur Kommunikation mit Spachausgabemodul Somo14 (c) Robotikhardware.de **************
' (nähere Infos im Datenblatt des Sprachausgabemoduls auf der www.Robotikhardeware.de DVD)
'Spielt die Datei mit der Songnummer als Dateiname
Sub Speakout(byval Song_nr As Word)
' Waitms 2 'Startimpulse
Clk = 0
Waitms 2
Shiftout Dout , Clk , Song_nr , 1 , 16 , 200 'Liednummer übertragen
Waitms 30
Clk = 1
Waitms 10
End Sub
'Wartet bis Audio Datei abgespielt wurde
Sub Warteaudio()
Do
Loop until Busy = 0
Waitms 10
End Sub
Das ist der Code, der in der Dokumentation für den wtv020 steht. Da der Code für den RN-Universal gedacht war, habe ich oben die Konfigurationen so geändert wie sie laut der RN-Wiki für den RN-Control eingestellt werden sollten.
Bitte um Hilfe.
Gruß
