SPADA - 小型 SCADA， 用于 Arduino

Visual Basic

Arduino将因此在每“延迟”毫秒内发送寄存器的状态给我。Arduino的频率与数据库的保存频率不同。谁需要每秒10个保存值？在程序中，有一个计时器，现在设置为1秒，它打开到数据库的“门”。

PC捕获这些变量，并可以理解控制器中发生了什么，如果它将它们存储在缓冲区中，就可以绘制时间图。

• VB可以使用System.IO.Ports.SerialPort，我创建了一个派生类Sprotocol。
• SerialPort在消息传入时会引发一个事件。我捕获它，并重新构建我的字节
• 我引发一个新事件，使“可读消息”在类外部可用

 Public Class SProtocol Inherits System.IO.Ports.SerialPort ... Private Sub SProtocol_DataReceived(value As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Me.DataReceived '在此例程中，我将重建消息并引发自己的事件... RaiseEvent MessageReceived(MainBuffer(1), MainBuffer(2), v) ... End Sub End Class 

If msg_type = SProtocol.msg_Type.ask_REPORT Then Select Case var Case variables.LIGHT_OFF nuOff.Value = value '这是我的窗体控件 dImg.NewPoint(variables.LIGHT_OFF, Now(), value)'这是我的图形 Case variables.LIGHT_ON nuOn.Value = value dImg.NewPoint(variables.LIGHT_ON, Now(), value) end select end if 

重要的是要说明：SerialPort是线程安全的，这意味着处理事件的函数不能与窗体类“通信”。

这可以通过Invoke函数完成，该函数最终会将事件发送到我的ProcessMessage函数：

 Private Sub com_MessageReceive(var As SProtocol.variables, type As SProtocol.msg_Type, value As Long) Handles com.MessageReceive Invoke(New MsgRecived(AddressOf ProcessMessage), var, type, value) End Sub 

图形

基础类取自Carl Morey

数据库

图形用户界面

GUI只是一个文本框，用于编写select、insert、update和delete的查询。

如前所述，图形将读取数据表（记住第一列是时间），并跟踪相应的图形。

该程序的目的是面向有编程技能的合格人员。我认为“通过SQL”与程序“对话”不是问题。更好的是，它非常强大。你可以进行任何类型的设置。

下面我将向你展示一些重要的查询，例如图片中的那个，它允许你重建某个时刻的元组。并在某个时刻确定整个系统。

功能包括

1）查询：在文本框中输入SQL指令

  Select trim(name),qryString from queries 

此指令调用`queries`表，你可以在其中选择一个已保存的命令，复制粘贴即可执行。

2）运行：它执行文本框中的SQL指令

3）引用查询：它准备框中的文本，使其准备好被插入到数据库中，并带有引号和“INSERT”子句。例如，你输入

Select t , val as Pressure  from dates   

如果你点击引用查询，你的框中将出现

 insert into queries(name,qrystring)
values('NAME HERE',
'Select t , val as Pressure  from dates ;'); 

你需要在指定位置填写“名称”，然后点击运行。

SQL入门

如果你想开始编写查询，你必须了解结构。

只有三张表，而且非常简单。两张用于数据记录，第三张用于存储查询。

认真学习SQL

同时查看所有变量的所有图形很重要，以便识别例如原因和结果之间的相关性，或者你的系统何时启动，何时发生错误。所以我们需要同一时间的所有变量的元组。变量的数量可能非常大，并且无法在开发时确定。与其在表中添加更多列，我只添加一列，但每个元组都有相同的插入时间。实际上，这就像系统在同一毫秒内同时插入所有变量。（VB就是这样做的，在源代码中有注释）

重建元组的查询如下。

 
SELECT a.T, a.VAL as Light_on,b.val as Light_off , c.val as Light_read,(500*d.val) as L1,e.val as pressure_on,
f.val as pressure_off, g.val as pressure_setpoint
FROM DATES a
inner join DATES B on a.t=b.t
inner join DATES C on a.t=c.t
inner join DATES D on a.t=d.t
inner join DATES E on a.t=e.t
inner join DATES F on a.t=f.t
inner join DATES G on a.t=g.t
where  a.t between '23.03.2014 14:00:00' and '23.03.2014 18:00:00' 
AND a.var = 1
AND b.var = 2
AND C.var = 3
AND D.var = 4
AND E.var =5
AND F.var=6
AND G.var=7  
order by a.t; 

实际上，我将`dates`表进行了尽可能多的JOIN，数量等于我想显示的变量数量。

技巧

• 为列设置别名，你将在图例中看到它。
• 要缩放图形，请在select中乘以一个因子（对值为1/0的情况很有用）。

JOIN条件中的严格“=”以及索引允许我们获得良好的响应时间。

你可以使用下面的块执行相同的操作。

--SET TERM !!; -- deactivate the comments with other GUI's Ex: Flamerobin
EXECUTE BLOCK  --ix=    1         2         3       4        5         6      7  ==>11111110b =254d
returns(  t timestamp,a bigint,b bigint,c bigint, d bigint,e bigint,f bigint,g bigint,n integer)
AS  
     
    declare tmpt2 timestamp; 
    declare tmpVar integer;
    declare tmpVar2 integer;
    declare tmpVal bigint;
    declare tmpVal2 bigint;
    declare ctrlFlag integer;
    DECLARE cur cursor FOR  
         /*********************************************************/
        /***         MODIFY THE QUERY                           **/       
       /*********************************************************/
        (SELECT var,t, val from dates 
        where t> '22.03.2014 00:00:00' --between '23.03.2014 00:00:00' and '24.03.2014 15:00:00' 
        order by t,var ); --important, order first for time than for var
    BEGIN
    n=0;
    ctrlFlag=254;  
    OPEN cur; 
        fetch cur INTO tmpVar,t,tmpVal;
        IF (ROW_COUNT = 0) THEN exit; 
        while (1=1) do 
    BEGIN   
        ctrlFlag=bin_xor(ctrlFlag,bin_shl(1,tmpVar));
      
        fetch cur INTO tmpVar2,tmpt2,tmpVal2; 
          IF (ROW_COUNT = 0)   THEN leave;  
       
           IF (tmpVar=1) THEN a=tmpVal;
            IF (tmpVar=2) THEN b=tmpVal;
            IF (tmpVar=3) THEN c=tmpVal;
            IF (tmpVar=4) THEN d=tmpVal;
            IF (tmpVar=5) THEN e=tmpVal;
            IF (tmpVar=6) THEN f=tmpVal;
            IF (tmpVar=7) THEN g=tmpVal;
        if (tmpt2<>t ) then
        BEGIN
            
            if (ctrlFlag=0) then 
            begin
                n=n+1;
                suspend;
            end
            ctrlFlag=254;
        
        END
        tmpvar=tmpVar2;
         t=tmpt2;
        tmpVal=tmpVal2;

        END 
            if (ctrlFlag=0) then 
            begin
                n=n+1;
                suspend;
            end
close cur; 
END
--SET TERM; !! -- deactivate the comments with GUI Ex: Flamerobin  

它是特定于某个应用程序的，目的是理解我如何控制一个系统，它没有针对速度或设置进行优化。

同样的目的，如果你想学习控制一个系统，步骤如下：

• 连接（会连接，但不会开始消息传递）
• 开始消息，将开始消息传递（如果不起作用，多点击几次）

在关机前：

• 停止消息，它将停止控制器发送消息
• 现在你可以安全地断开连接（就像断开USB一样 :-))

主要问题是控制器和PC之间对话开始时的正确同步。这带来了一些我需要解决的麻烦。

图示