Программирование на Visual Basic

Органайзер на visual basic

Привет ! Как же я давно ни чего не добавлял ! Прям стыдно... А все вы виноваты. Я уже не могу придумать о чем писать. Так что не забывайте о гостевой книге и моем мыле! И так, от нечего делать будем создавать просьтенький органайзер. Его функции: блокнот, напоминания на день, адресные книжки (e-mail и телефоны/адреса), часы. Коментарии писать не буду, почти все описывалось раньше.

Ну а пока приступаем:

  1. Компонент ComboBox с именем Combo1 (в свойстве List пишите "Адресная книжка E-Mail"ов", на след. строке "Телефоны и адреса" и последнее "Блокнот")
  2. Два текстовых поля с именами TextB и Text1
  3. Шесть кнопок с именами: Command1("Записать в планы"), Command2("Прочитать планы на сегодня"), B_Open("Открыть"), B_Save("Сохранить"), B_Print("Печать"), B_Clean("Отчистить")
  4. Frame с именем AddDayTip, а в нем кнопка Command3, текстовое поле Text2 и Label с именем Label1.
  5. Компонент Microsoft Common Dialog  с name"ом CD1
  6. И таймер с именем Timer1 и интервалом 1000

Примерно, у вас должно получиться следующее:

Теперь приступим к коду:

Private Sub B_Clean_Click()
TextB.Text = ""
End Sub
 

Private Sub B_Open_Click()
CD1.ShowOpen
On Error GoTo error4
Open CD1.FileName For Input As #4
TextB.Text = Input(LOF(4), 4)
Close
error4: If Err <> 0 Then
MsgBox "Неизвестная ошибка!", vbCritical, "Ошибка при открытии текста"
End If
End Sub
 

Private Sub B_Print_Click()
Printer.Print TextB.Text
Printer.EndDoc
End Sub
 

Private Sub B_Save_Click()
CD1.ShowSave
On Error GoTo error4
Open CD1.FileName For Output As #4
Print #4, TextB.Text
Close
error4: If Err <> 0 Then
MsgBox "Неизвестная ошибка!", vbCritical, "Ошибка при записи текста"
End If
End Sub
 

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Combo1.Text = "Адресная книжка E-Mail"ов" Then
On Error GoTo error5
Open "e-mail/address.txt"For Input As #5
TextB.Text = Input(LOF(5), 5)
Close
error5: If Err <> 0 Then
MsgBox "Произошла ошибка. Возможно вы удалили файл address.txt из папки E-Mail!!!", vbCritical, "Ошибка при просмотре e-mail адресов"
End If
End If
If KeyCode = 13 Then
If Combo1.Text = "Телефоны и адреса" Then
On Error GoTo error6
Open "TelAdr/address&tel.txt" For Input As #6
TextB.Text = Input(LOF(6), 6)
Close
error6: If Err <> 0 Then
MsgBox "Произошла ошибка. Возможно вы удалили файл address&tel.txt из папки TelAdr!!!", vbCritical, "Ошибка при просмотре e-mail адресов"
End If
End If
End If
End If
If KeyCode = 13 Then
If Combo1.Text = "Блокнот" Then
TextB.Text = ""
End If
End If
End Sub
 

Private Sub Command1_Click()
AddDayTip.Visible = True
End Sub
 

Private SubCommand2_Click()
On Error GoTo error2
Open "rememdaytip/" & Date & ".txt"For Input As #3
TextB.Text = Input(LOF(3), 3)
Close
error2: If Err <> 0 Then
TextB.Text = "Планов на сегодня у вас нет !"
End If
End Sub
 

Private SubCommand3_Click()
On Error GoTo error3
Open "rememdaytip/" & Text2.Text & ".txt" For Output As #2
Print #2, TextB.Text
Close
error3: If Err <> 0 Then
MsgBox "Произошла неизвестная ошибка !", vbCritical, "Ошибка при записи напоминания в планы"
End If
AddDayTip.Visible = False
End Sub
 

Private SubForm_Load()
Text1.Text = Date
On Error GoTo error1
Open "rememdaytip/" & Date & ".txt" For Input As #1
TextB.Text = Input(LOF(1), 1)
Close
error1: If Err <> 0 Then
TextB.Text = "Планов на сегодня у вас нет !"
End If
End Sub
 

Private SubTimer1_Timer()
Me.Caption = "Время: " & Time
End Sub
 

Для того чтобы понять, как програмка должна работать правельно,скачайте ее.

Hosted by uCoz