loetstelle.net
Lötstelle Userforum
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

codeproplem LCD Hintergrund bascom????

 
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Thorsten sch.



Anmeldungsdatum: 29.09.2012
Beiträge: 4

BeitragVerfasst am: Sa 29.Sep 2012 11:31:54    Titel: codeproplem LCD Hintergrund bascom???? Bauteile finden Antworten mit Zitat

Hallo Forum Und bastler

habe ein code proplem und was ich noch nicht beschäftig habe ist mit den TIMER?
mein proplem ist das ich das nicht so hinbekomme das beim schalten eines eingang das Hintergrund licht von LCD angeht und nach 10 sekunden wieder ausgeht könnt ihr mir helfen bitte um RAT o. TIPPS

Hier der 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 = &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 Timer1 = Timer , Prescale = 1024
Enable Timer1

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

Do

If Timer1 > 1024 Then
Portb.4 = 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"

Waitms 10
Timer1
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


ach ja jetzt blink nur port PB.4 hintergrund Belauchtung ist am PD.6 soll er sein...

Mit Freundlichen Grüßen
Thorsten Sch.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Thorsten sch.



Anmeldungsdatum: 29.09.2012
Beiträge: 4

BeitragVerfasst am: Sa 29.Sep 2012 16:49:08    Titel: codeproplem LCD Hintergrund bascom???? Bauteile finden Antworten mit Zitat

MAG KEINER HELFEN ODER WIE.....

Freundliche Grüße
Thorsten Sch.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Hotzenplotz



Anmeldungsdatum: 14.03.2008
Beiträge: 2212
Wohnort: /sda3/home

BeitragVerfasst am: Sa 29.Sep 2012 17:14:25    Titel: Bauteile finden Antworten mit Zitat

Nö !!
_________________
Lasst uns Spass haben...
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Thorsten sch.



Anmeldungsdatum: 29.09.2012
Beiträge: 4

BeitragVerfasst am: Sa 29.Sep 2012 17:34:17    Titel: Bauteile finden Antworten mit Zitat

Hotzenplotz hat folgendes geschrieben:
Nö !!


SUPER NETT DANKE.......
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ernesto



Anmeldungsdatum: 07.01.2012
Beiträge: 18

BeitragVerfasst am: So 30.Sep 2012 13:54:10    Titel: Bauteile finden Antworten mit Zitat

Zitat:
ach ja jetzt blink nur port PB.4 hintergrund Belauchtung ist am PD.6 soll er sein...


muss ich das jetzt verstehen ?
Du erwartest wirklich das man sich einen Bascom Source ohne jegliche Komentare reinzieht ?
Ist ja auch alles selbsterklärend ,oder Razz

hättest du die Forensuche benutzt wärest du schon ein stück weiter
:
http://www.loetstelle.net/forum/viewtopic.php?p=27566#27566

so bleibt leider nur ein dickes blurpp für dich
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Thorsten sch.



Anmeldungsdatum: 29.09.2012
Beiträge: 4

BeitragVerfasst am: So 30.Sep 2012 19:22:03    Titel: Frage zu ein Code den code dazu ersetzten, Bitte um rat Bauteile finden Antworten mit Zitat

VIELEN LIEBEN DANK

Ja man kann TIPPS GEBEN oder ne hilfe stelltung ok.

freundliche Grüße Thorsten Sch.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Anzeige






Verfasst am: Heute 00:50:01    Titel: Bauteile finden

Nach oben
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    loetstelle.net Foren-Übersicht -> BASCOM Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen


Powered by phpBB 2.x © 2001, 2002 phpBB Group

Sie sind Besucher Nr. 1220906
©opyright by Markus Vohburger 2005 All Rights reserved