Разработка мультимедиа-приложения для компьютерной обучающей программы “Экономическая информатика: Основы работы в ОС Windows”

Интернет  ресурсы

1. Что такое ICQ; Материал из Википедии — свободной энциклопедии; http://ru.wikipedia.org/wiki/ICQ
2. Skype для каждого; Сергей и Марина Бондаренко; Дата: 06.01.2010; http://www.3dnews.ru/software/skype_for_everyone/
3. Дистанционного обучения, Павел Баников; Дата: 23.11.09; http://www.obrazovanieufa.ru/Vuz/Dostoinstva_i_nedostatki_distantsionnogo_obucheniya.htm
4. Основные возможности Visual Basic; официальный сайт; http://msdn.microsoft.com/ru-ru/library/52f3sw5c.aspx
5. Информация о файлах в Visual Basic; Шатрыкин Иван; http://www.rusedu.info/Article117.html

 

Приложение 1

    Листинг программы

Begin VB.Form Home

   BorderStyle     =   1  'Fixed Single

   Caption        =   "Основы работы в ОС Windows"

   ClientHeight    =   3045

   ClientLeft      =   45

   ClientTop       =   375

   ClientWidth     =   4560

   Icon            =   "Home.frx":0000

   LinkTopic       =   "Form1"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   3045

   ScaleWidth      =   4560

   StartUpPosition =   3  'Windows Default

   Begin VB.CommandButton Command4

      Caption         =   "Выход"

      Height          =   495

      Left            =   2520

      TabIndex        =   3

      Top             =   1920

      Width           =   1695

   End

   Begin VB.CommandButton Command3

Приложение 1 (Продолжение)

      Caption         =   "О программе"

      Height          =   495

      Left            =   2520

      TabIndex        =   2

      Top             =   720

      Width           =   1695

   End

   Begin VB.CommandButton Command2

      Caption         =   "Работа с Окнами"

      Height          =   495

      Left            =   360

      TabIndex        =   1

      Top             =   1920

      Width           =   1695

   End

   Begin VB.CommandButton Command1

      Caption         =   "Работа с Мышью"

      Height          =   495

      Left            =   360

      TabIndex        =   0

      Top             =   720

      Width           =   1695

   End

End

Приложение 1 (Продолжение)

Attribute VB_Name = "Home"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Mouse.Show

End Sub

Private Sub Command2_Click()

Window.Show

End Sub

Private Sub Command3_Click()

About.Show

End Sub

Private Sub Command4_Click()

Unload Me: End

End Sub

VERSION 5.00

Begin VB.Form About

   BorderStyle     =   1  'Fixed Single

   Caption         =   "О программе"

   ClientHeight    =   1815

   ClientLeft      =   45

   ClientTop       =   375

Приложение 1 (Продолжение)

   ClientWidth     =   3870

   Icon            =   "About.frx":0000

   LinkTopic       =   "Form2"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   1815

   ScaleWidth      =   3870

   StartUpPosition =   3  'Windows Default

   Begin VB.Label Label3

      Caption         =   "Ахмедовым Р.Т. (ПИЭ 3к)"

      Height          =   255

      Left            =   360

      TabIndex        =   2

      Top             =   1320

      Width           =   3135

   End

   Begin VB.Label Label2

      Caption         =   "Программа созданна усилиями прикладника:"

      Height          =   375

      Left            =   360

      TabIndex        =   1

      Top             =   840

      Width           =   3135

   End

Приложение 1 (Продолжение)

   Begin VB.Label Label1

      Caption         =   "Это программа научит Вас  простым приемам работы в среде  ОС Windows"

      Height          =   495

      Left            =   360

      TabIndex        =   0

      Top             =   240

      Width           =   3135

   End

End

Attribute VB_Name = "About"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

VERSION 5.00

Begin VB.Form Mouse

   BorderStyle     =   1  'Fixed Single

   Caption         =   "Работа с Мышью"

   ClientHeight    =   3030

   ClientLeft      =   45

   ClientTop       =   375

   ClientWidth     =   4560

   Icon            =   "Mouse.frx":0000

   LinkTopic       =   "Form3"

Приложение 1 (Продолжение)

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   3030

   ScaleWidth      =   4560

   StartUpPosition =   3  'Windows Default

   Begin VB.CommandButton Command4

      Caption         =   "Урок 4"

      Height          =   375

      Left            =   360

      TabIndex        =   3

      Top             =   2400

      Width           =   1215

   End

   Begin VB.CommandButton Command3

      Caption         =   "Урок 3"

      Height          =   375

      Left            =   360

      TabIndex        =   2

      Top             =   1680

      Width           =   1215

   End

   Begin VB.CommandButton Command2

      Caption         =  "Урок 2"

      Height          =   375

Приложение 1 (Продолжение)

      Left            =   360

      TabIndex        =   1

      Top             =   960

      Width           =   1215

   End

   Begin VB.CommandButton Command1

      Caption         =   "Урок 1"

      Height          =   375

      Left            =   360

      TabIndex        =   0

      Top             =   240

      Width           =   1215

   End

   Begin VB.Label Label4

      Caption         =   "Открытие окон двойным шелчком ЛКМ"

      Height          =   495

      Left            =   1800

      TabIndex        =   7

      Top             =   2400

      Width           =   2415

   End

   Begin VB.Label Label3

      Caption         =   "Открытие окон при помощи  мыши"

      Height          =   495

Приложение 1 (Продолжение)

      Left            =   1800

      TabIndex        =   6

      Top             =   1680

      Width           =   2415

   End

   Begin VB.Label Label2

      Caption         =   "Перетаскивание иконок"

      Height          =   495

      Left            =   1800

      TabIndex        =   5

      Top             =   960

      Width           =   2415

   End

   Begin VB.Label Label1

      Caption         =   "Выделение иконок ЛКМ и выделение с Shift"

      Height          =   495

      Left            =   1800

      TabIndex        =   4

      Top             =   240

      Width           =   2415

   End

End

Attribute VB_Name = "Mouse"

Attribute VB_GlobalNameSpace = False

Приложение 1 (Продолжение)

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) = "\", "", "\") & "Part1\1.gif"

End Sub

Private Sub Command2_Click()

Dim s As New Shell

s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part1\2.gif"

End Sub

Private Sub Command3_Click()

Dim s As New Shell

s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part1\3.gif"

End Sub

Private Sub Command4_Click()

Dim s As New Shell

s.Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Part1\4.gif"

End Sub

VERSION 5.00

Begin VB.Form Window

   BorderStyle     =   1  'Fixed Single

   Caption         =   "Работа с Окнами"

   ClientHeight    =   3030

Приложение 1 (Продолжение)

   ClientLeft      =   45

   ClientTop       =   375

   ClientWidth     =   4560

   Icon            =   "Window.frx":0000

   LinkTopic       =   "Form4"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   3030

   ScaleWidth      =   4560

   StartUpPosition =   3  'Windows Default

   Begin VB.CommandButton Command1

      Caption         =   "Урок 1"

      Height          =   375

      Left            =   360

      TabIndex        =   3

      Top             =   240

      Width           =   1215