Das Open-Control-Projekt - Die Alternative zur C-Control-I


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: Prog Probleme Kategorie: Programmierung Basic (von Carsten - 2.02.2006 10:14)
 Als Antwort auf Prog Probleme von Swen - 1.02.2006 22:28
Carsten nutzt:  CC1-M-Unit V1.2/2.0
Also erstmal solltest Du Dein Programm zum Test auf einen Port verkürzen, 1km Quelltext liest niemand gerne durch. Warum die Ports flackern, findest Du evtl. selbst heraus: Nach Deiner Kommentarzeile "' *** Port 3" wird z.B. Bitport3 3x direkt hintereinander auf evtl. verschiedene Zustände gesetzt. die Verarbeitung jeder dieser Kommandozeilen dürfte nur einige Millisekunden dauern.. Mach es Dir klar, indem Du PAUSE-Befehle zwischen die Zeilen schreibst oder etwas ausgeben läßt (print, Hyperterminal usw.)

Gruß Carsten

> Brauche Hilfe bei der Programmierung!! Hatte eigentlich in Plus programmiert aber nach der Übersetzung in Basic flackern die Ports! Hat wer ne Idee?? Bin Neuling was das programmieren angeht!
> M.f.g  Swen
>
> DEFINE wordvar3 WORD[3]   'r/w
>
> DEFINE bytevar1 BYTE[1]  'r/w
> DEFINE bytevar2 BYTE[2]  'r/w
> DEFINE bytevar3 BYTE[3]  'r/w
> DEFINE bytevar10 BYTE[10]  'r/w
>
> DEFINE bitvar17 BIT[17]  'r/w
> DEFINE bitvar30 BIT[30]  'r/w
> DEFINE bitvar31 BIT[31]  'r/w
> DEFINE bitvar33 BIT[33]  'r/w
>
> DEFINE bitport1 PORT[1]  'w
> DEFINE bitport2 PORT[2]  'w
> DEFINE bitport3 PORT[3]  'w
> DEFINE bitport4 PORT[4]  'w
> DEFINE bitport5 PORT[5]  'r
>
>
> bytevar1=0
> GOTO adr30
> #adr12
> bytevar3=bytevar2
> RETURN
>
> #adr17
> bytevar1=bytevar1+16
> PAUSE 5
> RETURN
>
> #adr30
> ' *** Port 3
> bitport3=(bytevar1=96) OR (bytevar1=144) OR (bytevar1=32) OR (bytevar1=80) OR (bytevar1=160) OR (bytevar1=176) OR (bytevar1=192) OR (bytevar1=224)
> bitport3=(((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (((bytevar3<=220) AND(bytevar3>=202)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33) OR (((bytevar3>=83) AND(bytevar3<=101)) AND bitvar33)
> bitport3=(((bytevar3>=100) AND (bytevar3<=118)) AND bitvar33) OR (((bytevar3>=34) AND (bytevar3<=50)) AND bitvar33) OR (((bytevar3>=151) AND (bytevar3<=169)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33)
> ' *** Port 1
> bitport1=((bytevar1=64) OR (bytevar1=112) OR (bytevar1=160) OR (bytevar1=192) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (bytevar1=144) OR (bytevar1<=15) OR (bytevar1=208) OR (bytevar1=224))
> bitport1=(((bytevar3<=16) AND (bytevar3>=0)) AND bitvar33) OR (((bytevar3>=68) AND (bytevar3<=84)) AND bitvar33) OR (((bytevar3>=151) AND (bytevar3<=169)) AND bitvar33) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33)
> bitport1=(((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=117) AND (bytevar3<=135)) AND bitvar33) OR (((bytevar3<=220) AND (bytevar3>=202)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33)
> Bitport1=(((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33)
> ' *** Port 4
> bitport4=(bytevar1=112) OR (bytevar1=128) OR (bytevar1=96) OR (bytevar1=48) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (bytevar1=176) OR (bytevar1=192) OR (bytevar1=208) OR (bytevar1=224)
> bitport4=(((bytevar3>=51) AND (bytevar3<=67)) AND bitvar33) OR (((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=100) AND (bytevar3<=118)) AND bitvar33) OR (((bytevar3>=117) AND (bytevar3<=135)) AND bitvar33)
> bitport4=(((bytevar3<=220) AND (bytevar3>=202)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33) OR (((bytevar3>=134) AND (bytevar3<=152)) AND bitvar33)
> ' *** Port 2
> bitport2=(bytevar1=176) OR (bytevar1=160) OR (bytevar1=208) OR (bytevar1=224) OR (bytevar1=16) OR (bytevar1=64) OR (bytevar1=128) OR (bytevar1=80) OR (((bytevar3>=83) AND (bytevar3<=101)) AND bitvar33)
> bitport2=(((bytevar3>=134) AND (bytevar3<=152)) AND bitvar33) OR (((bytevar3>=68) AND (bytevar3<=84)) AND bitvar33) OR (((bytevar3>=17) AND (bytevar3<=33)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33)
> bitport2=(((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33)
> ' *** Zufall setzten
> bitvar33=(bytevar1>=225) AND (bytevar1<=255)
> ' *** Zufall
> wordvar3=(65368+wordvar3)+RAND
> bytevar2=((((wordvar3 MOD 350)*1515)/6)+1110) MOD 255
> ' *** Zufall Zähler aufrufen
> bytevar10=TIMER
> bitvar17=bytevar10=0
> IF bitvar17 THEN GOSUB adr12
> ' *** Zähler
> bitvar30=bitport5
> IF bitvar31>bitvar30 THEN GOSUB adr17
> bitvar30=bitvar31
> GOTO adr30
> END
>

 Antwort schreiben

Bisherige Antworten: