Hi, also erstmal danke für deine antwort. also ich hab erstmal dieses Code u.a. auf den Controller übertragen, danach habe ich Fusebits bei dem Controller umgestellt damit man Pegeln von manchen pins mit hilfe von terminalprogramm auslesen konnte. Und danach wenn man das alles richtig gemacht wurde, müssen pegels von den pins im terminal programm erscheinen. aber das fenster von terminalprogramm ist bei mir leer, also ich kann keine werte von pins auf dem bildschirm sehen.
alles mache ich übrigens mit bascom.
Das Code welches ich auf den controller übertrage
Code:
'###################################################
'rn_minicontrol_porttest.bas
'Dieses Programm ist für das universelle und kompakte
'Controllerboard RN-MINICONTROL ab Version 1.3
'Boardbeschreibung Roboternetz.de oder robotikhardware.de
'Verwendeter Compiler Bascom V 1.11.7.9
'
'Aufgabe:
'
'Die Ausgabe erfolgt über Bascom Terminalprogramm. PC muss
'somit über RS232 Kabel verbunden sein
'Es wird der Zustand aller Ports angezeigt
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de bzw. robotikhardware.de
'###################################################
'Die üblichen Definitionen bei Standardprogrammen auf Miniboard
$regfile = "m168def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32
Declare Sub Showadport()
Declare Sub Showdigitalports()
Wait 1
Print "Warte ich boote ..."
Wait 2
Print
Print "**** RN-MINICONTROL 1.3 *****"
Print "Das neue kleine Controllerboard"
Print "RN-MiniControl, der kleine Bruder von RN-Control"
Print "Nach RN-Definition vom www.roboternetz.de"
Print
Do
Showdigitalports
Showadport
Print
Print "Viel Spass mit dem Board!"
Wait 10
Print
Loop
End
'Zeigt Die Analogen Messwerte An Port A An
Sub Showadport()
Local Ws As Word
Local I As Integer
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Internal
Config Portc = Input
For I = 0 To 5 ' Alle internen Pullup Widerständ abschalten
Portc.i = 0
Next I
Print
Print "Ermittelte Messwerte an Port C:"
For I = 0 To 5 ' Alle Eingäne inkl.messen
Start Adc
Ws = Getadc(i)
Print "Pin" ; I ; " ADC-Wert= " ; Ws
Next I
End Sub
'Zeigt den Zustand der Ports an
Sub Showdigitalports()
Local Zustand As String * 6
Local I As Integer
Config Portb = Input
For I = 0 To 5 ' Alle internen Pullup Widerständ ein
Portb.i = 1
Next I
Print
Print "Ermittelter I/O Zustand Port B:"
For I = 0 To 5 ' Alle Eingäne inkl.messen
If Pinb.i = 1 Then
Zustand = "H"
Else
Zustand = "L"
End If
Print "Pin" ; I ; "=" ; Pinb.i ; "(" ; Zustand ; ") ";
Next I
Print
Config Portc = Input
For I = 0 To 5 ' Alle internen Pullup Widerständ ein
Portc.i = 1
Next I
Print
Print "Ermittelter I/O Zustand Port C:"
For I = 0 To 5 ' Alle Eingäne inkl.messen
If Pinc.i = 1 Then
Zustand = "H"
Else
Zustand = "L"
End If
Print "Pin" ; I ; "=" ; Pinc.i ; "(" ; Zustand ; ") ";
Next I
Print
Config Portd = Input
For I = 0 To 7 ' Alle internen Pullup Widerständ ein
Portd.i = 1
Next I
Print
Print "Ermittelter I/O Zustand Port D:"
For I = 0 To 5 ' Alle Eingäne inkl.messen
If Pind.i = 1 Then
Zustand = "H"
Else
Zustand = "L"
End If
Print "Pin" ; I ; "=" ; Pind.i ; "(" ; Zustand ; ") ";
Next I
Print
End Sub]
Zitieren
Berechtigungen
Lesezeichen