form1.frm

uItron 4.0 Toppers实现源码1.4版

VERSION 5.00
Object = "{194B359F-594E-4EE4-A804-84723D1CF1C4}#1.0#0"; "ATLDevice.dll"
Begin VB.Form Form1 
   BorderStyle     =   3  '盖年ダイアログ
   Caption         =   "Form1"
   ClientHeight    =   1140
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3045
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1140
   ScaleWidth      =   3045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows の贷年猛
   Begin ATLDEVICELibCtl.DeviceControl DeviceControl1 
      Height          =   375
      Left            =   2400
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   1
      Top             =   0
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Label Label1 
      Alignment       =   2  '面丙路え
      Caption         =   "Label1"
      Height          =   255
      Index           =   4
      Left            =   1920
      TabIndex        =   5
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  '面丙路え
      Caption         =   "Label1"
      Height          =   255
      Index           =   3
      Left            =   1560
      TabIndex        =   4
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  '面丙路え
      Caption         =   "Label1"
      Height          =   255
      Index           =   2
      Left            =   480
      TabIndex        =   3
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  '面丙路え
      Caption         =   "Label1"
      Height          =   255
      Index           =   1
      Left            =   0
      TabIndex        =   2
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  '面丙路え
      Caption         =   "Label1"
      Height          =   255
      Index           =   0
      Left            =   960
      TabIndex        =   0
      Top             =   0
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'
'  TOPPERS/JSP Kernel
'      Toyohashi Open Platform for Embedded Real-Time Systems/
'      Just Standard Profile Kernel
' 
'  Copyright (C) 2000-2002 by Embedded and Real-Time Systems Laboratory
'                              Toyohashi Univ. of Technology, JAPAN
' 
'  惧淡螟侯涪荚は·笆布の (1)×(4) の掘凤か·Free Software Foundation 
'  によって给山されている GNU General Public License の Version 2 に淡
'  揭されている掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェア
'  を猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
'  网脱と钙ぶ∷することを痰浸で钓满するˉ
'  (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
'      涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
'      スコ〖ド面に崔まれていることˉ
'  (2) 塑ソフトウェアを·ライブラリ妨及など·戮のソフトウェア倡券に蝗
'      脱できる妨で浩芹邵する眷圭には·浩芹邵に燃うドキュメント∈网脱
'      荚マニュアルなど∷に·惧淡の螟侯涪山绩·この网脱掘凤および布淡
'      の痰瘦沮惮年を非很することˉ
'  (3) 塑ソフトウェアを·怠达に寥み哈むなど·戮のソフトウェア倡券に蝗
'      脱できない妨で浩芹邵する眷圭には·肌のいずれかの掘凤を塔たすこ
'      とˉ
'    (a) 浩芹邵に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟
'        侯涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
'    (b) 浩芹邵の妨轮を·侍に年める数恕によって·TOPPERSプロジェクトに
'        鼠桂することˉ
'  (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
'      巢からも·惧淡螟侯涪荚およびTOPPERSプロジェクトを倘勒することˉ
' 
'  塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚お
'  よびTOPPERSプロジェクトは·塑ソフトウェアに簇して·その努脱材墙拉も
'  崔めて·いかなる瘦沮も乖わないˉまた·塑ソフトウェアの网脱により木
'  儡弄または粗儡弄に栏じたいかなる禄巢に簇しても·その勒扦を砷わないˉ
'
'  @(#) $Id: form1.frm,v 1.4 2003/12/20 09:19:59 takayuki Exp $
'

Private Sub SetLabelString(index As Integer, letter As String, color As ColorConstants)
    Label1(index) = letter
    Label1(index).ForeColor = color
End Sub

Private Sub DeviceControl1_OnKernelExit()
    Dim i As Integer
    
    For i = 0 To 4
        SetLabelString i, "姜位", vbBlue
    Next i
    
End Sub

Private Sub DeviceControl1_OnKernelStart()
    Dim i As Integer
    
    For i = 0 To 4
        SetLabelString i, "艰评略ち", vbBlack
    Next i
End Sub

Private Sub DeviceControl1_OnWrite(ByVal address As Long, ByVal sz As Long)
    Dim i As Integer
    Dim work As Long
    work = DeviceControl1.Value
    i = work And &HF
        
    Select Case (work And &HF0)
    Case &H10
        SetLabelString i, "艰评略ち", vbBlack
    Case &H20
        SetLabelString i, "咯祸", vbRed
    Case &H40
        SetLabelString i, "蒂菲", vbBlack
    End Select

End Sub

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 0 To 4
        SetLabelString i, "姜位", vbBlue
    Next i
    
    DeviceControl1.Connect
    DeviceControl1.Map 100, 4
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DeviceControl1.Close
End Sub