ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾌりだｿｽｿｽｿｽｿｽ 2007/04/14(ｿｽy) 14:22:29

ｿｽｿｽｿｽｿｽEｿｽ数ｿｽ判定すｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Option Strict On
Public Class Form1
    Inherits System.Windows.Forms.Form
ｿｽiｿｽﾈ暦ｿｽｿｽj
 Private Sub txtSuuti_TextChanged(ByｿｽEｿｽE) Handlesｿｽ@txtSuuti.TextChanged
     Dim a As Integer
     a = CInt(txtSuuti.Text)
     If a Mod 2 = 0 Then
        txtHantei.Text = "ｿｽｿｽｿｽ"
     ElseIf a Mod 2 = 1 Then
        txtHantei.Text = "ｿｽ数"
     End If
    End Sub
End Class

ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾚはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽxｿｽﾚゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽlｿｽﾌテｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ欄にゑｿｽｿｽﾄ難ｿｽｿｽﾍゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽo
ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽ關費ｿｽlｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌようｿｽﾈボｿｽ^ｿｽｿｽｿｽｿｽ
ｿｽｿｽ轤ｸｿｽﾆゑｿｽｿｽｿｽﾌ擾ｿｽﾔで連ｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽｿｽｿｽﾆ悩ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽ 2007/04/14(ｿｽy) 14:37:06

ｿｽeｿｽLｿｽXｿｽgｿｽﾉ値ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆ前ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽeｿｽLｿｽXｿｽgｿｽｿｽｿｽ白の場合ｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽﾎ厄ｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽか？

ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ 2007/04/15(ｿｽｿｽ) 02:13:52

ｿｽﾂゑｿｽｿｽﾅに撰ｿｽｿｽlｿｽ`ｿｽFｿｽbｿｽNｿｽ竚ｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽCｿｽCｿｽｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/04/15(ｿｽｿｽ) 13:06:40

TextBox.Text ｿｽ利用ｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽA
NumericUpDown.Value ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽyｿｽｿｽｿｽｿｽB

ｿｽ‾ｿｽlｿｽｿｽｿｽｿｽ 2007/04/15(ｿｽｿｽ) 23:43:36

IsNumericｿｽﾆゑｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄみてはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

Dim a As Integer

If IsNumeric(txtSuuti.Text) Then
    a = CInt(txtSuuti.Text)
    If a Mod 2 = 0 Then
        txtHantei.Text = "ｿｽｿｽｿｽ"
    ElseIf a Mod 2 = 1 Then
        txtHantei.Text = "ｿｽ数"
    End If
Else
    txtHantei.Text = "ｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB"
End If

ｿｽﾌりだｿｽｿｽｿｽｿｽ 2007/04/16(ｿｽｿｽ) 19:45:52

ｿｽ@ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽlｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽlｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBNumericUpDown.Value ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Option Strict On
ｿｽiｿｽﾈ暦ｿｽｿｽj
Private Sub NumericUpDown1_ValueChanged(ByValｿｽEｿｽE) Handles numSuuti.ValueChanged
        Dim a As Decimal
        a = numSuuti.Value
        If a Mod 2 = 0 Then
            txtHantei.Text = "ｿｽｿｽｿｽ"
        Else
            txtHantei.Text = "ｿｽ数"
        End If
    End Sub
End Class

Created by board of various Programming Library.