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ß