SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 10
10 gasten
0 leden:
Forum > Digitaal > programma makkelijker maken
leip11
Lid
Berichten: 191
Gepost op zondag 2 Augustus 2009 20:01:53 QuoteWijzig

nou heb ik dit stukje programma draaien op het dev bordje.
dit werkt


Code

Clear
Cls
;Hoofdprogramma

Clear
Cls
;Hoofdprogramma

While 1=1
    If S1=aan Then                      ;s1 aan
        Print At 1,1, "s1 is aan"       ; print
        High Led1
        Low Led3                      ; led 1 aan
        DelayMS 20                      ; contactdender
        While S1=aan :Wend              ;als s1= aan dan laten staan
        DelayMS 20                      ;contactdender
    EndIf                               ;einde lus
    
    If S3=aan Then                      ;s3 aan
        Cls                             ;cls
        Print At 1,1, "s3 aan"           ;print
        Low Led1
        High Led3
        DelayMS 20
        While S3=aan :Wend
    EndIf
Wend
End



alleen nu is mijn vraag als ik dit uitbreid wil ik niet steeds de al die leds inblijven vullen omdat het dan on overzichtelijk wordt. hoe zou ik dit beter kunnen doen.?

timo
leip11
Lid
Berichten: 191
Gepost op zondag 2 Augustus 2009 20:24:23 QuoteWijzig


Code

Clear
Cls
DelayMS 500

Symbol lengte=17
Dim teller As Byte
Dim tellers1 As Byte
Dim tellers3 As Byte
;Hoofdprogramma



While 1=1
    If S1=aan Then                      ;s1 aan
        Print At 1,1, "s1 is aan"       ;print
        Print At 2,1,  Dec tellers1     ;print waarde tellers1
        High Led1                       ;led1 aan
        Low Led3                        ;led 3 uit
        DelayMS 20                      ;contactdender
        While S1=aan :Wend              ;als s1= aan dan laten staan
        DelayMS 20                      ;contactdender
        Inc tellers1                    ;verhoog variabele 
    EndIf                               ;einde lus
    
    If S3=aan Then                      ;s3 aan
        Cls                             ;cls
        Print At 1,1, "s3 aan"          ;print
        Print At 2,1, Dec tellers3      ;print waarde tellers3
        Low Led1                        ;uit led1
        High Led3                       ;aan led3
        DelayMS 20                      ;dender
        While S3=aan :Wend              ;hou vast
        DelayMS 20                      ;dender
        Inc tellers3                    ; verhoog variabele
    EndIf
    
    If S8=aan  Then                     ; als s8 aan
        DelayMS 20                      ;dender
        Low Led1                        ;uit led1
        Low Led3                        ;uit led3
        Cls                             ;cls
        Print At 1,1, "clear memory"    ;print op scherm
        While S8=aan :Wend              ;hou vast
        Repeat                          ;herhaal
        DelayMS 500                     ;om de 0,5 sec
        Inc teller                      ;verhoog variabele
        Print At 2, 1, Rep 255teller   ;print
        Until teller = lengte           ;tot waarde
        Cls                             ;cls
        Clear                           ;wis ram
    EndIf
Wend
End



dit werkt ook maar je ziet dat de leds alsmaar langer blijven worden dit zou toch anders kunnen

timo


Active Topics

» ? => Mini kerstlan...
» ATSAMD21J18A-AU backupen
» De gevolgen van een kl...
» De tuin.
» Afstandsbediening plaf...
» Virtual Chemist probleem
» Probleem met Toyota Av...
» Whirlpool kookplaat
» 24 volt motor vertrage...
» Show je mini projecten

» Meer actieve topics

Advertenties

ElektronicaStynus

© 2004-2022 SchemaTheek
Laadtijd: 0.08126 sec.