Code: |
Clk Alias Portd.4
Dat Alias Portd.5 Ena Alias Portd.2 Config Clk = Output Config Dat = Output Config Ena = Output Dim I As Byte Dim Char As String * 1 Dim Fis(18) As Byte Dim Text As String * 16 Text = "12345678ABCDEFGH" Fis(1) = 15 For I = 1 To 16 Char = Mid(text , I , 1) Fis(i + 1) = Asc(char) Fis(i + 1) = 255 - Fis(i + 1) Next I Do Waitus 100 Ena = 1 Waitus 100 Ena = 0 Waitus 100 Ena = 1 Waitus 70 Fis(18) = 0 For I = 1 To 18 Shiftout Dat , Clk , Fis(i) , 0 , 8 , 50 Fis(18) = Fis(18) - Fis(i) Fis(18) = Fis(18) - 1 Next I Ena = 0 Clk = 1 Dat = 1 Loop |
Christoph1 hat folgendes geschrieben: |
Danke für den Bascom Code...
Teilenummer vom Tacho hab ich leider net. Hab die Kontakte am Mini-Iso Stecker vorm Radio abgegriffen. Bilder mach ich heut oder morgen mal noch welche. Hier mal meine Daten vom Auto: Audi A3 8L 1,8 Turbo Baujahr 10/2000 (Facelift) großes FIS Audi Concert 1 |
DrNeo hat folgendes geschrieben: |
Hi Also ich habe auch einen Audi A3 8L 1,8 Turbo Baujahr 09/2000 (Facelift) Mit nem Naviplus sag mal was hat dich jetzt das projekt gekostet ?? |