Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit übrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Einbindungen in ConText Kategorie: Programmierung Basic (von Andreas Rutenberg - 10.03.2020 9:09)
 Als Antwort auf Re: Einbindungen in ConText von Dietmar - 8.03.2020 18:52
> Hallo Andreas,
>
> ich vermute, da stimmt etwas nicht mit der Konfiguration der Benutzerbefehle in ConTEXT. Bitte anhand der unten verlinkten Anleitung prüfen.
>
> Bitte halte uns auf dem Laufenden, ob es jetzt klappt.
>
> Freundliche Grüße
>
> Dietmar

Hallo Dietmar,

Nun ja, sehr ausführliche Anleitung. :-) Aber genau so habe ich das ja sowieso gemacht. Dennoch, man kann ja nie dumm genug denken. Zusätzlich habe ich das ganze exakt nach dieser Anleitung auf einem weiteren Computer installiert. Gleiches Ergebnis.
Ich kann mit der Meldung

Datei 'D:\ELEKTRONIK PROJEKTE\STURMKLINGEL\STURMKLINGEL.' nicht gefunden.

nicht so viel anfangen. Warum wird eine Datei ohne Extension nicht gefunden? Logischerweise sollte es ja auch gar keine geben. Erwartet wird doch eine *.dat Datei  
Und so weit ich die Konsolenausgabe sehe, wird auch kein Fehler im Programm gemeldet. Davon abgesehen, dass man die paar Zeilen kaum als Programm ansehen könnte.

Rein vom Vorgang her würde ich sagen, dass das compilieren richtig abläuft, dann aber die Datei ja gespeichert werden muss. Und genau hier scheint es zu haken. Und beim verify (wird ja vermutlich drin sein) wirft es dann den Fehler.

Grüße
Andreas

Anbei der Code zum anschauen und lächeln.

'***************************************************************************************
'*                                                                                     *
'*  Sturmklingelsperre V1.0 by Ati mit einem Open-Micro                                   *
'*                                                                                     *
'***************************************************************************************

' --- Betriebssystem konfigurieren -----------------------------------------------------
include "om.def"                        ' Definitionen fuer Betriebssystem
RunOnErr = on                           ' bei Fehler Programm neustarten (Fehler in ERR)
PullUpA = 0                             ' Pull-Up-Widerstände - aus
'---------------------------------------------------------------------------------------


'--- Definitionen der QT4 Ports --------------------------------------------------------
define Taste        port[2]             'Digital-Port / Eingang Klingeltaste
define LED_rot      port[5]             'Digital-Port5 / Ausgang für LED Treiber
define LED_grün     port[6]             'Digital-Port1 / Ausgang für LED Treiber
define LED_Tür      port[4]             'Digital-Port1 / Ausgang für LED Treiber
define Relais       port[1]             'Digital-Port / Ausgang Klingelrelais
'---------------------------------------------------------------------------------------
'   Die Pinbelegung der
'    Open-Micro (QT4)     _____    _____
'                       |     \__/     |
'                    1 [  VDD      GND  ] 8     VDD = 4.6 bis 5.5 Volt
'                       |              |
'   LED grün         2 [  PTA5    PTA0  ] 7     Ausgang Klingelrelais
'                       |              |
'   LED rot          3 [  PTA4    PTA1  ] 6     Klingeltsate
'                       |              |
'   LED Tür          4 [  PTA3    PTA2  ] 5     host/run
'                       |______________|
'

define x             byte                ' Datenvariable Relais
define t             byte                ' Datenvariable LED Tür
define r             byte                ' Datenvariable LED rot
define g             byte                ' Datenvariable LED grün
define s             byte                ' Variable Taste (Schalter)
define Flanke1       Bit[81]             ' Flankenbit Taste rauf

'--- setzen der Variablen --------------------------------------------------------------
x = 0
r = 0
g = 0
t = 0
'--- Startprogramm ---------------------------------------------------------------------
#init
r=1                                        ' Rote Blink LED ein
Pause60
r = 0
Pause30
r = 1
Pause60
r = 0
Pause30
r = 1
Pause60
r = 0
Pause30
r = 1
Pause60
t = 1                                        ' Tür Taster LED ein

'--- Hauptprogramm ---------------------------------------------------------------------
#start
r = 0
g = 1
if s then goto setz1                       ' Taste gedrückt? Ja, dann setze EIN-Flanke
Flanke1 = 0                                ' FlankenBit off setzen
goto start                                 ' Reset Ein-Flanke (bei Nichtbetätigung der Taste)
#setz1
if Flanke1 then goto Klingel               ' Ein-Flanke gesetzt? Ja, dann Ende
Flanke1 = on                               ' Setze Ein-Flanke (Sperre für weiteres Setzen)
goto start

#Klingel
Flanke1 = 0
x = 1                                      ' Klingelrelais ein
r = 1                                      ' rote LED ein
t = 0                                      ' Tür LED aus
g = 0                                      ' grüne LED aus
pause 12                                   ' Pause 140 Millisekunden
x = 0                                      ' Klingelrelais aus
pause 120                                  ' Pause 2,4 Sekunden
r = 0                                      ' rote LED aus
g = 1                                      ' grüne LED ein
t = 1                                      ' Tür LED ein
goto start

end

' Erklärung
' im Ruhezustand läuft der Programmteil ab #start immer wieder durch.
' Erst wenn die Klingeltaste gedrückt wird, also Variable s auf eins gesetzt wird, wird zu #setz1 gesprungen
' Hier wird abgefragt, ob die Flanke bereits gesetzt ist. Wenn nicht, dann wird sie gesetzt. Das Programm springt wieder auf Anfang.
' Da die Durchlaufzeuit gering ist, ist die Dauer eines Tatsendrucks länger als  ein Umlauf. Jetzt wird also erneut abgefragt,
' ob die Flanke gesetzt ist. Diesmal ist die Flanke gesetzt und es folgt ein Sprung zu #Klingel.
' Im Unterprogramm wird das Klingelrelais angesteuert (Ding), die grüne LED geht aus, die rote Blink-LED geht an, die Tür-LED wird ausgeschaltet.
' nach 140 ms wird das Klingelrelais abgeschaltet (Dong). es folgt eine Pause von rund 2,5 Sekunden. Dann wird die rote Blink-LED abgeschaltet,
' die grüne LED und die Türklingel-LED wieder eingeschaltet. Dann erfolgt der Sprung zum Programmstart.


Passender Link: Birkenwerder

 Antwort schreiben

Bisherige Antworten:

Es funktioniert (von Dietmar - 10.03.2020 19:26)
    Re: Es funktioniert (von Andreas Rutenberg - 16.03.2020 21:50)
        Re: Es funktioniert (von Dietmar - 16.03.2020 22:13)
            Re: Es funktioniert (von Andreas Rutenberg - 16.03.2020 22:29)
                Re: Es funktioniert (von Andreas Rutenberg - 20.03.2020 10:53)