director volume control help

Λύσεις προβλημάτων για το δημοφιλές πρόγραμμα κατασκευής παρουσιάσεων στο διαδίκτυο.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
pro123
Δημοσιεύσεις: 1
Εγγραφή: 24 Δεκ 2004 03:13

director volume control help

Δημοσίευση από pro123 » 24 Δεκ 2004 03:38

xairetai prospatho na ftiaksw ena koubi pou na anebokatebazei ti entasi.

Exo brei ton parakatw kodika .Deixnei polla erros ala den gnorizw ti sintaxi tou director .


Efxaristw

Κώδικας: Επιλογή όλων

property pSoundChannel
property pRange
property pSliderBottom
property pDeltaFactor
property pMySprite
property pFlag

on getPropertyDescriptionList me
  set pdlist to [¬
    #pSoundChannel: [#comment:"Which Sound Channel",¬
                     #format:#integer,¬
                     #default:1,¬
                     #range:[#min:1,#max:8]] ]
  return pdlist
end getPropertyDescriptionList

on beginSprite me
  set pMySprite = the spriteNum of me
  set myTroughSprite = pMySprite - 1
  set pRange = the height of sprite myTroughSprite
  put pRange
  set pSliderBottom = the bottom of sprite ¬
    myTroughSprite
  set pDeltaFactor = 256/pRange
  adjustVolume me
  set pFlag = FALSE
end

on mouseDown me
  set pFlag = TRUE
end

on mouseUp me
  set pFlag = FALSE
end

on mouseUpOutside me 
  set pFlag = FALSE
end mouseUpOutside

on enterFrame me
  if pFlag = TRUE then
    if the mouseV <= pSliderBottom AND¬
       the mouseV >= pSliderBottom - pRange then
      set the locV of sprite pMySprite = the mouseV
      adjustVolume me
    end if
  end if
end

on adjustVolume me
  set myLocV = the locV of sprite pMySprite
  set sliderChange = pSliderBottom - myLocV 
  set the volume of sound pSoundChannel = ¬
     sliderChange * pDeltaFactor
end

Απάντηση

Επιστροφή στο “Flash γενικά”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης