(57)【要約】      （修正有）【課題】タイピングの練習や、子供のゲームなどに利用できるプログラムのシステムを提供する。【解決手段】ウインドウ内の左右のテキストボックスに文字（アルファベット）を入力し、左右のテキストボックスの文字を比較し、同じなら下のテキストボックスに同じ（true）か、違う（false）を出力する。【選択図】図１
2012141513.tif 000002
【特許請求の範囲】
【請求項１】
１つのウィンドウ上に配置された左右のテキストボックスに値（アルファベット）を入力し、その実行結果をその下のテキストボックスに表示する文字比較プログラムのシステムである。
【発明の詳細な説明】
【発明の概要】
【０００１】
本発明は、ウィンドウ内の左右のテキストボックスに文字を入力し、左右のテキストボックスの文字を比較し、同じならその下のテキスボックスに同じ(true)か、違う（false）を出力するプログラムである。Compareボタンで文字比較を実行し、endボタンで画面をクローズする。
【発明の効果】
【０００２】
本発明の効果は、文字を比較し結果を真（正しい）か偽（正しくない）かでかえすものであるが、ウィンドウの配列等に工夫をした。
【図面の簡単な説明】
【０００３】
【図１】図１は本発明の実施方法を示した説明図である。（実施例１）
【図２】図２は本発明の実施方法を示した説明図である。（実施例２）
【発明を実施するための形態】
【０００４】
本発明は、コンピュータ上から実行する形態である。
【実施例１】
【０００５】
図１は、本発明の左右のテキストボックスのアルファベットが同じ場合の実行結果である。
【０００６】
左のテキストボックスは（abcde）で、右のテキストボックスも（abcde）の場合に正しい(true)を出力する例を示したものである。    
【プログラム１】
【０００７】
（ファイル名：Form1.vb）
Public Class Form1
Dim text1, text2, text3 As
String
Private Sub
TextBox1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TextBox1.TextChanged
text1
= TextBox1.Text
End Sub
Private Sub
TextBox2_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TextBox2.TextChanged
text2 = TextBox2.Text
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
If text1 = text2 Then
text3 = "true"
Else
text3 = "false"
End If
TextBox3.Text = text3
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
End
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
【プログラム２】
【０００８】
（ファイル名：Form1designer.vb）
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
_
Partial Class Form1
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために
dispose をオーバーライドします。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected
Overrides Sub
Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso
components IsNot Nothing
Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows フォーム デザイナで必要です。
Private components As
System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
'Windows フォーム デザイナを使用して変更できます。  
'コード エディタを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub
InitializeComponent()
Me.Button1 = New
System.Windows.Forms.Button
Me.TextBox1 = New
System.Windows.Forms.TextBox
Me.TextBox2 = New
System.Windows.Forms.TextBox
Me.TextBox3 = New
System.Windows.Forms.TextBox
Me.Button2 = New
System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New
System.Drawing.Point(87, 153)
Me.Button1.Name = "Button1"
Me.Button1.Size = New
System.Drawing.Size(100, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "compare"
Me.Button1.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New
System.Drawing.Point(12, 41)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New
System.Drawing.Size(123, 19)
Me.TextBox1.TabIndex = 1
'
'TextBox2
'
Me.TextBox2.Location = New
System.Drawing.Point(155, 41)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New
System.Drawing.Size(122, 19)
Me.TextBox2.TabIndex = 2
'
'TextBox3
'
Me.TextBox3.Location = New
System.Drawing.Point(87, 104)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New
System.Drawing.Size(100, 19)
Me.TextBox3.TabIndex = 4
'
'Button2
'
Me.Button2.Location = New
System.Drawing.Point(87, 199)
Me.Button2.Name = "Button2"
Me.Button2.Size = New
System.Drawing.Size(100, 23)
Me.Button2.TabIndex = 6
Me.Button2.Text = "end"
Me.Button2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New
System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode =
System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New
System.Drawing.Size(289, 256)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents
Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1
As System.Windows.Forms.TextBox
Friend WithEvents
TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents
TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents
Button2 As System.Windows.Forms.Button
End Class
【実施例２】
【０００９】
図２は左のテキストボックスが（abcde）で、右のテキストボックスが（badec）の場合の実行例である。結果は、正しくない（false）の値を出力する。
【産業上の利用可能性】
【００１０】
タイピングの練習や、子供用のゲーム等に利用できる。
【図１】
2012141513.tif 000003
【図２】
2012141513.tif 000004