для себя... что бы не печатать снова...

[Джуди]

Option Explicit
Dim IntСчётчик As Integer
Dim lngЧастота As Long
Dim lngДлительность As Long
Private Declare Function beep Lib "kernel32" Alias "Beep" (ByVal IngЧастота As Long, ByVal IngДлительность As Long) As Long

Private Sub cmdЗвук_Click()
For IntСчётчик = 1 To 100
lngЧастота = CInt(Rnd * 4500) + 500
lngДлительность = CInt(Rnd * 90) + 10
beep lngЧастота, lngДлительность
Next IntСчётчик
End Sub

Comments

[dim4ik]

Неправильный код... называть переменные надо не по типу lngЧастота, а только английскими символами, а lng незачем приписывать.

Вот так

Option Explicit
Dim Chetchik As Integer
Dim Chastota As Long
Dim Dlit As Long
Private Declare Function beep Lib "kernel32" Alias "Beep" (ByVal Chastota As Long, ByVal Dlit As Long) As Long

Private Sub Zvuk_Click()
For Chetchik = 1 To 100
Chastota = CInt(Rnd * 4500) + 500
Dlit = CInt(Rnd * 90) + 10
beep Chastota, Dlit
Next Chetchik
End Sub
И в начале имен кнопок cmd необязательно прописывать (lng, cmd - это для удобства некоторые пишут... но иногда путает в итоге).
Главное - не называть переменные, кнопки, другие объекты русскими символами, а то исходный код на некоторых компах не будет правильно отображаться. Это очень важно. У меня в школе был прокол, когда меня сначала так учили, якобы для простоты, а потом, открыв исходники на другом компе, выяснилось, что все попуталось - русские буквы превратились в кракозябры. Так что не рекомендую называть так, как ты называешь объекты сейчас...

[Джуди]

dim4ik у меня все работает..
нас так учат.
а с английскими названиями я сама запутаюсь

[Джуди]

и вообще, мы только начинаем..

[dim4ik]

Джуди, ну просто бывает такая ситуация - на конкурсе/экзамене написала код, а надо будет его открыть на другом компе, там окажется Visual Basic без русских шрифтов - и получится облом... Ну я просто посоветовал из опыта, а так, конечно, как тебе удобней, так и делай.

[Джуди]

dim4ik если версия 6-я и русская то шрифты должны быть? или как?

[arockalypse]

новый диз О_о прикольный))

[Джуди]

arockalypse спасибки))

[dim4ik]

Джуди, у меня вот была 6я версия, изначально русская, почти лицензионная - в ней шрифты указаны изначально английские, приходилось постоянно указывать русские.
Да и вообще, я все-таки студент-программист, учусь на 4м курсе, и если в наших работах имена переменных или объектах указываются символами, отличными от английского алфавита - работа не принимается.

[Джуди]

изначально русская, почти лицензионная - в ней шрифты указаны изначально английские, приходилось постоянно указывать русские.

это как?

если в наших работах имена переменных или объектах указываются символами, отличными от английского алфавита - работа не принимается.

почему???

[dim4ik]

Джуди, по первому вопросу - ну указывается западноевропейская кодировка вместо кириллицы... Почему - не знаю.
По второму вопросу - потому что использование русских букв в названиях объектов считается дурным тоном в программировании, а также по тем причинам, о которых я написал выше.

[Джуди]

dim4ik первое я поняла...
второе тоже.. частично.. почему дурным тоном?

[dim4ik]

Джуди, ну по тем причинам, о которых я написал выше К тому же - а вдруг программу заказал не русский заказчик вместе с исходником? Тогда никто в коде не разберется. А вдруг исходники надо открыть на английской (или любой другой нерусифицированной) винде? Опять-таки никто не разберется...

[Джуди]

dim4ik да уж... сложно все