home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 November / VPR0011A.BIN / HANDA / SANMA / sanma.frm < prev    next >
Text File  |  2000-09-04  |  9KB  |  315 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows の既定値
  12.    Begin VB.CommandButton 電熱器OFF 
  13.       Caption         =   "電熱器OFF!"
  14.       BeginProperty Font 
  15.          Name            =   "ＭＳ Ｐゴシック"
  16.          Size            =   14.25
  17.          Charset         =   128
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   495
  24.       Index           =   3
  25.       Left            =   0
  26.       TabIndex        =   3
  27.       Top             =   2160
  28.       Width           =   2415
  29.    End
  30.    Begin VB.CommandButton 電熱器ON 
  31.       Caption         =   "電熱器ON!"
  32.       BeginProperty Font 
  33.          Name            =   "ＭＳ Ｐゴシック"
  34.          Size            =   14.25
  35.          Charset         =   128
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   495
  42.       Index           =   2
  43.       Left            =   0
  44.       TabIndex        =   2
  45.       Top             =   1560
  46.       Width           =   2415
  47.    End
  48.    Begin VB.CommandButton うちわON 
  49.       Caption         =   "うちわON!"
  50.       BeginProperty Font 
  51.          Name            =   "ＭＳ Ｐゴシック"
  52.          Size            =   14.25
  53.          Charset         =   128
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   495
  60.       Index           =   0
  61.       Left            =   0
  62.       TabIndex        =   1
  63.       Top             =   360
  64.       Width           =   2415
  65.    End
  66.    Begin VB.CommandButton うちわOFF 
  67.       Caption         =   "うちわOFF!"
  68.       BeginProperty Font 
  69.          Name            =   "ＭＳ Ｐゴシック"
  70.          Size            =   14.25
  71.          Charset         =   128
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   495
  78.       Index           =   1
  79.       Left            =   0
  80.       TabIndex        =   0
  81.       Top             =   960
  82.       Width           =   2415
  83.    End
  84.    Begin VB.Label Label4 
  85.       Alignment       =   2  '中央揃え
  86.       BackColor       =   &H8000000E&
  87.       Caption         =   "焼け具合センサー②"
  88.       BeginProperty Font 
  89.          Name            =   "ＭＳ Ｐゴシック"
  90.          Size            =   11.25
  91.          Charset         =   128
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H8000000D&
  98.       Height          =   255
  99.       Index           =   0
  100.       Left            =   2520
  101.       TabIndex        =   9
  102.       Top             =   2040
  103.       Width           =   2055
  104.    End
  105.    Begin VB.Label Label1 
  106.       Caption         =   "Copyright(C)2000, by NOBU."
  107.       Height          =   255
  108.       Index           =   0
  109.       Left            =   2280
  110.       TabIndex        =   8
  111.       Top             =   2880
  112.       Width           =   3975
  113.    End
  114.    Begin VB.Label Label2 
  115.       Alignment       =   2  '中央揃え
  116.       BackColor       =   &H8000000E&
  117.       Caption         =   "ハンダでＧｏ！究極のGPIO七輪"
  118.       BeginProperty Font 
  119.          Name            =   "ＭＳ Ｐゴシック"
  120.          Size            =   12
  121.          Charset         =   128
  122.          Weight          =   700
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       ForeColor       =   &H8000000D&
  128.       Height          =   255
  129.       Index           =   1
  130.       Left            =   120
  131.       TabIndex        =   7
  132.       Top             =   0
  133.       Width           =   4215
  134.    End
  135.    Begin VB.Label Label2 
  136.       Alignment       =   2  '中央揃え
  137.       BackColor       =   &H8000000A&
  138.       Caption         =   "の、サンプルプログラム"
  139.       BeginProperty Font 
  140.          Name            =   "ＭＳ Ｐゴシック"
  141.          Size            =   8.25
  142.          Charset         =   128
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       ForeColor       =   &H8000000D&
  149.       Height          =   255
  150.       Index           =   0
  151.       Left            =   2520
  152.       TabIndex        =   6
  153.       Top             =   360
  154.       Width           =   1935
  155.    End
  156.    Begin VB.Label Label3 
  157.       Alignment       =   2  '中央揃え
  158.       BackColor       =   &H8000000E&
  159.       Caption         =   "さんま検知センサー"
  160.       BeginProperty Font 
  161.          Name            =   "ＭＳ Ｐゴシック"
  162.          Size            =   11.25
  163.          Charset         =   128
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       ForeColor       =   &H8000000D&
  170.       Height          =   255
  171.       Index           =   0
  172.       Left            =   2520
  173.       TabIndex        =   5
  174.       Top             =   600
  175.       Width           =   2055
  176.    End
  177.    Begin VB.Label Label4 
  178.       Alignment       =   2  '中央揃え
  179.       BackColor       =   &H8000000E&
  180.       Caption         =   "焼け具合センサー①"
  181.       BeginProperty Font 
  182.          Name            =   "ＭＳ Ｐゴシック"
  183.          Size            =   11.25
  184.          Charset         =   128
  185.          Weight          =   400
  186.          Underline       =   0   'False
  187.          Italic          =   0   'False
  188.          Strikethrough   =   0   'False
  189.       EndProperty
  190.       ForeColor       =   &H8000000D&
  191.       Height          =   255
  192.       Index           =   1
  193.       Left            =   2520
  194.       TabIndex        =   4
  195.       Top             =   1320
  196.       Width           =   2055
  197.    End
  198. End
  199. Attribute VB_Name = "Form1"
  200. Attribute VB_GlobalNameSpace = False
  201. Attribute VB_Creatable = False
  202. Attribute VB_PredeclaredId = True
  203. Attribute VB_Exposed = False
  204.  
  205. Private Sub うちわOFF_Click(Index As Integer)
  206.  
  207.     X = Shell("gpio.exe 19 1", 6)
  208.         AppActivate "sanma"
  209.         
  210. End Sub
  211.  
  212. Private Sub うちわON_Click(Index As Integer)
  213.  
  214.     X = Shell("gpio.exe 19 0", 6)
  215.         AppActivate "sanma"
  216.         
  217. End Sub
  218.  
  219. Private Sub 電熱器OFF_Click(Index As Integer)
  220.  
  221.     X = Shell("gpio.exe 20 1", 6)
  222.         AppActivate "sanma"
  223.         
  224. End Sub
  225.  
  226. Private Sub 電熱器ON_Click(Index As Integer)
  227.  
  228.     X = Shell("gpio.exe 20 0", 6)
  229.         AppActivate "sanma"
  230.         
  231. End Sub
  232. Private Sub Form_Load()
  233.  
  234.     KeyPreview = True
  235.  
  236. End Sub
  237.  
  238. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  239.  
  240.     Cls
  241.  
  242.     If KeyCode = &H79 And Shift = 0 Then
  243.             CurrentX = 2900
  244.             CurrentY = 1000
  245.             FontName = "ＭＳ Ｐゴシック"
  246.             Print "さんま発見!!"
  247.         
  248.             X = Shell("gpio.exe 19 0", 6)
  249.             AppActivate "sanma"
  250.         
  251.         End If
  252.         
  253.     If KeyCode = &H7A And Shift = 0 Then
  254.             CurrentX = 2900
  255.             CurrentY = 1750
  256.             FontName = "ＭＳ Ｐゴシック"
  257.             Print "焦げちゃうよ～!!"
  258.         
  259.             X = Shell("gpio.exe 20 0", 6)
  260.             AppActivate "sanma"
  261.         
  262.         End If
  263.         
  264.     If KeyCode = &H7B And Shift = 0 Then
  265.             CurrentX = 2900
  266.             CurrentY = 2450
  267.             FontName = "ＭＳ Ｐゴシック"
  268.             Print "焦げちゃうよ～!!"
  269.             
  270.             X = Shell("gpio.exe 20 0", 6)
  271.             AppActivate "sanma"
  272.         
  273.         End If
  274.  
  275. End Sub
  276.  
  277. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  278.  
  279.     Cls
  280.  
  281.     If KeyCode = &H79 And Shift = 0 Then
  282.             CurrentX = 2900
  283.             CurrentY = 1000
  284.             FontName = "ＭＳ Ｐゴシック"
  285.             Print "さんまを乗せてね!!"
  286.         
  287.             X = Shell("gpio.exe 19 0", 6)
  288.             AppActivate "sanma"
  289.         
  290.         End If
  291.         
  292.     If KeyCode = &H7A And Shift = 0 Then
  293.             CurrentX = 2900
  294.             CurrentY = 1750
  295.             FontName = "ＭＳ Ｐゴシック"
  296.             Print "生焼けになるよ～!!"
  297.             
  298.             X = Shell("gpio.exe 20 0", 6)
  299.             AppActivate "sanma"
  300.         
  301.         End If
  302.  
  303.     If KeyCode = &H7B And Shift = 0 Then
  304.             CurrentX = 2900
  305.             CurrentY = 2450
  306.             FontName = "ＭＳ Ｐゴシック"
  307.             Print "生焼けになるよ～!!"
  308.             
  309.             X = Shell("gpio.exe 27 0", 6)
  310.             AppActivate "sanma"
  311.         
  312.         End If
  313.  
  314. End Sub
  315.