form1.frm

嵌入式系统开发 TOPPERS and JSP Kernel Release 1.3 TOPPERS = Toyohashi Open Platform for Embedded Real-Tim

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
' 
'  惧淡螟侯涪荚は·Free Software Foundation によって给山されている 
'  GNU General Public License の Version 2 に淡揭されている掘凤か·笆
'  布の(1)×(4)の掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェ
'  アを猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
'  网脱と钙ぶ∷することを痰浸で钓满するˉ
'  (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
'      涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
'      スコ〖ド面に崔まれていることˉ
'  (2) 塑ソフトウェアを浩网脱材墙なバイナリコ〖ド∈リロケ〖タブルオブ
'      ジェクトファイルやライブラリなど∷の妨で网脱する眷圭には·网脱
'      に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯涪山绩·
'      この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
'  (3) 塑ソフトウェアを浩网脱稍材墙なバイナリコ〖ドの妨または怠达に寥
'      み哈んだ妨で网脱する眷圭には·肌のいずれかの掘凤を塔たすことˉ
'    (a) 网脱に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯
'        涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
'    (b) 网脱の妨轮を·侍に年める数恕によって·惧淡螟侯涪荚に鼠桂する
'        ことˉ
'  (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
'      巢からも·惧淡螟侯涪荚を倘勒することˉ
' 
'  塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚は·
'  塑ソフトウェアに簇して·その努脱材墙拉も崔めて·いかなる瘦沮も乖わ
'  ないˉまた·塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じたい
'  かなる禄巢に簇しても·その勒扦を砷わないˉ
'
'  @(#) $Id: form1.frm,v 1.3 2002/04/10 11:26:20 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