home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 November / VPR0011A.BIN / HANDA / CAMP / camp.frm < prev    next >
Text File  |  2000-09-04  |  8KB  |  275 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3330
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4845
  8.    FillColor       =   &H00808080&
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3330
  11.    ScaleWidth      =   4845
  12.    StartUpPosition =   3  'Windows の既定値
  13.    Begin VB.CommandButton まつむしOFF 
  14.       Caption         =   "手動まつむしOFF!"
  15.       BeginProperty Font 
  16.          Name            =   "ＭＳ Ｐゴシック"
  17.          Size            =   14.25
  18.          Charset         =   128
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   495
  25.       Index           =   3
  26.       Left            =   120
  27.       TabIndex        =   3
  28.       Top             =   2400
  29.       Width           =   2415
  30.    End
  31.    Begin VB.CommandButton まつむしON 
  32.       Caption         =   "手動まつむしON!"
  33.       BeginProperty Font 
  34.          Name            =   "ＭＳ Ｐゴシック"
  35.          Size            =   14.25
  36.          Charset         =   128
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   495
  43.       Index           =   2
  44.       Left            =   120
  45.       TabIndex        =   2
  46.       Top             =   1800
  47.       Width           =   2415
  48.    End
  49.    Begin VB.CommandButton すずむしON 
  50.       Caption         =   "手動すずむしON!"
  51.       BeginProperty Font 
  52.          Name            =   "ＭＳ Ｐゴシック"
  53.          Size            =   14.25
  54.          Charset         =   128
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   495
  61.       Index           =   0
  62.       Left            =   120
  63.       TabIndex        =   1
  64.       Top             =   600
  65.       Width           =   2415
  66.    End
  67.    Begin VB.CommandButton すずむしOFF 
  68.       Caption         =   "手動すずむしOFF!"
  69.       BeginProperty Font 
  70.          Name            =   "ＭＳ Ｐゴシック"
  71.          Size            =   14.25
  72.          Charset         =   128
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   495
  79.       Index           =   1
  80.       Left            =   120
  81.       TabIndex        =   0
  82.       Top             =   1200
  83.       Width           =   2415
  84.    End
  85.    Begin VB.Label Label2 
  86.       Alignment       =   2  '中央揃え
  87.       BackColor       =   &H8000000A&
  88.       Caption         =   "の、サンプルプログラム"
  89.       BeginProperty Font 
  90.          Name            =   "ＭＳ Ｐゴシック"
  91.          Size            =   8.25
  92.          Charset         =   128
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H8000000D&
  99.       Height          =   255
  100.       Index           =   0
  101.       Left            =   2760
  102.       TabIndex        =   8
  103.       Top             =   360
  104.       Width           =   1935
  105.    End
  106.    Begin VB.Label Label1 
  107.       Caption         =   "Copyright(C)2000, by NOBU."
  108.       Height          =   255
  109.       Index           =   0
  110.       Left            =   2520
  111.       TabIndex        =   7
  112.       Top             =   3000
  113.       Width           =   3975
  114.    End
  115.    Begin VB.Label Label4 
  116.       Alignment       =   2  '中央揃え
  117.       BackColor       =   &H8000000E&
  118.       Caption         =   "雨センサー"
  119.       BeginProperty Font 
  120.          Name            =   "ＭＳ Ｐゴシック"
  121.          Size            =   12
  122.          Charset         =   128
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       ForeColor       =   &H8000000D&
  129.       Height          =   255
  130.       Index           =   1
  131.       Left            =   2880
  132.       TabIndex        =   6
  133.       Top             =   1800
  134.       Width           =   1695
  135.    End
  136.    Begin VB.Label Label3 
  137.       Alignment       =   2  '中央揃え
  138.       BackColor       =   &H8000000E&
  139.       Caption         =   "光センサー"
  140.       BeginProperty Font 
  141.          Name            =   "ＭＳ Ｐゴシック"
  142.          Size            =   12
  143.          Charset         =   128
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       ForeColor       =   &H8000000D&
  150.       Height          =   255
  151.       Index           =   0
  152.       Left            =   2880
  153.       TabIndex        =   5
  154.       Top             =   720
  155.       Width           =   1695
  156.    End
  157.    Begin VB.Label Label2 
  158.       Alignment       =   2  '中央揃え
  159.       BackColor       =   &H8000000E&
  160.       Caption         =   "ハンダでＧｏ！安全キャンプマシーン"
  161.       BeginProperty Font 
  162.          Name            =   "ＭＳ Ｐゴシック"
  163.          Size            =   12
  164.          Charset         =   128
  165.          Weight          =   700
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       ForeColor       =   &H8000000D&
  171.       Height          =   255
  172.       Index           =   1
  173.       Left            =   120
  174.       TabIndex        =   4
  175.       Top             =   120
  176.       Width           =   4575
  177.    End
  178. End
  179. Attribute VB_Name = "Form1"
  180. Attribute VB_GlobalNameSpace = False
  181. Attribute VB_Creatable = False
  182. Attribute VB_PredeclaredId = True
  183. Attribute VB_Exposed = False
  184. Private Sub Form_Load()
  185.  
  186.     KeyPreview = True
  187.  
  188. End Sub
  189.  
  190. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  191.  
  192.     Cls
  193.  
  194.     If KeyCode = &H7A And Shift = 0 Then
  195.             CurrentX = 3200
  196.             CurrentY = 1300
  197.             FontName = "ＭＳ Ｐゴシック"
  198.             Print "夜になったよ!!"
  199.         
  200.             X = Shell("gpio.exe 19 0", 6)
  201.             AppActivate "camp"
  202.         
  203.         End If
  204.         
  205.         
  206.     If KeyCode = &H7B And Shift = 0 Then
  207.             CurrentX = 3050
  208.             CurrentY = 2300
  209.             FontName = "ＭＳ Ｐゴシック"
  210.             Print "雨が降ってきた～!!"
  211.             
  212.             X = Shell("gpio.exe 20 0", 6)
  213.             AppActivate "camp"
  214.         
  215.         End If
  216.  
  217. End Sub
  218.  
  219. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  220.  
  221.     Cls
  222.  
  223.     If KeyCode = &H7A And Shift = 0 Then
  224.             CurrentX = 3200
  225.             CurrentY = 1300
  226.             FontName = "ＭＳ Ｐゴシック"
  227.             Print "明るくなったよ!!"
  228.             
  229.             X = Shell("gpio.exe 19 1", 6)
  230.             AppActivate "camp"
  231.         
  232.         End If
  233.         
  234.         
  235.     If KeyCode = &H7B And Shift = 0 Then
  236.             CurrentX = 3050
  237.             CurrentY = 2300
  238.             FontName = "ＭＳ Ｐゴシック"
  239.             Print "晴れてるよ～!!"
  240.             
  241.             X = Shell("gpio.exe 20 0", 6)
  242.             AppActivate "camp"
  243.             
  244.         End If
  245.  
  246. End Sub
  247.  
  248. Private Sub すずむしOFF_Click(Index As Integer)
  249.  
  250.     X = Shell("gpio.exe 19 1", 6)
  251.         AppActivate "camp"
  252.         
  253. End Sub
  254.  
  255. Private Sub すずむしON_Click(Index As Integer)
  256.  
  257.     X = Shell("gpio.exe 19 0", 6)
  258.         AppActivate "camp"
  259.     
  260. End Sub
  261.  
  262. Private Sub まつむしOFF_Click(Index As Integer)
  263.  
  264.     X = Shell("gpio.exe 20 1", 6)
  265.         AppActivate "camp"
  266.         
  267. End Sub
  268.  
  269. Private Sub まつむしON_Click(Index As Integer)
  270.  
  271.     X = Shell("gpio.exe 20 0", 6)
  272.         AppActivate "camp"
  273.  
  274. End Sub
  275.