-         

Ergebnis 1 bis 3 von 3

Thema: Meine Eingangs-Ports gehen nicht mehr beim Mega 8 ?

  1. #1
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    29.10.2004
    Ort
    GRAZ
    Alter
    51
    Beiträge
    576

    Meine Eingangs-Ports gehen nicht mehr beim Mega 8 ?

    Anzeige

    Hallo Leute

    Bin am verzweifeln

    Hatte mir vor ein paar Monaten das Bascom gekauft und jetzt ist alles neu.
    Version V 1.11.7.9

    Jetzt wollte ich mal wieder was schreiben, aber es gehen die Ports beim Mega8 einfach nicht als Eingänge.

    Programm ist das :
    Code:
    $regfile = "m8def.dat"
    $crystal = 8000000
    
    
    '---Config Port's--------------------
    Config Portd = Input
    Portd = 255
    
    Config Portb = Output
    Portb = 0
    
    Config Portc = Input
    
    
    '---Sonstiges------------------------
    Dim A As Word
    
    
    
    
    
    '========================================================================
    '========= Hauptprogramm ================================================
    '========================================================================
    
    Do
    
    
     'Portb = &B00001100
    If Portd.0 = 1 Then Portb = &B00001100
    
    
    
    Loop
    
    
    End
    Müsste doch eigentlch passen ?! (oder stehe ich im Wald?)

    Die Ausgänge funktionieren... (Port B)
    Sonst gibt es auch keine Fehler... kann nur keine Ports einlesen und auswerten ?! (Port C)

    Hat noch jemand dieses Problem..?
    Liegt es an der neuen Version...

    l.G. Roberto

  2. #2
    Gast
    Hallo

    Eingänge werden doch mit PIN eingelsen

    If Pind.0 = 1 Then Portb = &B00001100


    MFG
    Dieter

  3. #3
    Gast
    Hallo Dieter

    Danke, danke...!

    Ich stand da wohl voll am Schlauch .
    Genau, mit Pin

    Jetzt gehts..

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •