nxtOSEK/toppers_jsp/windev/devicecontrol/sample/form1.frm

   1 VERSION 5.00\r
   2 Object = "{194B359F-594E-4EE4-A804-84723D1CF1C4}#1.0#0"; "ATLDevice.dll"\r
   3 Begin VB.Form Form1 \r
   4    BorderStyle     =   3  '\8cÅ\92è\83_\83C\83A\83\8d\83O\r
   5    Caption         =   "Form1"\r
   6    ClientHeight    =   1140\r
   7    ClientLeft      =   45\r
   8    ClientTop       =   330\r
   9    ClientWidth     =   3045\r
  10    LinkTopic       =   "Form1"\r
  11    MaxButton       =   0   'False\r
  12    MinButton       =   0   'False\r
  13    ScaleHeight     =   1140\r
  14    ScaleWidth      =   3045\r
  15    ShowInTaskbar   =   0   'False\r
  16    StartUpPosition =   3  'Windows \82Ì\8aù\92è\92l\r
  17    Begin ATLDEVICELibCtl.DeviceControl DeviceControl1 \r
  18       Height          =   375\r
  19       Left            =   2400\r
  20       OleObjectBlob   =   "Form1.frx":0000\r
  21       TabIndex        =   1\r
  22       Top             =   0\r
  23       Visible         =   0   'False\r
  24       Width           =   495\r
  25    End\r
  26    Begin VB.Label Label1 \r
  27       Alignment       =   2  '\92\86\89\9b\91µ\82¦\r
  28       Caption         =   "Label1"\r
  29       Height          =   255\r
  30       Index           =   4\r
  31       Left            =   1920\r
  32       TabIndex        =   5\r
  33       Top             =   360\r
  34       Width           =   975\r
  35    End\r
  36    Begin VB.Label Label1 \r
  37       Alignment       =   2  '\92\86\89\9b\91µ\82¦\r
  38       Caption         =   "Label1"\r
  39       Height          =   255\r
  40       Index           =   3\r
  41       Left            =   1560\r
  42       TabIndex        =   4\r
  43       Top             =   720\r
  44       Width           =   975\r
  45    End\r
  46    Begin VB.Label Label1 \r
  47       Alignment       =   2  '\92\86\89\9b\91µ\82¦\r
  48       Caption         =   "Label1"\r
  49       Height          =   255\r
  50       Index           =   2\r
  51       Left            =   480\r
  52       TabIndex        =   3\r
  53       Top             =   720\r
  54       Width           =   975\r
  55    End\r
  56    Begin VB.Label Label1 \r
  57       Alignment       =   2  '\92\86\89\9b\91µ\82¦\r
  58       Caption         =   "Label1"\r
  59       Height          =   255\r
  60       Index           =   1\r
  61       Left            =   0\r
  62       TabIndex        =   2\r
  63       Top             =   360\r
  64       Width           =   975\r
  65    End\r
  66    Begin VB.Label Label1 \r
  67       Alignment       =   2  '\92\86\89\9b\91µ\82¦\r
  68       Caption         =   "Label1"\r
  69       Height          =   255\r
  70       Index           =   0\r
  71       Left            =   960\r
  72       TabIndex        =   0\r
  73       Top             =   0\r
  74       Width           =   975\r
  75    End\r
  76 End\r
  77 Attribute VB_Name = "Form1"\r
  78 Attribute VB_GlobalNameSpace = False\r
  79 Attribute VB_Creatable = False\r
  80 Attribute VB_PredeclaredId = True\r
  81 Attribute VB_Exposed = False\r
  82 Option Explicit\r
  83 \r
  84 '\r
  85 '  TOPPERS/JSP Kernel\r
  86 '      Toyohashi Open Platform for Embedded Real-Time Systems/\r
  87 '      Just Standard Profile Kernel\r
  88 ' \r
  89 '  Copyright (C) 2000-2002 by Embedded and Real-Time Systems Laboratory\r
  90 '                              Toyohashi Univ. of Technology, JAPAN\r
  91 ' \r
  92 '  \8fã\8bL\92\98\8dì\8c \8eÒ\82Í\81C\88È\89º\82Ì (1)\81`(4) \82Ì\8fð\8c\8f\82©\81CFree Software Foundation \r
  93 '  \82É\82æ\82Á\82Ä\8cö\95\\82³\82ê\82Ä\82¢\82é GNU General Public License \82Ì Version 2 \82É\8bL\r
  94 '  \8fq\82³\82ê\82Ä\82¢\82é\8fð\8c\8f\82ð\96\9e\82½\82·\8fê\8d\87\82É\8cÀ\82è\81C\96{\83\\83t\83g\83E\83F\83A\81i\96{\83\\83t\83g\83E\83F\83A\r
  95 '  \82ð\89ü\95Ï\82µ\82½\82à\82Ì\82ð\8aÜ\82Þ\81D\88È\89º\93¯\82¶\81j\82ð\8eg\97p\81E\95¡\90»\81E\89ü\95Ï\81E\8dÄ\94z\95z\81i\88È\89º\81C\r
  96 '  \97\98\97p\82Æ\8cÄ\82Ô\81j\82·\82é\82±\82Æ\82ð\96³\8f\9e\82Å\8b\96\91ø\82·\82é\81D\r
  97 '  (1) \96{\83\\83t\83g\83E\83F\83A\82ð\83\\81[\83X\83R\81[\83h\82Ì\8c`\82Å\97\98\97p\82·\82é\8fê\8d\87\82É\82Í\81C\8fã\8bL\82Ì\92\98\8dì\r
  98 '      \8c \95\\8e¦\81C\82±\82Ì\97\98\97p\8fð\8c\8f\82¨\82æ\82Ñ\89º\8bL\82Ì\96³\95Û\8fØ\8bK\92è\82ª\81C\82»\82Ì\82Ü\82Ü\82Ì\8c`\82Å\83\\81[\r
  99 '      \83X\83R\81[\83h\92\86\82É\8aÜ\82Ü\82ê\82Ä\82¢\82é\82±\82Æ\81D\r
 100 '  (2) \96{\83\\83t\83g\83E\83F\83A\82ð\81C\83\89\83C\83u\83\89\83\8a\8c`\8e®\82È\82Ç\81C\91¼\82Ì\83\\83t\83g\83E\83F\83A\8aJ\94\82É\8eg\r
 101 '      \97p\82Å\82«\82é\8c`\82Å\8dÄ\94z\95z\82·\82é\8fê\8d\87\82É\82Í\81C\8dÄ\94z\95z\82É\94º\82¤\83h\83L\83\85\83\81\83\93\83g\81i\97\98\97p\r
 102 '      \8eÒ\83}\83j\83\85\83A\83\8b\82È\82Ç\81j\82É\81C\8fã\8bL\82Ì\92\98\8dì\8c \95\\8e¦\81C\82±\82Ì\97\98\97p\8fð\8c\8f\82¨\82æ\82Ñ\89º\8bL\r
 103 '      \82Ì\96³\95Û\8fØ\8bK\92è\82ð\8cf\8dÚ\82·\82é\82±\82Æ\81D\r
 104 '  (3) \96{\83\\83t\83g\83E\83F\83A\82ð\81C\8b@\8aí\82É\91g\82Ý\8d\9e\82Þ\82È\82Ç\81C\91¼\82Ì\83\\83t\83g\83E\83F\83A\8aJ\94\82É\8eg\r
 105 '      \97p\82Å\82«\82È\82¢\8c`\82Å\8dÄ\94z\95z\82·\82é\8fê\8d\87\82É\82Í\81C\8e\9f\82Ì\82¢\82¸\82ê\82©\82Ì\8fð\8c\8f\82ð\96\9e\82½\82·\82±\r
 106 '      \82Æ\81D\r
 107 '    (a) \8dÄ\94z\95z\82É\94º\82¤\83h\83L\83\85\83\81\83\93\83g\81i\97\98\97p\8eÒ\83}\83j\83\85\83A\83\8b\82È\82Ç\81j\82É\81C\8fã\8bL\82Ì\92\98\r
 108 '        \8dì\8c \95\\8e¦\81C\82±\82Ì\97\98\97p\8fð\8c\8f\82¨\82æ\82Ñ\89º\8bL\82Ì\96³\95Û\8fØ\8bK\92è\82ð\8cf\8dÚ\82·\82é\82±\82Æ\81D\r
 109 '    (b) \8dÄ\94z\95z\82Ì\8c`\91Ô\82ð\81C\95Ê\82É\92è\82ß\82é\95û\96@\82É\82æ\82Á\82Ä\81CTOPPERS\83v\83\8d\83W\83F\83N\83g\82É\r
 110 '        \95ñ\8d\90\82·\82é\82±\82Æ\81D\r
 111 '  (4) \96{\83\\83t\83g\83E\83F\83A\82Ì\97\98\97p\82É\82æ\82è\92¼\90Ú\93I\82Ü\82½\82Í\8aÔ\90Ú\93I\82É\90¶\82¶\82é\82¢\82©\82È\82é\91¹\r
 112 '      \8aQ\82©\82ç\82à\81C\8fã\8bL\92\98\8dì\8c \8eÒ\82¨\82æ\82ÑTOPPERS\83v\83\8d\83W\83F\83N\83g\82ð\96Æ\90Ó\82·\82é\82±\82Æ\81D\r
 113 ' \r
 114 '  \96{\83\\83t\83g\83E\83F\83A\82Í\81C\96³\95Û\8fØ\82Å\92ñ\8b\9f\82³\82ê\82Ä\82¢\82é\82à\82Ì\82Å\82 \82é\81D\8fã\8bL\92\98\8dì\8c \8eÒ\82¨\r
 115 '  \82æ\82ÑTOPPERS\83v\83\8d\83W\83F\83N\83g\82Í\81C\96{\83\\83t\83g\83E\83F\83A\82É\8aÖ\82µ\82Ä\81C\82»\82Ì\93K\97p\89Â\94\\90«\82à\r
 116 '  \8aÜ\82ß\82Ä\81C\82¢\82©\82È\82é\95Û\8fØ\82à\8ds\82í\82È\82¢\81D\82Ü\82½\81C\96{\83\\83t\83g\83E\83F\83A\82Ì\97\98\97p\82É\82æ\82è\92¼\r
 117 '  \90Ú\93I\82Ü\82½\82Í\8aÔ\90Ú\93I\82É\90¶\82¶\82½\82¢\82©\82È\82é\91¹\8aQ\82É\8aÖ\82µ\82Ä\82à\81C\82»\82Ì\90Ó\94C\82ð\95\89\82í\82È\82¢\81D\r
 118 '\r
 119 '  @(#) $Id: form1.frm,v 1.5 2004/09/09 03:40:51 honda Exp $\r
 120 '\r
 121 \r
 122 Private Sub SetLabelString(index As Integer, letter As String, color As ColorConstants)\r
 123     Label1(index) = letter\r
 124     Label1(index).ForeColor = color\r
 125 End Sub\r
 126 \r
 127 Private Sub DeviceControl1_OnKernelExit()\r
 128     Dim i As Integer\r
 129     \r
 130     For i = 0 To 4\r
 131         SetLabelString i, "\8fI\97¹", vbBlue\r
 132     Next i\r
 133     \r
 134 End Sub\r
 135 \r
 136 Private Sub DeviceControl1_OnKernelStart()\r
 137     Dim i As Integer\r
 138     \r
 139     For i = 0 To 4\r
 140         SetLabelString i, "\8eæ\93¾\91Ò\82¿", vbBlack\r
 141     Next i\r
 142 End Sub\r
 143 \r
 144 Private Sub DeviceControl1_OnWrite(ByVal address As Long, ByVal sz As Long)\r
 145     Dim i As Integer\r
 146     Dim work As Long\r
 147     work = DeviceControl1.Value\r
 148     i = work And &HF\r
 149         \r
 150     Select Case (work And &HF0)\r
 151     Case &H10\r
 152         SetLabelString i, "\8eæ\93¾\91Ò\82¿", vbBlack\r
 153     Case &H20\r
 154         SetLabelString i, "\90H\8e\96", vbRed\r
 155     Case &H40\r
 156         SetLabelString i, "\8bx\8ce", vbBlack\r
 157     End Select\r
 158 \r
 159 End Sub\r
 160 \r
 161 Private Sub Form_Load()\r
 162     Dim i As Integer\r
 163     \r
 164     For i = 0 To 4\r
 165         SetLabelString i, "\8fI\97¹", vbBlue\r
 166     Next i\r
 167     \r
 168     DeviceControl1.Connect\r
 169     DeviceControl1.Map 100, 4\r
 170 End Sub\r
 171 \r
 172 Private Sub Form_Unload(Cancel As Integer)\r
 173     DeviceControl1.Close\r
 174 End Sub\r