close

Вход

Забыли?

вход по аккаунту

?

Отчет(13)

код для вставкиСкачать
??????????
??????? ?? ???????? ??????2
????? ?? ???????? ??????3
????????3
??????????, ???????????? ? ???????6
???????? ???????????? ?????????? ????????????7
??????????? ??? ???????8
?????? ?? ??????13
?????? ??????????14
??????? ?? ???????? ??????
??????? ? 12 ????? ??????????? ?????? ?? ????????? Picture. ?????? ?????? ??????????? ? ??????? ???????? ?????? (????????? CommonDialog). ??????????? ?????????????? ?? ??????? ?????????? Picture, ??????? ???????? ??? ????? ? ???????? ??????? ??? ????????? ???????? ?????. ????? ?????? ?????????? ?????????? (?????? ??????) ????? ?????? ?????????? ???????. ?????? ? ????? ???????? ?????? ???????? ???????????? ???????? ?????? ???????????? (???????, ??????????, ??????????). ????????? ? MS Word ????-????? ????????? ?????? ????? ?? ??????.
????? ?? ???????? ??????
????????
Visual Basic - ???? ?? ?????? ??????, ?????????????? ?????????-??????????? ???????????????? (event-driven programming). ???????? ???? ?????????-???????????? ???????????????? ??????????? ? ???, ??? ? ????????? ?????????? ???????, ??? ??????????? ?? ????????? ??????? (???????? ????????????): ????? ??????? ????, ?????? ??? ??????????? ????, ??????? ?????? ? ??. ? ??????? ???????????? ??????????? ?????? ???????????????? ?????????? ????????? ???????????? ??????????????????? ??????. ?????? ? ????? ????????? ?????????????????? ??????????? ????????????? ????? ???????????? ????. ?????????? ??????????? ?????????? ? ?????? ?????? ????????? ? ??????? ????? ?????? ? ????????? ?????????????????? ?????????? ?? ???? ????????????? ????????????? ????? ???? ??? ?????????.
Visual Basic ????? ???? ?????? ?? ????? ???????????? ???????????????? BASIC. ? ??? ??????????? ?????????-??????????? ?????? ????????????????. ? ?????????-??????????? ?????????? ?????????? ????????? ?? ??????? ??????? ???????????????? ?????. ?????? ????? ????????? ???????????? ????????? ??????? ???? ? ????? ?? ?? ???????.
??????? ????? ???? ??????? ?????????? ????????????, ??????????? ?? ??????? ??? ??????? ?????????? ??? ????? ???????????. ??????? ?????????????????? ?????????? ???? ????????? ???????????? ??????????????????? ???????. ????? ???????, ????? ?????????? ???? ????????? ?????? ??? ? ?????? ?????? ????? ??????. ???????????? ????? ?????????-???????????? ???????????????? ??????? ? ????????? ????, ??????????? ???????? ?? ????????? ???????, ??????? ????? ??????????? ? ??????????. Visual Basic ????????????? ??? ??????????? ???????? ??? ??????????? ?????????-??????????? ??????. ?? ??? ????????, ???????????? ???????, ????? ????????, ??????? ? ?????? ? ???? ??????????????? ??????????? ???. ??? ??????? ????? ??????????? ? ????? ???????. ????? ???????, ?????????-??????????? ?????? ???????????????? ???????????? ???????? ??????????? (??? ? ?????????? ??????? ????????????????) ??????? ?????, ???????????? ?? ??????? ?? ?????: If ??????? THEN ????????. ????? ???????? - ??? ??????????? ?????????, ???????????? ?????????????, ???? ???????? Visual Basic ?? ?????????.
? ?????? ????????-???????????????? ???????????????? (???) ????????? ??????? ???????. ?????? - ??? ????????, ??????? ????? ???????? ?????????, ? ??????? ????? ?? ??? ???????????, ????????? ???? ??????. ?????? - ??? ????????? ??????. ?????? ??????? ?????? ?? ????????? ?????????. ???????? ?????? ?????????? ?????????????.
??????? ???????????? ?????????? ??? ??????????? ????? ????????????????, ?? ??? ?? ???????? ??? ????????? ????????????????? - ??? ????? ????????? ??????? ????????????.
?? ???? ??????? ???????????? ? ???????????? ?? ?????? ???? ???????????????? ? ?????? ???? ????????? ? ????? ?????? ???. ???????? ???????????? ??? ??????????? ?????? ? ??? ??????, ????? ? ????? ???????????????? ?????????? ???????????; ?? ???? ??????????? ???????? ? ?????????? ????????????? ????? ????????? ??????????.
????????? ? ??? ?????????? ??????? ?????? ??????????? ???????? ?? ??????? ????? ????????? ???????? ?? ??????? ??????????. ????? ? ??? - ??? ? ?????? ???? ??????????? ??? ??????, ??????????? ?????????????. ? ???? ????? ?????? ??????? ???????? ?????????? ??????? ???????????? ????, ? ??????????? ?????? ?????? ?????????? ????????? ???????? ? ????? ????????, ??????? ??? ????? ?????????? ????? ???? ?????????. ????????????? ???????? ??????? (? ??????, ????????????) ???????? ?? ?????????? ? ?????????? ????????????? ???? - ???? ????????? ??????? ????? ??????? ?????????, ??? ?????? ??????????? ?? ????????, ????? ???????? ????? ????? ? ????? ???????????? ?????, ? ? ???????? ????? ???? ??????? ???????? ?????? ????????????? ????????.
????????????? ??????????? ????????????? ???????? ?????? ???????, ????????? ???????????? ?????????? ?????????, ??????? ????????? ???????????? - ??????????? ?????????? ?????? ??????? ? ?????????? ?????? ? ???? ?? ????. ? ????? ???????? ??????, ????????? ?????????, ????? ?? ????? ? ????????, ? ?????? ?????? ????????? ???????, ? ???? ? ?? ?? ?????????, ???????????? ?????????? ?????? ????, ?????????? ??????? ?????? ???????, ??????? ????????? ???????.
?????????? ????????? ??????? ??????? ?????? ???????????. ????????????? (????????, ? ??? ?? Smalltalk) ?????????????? ???????? ?????????????? ??? "?????????" ????? ???????????, ?? ???? ????????? ?? ?????? ??????? ??????? ???????????? ???????-?????????. ????? ?????? ???????? ??????????? ?????. ??? ????????? ????????, ????????, ??? ???????? ???????????? ?????????? ? ??????? ???????? ????????, ?????? ?? ??????? ????? ??????????? ????? ?????????? ? ???????? ???????????? ? ???????. ????? ??????? ????? ????? ???? ??? ?????????, ????????? ?????????? ?????????????? ???????. ??????? ????????? ???????????? ??????? ?????? ?????? ????????? ????????? ?????????, ???????????? ??????????? ?????????? - ?????????? ?? ????, ??? ??????????? ??????????, ????????? ???????????? ??? ??????, ? ???????? ????????? ??????????? ?????????? ??????.
?????? ???????? ????????? ?????? ??????????? ????? ? ?????? ??????? - "???????????" ???????? ????????? ??????? ?????????????? ????????? ????????, ??? ?? ?????? ?????????. ??????? ? ??????????? ???? ???????????? ????????-??????????????? ?????? ???????????????? ???????????? ????????? "???????? ????????? ??? ????? ??????" - ??????? ????? ????????? ????? ??????, ???????? ??????? ? ?????????????? ?????????????? ????????. ?????? ?????? ?????????? ? ???????? ?????????? ?????? ????????????????, ? ??? ????? C++, Object Pascal, Java, Oberon-2. ? ????????? ?????? ?????? ?? ???????? ???????? ???????????????? ? ????????-??????????????? ??????.
????????? ??????????? ???????, ?????????????? ????? ? ??????? ???????????? ???????, ????????? ??? ???????? ?????????? ?????????? ?????? ??????? ??? ????????????? ??????????? ??????????, ?? ????, ?? ????, ??? ??????? ????????? ??????????? ?????? ??????? ??? ?????????? ????? ????????????????, ?????????????? ?????????? ????????? ?????????.
??????????, ???????????? ? ???????
? ??????? ???????????? ????????? ??????????:
1. Toolbar (?????? ????????????)
2. ImageList (?????? ???????????)
3. CommonDialog (????? ??????)
4. Timer (??????)
5. PictureBox (???????????)
????? ???????? ????????? CommonDialog ?? ?????? ???????????? General ????? ??????? ???? Components ???????? ???? Project, Components, ??????? Controls ? ??????? ????????? Microsoft Common Dialog Control 6.0. ????? ???????? ?????????? Toolbar ? ImageList ?? ?????? ???????????? General ????? ??????? ???? Components ???????? ???? Project, Components, ??????? Controls ? ??????? ????????? Microsoft Windows Common Controls 6.0 (SP6).
????????? Toolbar ???????????? ??? ?????????? ?? ??? ??????, ??????????? ????????? ?????? ???????? (???????, ??????????, ??????????). ?? ????? ???????????? ??????? ButtonClick, ???????????, ????? ???????????? ??????? ?? ??????????.
????????? ImageList ???????????? ??? ???????? ?????? ???????????, ??????? ????? ?????????? ?? ?????. ???????? ????????, ??????? ?? ????? ?????????????? - ListImages, ??????????????? ??????, ? ??????? ???????? ???????????, ? ????? - ListImages.Add(), ??????????? ???????? ????? ??????????? ? ??????.
????????? CommonDialog ???????????? ??? ??????? ???????? ????? (?????????? ??? ? ImageList). ???????? ???????????? ???????? - CmdFileName, ? ??????? ???????? ???? ? ???????????? ????????????? ?????. ????????? Timer ???????????? ??? ??????? ?????????? ??????? ????? ??????? ????????. ???????? ???????????? ???????? - Enabled, ????????????, ??????? ?????? ??? ???, ? ??? ?? Interval - ????? ? ????????????? ????? ?????????????? ???????. ??? ???????????? ??????? ?????????? ??????? Timer.
????????? Picture ???????????? ??? ??????????? ???????????. ?? ????????? ??????????? ??????????? ?? ????? ????????. ???????? ???????????? ???????? - Width ? Height, ?????? ? ?????? ??????????, ????????? ??????? ??????????, ????? ????????? ??????? ??? ????? ???????. ??? ?? ?? ????? ???????????? ??????? Load ? Resize ?????? Form. ??????? Load ????????? ??? ???????? ?????, ? Resize - ??? ????????? ?? ????????.
???????? ???????????? ?????????? ????????????
??????????? ??????? ???????? ???? ????, ?????????, Microsoft Visual Basic 6.0, Microsoft Visual Basic 6.0 ? ??????????? ??????????? Standard EXE ??? ???????? ???????????? ??????? ??????????.
? ???? ???????????? ??????? ??????? ???????? Caption ????? ?? "???????? ???????????".
??????????? ?? ????? ??????????, ??? ???????? ?? ???.1.
???1. ?????????? ??????????? ?? ?????.
?????????? ?????????? ???????? Width ? Height ?????????? PictureBox1 ???, ????? ???? ????????? ??????? ????? ??????? (?? ?????? Toolbar). ????????? ???????? Interval ?????????? Timer1 ?????? 2000. ??? ???????? ????????????? ???????? ????? ?????? ????????.
???????? ????????? Toolbar ????????. ??? ????? ??????? ?????? ??????? ???? ?? ?????????? ? ??????? ???? Property. ???????? ?? ??????? Buttons. ?????? ??????????? ???????? ?? Insert Button. ? ??????????? ?????? ???? ????????? ???? ???? Caption (????? ??????) ? Key (????????????? ??????, ?? ???????? ????? ?????????? ? ??? ? ?????????). ??????? ??? ?????? ??? ?????????? ??????? ????????, ? ??????????????, ?????? Caption "???????", "???????", "??????????", "??????????" ? ? ?????? Key ?????????????? "Open", "FromStart", "Play", "Stop".
???. 4. ??????? ??????? ?????????? Toolbar1.
??????????? ??? ???????
?????? ???????? ?????????? ???? Integer ?????? ????? k. ?????????? k ???????????? ??? ?????????? ?????????? ImageList ??? ?????????? ???????????, ? ????????? ?? ????? ? ??????, ???? ????? ????????? ????? ???????????, ? ??? ?? ??? ????????? ??????????? ImageList ? ?????, ? ????????? ????? ? ?????? ????????????? ? ?????? ?????? ???????????.
Dim k As Integer
?????? ???????, ???????????? ?????? ??? ?????, ?????????? ? ???? ???????? ?????. Private Function FCmdFileName(CmD As CommonDialog) As String
'????????????? ?????????? ?? ?????????
CmD.InitDir="C:\"
'??????, ????? ??????? ?? "??????" ????????? ???????
CmD.CancelError = True '???? ????????? ??????, ????????? ?? ????? MtkEr
On Error GoTo MtkEr '????????????? ???? ????????????? ????????????? ?????
CmD.Flags = cdlOFNFileMustExist '?????? ?????? ????????? ???? ? ?????
CmD.FileName = ""
'???????? ??????????? ????
CmD.ShowOpen '?????????? ???? ? ?????????? ?????
FCmdFileName = CmD.FileName Exit Function '???? ?? ????????, ???? ????????? ??????
MtkEr:
'???? ???????????? ?????? - ?? ??????? ?? "??????"
If Err.Number <> cdlCancel Then '?????? ?????? ???? ? ?????
FCmdFileName = "" '? ??????? ????????? ?? ??????
MsgBox "??????: " & Err.Description, vbCritical, _
"CmnDlgError" End If
End Function
?????? ?????????, ??????????? ???????? ?? ????? ? ??????. Private Sub LoadGrFile(Pict As Object, CmnDlg As CommonDialog)
'????????? ?????????? ???? ??????
Dim CmdFileName As String
'?????????, ????? ? ????? ??????????? ????? ????? ? ??????????
'????
CmnDlg.Filter = "??????????? ?????
(*.bmp;*.jpg;*.gif;*.wmf;*.emf). | *.bmp;*.jpg;*.gif;*.wmf;*.emf" '?????????? ???? ? ?????
CmdFileName = FCmdFileName(CmnDlg) '???? ???? ? ????? ?? ??????
If CmdFileName <> "" Then
'???? ???? ???? ??? ??????
If k = 0 Then
'?????????? ?????? "???????"
Toolbar1.Buttons.Item(2).Enabled = True
'?????????? ?????? "??????????"
Toolbar1.Buttons.Item(3).Enabled = True
End If
'??????????? k ?? ???????
k = k + 1
'????????? ???????? ? ImageList
Call ImageList1.ListImages.Add(k, "", LoadPicture(CmdFileName))
'???????????? ???????? ??? ?????? PictureBox
Picture1.PaintPicture ImageList1.ListImages.Item(k).Picture, 0, 0, Picture1.Width, Picture1.Height
End If
End Sub
? ??????? ???????? ????? ??????????????? ????????? ???????? ?????????? k ? j, ? ??? ?? ?????????? ??????? ? ?????? "???????", "??????????" ? "??????????", ?.?. ??? ??? ?? ?????? ???????????.
Private Sub Form_Load()
'????????? ???????? ?????????? k
k = 1
'????????? ??????
Timer1.Enabled = False
'????????? ?????? "???????"
Toolbar1.Buttons.Item(2).Enabled = False
'????????? ?????? "??????????"
Toolbar1.Buttons.Item(3).Enabled = False
'????????? ?????? "??????????"
Toolbar1.Buttons.Item(4).Enabled = False
End Sub
? ??????? ???????? ????? ?????? ?????? ?? ????????????? ????????? ??????.
Private Sub Form_Unload(Cancel As Integer)
'???? ?? ?????????? ???? ???????????? ?????? ?? "No"
If MsgBox("????????? ?",vbYesNo Or vbQuestion,App.EXEName)=vbNo Then
'????? ???????? ???????? ?????????
Cancel = True
Exit Sub
End If
End Sub
? ??????? Resize ???????? ??????? ?????????? Image1 ??? ???????????? ?????.
Private Sub Form_Resize()
'????????????? ?????? PictureBox1 ?????? ?????? ?????
PictureBox1.Width = Form1.Width
'????????????? ?????? PictureBo1 ?????? ?????? ????? ??
'??????? ?????? Toolbar1
PictureBox1.Height = Form1.Height - Toolbar1.Height
'???? ??? ???? ?? ??? ????????? ???? ?? ???? ???????
If k > 0 Then
'???????????? ??? ???????? ????????????? ???????
Picture1.PaintPicture ImageList1.ListImages.Item(k).Picture, 0, 0, Picture1.Width, Picture1.Height
End If
End Sub
? ??????? Timer1_Timer ??????????? ????????.
Private Sub Timer1_Timer()
'???? ????? ??????? ???????? ??????, ??? ????? ???????? ?
'ImageList
If (k < ImageList1.ListImages.Count) Then
'?? ????????????? ?? ?????????
k = k + 1
Else
'?????, ????????????? ?? ??????
k = 1
End If
'? ???????????? ???????
Picture1.PaintPicture ImageList1.ListImages.Item(k).Picture, 0, 0, Picture1.Width, Picture1.Height
End Sub
???????? ??????? ??????? ???? ????????? ? ???????? ?????? ????????????. ?????? ???????? ??? ??????? ?? ?????? ?? ??????. ??? ??????? ?? ?????? "???????" ?????????? ??????????? ???? ???????? ??????. ??? ??????? ?? ?????? "???????", ????? ????????? ?????????? k ???????? 0. ??? ??????? ?? ?????? "?????" ????? ?????????? ??????, ??????? ?????? "?????" ??????????, ? ??????? ???????? ?????? "??????????". ??? ??????? ?? ?????? "??????????" ????? ??? ??????? ????????.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
'? ??????????? ?? ????, ?? ????? ?????? ????????
Select Case Button.Key
'???? ?????? ?? ?????? "???????"
Case "Open"
'??????? ??????????? ???? ???????? ?????
Call LoadGrFile(CommonDialog1)
'???? ?????? ?? ?????? "???????"
Case "FromStart"
'???????? k = 0
k = 0
'? ?????????? ???????
Picture1.PaintPicture ImageList1.ListImages.Item(k).Picture, 0, 0, Picture1.Width, Picture1.Height
'???? ?????? ?? ?????? "??????????"
Case "Pause"
'????????? ??????
Timer1.Enabled = False
'????????? ?????? "??????????"
Toolbar1.Buttons.Item(4).Enabled = False
'???????? ?????? "??????????"
Toolbar1.Buttons.Item(3).Enabled = True
'???? ?????? ?? ?????? "??????????"
Case "Play"
'???????? ??????
Timer1.Enabled = True
'???????? ?????? "??????????"
Toolbar1.Buttons.Item(4).Enabled = True
'????????? ?????? "??????????"
Toolbar1.Buttons.Item(3).Enabled = False
End Select
End Sub
??? ??????? ?????????, ???????????? ??????? ?? ?????? PictureBox1 ????????? ?????, ??????? ?????????? ??????????. ????? ?????????? ??????? ?????, ?? ???????????? ? ?????????, ? ?????????? ????????? ?????? "??????????" ? "???????" . ??? ??????? ?? ?????? "??????????" ?????????? ??????????? ????? ??????????, ??????? ????? ?????????? ??????? "??????????". ??? ??????? ?? ?????? "???????" ?????????? ???????? ???????????? ? ????? ??????. ????-????? ????????? ?????? ????? ?? ??????
???????????? ?????????
??? ???????? ?????????, ???????????? ?????? ????????? ????:
??? ??????? ?? ?????? "???????", ?? ????? ???????? ???????????, ??????? ??????????? ? ?????????:
??? ?????????? ??????????? ????????, ??? ????? ???????????? ? ?????????:
??? ??????? ?? ?????? "???????" ??????????? ?????? ????????:
??? ??????? ?? ?????? "??????????" ???????? ????? ?????????? ????????, ? ??? ?? ?????? ???????? ?????? "??????????" ? ?????????? "??????????":
??? ??????? ?? "???????" ????????? ????????? ???? ? ???????? ??????????? ????? ?? ?????????:
??? ????????? ???????? ???? ??????????? ??????????????? ??????? ??????????????:
????? ???????, ????????? ????????? ????????????? ???????????? ???????????.
?????? ?? ??????
???? ???? ???????? ?????????, ??????????????? ???????????? ??????. ??? ????????? ??????????? ?????? ??????????? ? ?????????? ?? ???????? ?? ????? ? ???????????? ??????????, ? ??? ?? ????????? ???? ????????? ? ??????? ?????? "???????", "??????????" ? "??????????". ??? ??????? ???????????? ?????? ???? ???????????? ??????????? ?????????? Image, Toolbar, CommonDialog, ImageList, Timer, ?????? FcmdFileName ? LoadGrFile ? ??? ?? ??????? Form_Load, Form_Unload, Form_Resize, Timer1_Timer, Toolbar1_ButtonClick.
? ???????? ???? ????????? ?????????-??????????? ?????????.
?????? ??????????
1. ?. ?????????? "MS Visual Basic 6.0. ??? ?? ?????"
2. ?. ????? "Visual Basic 6. ??????? ????" 3. ????????-?????? wikipedia.org.
4. ????????-?????? cyberforum.ru
Документ
Категория
Без категории
Просмотров
22
Размер файла
1 483 Кб
Теги
отчет
1/--страниц
Пожаловаться на содержимое документа