Добавить функционал программе

@family · Регистрация: 01.12.2014

Студворк — интернет-сервис помощи студентам

Есть установка, которая будет использоваться на заводе. К ней подключен так называемый "шкаф", от которого происходит управление этой установкой. Внутри шкафа стоит прибор (метакон 5хх), через который и будет идти управление. Подключаются к нему так: т.к. у него интерфейс RS-485, то подключаемся через преобразователь и получаем уже интерфейс RS-232 (СОМ порт). Вот собственно под это дело написана программка. НО! Данную программу нужно расширить, а именно:

добавить возможность, чтобы программа каждую минуту считывала данные с метакона
записывала эти данные в файл (тут еще сам думаю в какой именно)
и исходя из данных в этом файле рисовала графики
графики можно было бы распечатать на принтере

Помогите пожалуйста это реализовать.

@family · 18.12.2014, 16:49 **[ТС]**

UPD. Поможет кто?

@Alex77755 · 18.12.2014, 17:25

Так уже ж сам сделал!
Сохранить в .xls (App.Path)

@The trick · 18.12.2014, 17:30

Сообщение от family

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

Добавь таймер, Interval = 60000, в обработчике:

Visual Basic
1
Call cmdRead_Click

Сообщение от family

записывала эти данные в файл (тут еще сам думаю в какой именно)

Сначала определись с форматом.

Сообщение от family

и исходя из данных в этом файле рисовала графики

Какие графики? В каком виде? Добавь PictureBox и рисуй на нем с помощью псевдометодов Line и Pset.

Сообщение от family

графики можно было бы распечатать на принтере

Для этого есть объект Printer. Также рисуешь с помощью этих псевдометодов или перерисовываешь с готовых с помощью PaintPicture, отправляешь на печать с помощью метода EndDoc.

@family · 19.12.2014, 08:17 **[ТС]**

Сообщение от The trick

Добавь таймер, Interval = 60000, в обработчике:

Это я так и сделал.

Сообщение от The trick

Call cmdRead_Click

Данное событие как я понимаю вызывает таймер из любого места?

Сообщение от The trick

Сначала определись с форматом.

Определился, выбрал .xls. Ну тут я уже понял как с ним работать.

@Alex77755 · 19.12.2014, 11:26

Данное событие как я понимаю вызывает таймер из любого места?

С точностью до наоборот!
Таймер работает сам по себе если его запустили и с заданным интервалом вызыват процедуру cmdRead_Click

@family · 19.12.2014, 11:48 **[ТС]**

Сообщение от Alex77755

С точностью до наоборот!
Таймер работает сам по себе если его запустили и с заданным интервалом вызыват процедуру cmdRead_Click

Это да, я понял, просто выразился не так.

Собственно я потихоньку пишу функционал. Но вот выскочила проблема, ошибка overflow вот в этом куске кода:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Timer3_Timer()
ReDim Preserve temperatura(N)
temperatura(N) = Val(writeData(strMetakonOut))
Label2.Caption = writeData(strMetakonOut)
VisualGraph1.NumPoint = N
VisualGraph1.MaxX = N
If N > 2 Then
For j = 1 To VisualGraph1.NumPoint
VisualGraph1.ActivPoint = j
VisualGraph1.ActivData = temperatura(j)
VisualGraph1.GraphMode = 1
Next
VisualGraph1.GraphMode = 2
End If
N = N + 1
End Sub

Debug указывает сюда -

Visual Basic
1
VisualGraph1.ActivData = temperatura(j)

Значения:

temperatura = 32768
j = 8

@zink0000 · 19.12.2014, 12:13

Debug указывает сюда -

Visual Basic
1
VisualGraph1.ActivData = temperatura(j)

Скорее всего ActivData задано как целое (Integer)
Integer - диапазон от -32 768 до 32 767.
Проверьте.

@family · 19.12.2014, 12:24 **[ТС]**

Сообщение от zink0000

Скорее всего ActivData задано как целое (Integer)
Integer - диапазон от -32 768 до 32 767.
Проверьте.

Перепроверил, ActivData - Long.

@Апострофф · 19.12.2014, 13:06

temperatura() объявлена as Integer, а не Long.

@family · 19.12.2014, 14:05 **[ТС]**

Сообщение от Апострофф

temperatura() объявлена as Integer, а не Long.

Ну не настолько я глуп) temperatura тоже Long. Я поэтому и не стал писать в куске кода эти переменные объявленные.

Добавлено через 48 минут
Неравный бой закончился таким кодом:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Timer3_Timer()
ReDim Preserve temperatura(N)
temperatura(N) = Val(writeData(strMetakonOut))
If temperatura(N) = 32768 Then
temperatura(N) = 0
End If
Label2.Caption = writeData(strMetakonOut)
VisualGraph1.NumPoint = N
VisualGraph1.MaxX = N
If N > 2 Then
For j = 1 To VisualGraph1.NumPoint
VisualGraph1.ActivPoint = j
VisualGraph1.ActivData = temperatura(j)
VisualGraph1.GraphMode = 1
Next
VisualGraph1.GraphMode = 2
End If
N = N + 1
End Sub

