Wie im code ein ( LED TEST ) BEIM ANSCHALTEN Programieren ----- Andere ERLEDIG

Thorsten Sch. · 29. September 2012

Hallo forum und WALTER99 & PESI hab es jetzt eingefügt frage mich nur warum in deine antwort PESI das hier drin stehen hast....

Code

if d = 0 then
    Portx.y = 0   ' LCD aus, nicht weiter zählen
else
   waitms1   ' kurz warten
   dec d   ' d runter zählen
end if

warum "dec d" da sagt bascom Fehler... mache ich das auf "d=d +0" dann sagt er nichts.

wo ist da denn nu der fehler drin?!?

Hier noch mal der CODE mit den zeilen die ich von PESI eingefügt hab.

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat & KatzenPension
'Eingänge: 4 x Eingänge CNY17-1 Optokopler
'Ausgänge: 4 x Ausgänge Realis (8-230V/10A)
'
'DIES IST EIN TEST TOOL DER AUSGÄNGE/EINGÄNGE "ATtiny2313"
'DER ORGINALL IC = "ATMEGA8"
'
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


Ddrb = &B11110000                                       	' Ports auf Ausgang setzen
Ddrd = &B00011111


Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , _
Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Initlcd
Cursor On
Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "KATZENPENSION"


Config Pinb.0 = Input                                   	'IN1
Portb.0 = 0
Config Pinb.1 = Input                                   	'IN2
Portb.1 = 0
Config Pinb.2 = Input                                   	'IN3
Portb.2 = 0
Config Pinb.3 = Input                                   	'IN4
Portb.3 = 0
Config Portb.4 = Output                                 	'REALIS 1
Config Portb.5 = Output                                 	'REALIS 2
Config Portb.6 = Output                                 	'REALIS 3
Config Portb.7 = Output                                 	'REALIS 4
Config Portd.6 = Output                                 	' Hintergrund


Declare Sub Ein1
Declare Sub Ein2
Declare Sub Ein3
Declare Sub Ein4
Dim D As Word


Do


If D = 0 Then
Portd.6 = 0
Waitms 1
D = D + 1
End If
If Pinb.0 = 1 Then Gosub Ein1
If Pinb.1 = 1 Then Gosub Ein2
If Pinb.2 = 1 Then Gosub Ein3
If Pinb.3 = 1 Then Gosub Ein4


Loop


Sub Ein1
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN1"
Portd.6 = 1
D = 100
Waitms 10
Portb = &B00010000
Waitms 500




Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "RUHE"
End Sub Ein1


Sub Ein2


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN2"
Waitms 10


Portb = &B00100000
Waitms 400


Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"


End Sub Ein2




Sub Ein3


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN3"
Waitms 10


Portb = &B01000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein3
Return


Sub Ein4
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN4"
Waitms 10


Portb = &B10000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein4


End


Return]

Alles anzeigen

ach ja wie mache ich das beim anschalten der anlage das die ausgänge getestet werden in der sub oder do loop schleife....????

Mit freundlichen grüßen
Thorsten Schröder

Pesi · 29. September 2012

Zitat von Thorsten Sch.

warum "dec d" da sagt bascom Fehler...

ja, das ist halt so'n seltsames Zeug.. ich habe schon "inc" (increment, raufzählen) in nem Bascom-Code gesehen, dachte mir daher, dass "dec" (decrement, runterzählen) auch funktionieren sollte... (oder war es tatsächlich "decrement d", kannst ja mal ausprobieren...)

Zitat von Thorsten Sch.

mache ich das auf "d=d +0" dann sagt er nichts.

ja, dann macht er aber auch nix... - einfach mal bisschen selbst überlegen, was passiert, wenn Du zu d Null dazu addierst...? - und was musst Du schreiben, damit's eins weniger wird...?

und auch einfach mal vergleichen, was Du da nun eingefügt hast:

Code

If D = 0 Then
Portd.6 = 0
Waitms 1
D = D + 1
End If

ist ja was komplett anderes als das, was ich geschrieben habe... einfach mal überlegen was der µc da macht, nicht nur (auch noch falsches) Copy&Paste, das bringt Dir nix, nur irgendnen Code zamzuklauben, von dem Du absolut keine Ahnung hast, was der überhaupt bewirkt...

Thorsten Sch. · 29. September 2012

so PESI hab den code eingefügt das wahr bei

Code

If D = 0 Then
Portd.6 = 0
Waitms 1
D = D + 1
End If

das wahr hinter den + die ( 0 ) da muste ne ( 1 ) hin okay, das näste ist nu an geht das geht nach echt lange zeit erst wieder aus warum???

