siehe vorigen Beitrag
MFG
Bertl
siehe vorigen Beitrag
MFG
Bertl
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
Ich schätze mal, dass du einen LDR Widerstand benutzen willst.
Dann musst du nur die Spannung messen und mit einem Algorithmus berechnen.
MFG
Bertl
hi
genauso habe ich das vor haste vielleicht ein beispiel programm dafür weil meins klappt ja so nicht
Was soll das eigentlich mit dem Befehl SOUND???
Egal.
Code hab ich jetzt nicht parat.
Funktionieren tuts ungefähr so:
du misst die Spannung. Dann hast in der Variable A einen Wert von 0 bis 1024.
diesen Wert musst dann umrechnen in eine Spannung---> mit der Formel
Spannung = (5/1024)*A
Da sich der Widerstand des LDR, je nach Lichteinfall verändert, verändert sich auch die Spannung.
Dann musst nur noch aus dem Datenblatt des LDR die Standardwerte erroieren um weiterrechnen zu können.
MFG
Bertl
ahh ok das werde ich dann mal ausprobieren hoffe das es dann klappt der sound ist einfach nur da um das ausprobieren habe das mitlerweile aber schon eine led dran hängen.
gruß
patrick
hat jemand vielleicht ein quelle wo man das alles ganz genau nachlesen kann??
Hallo Patti!
Das was du da machst ist wirklich nicht gut, schreibst bitte anders, deien Schachtelungsstruktur stimmt nicht! Das gibt Probleme die nicht zu erklären sind
Richtig wäre:Code: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
Grüße WolfgangCode:Do A = Getadc(0) If A = 25 Then Sound Portb.0 , 400 , 450 Sound Portb.0 , 400 , 250 Sound Portb.0 , 400 , 450 End If Loop End
so jetzt hab eich es fast dank BlueNatur.
hier der Code:
nun eine frage noch der kennt jetzt dunkel und hell wenn es hell wird geht die lampe auch an, jedoch sollte das umgekehrt sein.Code:$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Adc = Single , Prescaler = Auto , Reference = Internal Config Portc = &B11111111 Config Portb = &B00000010 Dim A As Word Dim I As Integer Dim N As Integer Dim Ton As Integer Start Adc Do A = Getadc(0) If A < 128 Then Portb.1 = 0 Else Portb.1 = 1 End If Loop End
wie mache ich das jetzt habe an der Formel ob schon alles mögliche probiert, aber es klappt nicht. Könnte mir bitte noch jemand helfen??
wäre sehr nett wenn das heute noch ging.
gruß
patrick[/u][/code]
Lesezeichen