Hallo,
zum Dritten mal Der Tastatur sei es Gedankt,und das es keinen Platz gibt um die zu Platzieren!!!
Habe nun Zweimal Messen, und weitere segmente eingefügt, ich hoffe das das gut so wäre?
Und am Drachen, ja Gehäuse schaut selbst mühsamm verpackt mit Gummifüsen und Interner Verkabelung Sockel und Steckleisten auf Kabel mit Lochraster, alles so aufgebaut das man es wieder auseinander stecken kann, um was zu Reparieren, vorallem kommt nix mehr mit dem Feuerspender in berührung!
Nun der Code:
__________________________________________
$regfile = "Tiny85.def.dat"
$crystal = 800000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
START ADC
Dim Ergebnis As Word
Ergebnis = Getadc(0)
Config Portb.1 = Output
Config Portb.2 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
Portb.1 = 0
Portb.2 = 0
Pinb.3 = 0
Pinb.5 = 0
Schalter1 = Pinb.3
Schalter2 = Pinb.4
Relais = Portb.1
Lampe = Portb.2
On Timer0 Timer0serv
Config Timer0 = Timer , Prescale = 64
Enable Timer0
Enable Interrupts
Dim Schutz As Word
Schutz = 470
Timer0 = Schutz
On Timer1 Timer1serv
Config Timer1 = Timer , Prescale = 64
Enable Timer1
Enable Interrupts
Dim Zeit1 As Word
Dim Zeit2 As Word
Timer1 = Zeit1 Or Zeit2
Blinken:
Do
Portb.2 = High
Waitms 500
Portb.2 = Low
Waitms 500
Loop
Warten:
Do
While Schalter1 = 1 , Schalter2 = 0
Goto Messen1
Loop
Warten2:
Do
While Schalter1 = 1 , Schalter2 = 1
Goto Warten3
Wend
Loop
Warten3:
Do
While Schalter1 = 1 , Schalter2 = 0
Goto Messen2
Wend
Loop
Messen1:
On Ergebniss Goto Messung Zeit1
End If
Messen2:
On Ergebniss Goto Messung Zeit2
End If
Vorne:
Reset Timer0
Reset Portb.1
Reset Portb.2
Goto Warten
End If
Mitte1:
Reset Relais = 0
Reset Lampe = 0
Waitms 1000
Goto Warten2
End If
Mitte2:
Reset Relais = 0
Reset Lampe = 0
Goto Warten
Messung1:
If Ergebnis >= 37.01 And <= 203.36 Then Zeit1 = 8
If Ergebnis >= 203.37 And <= 304.43 Then Zeit1 = 20
If Ergebnis >= 304.44 And <= 368.96 Then Zeit1 = 25
If Ergebnis >= 368.97 And <= 397.08 Then Zeit1 = 30
If Ergebnis >= 397.09 And <= 410.25 Then Zeit1 = 35
If Ergebnis >= 410.26 And <= 435.00 Then Zeit1 = 40
If Ergebnis >= 435.01 And <= 468.59 Then Zeit1 = 50
If Ergebnis >= 468.60 And <= 478.95 Then Zeit1 = 55
If Ergebnis >= 478.96 And <= 488.94 Then Zeit1 = 60
If Ergebnis >= 488.95 And <= 498.56 Then Zeit1 = 70
If Ergebnis >= 498.57 And <= 516.81 Then Zeit1 = 70
If Ergebnis >= 516.81 And <= 533.82 Then Zeit1 = 80
If Ergebnis >= 533.82 And <= 541.91 Then Zeit1 = 90
If Ergebnis >= 541.91 And <= 549.75 Then Zeit1 = 100
If Ergebnis >= 549.75 And <= 557.31 Then Zeit1 = 110
If Ergebnis >= 557.31 And <= 564.65 Then Zeit1 = 120
If Ergebnis >= 564.65 And <= 580.00 Then Zeit1 = 140
Goto Steuerung2
End If
Messung2:
If Ergebnis >= 37.01 And <= 203.36 Then Zeit2 = 10
If Ergebnis >= 203.37 And <= 304.43 Then Zeit2 = 20
If Ergebnis >= 304.44 And <= 368.96 Then Zeit2 = 30
If Ergebnis >= 368.97 And <= 397.08 Then Zeit2 = 40
If Ergebnis >= 397.09 And <= 410.25 Then Zeit2 = 50
If Ergebnis >= 410.26 And <= 435.00 Then Zeit2 = 70
If Ergebnis >= 435.01 And <= 468.59 Then Zeit2 = 90
If Ergebnis >= 468.60 And <= 478.95 Then Zeit2 = 100
If Ergebnis >= 478.96 And <= 488.94 Then Zeit2 = 100
If Ergebnis >= 488.95 And <= 498.56 Then Zeit2 = 120
If Ergebnis >= 498.57 And <= 516.81 Then Zeit2 = 180
If Ergebnis >= 516.81 And <= 533.82 Then Zeit2 = 200
If Ergebnis >= 533.82 And <= 541.91 Then Zeit2 = 220
If Ergebnis >= 541.91 And <= 549.75 Then Zeit2 = 240
If Ergebnis >= 549.75 And <= 557.31 Then Zeit2 = 260
If Ergebnis >= 557.31 And <= 564.65 Then Zeit2 = 280
If Ergebnis >= 564.65 And <= 580.00 Then Zeit2 = 300
Goto Steuerung3
End if
http://www.directupload.net/file/d/4195/qfnf6qh7_jpg.htm
Steuerung1:
Timer0 = Schutz
While
Timer0 = 0 Then Goto Vorne
End If
Steuerung2:
Reset Timer1
Set Timer1 = Zeit1
Set Lampe = 1
While Timer1 = 0 Then Goto Mitte1
End If
Steuerung3:
Reset Timer1
Set Timer1 = Zeit2
Lampe = Blinken
While Timer1 = 0 Goto Mitte2
End If
_______________________________
Bilder vom Drachen, von der Platine zum Bascom Buch und meine Wlan 1,75 TB Festplatte mit RJ45 (100 mBit) Conector, mit Universeller Ladespannung, alles Zwischen 3 Volt und 16 kann verwendet werden, Polung egal, auch Wechselstrom geht, Akku mit 80 AH 20 mal 4 AH Akku alles Identisch verkabelt, weich gelagert da Lipo und mit 4 Ladecontrollern die Led's im Deckel haben, es muss noch die USB 3 Buchse rein, und ein Handylader, da der Akku so schön groß ist, und die Tragegurte müssen noch mit Kletverschluss vernäht werden, eine für Drei Wlanfrequenzen genau ausgerechnette Antenne mit VK berücksichtigt ist in den Deckel eingelassen weswegen ich die Buchse dafür entfernt habe da die Leistung besser ist als bei gekauften Antennen.
Stand gerade auch auf dem Tisch da gerade einer der letzten Ölschichten aufgetragen wurden und die gerade noch an der Striomquelle hängt.
Bilderlinks, also nie mehr bei diesem Hoster!
http://www.directupload.net/file/d/4195/p5oxsjoa_jpg.htm
http://www.directupload.net/file/d/4195/qfnf6qh7_jpg.htm
http://www.directupload.net/file/d/4195/yfhod9pm_jpg.htm
http://www.directupload.net/file/d/4195/mp3n8sa8_jpg.htm
http://www.directupload.net/file/d/4195/sccs9hcz_jpg.htm
http://www.directupload.net/file/d/4195/k83twupo_jpg.htm
http://www.directupload.net/file/d/4195/nh4cd7sg_jpg.htm
http://www.directupload.net/file/d/4195/dbtwzwov_jpg.htm
http://www.directupload.net/file/d/4195/yet39weh_jpg.htm
http://www.directupload.net/file/d/4195/bwn2rzm8_jpg.htm
LG
Michael