Hilfe für Bascom

[Holzwurm56 (Gast)]

Hallo ,
ich will so eine Art Universalanzeige mit Schaltpunkten bauen , die 
Platine habe ich mit SprintLayout entworfen gefräst und bestückt . Der 
reine Analogteil (Anzeige eines Analogwertes und schalten von 2 Relais 
bei einer voreingestellten Schwelle funktioniert ) aber wenn ich den 
Programmteil um einen Wert einzugeben und dann im Eprom abzuspeichern 
aktivieren will klappt nichts mehr .

    '$sim                              Auskommentieren für das echte Programm
        $regfile = "m8def.dat"
        $crystal = 1000000
        $hwstack = 32
        $swstack = 32
        $framesize = 40


         'Taster1 Programmiermodus
         'Config Portc.1 = Input
         'Portc.1 = 1
         'Taster1 Alias Portc.1
         'Taster Relais 1
         'Config Pinc.2 = Input
         'Taster2 Alias Pinc.2
         'Pinc.2 = 1
         'Taster Relais 2
         'Config Pinc.3 = Input
         'Taster3 Alias Pinc.3
         'Pinc.3 = 1


            Dim X As Word
            Dim Unt As Byte
              'Dim Ee_unt As Eram Byte
            Dim Ob As Byte
              'Dim Ee_ob As Eram Byte
            Config Adc = Single , Prescaler = Auto , Reference = Internal
            Config Lcdpin = Pin , Rs = Portd.4 , E = Portd.5 , Db4 = Portd.0 , _
            Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3
            Config Portb.1 = Output
            Config Portb.2 = Output
            Config Lcd = 16 * 2
            Start Adc
            Unt = 60
            Ob = 80
             'Unt = Ee_unt
             'Ob = Ee_ob
            Cls


            Do

              Locate 1 , 1
              Lcd "  Sauerstoff  "
              Waitms 10
              X = Getadc(0)
              X = X / 10
              Locate 2 , 1
              Lcd "  " ; X ; "  "
              Locate 2 , 6
              Lcd "      "
              Locate 2 , 12
              Lcd "%   "
               If X > Unt Then
                Portb.2 = 1
                Else
                Portb.2 = 0
               End If
               If X > Ob Then
                Portb.1 = 1
                Else
                Portb.1 = 0
               End If
            Waitms 100

           '  While Taster1 = 0
           '  Locate 1 , 1
           '   Lcd "Schaltpkt1=" ; Ob ; "   "
           '   Locate 2 , 1
           '   Lcd "Schaltpkt2=" ; Unt ; "   "
           '   Waitms 10
          '       If Taster2 = 0 Then
          '       Unt = Unt + 1
          '       Waitms 10
          '       End If
          '       If Unt > 100 Then
          '       Unt = 1
          '       End If
          '       If Taster3 = 0 Then
          '       Ob = Ob + 1
          '       Waitms 10
          '       End If
          '       If Ob > 100 Then
          '       Ob = 1
          '       End If

           '   Wend

         '        If Taster2 = 0 Then
         '           Ee_unt = Unt
         '           Ee_ob = Ob
         '        End If

           Loop

          End                                               'end program

Vielen Dank für jede Antwort

Hans

[Dieter (Gast)]

Hallo

 'Taster1 Programmiermodus
         'Config Portc.1 = Input
         'Portc.1 = 1
         'Taster1 Alias Portc.1

Sollte doch ein Eingang sein

MFG
Dieter

[no comment (Gast)]

Dieter schrieb:
> Sollte doch ein Eingang sein

Macht er doch.


Holzwurm56 schrieb:
> 'Taster1 Alias Portc.1
>          'Taster Relais 1
>          'Config Pinc.2 = Input
>          'Taster2 Alias Pinc.2
>          'Pinc.2 = 1
>          'Taster Relais 2
>          'Config Pinc.3 = Input
>          'Taster3 Alias Pinc.3
>          'Pinc.3 = 1

Was soll aber Pinc.2 = 1 bzw Pinc.3 bewirken? Und wie sind die Taster 
angeschlossen?

[Dieter (Gast)]

Und was soll das dann

Taster1 Alias Portc.1

muss doch sein

Taster1 Alias Pinc.1

MFG
Dieter

[no comment (Gast)]

@Dieter: Stimmt! Hab das Alias nicht genauer angeschaut. Da besteht bei 
einer konsequenten von Alias bei Holzwurm56 auch noch 
Verbesserungspotential.