-
-
Erfahrener Benutzer
Roboter Genie
danke für eure antworten!!
@johns
leider kann ich deinem code überhauptnichts entnehmen, da ich c gar nicht verstehe *schaem*
trotzdem danke dür deine antwort
@PicNick
ich habe deinen code so einigermassen verstanden und habe jetzt noch die wichtigsten sachen angehängt:
$regfile = "m32def.dat"
$crystal = 16000000
Config Adc = Single , Prescaler = Auto
Config Portb = Output
Config Portc = Output
Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1
Portc.4 = 1
Portc.5 = 1
Portc.6 = 1
Portc.7 = 1
DIM einer AS BYTE
DIM komma AS BYTE
DIM zehntel AS BYTE
Dim Strg As String * 6 At Einer Overlay
Dim X As Word
Dim Volt As Single
Dim A As Integer
A = 5 * X
Volt = A / 1024
Strg = Str(volt)
Do
Start Adc
X = Getadc(0)
If Einer = 1 Then
Portc.0 = 0
Elseif Einer = 2 Then
Portc.0 = 1
Portc.1 = 0
Elseif Einer = 3 Then
Portc.1 = 1
Portc.2 = 0
End If
Loop
End
allerdings leuchtet keine led auf dem RN-Control dabei auf!!
was habe ich falsch gemacht/vergessen??
mfg
chris
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen