Контрольная работа: Диаграммы в Visual Basic

Dim fso As Object

Dim dr As Object

Set fso = CreateObject («Scripting. FileSystemObject»)

Set dr = fso. GetDrive (Mid(Dialog. Drive1. Drive, 1, 1))

' заполняем массив, который послужит источником данных для диаграммы

Dim arrData (0, 1 To 3)

arrData (0, 1) = «Диск» & Dialog. Drive1. Drive

arrData (0, 2) = dr. FreeSpace

arrData (0, 3) = dr. TotalSize – dr. FreeSpace

Dialog.MSChart1. ChartData = arrData

Dialog.lFreeSpace. Caption = «Свободно:» + Format$(dr. FreeSpace / 1048576, «#0.00») +» МБ»

End Sub

Public Sub SaveChart()

' сохраняем диаграмму в папку, выбранную пользователем

Dim i As Integer

Dim s As String

i = 0

Do

i = i + 1

s = Dialog. Dir1. Path + «\» + Format(i) +».bmp»

Loop While PathFileExists(s) = 1

Form1.MSChart1. EditCopy

SavePicture (Clipboard. GetData, s)

MsgBox(«Диаграмма сохранена в файл:» + s)

End Sub

Процедуры и функции из вышеописанного модуля вызываются по следующим событиям формы:

PrivateSubCommand1_Click()

' подсчитываем стоимость всех товаров

Summa