Я начал смотреть, рисуется ли график при других значениях, да, рисуется. А именно на значении 32768 выдает ошибку. Но это я так понял данные с метакона как раз об ошибке. Т.е. мы теперь просто игнорируем ошибку и пишем только другие данные, а они у меня будут колебаться от 0 до 100.

@family · 19.12.2014, 15:47 **[ТС]**

В общем с отображением графика я разобрался. Скрин для наглядности прикрепил.

Теперь дело стоит за выводом этого графика в .xls. Я конечно разберусь с этим, но хотелось бы услышать или увидеть и другие варианты / решения.

@family · 22.12.2014, 12:46 **[ТС]**

UPD. Застрял на выводе графика в файл .xls...( Поможете?

Добавлено через 3 часа 55 минут
Вывод графика в .xls

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
ReDim Preserve myTime(N)
myTime(N) = Format(time, "hh:mm:ss")
 
Dim myExcel As Excel.Application
Dim myBook As Excel.Workbook
Dim mySheet As Excel.Worksheet
Dim myChart As Excel.Chart
 
Set myExcel = CreateObject("excel.application")
Set myBook = myExcel.Workbooks.Add
Set xlSheet = myBook.Worksheets(1)
 
xlSheet.Range("B1").Value = "T1"
For i = 1 To N - 1
xlSheet.Range("A" & Trim(Str(i + 2))).Value = myTime(i)
xlSheet.Range("B" & Trim(Str(i + 2))).Value = Trim(Str(temperatura(i)))
Next
 
Set myChart = myBook.Charts.Add
              myChart.ChartType = xlLine
              myChart.SetSourceData Source:=xlSheet.Range("A1:H" & Trim(Str(N + 1))), PlotBy:=xlColumns
              myChart.Location Where:=xlLocationAsNewSheet
              myChart.Axes(xlCategory).HasMajorGridlines = True
              myChart.Axes(xlCategory).HasMinorGridlines = False
              myChart.Axes(xlValue).HasMajorGridlines = True
              myChart.Axes(xlValue).HasMinorGridlines = False
              myChart.PlotArea.Border.ColorIndex = 16
              myChart.PlotArea.Border.Weight = xlThin
              myChart.PlotArea.Border.LineStyle = xlContinuous
              myChart.PlotArea.Interior.ColorIndex = 2
              myChart.PlotArea.Interior.PatternColorIndex = 1
              myChart.PlotArea.Interior.Pattern = xlSolid
              myChart.Axes(xlCategory).CrossesAt = 1
              myChart.Axes(xlCategory).AxisBetweenCategories = True
              myChart.Axes(xlCategory).ReversePlotOrder = False
              myChart.Legend.LegendEntries(1).LegendKey.Border.ColorIndex = 55
              myChart.Legend.LegendEntries(1).LegendKey.Border.Weight = xlThick
              myChart.Legend.LegendEntries(1).LegendKey.Border.LineStyle = xlContinuous
              myChart.Legend.LegendEntries(1).LegendKey.MarkerBackgroundColorIndex = xlNone
              myChart.Legend.LegendEntries(1).LegendKey.MarkerForegroundColorIndex = xlNone
              myChart.Legend.LegendEntries(1).LegendKey.MarkerStyle = xlNone
              myChart.Legend.LegendEntries(1).LegendKey.Smooth = False
              myChart.Legend.LegendEntries(1).LegendKey.MarkerSize = 3
              myChart.Legend.LegendEntries(1).LegendKey.Shadow = False
              myChart.Axes(xlValue).MinimumScaleIsAuto = True
              myChart.Axes(xlValue).MaximumScale = 100
              myChart.Axes(xlValue).MinorUnitIsAuto = True
              myChart.Axes(xlValue).MajorUnit = 10
              myChart.Axes(xlValue).Crosses = xlAutomatic
              myChart.Axes(xlValue).ReversePlotOrder = False
              myChart.Axes(xlValue).ScaleType = xlLinear
              myChart.Axes(xlValue).DisplayUnit = xlNone
myBook.SaveAs App.Path  & Format$(Now, "file - dd.mm.yy-hh_nn") & ".xls"
 
myExcel.Quit

Добавлено через 17 минут
Как бы все, программа готова) Остальное все тонкости настройки, всем спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@family 0 / 0 / 0 Регистрация: 01.12.2014 Сообщений: 49
	18.12.2014, 16:49 [ТС]
	UPD. Поможет кто? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.12.2014, 17:25
	Так уже ж сам сделал! Сохранить в .xls (App.Path) 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	19.12.2014, 13:06
	temperatura() объявлена as Integer, а не Long. 0

@family 0 / 0 / 0 Регистрация: 01.12.2014 Сообщений: 49
	19.12.2014, 15:47 [ТС]
	В общем с отображением графика я разобрался. Скрин для наглядности прикрепил. Теперь дело стоит за выводом этого графика в .xls. Я конечно разберусь с этим, но хотелось бы услышать или увидеть и другие варианты / решения. Миниатюры 0