source: anotherchoice/tags/jsp-1.4.4-full-UTF8/windev/devicecontrol/sample/form1.frm@ 26

Last change on this file since 26 was 26, checked in by ykominami, 10 years ago

initial

File size: 6.0 KB
Line 
1VERSION 5.00
2Object = "{194B359F-594E-4EE4-A804-84723D1CF1C4}#1.0#0"; "ATLDevice.dll"
3Begin VB.Form Form1
4 BorderStyle = 3 '固定ダイアログ
5 Caption = "Form1"
6 ClientHeight = 1140
7 ClientLeft = 45
8 ClientTop = 330
9 ClientWidth = 3045
10 LinkTopic = "Form1"
11 MaxButton = 0 'False
12 MinButton = 0 'False
13 ScaleHeight = 1140
14 ScaleWidth = 3045
15 ShowInTaskbar = 0 'False
16 StartUpPosition = 3 'Windows の既定値
17 Begin ATLDEVICELibCtl.DeviceControl DeviceControl1
18 Height = 375
19 Left = 2400
20 OleObjectBlob = "Form1.frx":0000
21 TabIndex = 1
22 Top = 0
23 Visible = 0 'False
24 Width = 495
25 End
26 Begin VB.Label Label1
27 Alignment = 2 '中央揃え
28 Caption = "Label1"
29 Height = 255
30 Index = 4
31 Left = 1920
32 TabIndex = 5
33 Top = 360
34 Width = 975
35 End
36 Begin VB.Label Label1
37 Alignment = 2 '中央揃え
38 Caption = "Label1"
39 Height = 255
40 Index = 3
41 Left = 1560
42 TabIndex = 4
43 Top = 720
44 Width = 975
45 End
46 Begin VB.Label Label1
47 Alignment = 2 '中央揃え
48 Caption = "Label1"
49 Height = 255
50 Index = 2
51 Left = 480
52 TabIndex = 3
53 Top = 720
54 Width = 975
55 End
56 Begin VB.Label Label1
57 Alignment = 2 '中央揃え
58 Caption = "Label1"
59 Height = 255
60 Index = 1
61 Left = 0
62 TabIndex = 2
63 Top = 360
64 Width = 975
65 End
66 Begin VB.Label Label1
67 Alignment = 2 '中央揃え
68 Caption = "Label1"
69 Height = 255
70 Index = 0
71 Left = 960
72 TabIndex = 0
73 Top = 0
74 Width = 975
75 End
76End
77Attribute VB_Name = "Form1"
78Attribute VB_GlobalNameSpace = False
79Attribute VB_Creatable = False
80Attribute VB_PredeclaredId = True
81Attribute VB_Exposed = False
82Option Explicit
83
84'
85' TOPPERS/JSP Kernel
86' Toyohashi Open Platform for Embedded Real-Time Systems/
87' Just Standard Profile Kernel
88'
89' Copyright (C) 2000-2002 by Embedded and Real-Time Systems Laboratory
90' Toyohashi Univ. of Technology, JAPAN
91'
92' 上記著作権者
93は,以下の (1)〜(4) の条件か,Free Software Foundation
94' によってå…
95¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
96' 述されている条件を満たす場合に限り,本ソフトウェア(本ソフトウェア
97' を改変したものを含む.以下同じ)を使用・複製・改変・再é…
98å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
99' 利用と呼ぶ)することを無償で許諾する.
100' (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
101' 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
102' スコード中に含まれていること.
103' (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
104' 用できる形で再é…
105å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
106å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
107' 者
108マニュアルなど)に,上記の著作権表示,この利用条件および下記
109' の無保証規定を掲載すること.
110' (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
111' 用できない形で再é…
112å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
113' と.
114' (a) 再é…
115å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
116マニュアルなど)に,上記の著
117' 作権表示,この利用条件および下記の無保証規定を掲載すること.
118' (b) 再é…
119å¸ƒã®å½¢æ…
120‹ã‚’,別に定める方法によって,TOPPERSプロジェクトに
121' 報告すること.
122' (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
123' 害からも,上記著作権者
124およびTOPPERSプロジェクトをå…
125è²¬ã™ã‚‹ã“と.
126'
127' 本ソフトウェアは,無保証で提供されているものである.上記著作権者
128お
129' よびTOPPERSプロジェクトは,本ソフトウェアに関して,その適用可能性も
130' 含めて,いかなる保証も行わない.また,本ソフトウェアの利用により直
131' 接的または間接的に生じたいかなる損害に関しても,その責任を負わない.
132'
133' @(#) $Id: form1.frm,v 1.5 2004/09/09 03:40:51 honda Exp $
134'
135
136Private Sub SetLabelString(index As Integer, letter As String, color As ColorConstants)
137 Label1(index) = letter
138 Label1(index).ForeColor = color
139End Sub
140
141Private Sub DeviceControl1_OnKernelExit()
142 Dim i As Integer
143
144 For i = 0 To 4
145 SetLabelString i, "終了", vbBlue
146 Next i
147
148End Sub
149
150Private Sub DeviceControl1_OnKernelStart()
151 Dim i As Integer
152
153 For i = 0 To 4
154 SetLabelString i, "取得待
155ち", vbBlack
156 Next i
157End Sub
158
159Private Sub DeviceControl1_OnWrite(ByVal address As Long, ByVal sz As Long)
160 Dim i As Integer
161 Dim work As Long
162 work = DeviceControl1.Value
163 i = work And &HF
164
165 Select Case (work And &HF0)
166 Case &H10
167 SetLabelString i, "取得待
168ち", vbBlack
169 Case &H20
170 SetLabelString i, "食事", vbRed
171 Case &H40
172 SetLabelString i, "休憩", vbBlack
173 End Select
174
175End Sub
176
177Private Sub Form_Load()
178 Dim i As Integer
179
180 For i = 0 To 4
181 SetLabelString i, "終了", vbBlue
182 Next i
183
184 DeviceControl1.Connect
185 DeviceControl1.Map 100, 4
186End Sub
187
188Private Sub Form_Unload(Cancel As Integer)
189 DeviceControl1.Close
190End Sub
Note: See TracBrowser for help on using the repository browser.