mirror of
https://github.com/mbirth/cm2010.git
synced 2024-12-24 03:14:07 +00:00
Merge branch 'master' of https://github.com/mbirth/cm2010
This commit is contained in:
Markus Birth
commit
692b18d1fd
717
CM2010.dfm
Normal file
717
CM2010.dfm
Normal file
@ -0,0 +1,717 @@
|
||||
object Form1: TForm1
|
||||
Left = 195
|
||||
Top = 109
|
||||
Width = 716
|
||||
Height = 477
|
||||
Caption =
|
||||
'Charge Manager 2010 --- (c)2003 by Markus Birth <mbirth@webwrite' +
|
||||
'rs.de>'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label2: TLabel
|
||||
Left = 128
|
||||
Top = 0
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '05'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 201
|
||||
Top = 1
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '10'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 275
|
||||
Top = 0
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '15'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 351
|
||||
Top = 0
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '20'
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 427
|
||||
Top = 0
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '25'
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 501
|
||||
Top = 1
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = '30'
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 8
|
||||
Top = 264
|
||||
Width = 602
|
||||
Height = 162
|
||||
end
|
||||
object C1: TImage
|
||||
Left = 344
|
||||
Top = 128
|
||||
Width = 17
|
||||
Height = 17
|
||||
OnClick = C1Click
|
||||
end
|
||||
object C2: TImage
|
||||
Left = 344
|
||||
Top = 200
|
||||
Width = 17
|
||||
Height = 17
|
||||
OnClick = C2Click
|
||||
end
|
||||
object C3: TImage
|
||||
Left = 544
|
||||
Top = 128
|
||||
Width = 17
|
||||
Height = 17
|
||||
OnClick = C3Click
|
||||
end
|
||||
object C4: TImage
|
||||
Left = 544
|
||||
Top = 200
|
||||
Width = 17
|
||||
Height = 17
|
||||
OnClick = C4Click
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 8
|
||||
Top = 0
|
||||
Width = 48
|
||||
Height = 13
|
||||
Caption = 'Raw Data'
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 672
|
||||
Top = 259
|
||||
Width = 22
|
||||
Height = 13
|
||||
Caption = '5min'
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 673
|
||||
Top = 408
|
||||
Width = 23
|
||||
Height = 13
|
||||
Caption = '1sec'
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 671
|
||||
Top = 379
|
||||
Width = 22
|
||||
Height = 13
|
||||
Caption = '1min'
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 612
|
||||
Top = 259
|
||||
Width = 34
|
||||
Height = 13
|
||||
Caption = '- 1,60V'
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 616
|
||||
Top = 388
|
||||
Width = 22
|
||||
Height = 13
|
||||
Caption = 'secs'
|
||||
end
|
||||
object T_1: TLabel
|
||||
Left = 344
|
||||
Top = 166
|
||||
Width = 49
|
||||
Height = 10
|
||||
Alignment = taCenter
|
||||
AutoSize = False
|
||||
Caption = '---------'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object T_2: TLabel
|
||||
Left = 344
|
||||
Top = 238
|
||||
Width = 49
|
||||
Height = 10
|
||||
Alignment = taCenter
|
||||
AutoSize = False
|
||||
Caption = '---------'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object T_3: TLabel
|
||||
Left = 544
|
||||
Top = 166
|
||||
Width = 49
|
||||
Height = 10
|
||||
Alignment = taCenter
|
||||
AutoSize = False
|
||||
Caption = '---------'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object T_4: TLabel
|
||||
Left = 544
|
||||
Top = 238
|
||||
Width = 49
|
||||
Height = 10
|
||||
Alignment = taCenter
|
||||
AutoSize = False
|
||||
Caption = '---------'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object GraphDelayBar: TTrackBar
|
||||
Left = 648
|
||||
Top = 256
|
||||
Width = 25
|
||||
Height = 169
|
||||
Ctl3D = True
|
||||
Max = 299
|
||||
Orientation = trVertical
|
||||
ParentCtl3D = False
|
||||
PageSize = 10
|
||||
Frequency = 30
|
||||
Position = 240
|
||||
TabOrder = 22
|
||||
ThumbLength = 15
|
||||
OnChange = GraphDelayBarChange
|
||||
end
|
||||
object L1: TCheckBox
|
||||
Left = 344
|
||||
Top = 112
|
||||
Width = 41
|
||||
Height = 17
|
||||
Caption = 'Log'
|
||||
TabOrder = 17
|
||||
OnClick = L1Click
|
||||
end
|
||||
object COMSettings: TButton
|
||||
Left = 592
|
||||
Top = 16
|
||||
Width = 113
|
||||
Height = 25
|
||||
Caption = 'COM Port Settings...'
|
||||
TabOrder = 0
|
||||
OnClick = COMSettingsClick
|
||||
end
|
||||
object MultiButt: TButton
|
||||
Left = 592
|
||||
Top = 48
|
||||
Width = 113
|
||||
Height = 25
|
||||
Caption = 'Start capturing'
|
||||
TabOrder = 1
|
||||
OnClick = MultiButtClick
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Top = 184
|
||||
Width = 185
|
||||
Height = 73
|
||||
Caption = 'COM Status'
|
||||
TabOrder = 2
|
||||
object Label1: TLabel
|
||||
Left = 30
|
||||
Top = 16
|
||||
Width = 71
|
||||
Height = 13
|
||||
Caption = 'Last character:'
|
||||
end
|
||||
object L_Time: TLabel
|
||||
Left = 110
|
||||
Top = 16
|
||||
Width = 73
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'hh:mm:ss'
|
||||
end
|
||||
object ComLed1: TComLed
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsConn
|
||||
Kind = lkYellowLight
|
||||
end
|
||||
object ComLed2: TComLed
|
||||
Left = 24
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsCTS
|
||||
Kind = lkBlueLight
|
||||
end
|
||||
object ComLed3: TComLed
|
||||
Left = 48
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsDSR
|
||||
Kind = lkRedLight
|
||||
end
|
||||
object ComLed4: TComLed
|
||||
Left = 88
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsRing
|
||||
Kind = lkPurpleLight
|
||||
end
|
||||
object ComLed5: TComLed
|
||||
Left = 112
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsRLSD
|
||||
Kind = lkRedLight
|
||||
end
|
||||
object ComLed6: TComLed
|
||||
Left = 144
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsRx
|
||||
Kind = lkGreenLight
|
||||
end
|
||||
object ComLed7: TComLed
|
||||
Left = 160
|
||||
Top = 32
|
||||
Width = 25
|
||||
Height = 25
|
||||
ComPort = ComPort
|
||||
LedSignal = lsTx
|
||||
Kind = lkRedLight
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 150
|
||||
Top = 54
|
||||
Width = 13
|
||||
Height = 13
|
||||
Caption = 'Rx'
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 167
|
||||
Top = 54
|
||||
Width = 12
|
||||
Height = 13
|
||||
Caption = 'Tx'
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 114
|
||||
Top = 56
|
||||
Width = 21
|
||||
Height = 10
|
||||
Caption = 'RLSD'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 92
|
||||
Top = 56
|
||||
Width = 17
|
||||
Height = 10
|
||||
Caption = 'Ring'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label18: TLabel
|
||||
Left = 52
|
||||
Top = 56
|
||||
Width = 17
|
||||
Height = 10
|
||||
Caption = 'DSR'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label19: TLabel
|
||||
Left = 28
|
||||
Top = 56
|
||||
Width = 16
|
||||
Height = 10
|
||||
Caption = 'CTS'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label20: TLabel
|
||||
Left = 3
|
||||
Top = 56
|
||||
Width = 19
|
||||
Height = 10
|
||||
Caption = 'Conn'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -8
|
||||
Font.Name = 'Small Fonts'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 64
|
||||
Top = 16
|
||||
Width = 521
|
||||
Height = 20
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Text =
|
||||
'01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
|
||||
'2 23 24 25 26 27 28 29 30 31 32 33 34'
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 64
|
||||
Top = 40
|
||||
Width = 521
|
||||
Height = 20
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
Text =
|
||||
'01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
|
||||
'2 23 24 25 26 27 28 29 30 31 32 33 34'
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 64
|
||||
Top = 64
|
||||
Width = 521
|
||||
Height = 20
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
Text =
|
||||
'01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
|
||||
'2 23 24 25 26 27 28 29 30 31 32 33 34'
|
||||
end
|
||||
object Edit4: TEdit
|
||||
Left = 64
|
||||
Top = 88
|
||||
Width = 521
|
||||
Height = 20
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -9
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
Text =
|
||||
'01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 2' +
|
||||
'2 23 24 25 26 27 28 29 30 31 32 33 34'
|
||||
end
|
||||
object R_1: TRadioButton
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'Slot 1'
|
||||
Enabled = False
|
||||
TabOrder = 7
|
||||
end
|
||||
object R_2: TRadioButton
|
||||
Left = 8
|
||||
Top = 40
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'Slot 2'
|
||||
Enabled = False
|
||||
TabOrder = 8
|
||||
end
|
||||
object R_3: TRadioButton
|
||||
Left = 8
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'Slot 3'
|
||||
Enabled = False
|
||||
TabOrder = 9
|
||||
end
|
||||
object R_4: TRadioButton
|
||||
Left = 8
|
||||
Top = 88
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'Slot 4'
|
||||
Enabled = False
|
||||
TabOrder = 10
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 431
|
||||
Width = 708
|
||||
Height = 19
|
||||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
object D_1: TMemo
|
||||
Left = 200
|
||||
Top = 112
|
||||
Width = 137
|
||||
Height = 71
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'1:')
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 11
|
||||
end
|
||||
object D_2: TMemo
|
||||
Left = 200
|
||||
Top = 184
|
||||
Width = 137
|
||||
Height = 71
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'2:')
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 12
|
||||
end
|
||||
object D_3: TMemo
|
||||
Left = 400
|
||||
Top = 112
|
||||
Width = 137
|
||||
Height = 71
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'3:')
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 13
|
||||
end
|
||||
object D_4: TMemo
|
||||
Left = 400
|
||||
Top = 184
|
||||
Width = 137
|
||||
Height = 71
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'4:')
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 14
|
||||
end
|
||||
object D_Stat: TMemo
|
||||
Left = 8
|
||||
Top = 112
|
||||
Width = 137
|
||||
Height = 71
|
||||
Color = clLime
|
||||
Ctl3D = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
' CHARGE MANAGER'
|
||||
'================'
|
||||
'1:--- 3:---'
|
||||
'2:--- 4:---')
|
||||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
TabOrder = 15
|
||||
end
|
||||
object LogButton: TButton
|
||||
Left = 592
|
||||
Top = 80
|
||||
Width = 113
|
||||
Height = 25
|
||||
Caption = 'Start logging'
|
||||
TabOrder = 16
|
||||
OnClick = LogButtonClick
|
||||
end
|
||||
object L2: TCheckBox
|
||||
Left = 344
|
||||
Top = 184
|
||||
Width = 41
|
||||
Height = 17
|
||||
Caption = 'Log'
|
||||
TabOrder = 18
|
||||
OnClick = L2Click
|
||||
end
|
||||
object L3: TCheckBox
|
||||
Left = 544
|
||||
Top = 112
|
||||
Width = 41
|
||||
Height = 17
|
||||
Caption = 'Log'
|
||||
TabOrder = 19
|
||||
OnClick = L3Click
|
||||
end
|
||||
object L4: TCheckBox
|
||||
Left = 544
|
||||
Top = 184
|
||||
Width = 41
|
||||
Height = 17
|
||||
Caption = 'Log'
|
||||
TabOrder = 20
|
||||
OnClick = L4Click
|
||||
end
|
||||
object GraphDelayCtrl: TEdit
|
||||
Left = 616
|
||||
Top = 400
|
||||
Width = 25
|
||||
Height = 21
|
||||
TabOrder = 23
|
||||
Text = '60'
|
||||
OnChange = GraphDelayCtrlChange
|
||||
OnKeyDown = GraphDelayCtrlKeyDown
|
||||
end
|
||||
object PB_1: TProgressBar
|
||||
Left = 344
|
||||
Top = 176
|
||||
Width = 49
|
||||
Height = 8
|
||||
Smooth = True
|
||||
TabOrder = 24
|
||||
end
|
||||
object PB_2: TProgressBar
|
||||
Left = 344
|
||||
Top = 248
|
||||
Width = 49
|
||||
Height = 8
|
||||
Smooth = True
|
||||
TabOrder = 25
|
||||
end
|
||||
object PB_3: TProgressBar
|
||||
Left = 544
|
||||
Top = 176
|
||||
Width = 49
|
||||
Height = 8
|
||||
Smooth = True
|
||||
TabOrder = 26
|
||||
end
|
||||
object PB_4: TProgressBar
|
||||
Left = 544
|
||||
Top = 248
|
||||
Width = 49
|
||||
Height = 8
|
||||
Smooth = True
|
||||
TabOrder = 27
|
||||
end
|
||||
object ColorDialog: TColorDialog
|
||||
Left = 664
|
||||
Top = 112
|
||||
end
|
||||
object DelayTimer: TTimer
|
||||
Enabled = False
|
||||
Interval = 5000
|
||||
OnTimer = DelayTimerTimer
|
||||
Left = 664
|
||||
Top = 160
|
||||
end
|
||||
object ComPort: TComPort
|
||||
BaudRate = br9600
|
||||
Port = 'COM1'
|
||||
Parity.Bits = prNone
|
||||
StopBits = sbOneStopBit
|
||||
DataBits = dbEight
|
||||
Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
|
||||
FlowControl.OutCTSFlow = False
|
||||
FlowControl.OutDSRFlow = False
|
||||
FlowControl.ControlDTR = dtrDisable
|
||||
FlowControl.ControlRTS = rtsDisable
|
||||
FlowControl.XonXoffOut = False
|
||||
FlowControl.XonXoffIn = False
|
||||
OnAfterOpen = ComPortAfterOpen
|
||||
OnAfterClose = ComPortAfterClose
|
||||
OnRxChar = ComPortRxChar
|
||||
OnRxFlag = ComPortRxFlag
|
||||
Left = 160
|
||||
Top = 120
|
||||
end
|
||||
end
|
||||
901
CM2010.pas
Normal file
901
CM2010.pas
Normal file
@ -0,0 +1,901 @@
|
||||
unit CM2010;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, CPort, ComCtrls, IniFiles, CPortCtl, DateUtils;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
COMSettings: TButton;
|
||||
MultiButt: TButton;
|
||||
GroupBox1: TGroupBox;
|
||||
Label1: TLabel;
|
||||
L_Time: TLabel;
|
||||
Edit1: TEdit;
|
||||
Edit2: TEdit;
|
||||
Edit3: TEdit;
|
||||
Edit4: TEdit;
|
||||
R_1: TRadioButton;
|
||||
R_2: TRadioButton;
|
||||
R_3: TRadioButton;
|
||||
R_4: TRadioButton;
|
||||
StatusBar: TStatusBar;
|
||||
D_1: TMemo;
|
||||
D_2: TMemo;
|
||||
D_3: TMemo;
|
||||
D_4: TMemo;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
D_Stat: TMemo;
|
||||
LogButton: TButton;
|
||||
Image1: TImage;
|
||||
Label8: TLabel;
|
||||
L1: TCheckBox;
|
||||
L2: TCheckBox;
|
||||
L3: TCheckBox;
|
||||
L4: TCheckBox;
|
||||
ColorDialog: TColorDialog;
|
||||
C1: TImage;
|
||||
C2: TImage;
|
||||
C3: TImage;
|
||||
C4: TImage;
|
||||
Label9: TLabel;
|
||||
GraphDelayBar: TTrackBar;
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
GraphDelayCtrl: TEdit;
|
||||
Label13: TLabel;
|
||||
DelayTimer: TTimer;
|
||||
ComPort: TComPort;
|
||||
PB_1: TProgressBar;
|
||||
PB_2: TProgressBar;
|
||||
PB_3: TProgressBar;
|
||||
PB_4: TProgressBar;
|
||||
ComLed1: TComLed;
|
||||
ComLed2: TComLed;
|
||||
ComLed3: TComLed;
|
||||
ComLed4: TComLed;
|
||||
ComLed5: TComLed;
|
||||
ComLed6: TComLed;
|
||||
ComLed7: TComLed;
|
||||
Label14: TLabel;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
Label17: TLabel;
|
||||
Label18: TLabel;
|
||||
Label19: TLabel;
|
||||
Label20: TLabel;
|
||||
T_1: TLabel;
|
||||
T_2: TLabel;
|
||||
T_3: TLabel;
|
||||
T_4: TLabel;
|
||||
procedure COMSettingsClick(Sender: TObject);
|
||||
procedure MultiButtClick(Sender: TObject);
|
||||
procedure ComPortAfterOpen(Sender: TObject);
|
||||
procedure ComPortAfterClose(Sender: TObject);
|
||||
procedure ComPortRxChar(Sender: TObject; Count: Integer);
|
||||
procedure ComPortRxFlag(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure LogButtonClick(Sender: TObject);
|
||||
procedure C1Click(Sender: TObject);
|
||||
procedure C2Click(Sender: TObject);
|
||||
procedure C3Click(Sender: TObject);
|
||||
procedure C4Click(Sender: TObject);
|
||||
procedure L1Click(Sender: TObject);
|
||||
procedure L2Click(Sender: TObject);
|
||||
procedure L3Click(Sender: TObject);
|
||||
procedure L4Click(Sender: TObject);
|
||||
procedure GraphDelayBarChange(Sender: TObject);
|
||||
procedure DelayTimerTimer(Sender: TObject);
|
||||
procedure GraphDelayCtrlChange(Sender: TObject);
|
||||
procedure GraphDelayCtrlKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
type
|
||||
TRecords = array[1..4]of String[34];
|
||||
TBuf = array[0..33] of char;
|
||||
|
||||
const
|
||||
CRLF: string = Chr(13) + Chr(10);
|
||||
|
||||
var
|
||||
Slot: TRecords;
|
||||
GraphPos: array[1..4,1..2] of byte;
|
||||
GraphCol: array[1..4] of TColor;
|
||||
GraphDelay: integer = 60;
|
||||
GraphTime: integer;
|
||||
Sync: String[136] = '';
|
||||
InSync: boolean = true;
|
||||
LSlot: byte = 1;
|
||||
Logging: boolean = false;
|
||||
LastEvent: TDateTime = 0;
|
||||
f1,f2,f3,f4: file of byte;
|
||||
|
||||
procedure TForm1.COMSettingsClick(Sender: TObject);
|
||||
begin
|
||||
ComPort.ShowSetupDialog;
|
||||
end;
|
||||
|
||||
procedure TForm1.MultiButtClick(Sender: TObject);
|
||||
begin
|
||||
if ComPort.Connected then
|
||||
ComPort.Close
|
||||
else
|
||||
ComPort.Open;
|
||||
end;
|
||||
|
||||
procedure TForm1.ComPortAfterOpen(Sender: TObject);
|
||||
begin
|
||||
MultiButt.Caption := 'Stop capturing';
|
||||
end;
|
||||
|
||||
procedure TForm1.ComPortAfterClose(Sender: TObject);
|
||||
var i: integer;
|
||||
begin
|
||||
InSync := true;
|
||||
Sync := '';
|
||||
LSlot := 1;
|
||||
for i:=1 to 4 do Slot[i] := '';
|
||||
MultiButt.Caption := 'Start capturing';
|
||||
end;
|
||||
|
||||
function ShowHex(x: byte): string;
|
||||
const hset: string = '0123456789abcdef';
|
||||
begin
|
||||
ShowHex := hset[(x DIV 16)+1]+hset[(x MOD 16)+1];
|
||||
end;
|
||||
|
||||
function BuildHex(x: string): string;
|
||||
var i: integer;
|
||||
t: string;
|
||||
begin
|
||||
t := '';
|
||||
for i:=1 to Length(x) do t := t + ShowHex(Ord(x[i])) + ' ';
|
||||
BuildHex := t;
|
||||
end;
|
||||
|
||||
function GetVolts(s: byte): word;
|
||||
begin
|
||||
GetVolts := Ord(Slot[s][16])*256+Ord(Slot[s][17]);
|
||||
end;
|
||||
|
||||
function GetAmps(s: byte): word;
|
||||
begin
|
||||
GetAmps := Ord(Slot[s][14])*256+Ord(Slot[s][15]);
|
||||
end;
|
||||
|
||||
function GetCCap(s: byte): dword;
|
||||
begin
|
||||
GetCCap := Ord(Slot[s][18])*65536+Ord(Slot[s][19])*256+Ord(Slot[s][20]);
|
||||
end;
|
||||
|
||||
function GetDCap(s: byte): dword;
|
||||
begin
|
||||
GetDCap := Ord(Slot[s][21])*65536+Ord(Slot[s][22])*256+Ord(Slot[s][23]);
|
||||
end;
|
||||
|
||||
function GetHours(s: byte): byte;
|
||||
begin
|
||||
GetHours := Ord(Slot[s][6]);
|
||||
end;
|
||||
|
||||
function GetMinutes(s: byte): byte;
|
||||
begin
|
||||
GetMinutes := Ord(Slot[s][7]);
|
||||
end;
|
||||
|
||||
function GetProgress(s: byte): byte;
|
||||
begin
|
||||
Result := 0;
|
||||
if (ShowHex(Ord(Slot[s][3]))[2]<>'0') then begin
|
||||
case ShowHex(Ord(Slot[s][2]))[2] of
|
||||
'8': case ShowHex(Ord(Slot[s][3]))[2] of
|
||||
'5': Result := 50;
|
||||
'7','8': Result := 100;
|
||||
end;
|
||||
'9': case ShowHex(Ord(Slot[s][3]))[2] of
|
||||
'6': Result := 50;
|
||||
'7','8': Result := 100;
|
||||
end;
|
||||
'a': case ShowHex(Ord(Slot[s][3]))[2] of
|
||||
'4': Result := 33;
|
||||
'5': Result := 66;
|
||||
'7','8': Result := 100;
|
||||
end;
|
||||
'b': case ShowHex(Ord(Slot[s][3]))[2] of
|
||||
'3': Result := 25;
|
||||
'4': Result := 50;
|
||||
'5': Result := 75;
|
||||
'7','8': Result := 100;
|
||||
end;
|
||||
'c': case ShowHex(Ord(Slot[s][3]))[2] of
|
||||
'1': Result := 16;
|
||||
'2': Result := 33;
|
||||
'3': Result := 50;
|
||||
'4': Result := 66;
|
||||
'5': Result := 83;
|
||||
'7','8': Result := 100;
|
||||
end;
|
||||
'd','e','f': Result := 100;
|
||||
end;
|
||||
end else Result := 0;
|
||||
end;
|
||||
|
||||
function FormatCaps(c: dword): string;
|
||||
var t: string;
|
||||
begin
|
||||
t := IntToStr(c);
|
||||
if (c<=100000) then t := Copy(t,1,Length(t)-2) + '.' + Copy(t,Length(t)-1,1) else t := Copy(t,1,Length(t)-2);
|
||||
if t[1]='.' then t := '0' + t;
|
||||
while Length(t)<5 do t := ' '+t;
|
||||
FormatCaps := t;
|
||||
end;
|
||||
|
||||
function FormatTime(s: byte): string;
|
||||
var t: string;
|
||||
begin
|
||||
if (ShowHex(Ord(Slot[s][2]))[2]<>'0') then begin
|
||||
if GetHours(s)<10 then t := '0' + IntToStr(GetHours(s)) + ':' else t := IntToStr(GetHours(s)) + ':';
|
||||
if GetMinutes(s)<10 then t := t + '0' + IntToStr(GetMinutes(s)) else t := t + IntToStr(GetMinutes(s));
|
||||
end else t := '--:--';
|
||||
FormatTime := t;
|
||||
end;
|
||||
|
||||
function FormatUI(v: dword): string;
|
||||
var t: string;
|
||||
begin
|
||||
if v>0 then begin
|
||||
t := IntToStr(v);
|
||||
while Length(t)<4 do t := '0' + t;
|
||||
t := Copy(t,1,Length(t)-3) + '.' + Copy(t,Length(t)-2,2);
|
||||
if t[1]='.' then t := '0' + t;
|
||||
end else t := '----';
|
||||
while Length(t)<7 do t := ' '+t;
|
||||
FormatUI := t;
|
||||
end;
|
||||
|
||||
function GetAutoMan(s: byte): string;
|
||||
begin
|
||||
if ShowHex(Ord(Slot[s][2]))[2]<>'0' then begin
|
||||
if ShowHex(Ord(Slot[s][3]))[1]='0' then GetAutoMan := 'AUTO' else GetAutoMan := 'MAN ';
|
||||
end else GetAutoMan := '----';
|
||||
end;
|
||||
|
||||
function GetTriAction(s: byte): string;
|
||||
begin
|
||||
case ShowHex(Ord(Slot[s][2]))[2] of
|
||||
'0': GetTriAction := '---';
|
||||
'8': GetTriAction := 'CHA';
|
||||
'9': GetTriAction := 'DIS';
|
||||
'a': GetTriAction := 'CHK';
|
||||
'b': GetTriAction := 'CYC';
|
||||
'c': GetTriAction := 'ALV';
|
||||
'd': GetTriAction := 'RDY';
|
||||
'e': GetTriAction := 'ERR';
|
||||
'f': GetTriAction := 'TRI';
|
||||
else
|
||||
GetTriAction := '???';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure LoadSettings;
|
||||
var cf: TIniFile;
|
||||
begin
|
||||
try
|
||||
cf := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
|
||||
Form1.AlphaBlendValue := cf.ReadInteger('Window','AlphaValue',255);
|
||||
Form1.AlphaBlend := cf.ReadBool('Window','AlphaBlend',false);
|
||||
|
||||
with Form1 do begin
|
||||
ComPort.Port := cf.ReadString('Communication','Port','COM1');
|
||||
ComPort.BaudRate := StrToBaudRate(cf.ReadString('Communication','BaudRate','9600'));
|
||||
ComPort.DataBits := StrToDataBits(cf.ReadString('Communication','DataBits','8'));
|
||||
ComPort.StopBits := StrToStopBits(cf.ReadString('Communication','StopBits','1'));
|
||||
ComPort.Parity.Bits := StrToParity(cf.ReadString('Communication','Parity','None'));
|
||||
ComPort.Parity.Check := cf.ReadBool('Communication','Parity.Check',false);
|
||||
ComPort.Parity.Replace := cf.ReadBool('Communication','Parity.Replace',false);
|
||||
ComPort.Parity.ReplaceChar := Chr(cf.ReadInteger('Communication','Parity.ReplaceChar',0));
|
||||
ComPort.FlowControl.FlowControl := StrToFlowControl(cf.ReadString('Communication','FlowControl','Custom'));
|
||||
ComPort.FlowControl.ControlDTR := TDTRFlowControl(cf.ReadInteger('Communication','FlowControl.DTR',1));
|
||||
ComPort.FlowControl.ControlRTS := TRTSFlowControl(cf.ReadInteger('Communication','FlowControl.RTS',0));
|
||||
ComPort.FlowControl.DSRSensitivity := cf.ReadBool('Communication','FlowControl.DSRSensitivity',false);
|
||||
ComPort.FlowControl.OutCTSFlow := cf.ReadBool('Communication','FlowControl.OutCTSFlow',false);
|
||||
ComPort.FlowControl.OutDSRFlow := cf.ReadBool('Communication','FlowControl.OutDSRFlow',false);
|
||||
ComPort.FlowControl.TxContinueOnXoff := cf.ReadBool('Communication','FlowControl.TxContinueOnXoff',false);
|
||||
ComPort.FlowControl.XoffChar := Chr(cf.ReadInteger('Communication','FlowControl.XoffChar',19));
|
||||
ComPort.FlowControl.XonChar := Chr(cf.ReadInteger('Communication','FlowControl.XonChar',17));
|
||||
ComPort.FlowControl.XonXoffIn := cf.ReadBool('Communication','FlowControl.XonXoffIn',false);
|
||||
ComPort.FlowControl.XonXoffOut := cf.ReadBool('Communication','FlowControl.XonXoffOut',false);
|
||||
end;
|
||||
|
||||
GraphDelay := cf.ReadInteger('Slots','GraphDelay',60);
|
||||
Form1.GraphDelayBar.Position := 300-GraphDelay;
|
||||
Form1.GraphDelayCtrl.Text := IntToStr(GraphDelay);
|
||||
GraphCol[1] := TColor(cf.ReadInteger('Slots','1.Color',16711680));
|
||||
GraphCol[2] := TColor(cf.ReadInteger('Slots','2.Color',255));
|
||||
GraphCol[3] := TColor(cf.ReadInteger('Slots','3.Color',32768));
|
||||
GraphCol[4] := TColor(cf.ReadInteger('Slots','4.Color',16711935));
|
||||
|
||||
cf.Free;
|
||||
except
|
||||
on E: Exception do ShowMessage('ERROR: Could not read settings from ini-file!'+CRLF+'('+E.Message+')');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SaveSettings;
|
||||
var cf: TIniFile;
|
||||
begin
|
||||
try
|
||||
cf := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
|
||||
with Form1 do begin
|
||||
cf.WriteString('Communication', 'Port', ComPort.Port);
|
||||
cf.WriteString('Communication', 'BaudRate', BaudRateToStr(ComPort.BaudRate));
|
||||
cf.WriteString('Communication', 'DataBits', DataBitsToStr(ComPort.DataBits));
|
||||
cf.WriteString('Communication', 'StopBits', StopBitsToStr(ComPort.StopBits));
|
||||
cf.WriteString('Communication', 'Parity', ParityToStr(ComPort.Parity.Bits));
|
||||
cf.WriteBool('Communication', 'Parity.Check', ComPort.Parity.Check);
|
||||
cf.WriteBool('Communication', 'Parity.Replace', ComPort.Parity.Replace);
|
||||
cf.WriteInteger('Communication', 'Parity.ReplaceChar', Ord(ComPort.Parity.ReplaceChar));
|
||||
cf.WriteString('Communication', 'FlowControl', FlowControlToStr(ComPort.FlowControl.FlowControl));
|
||||
cf.WriteInteger('Communication', 'FlowControl.DTR', Ord(ComPort.FlowControl.ControlDTR));
|
||||
cf.WriteInteger('Communication', 'FlowControl.RTS', Ord(ComPort.FlowControl.ControlRTS));
|
||||
cf.WriteBool('Communication', 'FlowControl.DSRSensitivity', ComPort.FlowControl.DSRSensitivity);
|
||||
cf.WriteBool('Communication', 'FlowControl.OutCTSFlow', ComPort.FlowControl.OutCTSFlow);
|
||||
cf.WriteBool('Communication', 'FlowControl.OutDSRFlow', ComPort.FlowControl.OutDSRFlow);
|
||||
cf.WriteBool('Communication', 'FlowControl.TxContinueOnXoff', ComPort.FlowControl.TxContinueOnXoff);
|
||||
cf.WriteInteger('Communication' ,'FlowControl.XoffChar', Ord(ComPort.FlowControl.XoffChar));
|
||||
cf.WriteInteger('Communication', 'FlowControl.XonChar', Ord(ComPort.FlowControl.XonChar));
|
||||
cf.WriteBool('Communication', 'FlowControl.XonXoffIn', ComPort.FlowControl.XonXoffIn);
|
||||
cf.WriteBool('Communication', 'FlowControl.XonXoffOut', ComPort.FlowControl.XonXoffOut);
|
||||
end;
|
||||
|
||||
cf.WriteInteger('Slots','GraphDelay',GraphDelay);
|
||||
cf.WriteInteger('Slots','1.Color',Ord(GraphCol[1]));
|
||||
cf.WriteInteger('Slots','2.Color',Ord(GraphCol[2]));
|
||||
cf.WriteInteger('Slots','3.Color',Ord(GraphCol[3]));
|
||||
cf.WriteInteger('Slots','4.Color',Ord(GraphCol[4]));
|
||||
|
||||
cf.Free;
|
||||
except
|
||||
on E: Exception do ShowMessage('ERROR: Could not write settings to ini-file!'+CRLF+'('+E.Message+')');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DoStatDisp(m: TMemo);
|
||||
var t: string;
|
||||
begin
|
||||
t := ' CHARGE MANAGER ' + CRLF;
|
||||
t := t + '================' + CRLF;
|
||||
t := t + '1:' + GetTriAction(1) + ' 3:' + GetTriAction(3) + CRLF;
|
||||
t := t + '2:' + GetTriAction(2) + ' 4:' + GetTriAction(4);
|
||||
if (t<>m.Text) then m.Text := t;
|
||||
end;
|
||||
|
||||
procedure DoValDisp(s: byte; m: TMemo);
|
||||
var b3,c,d: char;
|
||||
var t: string;
|
||||
begin
|
||||
b3 := ShowHex(Ord(Slot[s][3]))[2];
|
||||
c := ' ';
|
||||
d := ' ';
|
||||
case b3 of
|
||||
'1','3','5','7': c := '»';
|
||||
'2','4','6': d := '»';
|
||||
end;
|
||||
t := IntToStr(s) + ':' + GetTriAction(s) + c + 'C=' + FormatCaps(GetCCap(s)) + 'mAh' + CRLF;
|
||||
t := t + GetAutoMan(s) + ' ' + d + 'D=' + FormatCaps(GetDCap(s)) + 'mAh' + CRLF;
|
||||
t := t + ' U=' + FormatUI(GetVolts(s)) + 'V' + CRLF;
|
||||
t := t + FormatTime(s) + ' I=' + FormatUI(GetAmps(s)) + 'A';
|
||||
if (t<>m.Text) then m.Text := t;
|
||||
end;
|
||||
|
||||
procedure DoEmptyDisp(s: byte; m: TMemo);
|
||||
var t: string;
|
||||
begin
|
||||
t := IntToStr(s) + ':';
|
||||
if (m.Text<>t) then m.Text := t;
|
||||
end;
|
||||
|
||||
procedure DoAccuSettings(s: byte; m: TMemo; w1, w2: string);
|
||||
var t: string;
|
||||
begin
|
||||
t := ' ACCU- SETTINGS ' + CRLF;
|
||||
t := t + '================' + CRLF;
|
||||
t := t + IntToStr(s) + ': ' + w1 + CRLF;
|
||||
t := t + w2;
|
||||
if (m.Text<>t) then m.Text := t;
|
||||
end;
|
||||
|
||||
procedure DoDisplay(s: byte; m: TMemo);
|
||||
var b2,b3: string[2];
|
||||
begin
|
||||
b2 := ShowHex(Ord(Slot[s][2]));
|
||||
b3 := ShowHex(Ord(Slot[s][3]));
|
||||
if (b2+b3='0000') then begin
|
||||
DoEmptyDisp(s, m);
|
||||
m.Enabled := false;
|
||||
end else if (b2+b3='0100') then begin
|
||||
DoAccuSettings(s, m, 'SET AUTO/MAN', ' » AUTOMATIC');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0200') then begin
|
||||
DoAccuSettings(s, m, 'SET AUTO/MAN', ' » MANUAL');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0210') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 100- 200 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0220') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 200- 350 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0230') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 350- 600 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0240') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 600- 900 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0250') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 900- 1200 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0260') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 1200- 1500 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0270') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 1500- 2200 mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2+b3='0280') then begin
|
||||
DoAccuSettings(s, m, 'SET CAPACITY','» 2200- ... mAh');
|
||||
m.Enabled := true;
|
||||
end else if (b2='03') then begin
|
||||
DoAccuSettings(s, m, 'SET PROGRAM', ' » CHARGE');
|
||||
m.Enabled := true
|
||||
end else if (b2='04') then begin
|
||||
DoAccuSettings(s, m, 'SET PROGRAM', ' » DISCHARGE');
|
||||
m.Enabled := true
|
||||
end else if (b2='05') then begin
|
||||
DoAccuSettings(s, m, 'SET PROGRAM', ' » CHECK');
|
||||
m.Enabled := true
|
||||
end else if (b2='06') then begin
|
||||
DoAccuSettings(s, m, 'SET PROGRAM', ' » CYCLE');
|
||||
m.Enabled := true
|
||||
end else if (b2='07') then begin
|
||||
DoAccuSettings(s, m, 'SET PROGRAM', ' » ALIVE');
|
||||
m.Enabled := true
|
||||
end else begin
|
||||
DoValDisp(s, m);
|
||||
m.Enabled := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetManType(s: byte): String;
|
||||
begin
|
||||
case Ord(Slot[s][3]) AND $F0 of
|
||||
$00: Result := 'Automatic';
|
||||
$10: Result := '100-200';
|
||||
$20: Result := '200-350';
|
||||
$30: Result := '350-600';
|
||||
$40: Result := '600-900';
|
||||
$50: Result := '900-1200';
|
||||
$60: Result := '1200-1500';
|
||||
$70: Result := '1500-2200';
|
||||
$80: Result := '2200-....';
|
||||
else
|
||||
Result := '?????????';
|
||||
end;
|
||||
end;
|
||||
|
||||
function MakeBuf(s: integer): TBuf;
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=1 to 34 do Result[i-1] := Slot[s][i];
|
||||
end;
|
||||
|
||||
procedure DoLog(s: byte);
|
||||
var Buf: TBuf;
|
||||
begin
|
||||
with Form1 do begin
|
||||
case s of
|
||||
1: if L1.Checked then begin
|
||||
Buf := MakeBuf(1);
|
||||
BlockWrite(f1,Buf,34);
|
||||
end;
|
||||
2: if L2.Checked then begin
|
||||
Buf := MakeBuf(2);
|
||||
BlockWrite(f2,Buf,34);
|
||||
end;
|
||||
3: if L3.Checked then begin
|
||||
Buf := MakeBuf(3);
|
||||
BlockWrite(f3,Buf,34);
|
||||
end;
|
||||
4: if L4.Checked then begin
|
||||
Buf := MakeBuf(4);
|
||||
BlockWrite(f4,Buf,34);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure GraphClear(Image: TImage);
|
||||
const linespace: integer = 50; // horizontal helping lines (50 = 0,5V)
|
||||
minspace: integer = 30; // vertical helping lines (30 = 30min)
|
||||
var GH, GW, i: integer;
|
||||
begin
|
||||
GH := Image.Height - 2;
|
||||
GW := Image.Width - 2;
|
||||
Image.Canvas.Brush.Color := clWindow;
|
||||
Image.Canvas.Brush.Style := bsSolid;
|
||||
Image.Canvas.Pen.Color := clBlack;
|
||||
Image.Canvas.FillRect(Rect(0,0,Image.Width,Image.Height));
|
||||
Image.Canvas.Rectangle(0,0,Image.Width,Image.Height);
|
||||
Image.Canvas.Pen.Color := clSilver;
|
||||
for i:=1 to (GH DIV linespace) do begin
|
||||
Image.Canvas.MoveTo(1,1+GH-linespace*i);
|
||||
Image.Canvas.LineTo(GW+1,1+GH-linespace*i);
|
||||
end;
|
||||
for i:=1 to (GW DIV minspace) do begin
|
||||
Image.Canvas.MoveTo(minspace*i,1);
|
||||
Image.Canvas.LineTo(minspace*i,GH+1);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure PaintGraph(Image: TImage; Slot: integer);
|
||||
var t: string;
|
||||
y: integer;
|
||||
GW, GH: integer;
|
||||
begin
|
||||
GW := Image.Width - 2;
|
||||
GH := Image.Height - 2;
|
||||
if Slot=1 then begin
|
||||
Image.Canvas.CopyRect(Rect(1,1,GW,GH+1),Image.Canvas,Rect(2,1,GW+1,GH+1));
|
||||
Image.Canvas.Pen.Color := clWindow;
|
||||
Image.Canvas.Brush.Color := clWindow;
|
||||
Image.Canvas.Brush.Style := bsSolid;
|
||||
Image.Canvas.FillRect(Rect(GW,1,GW+1,GH+1));
|
||||
Image.Canvas.Pixels[GW,GH+1-50] := clSilver; // 0,5V-Mark
|
||||
Image.Canvas.Pixels[GW,GH+1-100] := clSilver; // 1,0V-Mark
|
||||
Image.Canvas.Pixels[GW,GH+1-150] := clSilver; // 1,5V-Mark
|
||||
end;
|
||||
Image.Canvas.Pen.Color := GraphCol[Slot];
|
||||
if Abs(GraphPos[Slot,1]-GraphPos[Slot,2])>=50 then begin
|
||||
Image.Canvas.Font.Name := 'Small Fonts';
|
||||
Image.Canvas.Font.Size := 7;
|
||||
Image.Canvas.Font.Color := GraphCol[Slot];
|
||||
t := TimeToStr(time);
|
||||
y := GraphPos[Slot,2]-Image.Canvas.TextHeight(t) DIV 2;
|
||||
if y>Image.Height-Image.Canvas.TextHeight(t)-1 then y := Image.Height-Image.Canvas.TextHeight(t)-1;
|
||||
Image.Canvas.TextOut(GW-2-Image.Canvas.TextWidth(t),y,t);
|
||||
end;
|
||||
if (GraphPos[Slot,1]<GH) then Image.Canvas.MoveTo(GW-1,GraphPos[Slot,1]) else Image.Canvas.MoveTo(GW,GraphPos[Slot,2]);
|
||||
if (GraphPos[Slot,2]<GH) then begin
|
||||
Image.Canvas.LineTo(GW,GraphPos[Slot,2]);
|
||||
Image.Canvas.Pixels[GW,GraphPos[Slot,2]] := GraphCol[Slot];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DoGraphDisp(Image: TImage; Slot: integer);
|
||||
begin
|
||||
GraphPos[Slot,1] := GraphPos[Slot,2];
|
||||
GraphPos[Slot,2] := Image.Height-2-GetVolts(Slot) DIV 10;
|
||||
PaintGraph(Image, Slot);
|
||||
end;
|
||||
|
||||
function MSBetween(t1, t2: TDateTime): integer;
|
||||
var r: double;
|
||||
begin
|
||||
if t2>t1 then r := t2-t1 else r := t1-t2;
|
||||
result := Trunc(r * 86400000);
|
||||
end;
|
||||
|
||||
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
|
||||
var str: string;
|
||||
i: integer;
|
||||
begin
|
||||
if MSBetween(now, LastEvent)>400 then begin
|
||||
StatusBar.SimpleText := 'Signal timed out. Resynching';
|
||||
LastEvent := now;
|
||||
InSync := true;
|
||||
end;
|
||||
ComPort.ReadStr(str, Count);
|
||||
for i:=1 to Count do begin
|
||||
if InSync then begin
|
||||
if Length(Sync)=0 then StatusBar.SimpleText := 'Waiting for SyncBuffer to fill';
|
||||
if Length(Sync)<136 then begin
|
||||
Sync := Sync + str[i];
|
||||
StatusBar.SimpleText := StatusBar.SimpleText + '.';
|
||||
end else begin
|
||||
if StatusBar.SimpleText[1]<>'S' then StatusBar.SimpleText := 'Synchronizing';
|
||||
Sync := Copy(Sync,2,Length(Sync)) + Str[i];
|
||||
StatusBar.SimpleText := StatusBar.SimpleText + '.';
|
||||
if (Ord(Sync[1])=1) AND (Ord(Sync[35])=2) AND (Ord(Sync[69])=3) AND (Ord(Sync[103])=4) then begin
|
||||
StatusBar.SimpleText := StatusBar.SimpleText + 'done.';
|
||||
InSync := false;
|
||||
LSlot := 1;
|
||||
R_1.Checked := true;
|
||||
end;
|
||||
end;
|
||||
end else begin
|
||||
if Length(Slot[LSlot])>=34 then Slot[LSlot] := '';
|
||||
Slot[LSlot] := Slot[LSlot] + Str[i];
|
||||
if Length(Slot[LSlot])>=34 then begin
|
||||
case LSlot of
|
||||
1: R_1.Checked := false;
|
||||
2: R_2.Checked := false;
|
||||
3: R_3.Checked := false;
|
||||
4: R_4.Checked := false;
|
||||
end;
|
||||
if (Ord(Slot[LSlot][1])<>LSlot) then begin
|
||||
StatusBar.SimpleText := 'Synchronization lost. Resynching';
|
||||
InSync := true;
|
||||
LastEvent := now;
|
||||
// Sync := '';
|
||||
end;
|
||||
case LSlot of
|
||||
1: begin
|
||||
Edit1.Text := BuildHex(Slot[1]);
|
||||
DoDisplay(1, D_1);
|
||||
T_1.Caption := GetManType(1);
|
||||
PB_1.Position := GetProgress(1);
|
||||
DoLog(1);
|
||||
end;
|
||||
2: begin
|
||||
Edit2.Text := BuildHex(Slot[2]);
|
||||
DoDisplay(2, D_2);
|
||||
T_2.Caption := GetManType(2);
|
||||
PB_2.Position := GetProgress(2);
|
||||
DoLog(2);
|
||||
end;
|
||||
3: begin
|
||||
Edit3.Text := BuildHex(Slot[3]);
|
||||
DoDisplay(3, D_3);
|
||||
T_3.Caption := GetManType(3);
|
||||
PB_3.Position := GetProgress(3);
|
||||
DoLog(3);
|
||||
end;
|
||||
4: begin
|
||||
Edit4.Text := BuildHex(Slot[4]);
|
||||
DoDisplay(4, D_4);
|
||||
T_4.Caption := GetManType(4);
|
||||
PB_4.Position := GetProgress(4);
|
||||
DoLog(4);
|
||||
end;
|
||||
end;
|
||||
Inc(LSlot);
|
||||
if LSlot>4 then LSlot := 1;
|
||||
if (LSlot=1) AND (GraphTime>=GraphDelay) then begin
|
||||
DoGraphDisp(Image1, 1);
|
||||
DoGraphDisp(Image1, 2);
|
||||
DoGraphDisp(Image1, 3);
|
||||
DoGraphDisp(Image1, 4);
|
||||
GraphTime := 0;
|
||||
end;
|
||||
if (LSlot=1) then begin
|
||||
Inc(GraphTime);
|
||||
DoStatDisp(D_Stat);
|
||||
end;
|
||||
case LSlot of
|
||||
1: R_1.Checked := true;
|
||||
2: R_2.Checked := true;
|
||||
3: R_3.Checked := true;
|
||||
4: R_4.Checked := true;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.ComPortRxFlag(Sender: TObject);
|
||||
begin
|
||||
L_Time.Caption := TimeToStr(time);
|
||||
LastEvent := now;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
if ComPort.Connected then ComPort.Close;
|
||||
SaveSettings;
|
||||
end;
|
||||
|
||||
procedure UpdateColors;
|
||||
begin
|
||||
Form1.C1.Canvas.Brush.Color := GraphCol[1];
|
||||
Form1.C1.Canvas.Brush.Style := bsSolid;
|
||||
Form1.C1.Canvas.FillRect(Rect(0,0,100,100));
|
||||
|
||||
Form1.C2.Canvas.Brush.Color := GraphCol[2];
|
||||
Form1.C2.Canvas.Brush.Style := bsSolid;
|
||||
Form1.C2.Canvas.FillRect(Rect(0,0,100,100));
|
||||
|
||||
Form1.C3.Canvas.Brush.Color := GraphCol[3];
|
||||
Form1.C3.Canvas.Brush.Style := bsSolid;
|
||||
Form1.C3.Canvas.FillRect(Rect(0,0,100,100));
|
||||
|
||||
Form1.C4.Canvas.Brush.Color := GraphCol[4];
|
||||
Form1.C4.Canvas.Brush.Style := bsSolid;
|
||||
Form1.C4.Canvas.FillRect(Rect(0,0,100,100));
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
var i: integer;
|
||||
begin
|
||||
LoadSettings;
|
||||
UpdateColors;
|
||||
GraphClear(Image1);
|
||||
GraphTime := GraphDelay;
|
||||
for i:=1 to 4 do begin
|
||||
GraphPos[i,1] := Image1.Height - 2;
|
||||
GraphPos[i,2] := Image1.Height - 2;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.LogButtonClick(Sender: TObject);
|
||||
begin
|
||||
if (NOT L1.Checked) AND (NOT L2.Checked) AND (NOT L3.Checked) AND (NOT L4.Checked) then begin
|
||||
L1.Checked := true;
|
||||
L2.Checked := true;
|
||||
L3.Checked := true;
|
||||
L4.Checked := true;
|
||||
LogButton.Caption := 'Stop logging';
|
||||
end else begin
|
||||
L1.Checked := false;
|
||||
L2.Checked := false;
|
||||
L3.Checked := false;
|
||||
L4.Checked := false;
|
||||
LogButton.Caption := 'Start logging';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.C1Click(Sender: TObject);
|
||||
begin
|
||||
ColorDialog.Color := GraphCol[1];
|
||||
ColorDialog.Execute;
|
||||
GraphCol[1] := ColorDialog.Color;
|
||||
UpdateColors;
|
||||
end;
|
||||
|
||||
procedure TForm1.C2Click(Sender: TObject);
|
||||
begin
|
||||
ColorDialog.Color := GraphCol[2];
|
||||
ColorDialog.Execute;
|
||||
GraphCol[2] := ColorDialog.Color;
|
||||
UpdateColors;
|
||||
end;
|
||||
|
||||
procedure TForm1.C3Click(Sender: TObject);
|
||||
begin
|
||||
ColorDialog.Color := GraphCol[3];
|
||||
ColorDialog.Execute;
|
||||
GraphCol[3] := ColorDialog.Color;
|
||||
UpdateColors;
|
||||
end;
|
||||
|
||||
procedure TForm1.C4Click(Sender: TObject);
|
||||
begin
|
||||
ColorDialog.Color := GraphCol[4];
|
||||
ColorDialog.Execute;
|
||||
GraphCol[4] := ColorDialog.Color;
|
||||
UpdateColors;
|
||||
end;
|
||||
|
||||
procedure StartStopCheck;
|
||||
begin
|
||||
if (Form1.L1.Checked) OR (Form1.L2.Checked) OR (Form1.L3.Checked) OR (Form1.L4.Checked) then
|
||||
Form1.LogButton.Caption := 'Stop logging'
|
||||
else
|
||||
Form1.LogButton.Caption := 'Start logging';
|
||||
end;
|
||||
|
||||
function GetDateTimeString(): string;
|
||||
var y,m,d,h,i,s,ms: word;
|
||||
begin
|
||||
DecodeDateTime(now,y,m,d,h,i,s,ms);
|
||||
Result := '';
|
||||
Result := Result + IntToStr(y);
|
||||
if (m<10) then Result := Result + '0';
|
||||
Result := Result + IntToStr(m);
|
||||
if (d<10) then Result := Result + '0';
|
||||
Result := Result + IntToStr(d);
|
||||
if (h<10) then Result := Result + '0';
|
||||
Result := Result + IntToStr(h);
|
||||
if (i<10) then Result := Result + '0';
|
||||
Result := Result + IntToStr(i);
|
||||
if (s<10) then Result := Result + '0';
|
||||
Result := Result + IntToStr(s);
|
||||
end;
|
||||
|
||||
procedure TForm1.L1Click(Sender: TObject);
|
||||
begin
|
||||
StartStopCheck;
|
||||
if (L1.Checked) then begin
|
||||
AssignFile(f1,'Slot01_'+GetDateTimeString()+'.log');
|
||||
Rewrite(f1);
|
||||
end else begin
|
||||
CloseFile(f1);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.L2Click(Sender: TObject);
|
||||
begin
|
||||
StartStopCheck;
|
||||
if (L2.Checked) then begin
|
||||
AssignFile(f2,'Slot02_'+GetDateTimeString()+'.log');
|
||||
Rewrite(f2);
|
||||
end else begin
|
||||
CloseFile(f2);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.L3Click(Sender: TObject);
|
||||
begin
|
||||
StartStopCheck;
|
||||
if (L3.Checked) then begin
|
||||
AssignFile(f3,'Slot03_'+GetDateTimeString()+'.log');
|
||||
Rewrite(f3);
|
||||
end else begin
|
||||
CloseFile(f3);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.L4Click(Sender: TObject);
|
||||
begin
|
||||
StartStopCheck;
|
||||
if (L4.Checked) then begin
|
||||
AssignFile(f4,'Slot04_'+GetDateTimeString()+'.log');
|
||||
Rewrite(f4);
|
||||
end else begin
|
||||
CloseFile(f4);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.GraphDelayBarChange(Sender: TObject);
|
||||
begin
|
||||
GraphDelay := 300-GraphDelayBar.Position;
|
||||
GraphDelayCtrl.Text := IntToStr(GraphDelay);
|
||||
end;
|
||||
|
||||
procedure TForm1.DelayTimerTimer(Sender: TObject);
|
||||
begin
|
||||
GraphDelayCtrl.Text := IntToStr(300-GraphDelayBar.Position);
|
||||
end;
|
||||
|
||||
procedure TForm1.GraphDelayCtrlChange(Sender: TObject);
|
||||
begin
|
||||
DelayTimer.Enabled := false;
|
||||
DelayTimer.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure TForm1.GraphDelayCtrlKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
var x: integer;
|
||||
begin
|
||||
if (Key=VK_RETURN) then begin
|
||||
try
|
||||
x := StrToInt(GraphDelayCtrl.Text);
|
||||
except
|
||||
GraphDelayCtrl.Text := '##';
|
||||
x := 300-GraphDelayBar.Position;
|
||||
end;
|
||||
if (x>0) then GraphDelayBar.Position := 300-x else GraphDelayCtrl.Text := '##';
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
39
CM2010Project.cfg
Normal file
39
CM2010Project.cfg
Normal file
@ -0,0 +1,39 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\program files\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\program files\borland\delphi7\Projects\Bpl"
|
||||
-LUdesignide;vcl;rtl;vclx;vclactnband
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
142
CM2010Project.dof
Normal file
142
CM2010Project.dof
Normal file
@ -0,0 +1,142 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=CM2010 Project
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=designide;vcl;rtl;vclx;vclactnband
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=1
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=1
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=5
|
||||
Debug=0
|
||||
PreRelease=1
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1033
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Markus Birth <mbirth@webwriters.de>
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.5
|
||||
InternalName=CM2010
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\program files\borland\delphi7\Bin\dclsmpedit70.bpl=Borland Editor Script Enhancements
|
||||
c:\program files\borland\delphi7\Bin\dclemacsedit70.bpl=Borland Editor Emacs Enhancements
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
14
CM2010Project.dpr
Normal file
14
CM2010Project.dpr
Normal file
@ -0,0 +1,14 @@
|
||||
program CM2010Project;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
CM2010 in 'CM2010.pas' {Form1};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.Title := 'Charge Manager 2010 --- (c)2003 by Markus Birth';
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
63
CM2010Project.ini
Normal file
63
CM2010Project.ini
Normal file
@ -0,0 +1,63 @@
|
||||
[Window]
|
||||
AlphaBlend=1
|
||||
AlphaValue=222
|
||||
|
||||
[Communication]
|
||||
Port=COM1
|
||||
BaudRate=9600
|
||||
DataBits=8
|
||||
StopBits=1
|
||||
Parity=None
|
||||
Parity.Check=0
|
||||
Parity.Replace=0
|
||||
Parity.ReplaceChar=0
|
||||
FlowControl=None
|
||||
FlowControl.DTR=1
|
||||
FlowControl.RTS=0
|
||||
FlowControl.DSRSensitivity=0
|
||||
FlowControl.OutCTSFlow=0
|
||||
FlowControl.OutDSRFlow=0
|
||||
FlowControl.TxContinueOnXoff=0
|
||||
FlowControl.XoffChar=19
|
||||
FlowControl.XonChar=17
|
||||
FlowControl.XonXoffIn=0
|
||||
FlowControl.XonXoffOut=0
|
||||
|
||||
[Slots]
|
||||
1.Color=16711680
|
||||
2.Color=255
|
||||
3.Color=32768
|
||||
4.Color=16711935
|
||||
GraphDelay=75
|
||||
|
||||
;BELOW HERE IS FOR FUTURE ONLY
|
||||
|
||||
[Models]
|
||||
cm2010="Charge Manager 2010"
|
||||
cm2020="Charge Manager 2020"
|
||||
|
||||
[Model.cm2010]
|
||||
Slots=4
|
||||
RecordLength=34
|
||||
Byte.SlotNo=1
|
||||
Byte.Disp=2L
|
||||
Byte.BattType=3H
|
||||
Byte.Progress=3L
|
||||
Byte.Counter=5
|
||||
Byte.Hours=6
|
||||
Byte.Minutes=7
|
||||
Byte.Current=14-15
|
||||
Byte.Voltage=16-17
|
||||
Byte.CCap=18-20
|
||||
Byte.DCap=21-23
|
||||
Byte.Resi=33-34
|
||||
|
||||
[Model.cm2020]
|
||||
Slots=10
|
||||
RecordLength=22
|
||||
Byte.SlotNo=1
|
||||
Byte.Disp=4L
|
||||
Byte.Progress=5L
|
||||
Byte.CCap=6-8
|
||||
Byte.DCap=9-11
|
||||
Byte.
|
||||
204
MyCM2010_de.txt
Normal file
204
MyCM2010_de.txt
Normal file
@ -0,0 +1,204 @@
|
||||
Conrad Charge Manager 2010
|
||||
|
||||
Protokollübersicht
|
||||
|
||||
|
||||
Übertragungsrate: 9600 baud, 8 Datenbits, keine Parität, 1 Stopbit
|
||||
Verbindung via Nullmodemkabel.
|
||||
|
||||
Der CM gibt kontinuierlich Daten über den Zustand der einzelnen Schächte aus. Der Abstand zwischen den Informationen über ein und denselben Schacht beträgt 1 Sekunde.
|
||||
|
||||
Kommandos können scheinbar keine gesendet werden, da laut Schaltplan von www.conrad.de (512265-in-01-de-charge_manager_2010_schnittstellenb.pdf) die Ladeelektronik des Geräts keinen Eingang hat.
|
||||
|
||||
Sämtliche Informationen zu einem Schacht werden in 34 Bytes gesendet. Es gibt somit 4 Pakete à 34 Bytes.
|
||||
|
||||
Alle Werte sind in Big-Endian (Big-End-First; 65536 = 01 00 00; 256 = 01 00)
|
||||
|
||||
|
||||
Bytes Bedeutung
|
||||
----- ----------------------
|
||||
01 Ladeschacht (1-4)
|
||||
|
||||
02 ??? Programm; Lo: Displayanzeige (Details: siehe unten)
|
||||
03 Hi: Manuell gewählte Kapazität; Lo: Momentane Stelle im Programm (Details: siehe unten)
|
||||
|
||||
04 ???
|
||||
|
||||
05 Interner Zähler/Timer, zählt nach Einlegen des Akkus die 3 Sekunden, die man Zeit hat, etwas einzugeben, rückwärts, ansonsten zählt es von 60d rückwarts und bei 00 erfolgt Umsprung auf nächste Minute
|
||||
06 Stunden
|
||||
07 Minuten
|
||||
|
||||
08 ???
|
||||
|
||||
09-10 Spannung (U) - nur beim Aufladen, sonst 00 00. Evtl. max. Spannung für Delta-U-Abschaltung.
|
||||
|
||||
11 ??? (evtl. ungefährer Füllstand des Akkus?)
|
||||
12 ???
|
||||
13 ???
|
||||
|
||||
14-15 Stromstärke (I)
|
||||
16-17 Spannung (U)
|
||||
18-20 Geladene Kapazität (CCap)
|
||||
21-23 Entladene Kapazität (DCap)
|
||||
|
||||
24 0Bh, falls nicht geladen wird, sonst was anderes
|
||||
|
||||
25-26 Vor-vor-vor-letzte Spannung
|
||||
27-28 Vor-vor-letzte Spannung
|
||||
29-30 Vor-letzte Spannung
|
||||
31-32 Letzte Spannung
|
||||
33-34 Widerstand im Schacht (5MOhm = 01 F4; kein Akku: FF FF)
|
||||
|
||||
|
||||
Bytes 02 und 03:
|
||||
|
||||
02 03 04
|
||||
-- -- --
|
||||
00 00 00 Kein Programm, Schacht leer
|
||||
|
||||
01 00 00 Wahl: Auto/Man: Auto
|
||||
02 00 00 Wahl: Auto/Man: Manuell
|
||||
(Zähler in Byte 5 zählt von 03 bis 00 und schaltet dann auf die nächste Auswahl)
|
||||
|
||||
02 10 00 Wahl: Man: 100-200
|
||||
02 20 00 Wahl: Man: 200-350
|
||||
02 30 00 Wahl: Man: 350-600
|
||||
02 40 00 Wahl: Man: 600-900
|
||||
02 50 00 Wahl: Man: 900-1200
|
||||
02 60 00 Wahl: Man: 1200-1500
|
||||
02 70 00 Wahl: Man: 1500-2200
|
||||
02 80 00 Wahl: Man: 2200-...
|
||||
(Zähler in Byte 5 zählt von 03 bis 00 und schaltet dann auf die nächste Auswahl/startet Programm)
|
||||
|
||||
03 xx 00 Wahl: Auto: CHARGE
|
||||
04 xx 00 Wahl: Auto: DISCHARGE
|
||||
05 xx 00 Wahl: Auto: CHECK
|
||||
06 xx 00 Wahl: Auto: CYCLE
|
||||
07 xx 00 Wahl: Auto: ALIVE
|
||||
(xx - 00:Auto, 10-80:Man)
|
||||
(Zähler in Byte 5 zählt von 03 bis 00 und startet dann das Programm)
|
||||
|
||||
08 05 01 Auto: CHA (Lädt)
|
||||
|
||||
09 06 00 Auto: DIS (Entlädt)
|
||||
09 26 08 Man: 200-350: DIS (Entlädt)
|
||||
|
||||
0a 04 01 Auto: CHK (Entlädt)
|
||||
0a 24 08 Man: 200-350: CHK (Entlädt)
|
||||
|
||||
0b 03 01 Auto: CYC (Lädt)
|
||||
0b 04 01 Auto: CYC (Entlädt)
|
||||
0b 05 04 Auto: CYC (Lädt nach Entladen)
|
||||
|
||||
0c 01 01 Auto: ALV (Lädt)
|
||||
0c 02 01 Auto: ALV (Entlädt)
|
||||
0c 02 03 Auto: ALV (Entlädt immer noch)
|
||||
0c 02 04 Auto: ALV (Entlädt immer immer noch)
|
||||
0c 02 08 Auto: ALV (Entlädt nach Laden)
|
||||
0c 03 01 Auto: ALV (Lädt nach Entladen)
|
||||
0c 03 02 Auto: ALV (Lädt nach Entladen immer immer noch)
|
||||
0c 03 03 Auto: ALV (Lädt nach Entladen immer noch)
|
||||
0c 04 01 Auto: ALV (Entlädt nach Laden)
|
||||
0c 04 03 Auto: ALV (Entlädt nach Laden nach Entladen)
|
||||
0c 04 08 Auto: ALV (Entlädt nach Laden nach Entladen)
|
||||
0c 05 01 Auto: ALV (Lädt nach Entladen nach Laden nach Entladen)
|
||||
0c 05 02 Auto: ALV (Lädt nach Entladen nach Laden nach Entladen)
|
||||
0c 05 04 Auto: ALV (Lädt nach Entladen)
|
||||
0c 42 06 Man: 600-900: ALV (Entlädt nach Laden)
|
||||
0c 44 06 Man: 600-900: ALV (Entlädt nach Laden nach Entladen nach Laden)
|
||||
|
||||
0d 08 01 Auto: CYC (RDY/Fertig)
|
||||
0d 08 02 Auto: CHA (RDY/Fertig)
|
||||
0d 08 03 Auto: ALV (RDY/Fertig)
|
||||
0d 08 04 Auto: ALV (RDY/Fertig)
|
||||
0d 48 04 Man: 600-900: ALV (RDY/Fertig)
|
||||
|
||||
0e 0c xx ERR
|
||||
|
||||
1b 03 01 Auto: CYC (Lädt immer noch)
|
||||
|
||||
4c 03 03 Auto: ALV (Lädt immer immer noch)
|
||||
4c 05 04 Auto: ALV (Lädt nach Entladen nach Laden nach Entladen nach Laden)
|
||||
|
||||
58 25 02 Man: 200-350: CHA (Lädt)
|
||||
|
||||
5b 23 02 Man: 200-350: CYC (Lädt)
|
||||
|
||||
5c 21 02 Man: 200-350: ALV (Lädt)
|
||||
5c 41 04 Man: 600-900: ALV (Lädt)
|
||||
5c 43 04 Man: 600-900: ALV (Lädt nach Entladen)
|
||||
5c 45 04 Man: 600-900: ALV (Lädt (letzte Phase))
|
||||
|
||||
6b 03 03 Auto: CYC (Lädt immer immer immer immer noch)
|
||||
|
||||
6c 03 03 Auto: ALV (Lädt nach Entladen)
|
||||
6c 05 04 Auto: ALV (Lädt nach Entladen nach Laden nach Entladen nach Laden)
|
||||
|
||||
cb 03 04 Auto: CYC (Lädt immer noch)
|
||||
|
||||
db 03 03 Auto: CYC (Lädt ... noch)
|
||||
db 03 04 Auto: CYC (Lädt immer immer immer noch)
|
||||
|
||||
dc 03 02 Auto: ALV (Lädt nach Entladen)
|
||||
dc 05 03 Auto: ALV (Lädt ... noch)
|
||||
|
||||
fb 03 03 Auto: CYC (Lädt immer immer noch)
|
||||
|
||||
|
||||
|
||||
Der Lo-Part von Byte 2 gibt Auskunft über die aktuelle Display-Anzeige:
|
||||
H bbbb Beschreibung
|
||||
- ---- ------------
|
||||
0 0000 ---
|
||||
1 0001 Wahl: Auto/Man: Auto
|
||||
2 0010 Wahl: Auto/Man: Manuell
|
||||
3 0011 Wahl: Auto: CHARGE
|
||||
4 0100 Wahl: Auto: DISCHARGE
|
||||
5 0101 Wahl: Auto: CHECK
|
||||
6 0110 Wahl: Auto: CYCLE
|
||||
7 0111 Wahl: Auto: ALIVE
|
||||
8 1000 CHA
|
||||
9 1001 DIS
|
||||
a 1010 CHK
|
||||
b 1011 CYC
|
||||
c 1100 ALV
|
||||
d 1101 RDY
|
||||
e 1110 ERR
|
||||
f 1111 TRI
|
||||
|
||||
|
||||
|
||||
Der Lo-Part von Byte 3 gibt Auskunft über den Ablauf des Programms:
|
||||
H bbbb Beschreibung
|
||||
- ---- ------------
|
||||
0 0000 Kein Programm aktiv
|
||||
1 0001 Laden <--- ALV startet hier
|
||||
2 0010 Entladen
|
||||
3 0011 Laden <--- CYC startet hier
|
||||
4 0100 Entladen <--- CHK startet hier
|
||||
5 0101 Laden <--- CHA startet hier
|
||||
6 0110 Entladen (wird übersprungen, nur bei DIS startet das Programm hier)
|
||||
7 0111 Erhaltungsladung (Trickle)
|
||||
8 1000 RDY/Fertig
|
||||
|
||||
|
||||
|
||||
Der Hi-Part von Byte 3 gibt Auskunft über die gewählte Akku-Kapazität:
|
||||
H bbbb Beschreibung
|
||||
- ---- -------------
|
||||
0 0000 Automatik
|
||||
1 0001 100- 200 mAh
|
||||
2 0010 200- 350 mAh
|
||||
3 0011 350- 600 mAh
|
||||
4 0100 600- 900 mAh
|
||||
5 0101 900-1200 mAh
|
||||
6 0110 1200-1500 mAh
|
||||
7 0111 1500-2200 mAh
|
||||
8 1000 2200-... mAh
|
||||
|
||||
|
||||
Byte 4 scheint anzuzeigen, ob gerade die Kapazität gemessen wird, oder nicht: 01 oder 02 = Messen, bei 00 aktualisiert er das Symbol, 03/04 kommt während CYC vor.
|
||||
|
||||
|
||||
|
||||
Weitere Aufschlüsselungen oder Korrekturen bitte per Mail an Markus Birth <mbirth@webwriters.de>.
|
||||
204
MyCM2010_en.txt
Normal file
204
MyCM2010_en.txt
Normal file
@ -0,0 +1,204 @@
|
||||
Conrad Charge Manager 2010
|
||||
|
||||
Protocol overview
|
||||
|
||||
|
||||
Transfer settings: 9600 baud, 8 Data bits, no parity, 1 Stopbit
|
||||
Connection via Null modem cable.
|
||||
|
||||
The CM2010 always sends info about the condition of each slot. The delay between 2 infos about the same slot is 1 second.
|
||||
|
||||
It seems you can't send commands to the CM2010 because the circuit plan from www.conrad.de (512265-in-01-de-charge_manager_2010_schnittstellenb.pdf) shows no input for the charging controller.
|
||||
|
||||
All values about a slot are sent in 34 Bytes. There are 4 Packets of 34 Bytes each.
|
||||
|
||||
All values are in Big-Endian (Big-End-First; 65536 = 01 00 00; 256 = 01 00)
|
||||
|
||||
|
||||
Bytes Meaning
|
||||
----- ----------------------
|
||||
01 Slot (1-4)
|
||||
|
||||
02 ??? Chosen Program; Lo: Display state (Details: see below)
|
||||
03 Hi: manually chosen capacity; Lo: current step in program (Details: see below)
|
||||
|
||||
04 ???
|
||||
|
||||
05 Internal counter/timer, counts back the 3 seconds after insertion of battery, where you have time to change settings. Otherwise it counts back from 60d and increases minute when 00.
|
||||
06 Hours
|
||||
07 Minutes
|
||||
|
||||
08 ???
|
||||
|
||||
09-10 Voltage (U) - only when charging, otherwise 00 00. Perhaps max. current for Delta-U-shut-off.
|
||||
|
||||
11 ??? (perhaps approx. charge of battery?)
|
||||
12 ???
|
||||
13 ???
|
||||
|
||||
14-15 Current (I)
|
||||
16-17 Voltage (U)
|
||||
18-20 Charged capacity (CCap)
|
||||
21-23 Discharged capacity (DCap)
|
||||
|
||||
24 0Bh, if not charging, otherwise something else
|
||||
|
||||
25-26 Fourth last voltage
|
||||
27-28 Third last voltage
|
||||
29-30 Second last voltage
|
||||
31-32 Last voltage
|
||||
33-34 Resistance in slot (5MOhm = 01 F4; no battery: FF FF)
|
||||
|
||||
|
||||
Bytes 02 and 03:
|
||||
|
||||
02 03 04
|
||||
-- -- --
|
||||
00 00 00 No program, Slot empty
|
||||
|
||||
01 00 00 Choice: Auto/Man: Auto
|
||||
02 00 00 Choice: Auto/Man: Manual
|
||||
(Counter in Byte 5 counts from 03 to 00 and then switches to next choice)
|
||||
|
||||
02 10 00 Choice: Man: 100-200
|
||||
02 20 00 Choice: Man: 200-350
|
||||
02 30 00 Choice: Man: 350-600
|
||||
02 40 00 Choice: Man: 600-900
|
||||
02 50 00 Choice: Man: 900-1200
|
||||
02 60 00 Choice: Man: 1200-1500
|
||||
02 70 00 Choice: Man: 1500-2200
|
||||
02 80 00 Choice: Man: 2200-...
|
||||
(Counter in Byte 5 counts from 03 to 00 and then switches to next choice/runs program)
|
||||
|
||||
03 xx 00 Choice: Auto: CHARGE
|
||||
04 xx 00 Choice: Auto: DISCHARGE
|
||||
05 xx 00 Choice: Auto: CHECK
|
||||
06 xx 00 Choice: Auto: CYCLE
|
||||
07 xx 00 Choice: Auto: ALIVE
|
||||
(xx - 00:Auto, 10-80:Man)
|
||||
(Counter in Byte 5 counts from 03 to 00 and then runs the program)
|
||||
|
||||
08 05 01 Auto: CHA (Charges)
|
||||
|
||||
09 06 00 Auto: DIS (Discharges)
|
||||
09 26 08 Man: 200-350: DIS (Discharges)
|
||||
|
||||
0a 04 01 Auto: CHK (Discharges)
|
||||
0a 24 08 Man: 200-350: CHK (Discharges)
|
||||
|
||||
0b 03 01 Auto: CYC (Charges)
|
||||
0b 04 01 Auto: CYC (Discharges)
|
||||
0b 05 04 Auto: CYC (Charges after Discharging)
|
||||
|
||||
0c 01 01 Auto: ALV (Charges)
|
||||
0c 02 01 Auto: ALV (Discharges)
|
||||
0c 02 03 Auto: ALV (still Discharges)
|
||||
0c 02 04 Auto: ALV (still still Discharges)
|
||||
0c 02 08 Auto: ALV (Discharges after Charging)
|
||||
0c 03 01 Auto: ALV (Charges after Discharging)
|
||||
0c 03 02 Auto: ALV (Charges after Discharging immer immer noch)
|
||||
0c 03 03 Auto: ALV (Charges after Discharging immer noch)
|
||||
0c 04 01 Auto: ALV (Discharges after Charging)
|
||||
0c 04 03 Auto: ALV (Discharges after Charging after Discharging)
|
||||
0c 04 08 Auto: ALV (Discharges after Charging after Discharging)
|
||||
0c 05 01 Auto: ALV (Charges after Discharging after Charging after Discharging)
|
||||
0c 05 02 Auto: ALV (Charges after Discharging after Charging after Discharging)
|
||||
0c 05 04 Auto: ALV (Charges after Discharging)
|
||||
0c 42 06 Man: 600-900: ALV (Discharges after Charging)
|
||||
0c 44 06 Man: 600-900: ALV (Discharges after Charging after Discharging after Charging)
|
||||
|
||||
0d 08 01 Auto: CYC (RDY/Fertig)
|
||||
0d 08 02 Auto: CHA (RDY/Fertig)
|
||||
0d 08 03 Auto: ALV (RDY/Fertig)
|
||||
0d 08 04 Auto: ALV (RDY/Fertig)
|
||||
0d 48 04 Man: 600-900: ALV (RDY/Fertig)
|
||||
|
||||
0e 0c xx ERR
|
||||
|
||||
1b 03 01 Auto: CYC (Charges immer noch)
|
||||
|
||||
4c 03 03 Auto: ALV (Charges immer immer noch)
|
||||
4c 05 04 Auto: ALV (Charges after Discharging after Charging after Discharging after Charging)
|
||||
|
||||
58 25 02 Man: 200-350: CHA (Charges)
|
||||
|
||||
5b 23 02 Man: 200-350: CYC (Charges)
|
||||
|
||||
5c 21 02 Man: 200-350: ALV (Charges)
|
||||
5c 41 04 Man: 600-900: ALV (Charges)
|
||||
5c 43 04 Man: 600-900: ALV (Charges after Discharging)
|
||||
5c 45 04 Man: 600-900: ALV (Charges (last phase))
|
||||
|
||||
6b 03 03 Auto: CYC (still still still still Charges)
|
||||
|
||||
6c 03 03 Auto: ALV (Charges after Discharging)
|
||||
6c 05 04 Auto: ALV (Charges after Discharging after Charging after Discharging after Charging)
|
||||
|
||||
cb 03 04 Auto: CYC (still Charges)
|
||||
|
||||
db 03 03 Auto: CYC (Charges ... for now)
|
||||
db 03 04 Auto: CYC (still still still Charges)
|
||||
|
||||
dc 03 02 Auto: ALV (Charges after Discharging)
|
||||
dc 05 03 Auto: ALV (Charges ... for now)
|
||||
|
||||
fb 03 03 Auto: CYC (still still Charges)
|
||||
|
||||
|
||||
|
||||
The Lo-Part of Byte 2 reflects the current display:
|
||||
H bbbb Description
|
||||
- ---- -----------
|
||||
0 0000 ---
|
||||
1 0001 Choice: Auto/Man: Auto
|
||||
2 0010 Choice: Auto/Man: Manuell
|
||||
3 0011 Choice: Auto: CHARGE
|
||||
4 0100 Choice: Auto: DISCHARGE
|
||||
5 0101 Choice: Auto: CHECK
|
||||
6 0110 Choice: Auto: CYCLE
|
||||
7 0111 Choice: Auto: ALIVE
|
||||
8 1000 CHA
|
||||
9 1001 DIS
|
||||
a 1010 CHK
|
||||
b 1011 CYC
|
||||
c 1100 ALV
|
||||
d 1101 RDY
|
||||
e 1110 ERR
|
||||
f 1111 TRI
|
||||
|
||||
|
||||
|
||||
The Lo-Part of Byte 3 reflects the program flow:
|
||||
H bbbb Description
|
||||
- ---- -----------
|
||||
0 0000 No program active
|
||||
1 0001 Charging <--- ALV starts here
|
||||
2 0010 Discharging
|
||||
3 0011 Charging <--- CYC starts here
|
||||
4 0100 Discharging <--- CHK starts here
|
||||
5 0101 Charging <--- CHA starts here
|
||||
6 0110 Discharging (is being skipped, only when DIS, the program starts here)
|
||||
7 0111 Trickle charge
|
||||
8 1000 RDY/Ready
|
||||
|
||||
|
||||
|
||||
The Hi-Part of Byte 3 reflects the chosen battery capacity:
|
||||
H bbbb Description
|
||||
- ---- -----------
|
||||
0 0000 Automatic
|
||||
1 0001 100- 200 mAh
|
||||
2 0010 200- 350 mAh
|
||||
3 0011 350- 600 mAh
|
||||
4 0100 600- 900 mAh
|
||||
5 0101 900-1200 mAh
|
||||
6 0110 1200-1500 mAh
|
||||
7 0111 1500-2200 mAh
|
||||
8 1000 2200-... mAh
|
||||
|
||||
|
||||
Byte 4 seems to reflect, if the capacity is being measured or not: 01 or 02 = Measuring, if 00, updating the battery symbol, 03/04 occurs during CYC.
|
||||
|
||||
|
||||
|
||||
More informations of corrections via eMail to Markus Birth <mbirth@webwriters.de>.
|
||||
Loading…
Reference in New Issue
Block a user