Dankeschön
hab es schon in mein program implementiert , danach hab ich gesucht ,
die spitzen sind endlich weg , das einzige was mir fehlt ist das die leds langsamer abfallen , bzw ruhiger werden , ich werde heute ein video machen von dem ding und es hier reinstellen hoffentlich muss ich mich nicht schämen . ihr alle waren eine riesen hilfe
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portc = Output
Config Portd = Output
Dim I As Byte
Dim A As Word
Dim Led_pos As Word
Dim Bereich As Word
Dim Bar_muster As Word
Dim Mic As Word
Dim Poti As Word
Dim Maximal As Word
Const Schritt = 16

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc







Do


     Bar_muster = Lookup(led_pos , Bar_form)






  Portc.1 = Bar_muster.15
  Portc.0 = Bar_muster.14
  Portc.3 = Bar_muster.13
  Portc.2 = Bar_muster.12
  Portc.5 = Bar_muster.11
  Portc.4 = Bar_muster.10
  Portc.7 = Bar_muster.9
  Portc.6 = Bar_muster.8
  Portd.1 = Bar_muster.7
  Portd.0 = Bar_muster.6
  Portd.3 = Bar_muster.5
  Portd.2 = Bar_muster.4
  Portd.5 = Bar_muster.3
  Portd.4 = Bar_muster.2
  Portd.7 = Bar_muster.1
  Portd.6 = Bar_muster.0






Poti = Getadc(1)
  A = 0
For I = 1 To 10
   A = A + Getadc(0)
   Waitms 5
Next I
A = A / 15




If Poti > 620 Then
Poti = 620
Else
Poti = Getadc(1)
End If
Maximal = Poti + 204

Mic = A - 140
Bereich = Maximal / Schritt
Led_pos = Mic / Bereich



Loop

Return


Bar_form:
Data &B1111111111111111%
Data &B1111111111111110%
Data &B1111111111111100%
Data &B1111111111111000%
Data &B1111111111110000%
Data &B1111111111100000%
Data &B1111111111000000%
Data &B1111111110000000%
Data &B1111111100000000%
Data &B1111111000000000%
Data &B1111110000000000%
Data &B1111100000000000%
Data &B1111000000000000%
Data &B1110000000000000%
Data &B1100000000000000%
Data &B1000000000000000%
Data &B0000000000000000%