Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Подача школьного звонка

Автор: Koshka 26.11.2005, 04:10

Помогите пожалуйста...

Нужна программа а вернее её код ... которая могла бы хранить в себе рассписание звонков на пары для заниятий в школе... скажем на недлю или 2.. фоть...

Тоесть я вовожу туду расписание... и она потом в нужный момент времени проигрывает звуковой файл... фоть....

Плииииз кто нить помогитеееее

*плакает*

Автор: cardinal 26.11.2005, 06:01

Если по простецки и не ломая голову, то вот

Код


Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim Time1 As String

Private Sub Form_Load()
Time1 = "41000"
End Sub

Private Sub Timer1_Timer()
Dim MyTime As String
MyTime = Time
MyTime = Replace(MyTime, ":", "")
If MyTime > Time1 Then
    PlaySound "C:\W98\MEDIA\tada.wav", 0, 0
End If
End Sub

Я написал за пять минут. Поэтому критика не уместна. smile

А так заходи в раздел VB6 и тебе не только объяснят как это работает, но и что можно улучшить и что сделать по другому.

p.s. по этой строке

Код


Time1 = "41000"

видно, что мне пора спать... smile

Автор: Koshka 26.11.2005, 12:15

Спасибки.
Но туть нельзя программировать....
Ну тоесть задавать время и дни по которым она звонится...

Автор: cardinal 26.11.2005, 14:52

Цитата(Koshka @ 26.11.2005, 10:15)

Но туть нельзя программировать....

Это утверждение или заключение? Если заключение, то считай, что доделку с датами я оствил тебе. Ничего сложного в этом нет.