hier nochmal der code den ich darauf gändert habe....

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat & KatzenPension
'Eingänge: 4 x Eingänge CNY17-1 Optokopler
'Ausgänge: 4 x Ausgänge Realis (8-230V/10A)
'
'DIES IST EIN TEST TOOL DER AUSGÄNGE/EINGÄNGE "ATtiny2313"
'DER ORGINALL IC = "ATMEGA8"
'
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


Ddrb = &B11110000                                       	' Ports auf Ausgang setzen
Ddrd = &B00111111


Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , _
Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Initlcd
Cursor On
Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "KATZENPENSION"


Config Pinb.0 = Input                                   	'IN1
Portb.0 = 0
Config Pinb.1 = Input                                   	'IN2
Portb.1 = 0
Config Pinb.2 = Input                                   	'IN3
Portb.2 = 0
Config Pinb.3 = Input                                   	'IN4
Portb.3 = 0
Config Portb.4 = Output                                 	'REALIS 1
Config Portb.5 = Output                                 	'REALIS 2
Config Portb.6 = Output                                 	'REALIS 3
Config Portb.7 = Output                                 	'REALIS 4
Config Portd.6 = Output                                 	' Hintergrund


Declare Sub Ein1
Declare Sub Ein2
Declare Sub Ein3
Declare Sub Ein4
Dim D As Word


Do


If D = 0 Then
Portd.6 = 0
Waitms 1
D = D + 1
End If
If Pinb.0 = 1 Then Gosub Ein1
If Pinb.1 = 1 Then Gosub Ein2
If Pinb.2 = 1 Then Gosub Ein3
If Pinb.3 = 1 Then Gosub Ein4


Loop


Sub Ein1
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN1"
Portd.6 = 1
D = 7
Waitms 10
Portb = &B00010000
Waitms 500




Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "RUHE"
End Sub Ein1


Sub Ein2


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN2"
Waitms 10
Portd.6 = 1
D = 7
Portb = &B00100000
Waitms 400


Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"


End Sub Ein2




Sub Ein3


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN3"
Waitms 10


Portb = &B01000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein3
Return


Sub Ein4
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN4"
Waitms 10


Portb = &B10000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein4


End
Return

Alles anzeigen

so jetzt eine antwort darauf bitte.
und mein 2 anliegen wahr wie ich die ausgänge und eingänge testen kann beim anschalten?

Mit Freundlichen Grüßen
Thorsten Sch.

noli · 29. September 2012

Hi. Du schreibst: IF D=0 rechnest aber D=D+1. Wie willst Du da auf 0 kommen? und das ELSE fehlt auch.

Thorsten Sch. · 29. September 2012

Hallo forum und bastler

OKAY noli und wie sieht es dann im code aus? und es währe seher nett wenn irgend mir helfen könnte, und nein ich KOPIRE NICHTS in mein code hinnein ok....

wie gesagt währe nett wenn jemand tipps und rat geben kann danke

Freundliche grüße
Thorsten Sch.

noli · 29. September 2012

Ich kenne mich mit Bascom nicht so aus aber versuch doch mal das was Pesi geschrieben hat. Nur für "dec d" mal D=D-1.

Dimebag · 29. September 2012

...kannst es alternativ aber auch mal mit "decr d" versuchen...

Thorsten Sch. · 30. September 2012

Hi Forum und Bastler

So an alle die mir geholfen haben.......

Ich habe es jetzt hinbekommen ich danke an den letzten besucher hier.
habe mal den code hier noch mal reingestellt wie er jetzt läuft.....

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat & KatzenPension
'Eingänge: 4 x Eingänge CNY17-1 Optokopler
'Ausgänge: 4 x Ausgänge Realis (8-230V/10A)
'
'DIES IST EIN TEST TOOL DER AUSGÄNGE/EINGÄNGE "ATtiny2313"
'DER ORGINALL IC = "ATMEGA8"
'
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


Ddrb = &B11110000                                       	' Ports auf Ausgang setzen
Ddrd = &B00111111


Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , _
Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Initlcd
Cursor On
Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "KATZENPENSION"


Config Pinb.0 = Input                                   	'IN1
Portb.0 = 0
Config Pinb.1 = Input                                   	'IN2
Portb.1 = 0
Config Pinb.2 = Input                                   	'IN3
Portb.2 = 0
Config Pinb.3 = Input                                   	'IN4
Portb.3 = 0
Config Portb.4 = Output                                 	'REALIS 1
Config Portb.5 = Output                                 	'REALIS 2
Config Portb.6 = Output                                 	'REALIS 3
Config Portb.7 = Output                                 	'REALIS 4
Config Portd.6 = Output                                 	'LCD - Hintergrund


