LR GLOBAL KIDS FUND

Amateurfunk

Babelfish.altavista
To translate this page
Miss Moquita Multibandfuchs Antenne Miracle Wihp Antenne Quax Antenne PIC Umschaltbox
Speaky CW Taste mit PICAXE

Morsetaste mit PICAXE 08M


Mein ersten Programm für einen Picaxe Chip ist eine elektronische Morsetaste. Der Picaxe 08M ist ein PIC12F683 mit Bootloder. Dieser Bootlader macht die Sache so einfach. Da der Bootlader des Chips viele Funktionen mitbringt ist es garnicht so schwer wie das Programmlisting zeigt.

Ein Bericht über die Taste und PICAXE in der CQ-DL 8-2008.


'=================================================================
'=        Elektronische Morsetaste  (c) by DL8AAX                =
'=                                                               =
'= Wird Taster dit (pin1) gedrückt werden Punkte ausgegeben      =  
'=                                                               =
'= Wird Taster dah gedrückt werden Striche ausgegeben            =
`=                                                               =
`= Wird die Taste Dit und Dah gedrückt werden Punkte und Striche =
`= im Wechsel ausgegeben                                         =  
'=                                                               =
`= Solange wie die Taste speed gedrückt ist, kann mit den Tasten =
'= Dit und Dah die Geschwindigkeit eingestellt werden.           =
`=                                                               =
'= Speed  1 WPM (Wort pro Minute) = 1200milliSekunden Punktlänge =
'=       10 WPM = 120 ms                                         =
'=       20 WPM =  60 ms                                         =
'=                                                               =
'=================================================================

#picaxe 08m

eeprom 0,(15)
symbol punktpause = w0
symbol punktpause2= W1
read 0,punktpause 

punktpause2=2*punktpause

main:
    if pin4 = 1 then taste ' Mem, speed
    if pin1 = 0 then dit ' Dit  .
    if pin3 = 0then dah ' Dah  -
    goto main


taste:  ' Geschwindigkeit einstellen

          ' ein v ausgeben
          gosub sendDit
         pause punktpause
         gosub sendDit
         pause punktpause
         gosub sendDit
         pause punktpause
         gosub sendDah
         pause punktpause2
         
         
         if pin1 = 0 then 
             dec punktpause
             dec punktpause
             dec punktpause
         endif
         if pin3 = 0 then 
             inc punktpause
             inc punktpause
             inc punktpause
         endif
         if pin4 = 0 then
             write 0,punktpause
             punktpause2 = 2 * punktpause
             goto main
         endif
         goto taste
    
dit: ' Punkte ausgeben
    if pin1 = 0 then
        gosub sendDit
        pause punktpause
    else
        goto main
    endif
    if pin3 =0 then
        gosub sendDah
        pause punktpause
    endif
    goto dit
dah: ' Striche ausgeben
    if pin3 = 0 then `Taste immer noch gedrückt
      gosub sendDah
      pause punktpause
   else
      goto main
    endif
    if pin1 = 0 then
        gosub sendDit
        pause punktpause
    endif
    goto dah

sendDit:
    sound 2,(102,punktpause)
    
return
sendDah:

    sound 2,(102,punktpause2)
    return
1


Und hier die Schaltung:


Der Anschluss PC kann mit dem Comport verbunden werden um den Pic zu programieren. Es ist alse kein Prommer erforderlich. Lediglich zwei Wiederstände weil die Spannung der RS232 Schnittstelle zu hoch ist.



Home
Amateurfunk
  • QUAX_Antenne
  • Software
  • Bastelprojekte
  • PHP-SSTV
  • Modellbau
    CW Books
    Mail an mich
    Links
    Videos
    Gästebuch
    Impressum









    counter gratis


    Bewerte meine Seite bei AFU-Suche.de.vu