Автор работы: Пользователь скрыл имя, 19 Апреля 2012 в 01:27, курсовая работа
Результатом выполнения курсовой работы явилось закрепление знаний работы в среде программирования Visual Basic, а так же работы в графическом редакторе Adobe Photoshop CS5.
Созданное же приложение позволить улучшить навыки работы пользователя в ОС Windows всех поколений, т.к. основы работы не менялись со времен Windows 95. Так же созданное программное изделие будет актуально к другим операционным системам, таким как Mac OS, Unix системы, потому что в приложении даны основные уроки, а они идентичны во всех ОС. Приложение будет актуально и для будущих операционных систем.
End
Begin VB.CommandButton Command2
Caption = "Урок 2"
Height = 375
Left = 360
TabIndex = 2
Top = 960
Приложение 1 (Продолжение)
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Урок 3"
Height = 375
Left = 360
TabIndex = 1
Top = 1680
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "Урок 4"
Height = 375
Left = 360
TabIndex = 0
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Caption = "Перемещение окон при помощи мыши"
Height = 495
Left = 1800
TabIndex = 7
Top = 240
Приложение 1 (Продолжение)
Width = 2415
End
Begin VB.Label Label2
Caption = "Открытие окна во весь экран, свертывание окон"
Height = 495
Left = 1800
TabIndex = 6
Top = 960
Width = 2415
End
Begin VB.Label Label3
Caption = "Изменение масштаба окна, развертывание окна"
Height = 495
Left = 1800
TabIndex = 5
Top = 1680
Width = 2415
End
Begin VB.Label Label4
Caption =
"Использование полосы
Height = 495
Left = 1800
TabIndex = 4
Top = 2400
Приложение 1 (Продолжение)
Width = 2415
End
End
Attribute VB_Name = "Window"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim s As New Shell
s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part2\1.gif"
End Sub
Private Sub Command2_Click()
Dim s As New Shell
s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part2\2.gif"
End Sub
Private Sub Command3_Click()
Dim s As New Shell
s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part2\3.gif"
End Sub
Private Sub Command4_Click()
Dim s As New Shell
s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part2\4.gif"
End Sub
Приложение 2
Блок
– схема алгоритма
да нет
нет
нет
да да
да
да
нет нет нет
нет
да да да
нет
да