Hallo alle zusammen,
ich habe da so ein Problem, das ich seit Tagen nicht lösen kann. Ich habe diese Schatung gebaut
http://www.franksteinberg.de/e-tlc549.htm
und dazu dieses Programm geschrieben.
Code:
Module Module1
    Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
    Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Dim BA As Double
    Sub Main()
        Dim WDat As Integer
        Dim i As Integer
        Dim Volt As Double
        Do
            Out(890, 2)                     'CS an
            Sleep(10)
            Out(890, 0)                     'CS aus
            Sleep(10)
            WDat = 0
            Volt = 0
            For i = 7 To 0 Step -1
                If (Inp(889) And 8) Then
                    WDat = WDat + 2 ^ i
                End If
                Out(890, 4)                 'Clock an
                Sleep(10)
                Out(890, 0)                 'Clock aus
            Next
            Sleep(30)
            Volt = 5.26 / 256 * WDat
            MsgBox(Volt)
            WDat = 0
            Volt = 0
        Loop
    End Sub

End Module
Ich bin seit fast 4 Tagen da dran, aber ich bekomme das nicht hin, eine Spannung zu messen. Am Computer wird immer ein Wert von 5,3 Volt angezeit. Das ist nähmlich die Eingangsspannung. An der Platine kann es ja nihct liegen, das habe ich oft überpfrüft und es sind ja nur 2-3 Teile. Die Versorgungsspannung kommt extern von einem Computernetzteil. Meiner Meinung könnte es an dem Programm liegen, aber so genau habe ich das im Interenet gesehen. Zusätzlich habe ich ein Buch, wo die Programmierung ähnlich ist. (aber auf der seriellen Schnittstelle)
Habt ihr vielleicht keinen Fehler entdeckt ?

Gruss
Yusuf