sound.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 16 行

'-------------------------------------------------------------
'                     SOUND.BAS
'          Copyright 1997-1999 MCS Electronics
'-------------------------------------------------------------
Dim Pulses As Byte , Periods As Integer
Pulses = 100 : Periods = 10             'set variables
Speaker Alias P1.1                      'define port pin

Sound Speaker , Pulses , Periods        'make some noice
'pulses  range from 1-32767
'periods range from 1-255

End