Declare Sub Ein1
Declare Sub Ein2
Declare Sub Ein3
Declare Sub Ein4
Dim I As Word


Do


If I = 0 Then
Portd.6 = 0
Else
Waitms 1
Decr I
End If
If Pinb.0 = 1 Then Gosub Ein1
If Pinb.1 = 1 Then Gosub Ein2
If Pinb.2 = 1 Then Gosub Ein3
If Pinb.3 = 1 Then Gosub Ein4


Loop




Sub Ein1
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN1"
Portd.6 = 1
I = 7500
Waitms 10
Portb = &B00010000
Waitms 500




Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "RUHE"
End Sub Ein1


Sub Ein2


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN2"
Waitms 10
Portd.6 = 1
I = 7
Portb = &B00100000
Waitms 400


Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"


End Sub Ein2




Sub Ein3


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN3"
Waitms 10


Portb = &B01000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein3
Return


Sub Ein4
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN4"
Waitms 10


Portb = &B10000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein4


End
Return

Alles anzeigen

vielen lieben dank nochmal......

würde gern immer noch wissen oder tipps bekommen wie man beim anschalten der sromzufuhr die ein/ausgänge im LCD und im CODE
TESTET??????

Bitte dafür nochmal um RAT oder Tipps Danke.....

Mit Freundlichen Grüßen Thorsten Sch.

Thorsten Sch. · 2. Oktober 2012

Hallo Forum und Bastler

wie bekomme ich das hin wenn ich spannung anlege das die ausgänge einmal durchgeschaltet werden und im LCD angezeicht werden?????

Hier mal mein code:

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat & KatzenPension
'Eingänge: 4 x Eingänge CNY17-1 Optokopler
'Ausgänge: 4 x Ausgänge Realis (8-230V/10A)
'
'DIES IST EIN TEST TOOL DER AUSGÄNGE/EINGÄNGE "ATtiny2313"
'DER ORGINALL IC = "ATMEGA8"
'
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


Ddrb = &B11110000                                       	' Ports auf Ausgang setzen
Ddrd = &B00111111


Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , _
Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Initlcd
Cursor On
Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "KATZENPENSION"


Config Pinb.0 = Input                                   	'IN1
Portb.0 = 0
Config Pinb.1 = Input                                   	'IN2
Portb.1 = 0
Config Pinb.2 = Input                                   	'IN3
Portb.2 = 0
Config Pinb.3 = Input                                   	'IN4
Portb.3 = 0
Config Portb.4 = Output                                 	'REALIS 1
Config Portb.5 = Output                                 	'REALIS 2
Config Portb.6 = Output                                 	'REALIS 3
Config Portb.7 = Output                                 	'REALIS 4
Config Portd.6 = Output                                 	'LCD - Hintergrund


Declare Sub Ein1
Declare Sub Ein2
Declare Sub Ein3
Declare Sub Ein4
Dim I As Word


Do


If I = 0 Then
Portd.6 = 0
Waitms 1
Else
Decr I
End If
If Pinb.0 = 1 Then Gosub Ein1
If Pinb.1 = 1 Then Gosub Ein2
If Pinb.2 = 1 Then Gosub Ein3
If Pinb.3 = 1 Then Gosub Ein4


Loop




Sub Ein1
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN1"
Portd.6 = 1
I = 7500
Portb = &B00010000
Waitms 500


Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "RUHE"
End Sub Ein1


Sub Ein2


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN2"
Waitms 10
Portd.6 = 1
I = 7500
Portb = &B00100000
Waitms 400


Portb = &B00000000
Waitms 400


Cls
Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"


End Sub Ein2




Sub Ein3


Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN3"
Waitms 10
Portd.6 = 1
I = 7500
Portb = &B01000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein3
Return


Sub Ein4
Cls
Locate 1 , 1
Lcd "Klingel"
Locate 2 , 1
Lcd "EIN4"
Waitms 10
Portd.6 = 1
I = 7500
Portb = &B10000000
Waitms 400


Portb = &B00000000
Waitms 400


Locate 1 , 1
Lcd "klingel"
Locate 2 , 1
Lcd "Ruhe"
End Sub Ein4


End
Return

Alles anzeigen

Würde mich Freuen UM Rat und TIPPS

Mit Freundlichen Grüßen
Thorsten Sch.

Kanwas · 2. Oktober 2012

Dein Test soll einmalig beim anschalten ablaufen. Also muss der Programmteil für den Test vor der Hauptschleife des Programms eingebaut werden.
Als Programm dann halt den passenden Pin schalten und dazu im LCD anzeigen welcher Pin gerade geschaltet wurde. Eine Überwachung der Funktion ist wahrscheinlich in der Schaltung eh nicht gegeben.

Teilen