logo elektroda
logo elektroda
X
logo elektroda
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Bascom][Atmega16] Syrena policyjna

zas 06 Gru 2009 17:16 3514 4
  • #1 7353076
    zas
    Poziom 16  
    Witam,
    czy posiada ktoś programik w bascomie który będzie generował dźwięk syreny policyjnej ??
    Wiem ,że do tego jest polecenie sound, ale gorzej już z ułożeniem odpowiedniego dźwięku.

    Pozdrawiam
  • Pomocny post
    #2 7356570
    radan
    Poziom 11  
    
    '/////////////////////////////////////////////////////////////////////////////// 
    '//                   Police Alarm With ATmega8 (Use 4%)                      // 
    '//                      Compiler: Bascom 1.11.9.0                                 // 
    '//                     Programmer: Behnam zakizadeh                           // 
    '//                        Web: www.avr64.com                                    // 
    '//                    Email: Behnamzaki@hotmail.com                           // 
    '/////////////////////////////////////////////////////////////////////////////// 
    
    $regfile = "m8def.dat" 
    $crystal = 1000000 
    
    Dim Frq As Word 
    Dim D As Word 
    
    Config Pind.0 = Output 
    Spkr Alias Pind.0 
    
    '---------------------------------- 
    Do 
        For Frq = 50 To 20 Step -1                    'Step -1 => Speed 
           D = 51 - Frq 
           Sound Spkr , D , Frq 
        Next Frq 
        For Frq = 20 To 50 Step 1                    'Step  1 => Speed 
           D = 51 - Frq 
           Sound Spkr , D , Frq 
        Next Frq 
    Loop 
    '---------------------------------- 
    
    '( 
    Do 
        Sound Spkr , 420 , 60 
        Sound Spkr , 620 , 40 
    Loop 
    
    Do 
        For Frq = 1 To 80 
           Set Portd.0 
           Waitms 3 
           Reset Portd.0 
           Waitms 3 
        Next Frq 
        Waitms 500 
    Loop 
    ') 
    
    End
  • #3 7361960
    zas
    Poziom 16  
    Dzięki radan, a może posiada ktoś jeszcze jakieś ułożone melodyjki w bascomie ??
  • #5 7366538
    zas
    Poziom 16  
    Wielkie dzięki.
REKLAMA