-
-
Erfahrener Benutzer
Roboter Genie
hi
kann man das programm so für einen helligkeits sensor bentutzen??
wenn nicht könntet ihr mir ein beispiel geben???
hier das programm
$regfile = "m8def.dat" ' CPU = ATtiny26L (externe Reset-Beschaltung)
$crystal = 1000000 ' Takt = interner RC mit 1 MHz
Config Adc = Free , Prescaler = Auto , Reference = Internal ' AD Einstellungen = Rev.-Spg. ist Intern (2,56 V)
Config Portc = &B11111111 ' Port C = Portc ist komplett Input
Config Portb = &B00000011 ' Port B = PB0 und PB1 sind Output
Dim A As Word
Dim I As Integer
Dim N As Integer
Dim Ton As Integer
Start Adc ' AD aktiviert
Do
A = Getadc(0)
If A = 25 Then
Sound Portb.0 , 400 , 450
Sound Portb.0 , 400 , 250
Sound Portb.0 , 400 , 450
Loop
end if
End
gruß
patrick
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen