㺧ҹ·Õè 3

¡ÒÃà¢Õ¹â»Ãá¡ÃÁàº×éͧµé¹

1.¨§à¢Õ¹â»Ãá¡ÃÁà¾×èͤӹdzàŢ¡¡ÓÅѧ

 
                                                                                         

 1.1) ¨§ËÒ¤èÒ B , E  àÁ×èÍ  I > E

1.2) ¨§ËÒ¤èÒ S  àÁ×èÍ  I > E 

1.3) ¨§ËÒ¤èÒ I àÁ×èÍ I>E

1.4)¨§ËÒÇèÒÁÕ¡ÒÃǹ«éÓ (looping) ¡Õè¤ÃÑé§

1.5) ¨Ò¡¼Ñ§§Ò¹ãªéǧÃͺª¹Ô´ã´

A)      Í͡ẺÊèǹµÔ´µè͡Ѻ¼Ùéãªé§Ò¹ (User Interface) :

 A)     ¡Ó˹´¤Ø³ÊÁºÑµÔ¢Í§Íͺà¨ç¡µì

ª×èÍÍͺà¨ç¡µì

¤Ø³ÊÁºÑµÔ

¤èÒ·Õè¡Ó˹´

1. Form

Name

frmPower

Text

¡ÒäӹdzËÒàŢ¡¡ÓÅѧ

2. GroupBox

Name

GroupbBox1

Text

»é͹¢éÍÁÙÅ

3. Label

Name

Label1

Text

»é͹àÅ¢°Ò¹

4. Label

Name

Label2

Text

»é͹àŢ¡¡ÓÅѧ

5. TextBox

Name

TextBox1

Text

 

6. TextBox

Name

TextBox1

Text

 

7. GroupBox

Name

GroupBox2

Text

¼ÅÅѾ¸ì

Visible

False

8. Label

Name

Label3

Text

 

9. Button

Name

Button1

Text

µ¡Å§

 

 B)     à¢Õ¹ªØ´¤ÓÊÑè§ (Source Code)

Public Class frmPower

    Private Sub FrmPower_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.CenterToScreen()

        GroupBox1.Text = "»é͹ µÑÇàÅ¢ "

        GroupBox2.Text = " ¼ÅÅѾ¸ì "

        Label1.Text = "»é͹àÅ¢°Ò¹"

        Label2.Text = "»é͹àÅ¢¡ÓÅѧ"

        TextBox1.Text = ""

        TextBox2.Text = ""

        Button1.Text = "µ¡Å§"

        GroupBox2.Visible = False

    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim b, ee, i, s As Integer

        b = CInt(TextBox1.Text)

        ee = CInt(TextBox2.Text)

        Label1.Text = b

        i = 1

        s = 1

        Do While (i <= ee)

            s = s * b

            i = i + 1

        Loop

        'MsgBox(s)

        'MessageBox.Show(s)

        Label3.Text = b & " ^ " & ee & " = " & s

        GroupBox2.Visible = True

    End Sub

 

End Class

2. ¡ÒÃà¢Õ¹â»Ãá¡ÃÁÂèÍ 㹠VB2005 ÁÕ 2 »ÃÐàÀ· ¤×Í

                1. Sub (Sub Routine) à»ç¹â»Ãá¡ÃÁÂèÍ·ÕèäÁèÁÕ¡ÒÃÊ觼šÒ÷ӧҹ¡ÅѺÁÒãËé¼ÙéàÃÕ¡ãªéâ»Ãá¡ÃÁÂèÍ·ÃÒº                            

ÃٻẺ ´Ñ§¹Õé

                      Sub ª×èͫѺÃÙ·Õ¹(ÃÒ¡ÒþÒÃÒÁÔàµÍÃì)

                                       < ¤ÓÊÑ觡Ò÷ӧҹ >

                                       ………………

                       End Sub

 

                2. Function à»ç¹â»Ãá¡ÃÁÂèÍ·ÕèÁÕ¡ÒÃÊ觼šÒ÷ӧҹ¡ÅѺÁÒãËé¼ÙéàÃÕ¡ãªé¿Ñ§¡ìªÑè¹·ÃÒº

ÃٻẺ ´Ñ§¹Õé

                      Function  ª×èͿѧ¡ìªÑ¹(ÃÒ¡ÒþÒÃÒÁÔàµÍÃì) As ª¹Ô´¢éÍÁÙÅ

                                       < ¤ÓÊÑ觡Ò÷ӧҹ >

                                       ………………

                                       ª×èͿѧ¡ìªÑ¹ = ¤èÒ·Õè¤×¹¡ÅѺ

                       End Function
  1. A)     µÑÇÍÂèÒ§¡ÒÃàÃÕ¡ãªé§Ò¹

 

Label3.Text = Power(TextBox1.Text, TextBox2.Text)

 
B)     µÑÇÍÂèÒ§¿Ñ§¡ìªÑ¹

Function Power(ByVal base As String, ByVal expoment As String) As Integer

        Dim b, ex, i, s As Integer

        b = CInt(base)

        ex = CInt(expoment)

        s = 1

        i = 1

        Do While (i <= ex)

            s = s * b

            i = i + 1

        Loop

        Return s

    End Function

 

ËÁÒÂà˵Ø

»ÃÐÂØ¡µìâ´Â¡ÒÃà¢Õ¹äÇéã¹ Module ¨Ð·ÓãËé·Ø¡¿ÍÃìÁÊÒÁÒöàÃÕ¡ãªé§Ò¹¿Ñ§¡ìªÑ¹ Power ä´é

 

3)  »ÃÐÂØ¡µìãªé§Ò¹à¢Õ¹¿Ñ§¡ìªÑ¹ËÒ¼ÅÃÇÁ ¤èÒà©ÅÕè¢ͧµÑÇàÅ¢ (·Ñé§ËÁ´ , àÅ¢¤Õè , àÅ¢¤Ùè) ¨Ò¡¡Òûé͹¢Í§µÑÇàÅ¢ 2 ¨Ó¹Ç¹          

\

A)     µÑÇÍÂèÒ§ ªØ´¤ÓÊÑè§(Source Code) ¿Ñ§¡ìªÑ¹ ã¹ Module

Module Module1

    Function SUMNUMBER(ByVal N1 As String, ByVal N2 As String, ByVal Type As Byte) As Integer

        Dim X, Y, S As Integer

        X = Val(N1)

        Y = Val(N2)

        S = 0

        Select Case Type

            Case 1 '·Ñé§ËÁ´

                Do While (X <= Y)

                    S = S + X

                    X = X + 1

                Loop

            Case 2 ' àÅ¢¤Õè

                Do While (X <= Y)

                    If (X Mod 2 = 1) Then

                        S = S + X

                    End If

                    X = X + 1

                Loop

            Case 3 ' àÅ¢¤Ùè

                Do While (X <= Y)

                    If (X Mod 2 <> 1) Then

                        S = S + X

                    End If

                    X = X + 1

                Loop

        End Select

 

        Return S

 

    End Function

End Module

 

  1. B)     µÑÇÍÂèÒ§ ªØ´¤ÓÊÑè§(Source Code) 㹿ÍÃìÁ

Public Class Form1

    Private Sub Form1_Load

        Me.CenterToScreen()

        Label1.Text = "»é͹àÅ¢àÃÔèÁµé¹"

        Label2.Text = "»é͹àÅ¢ÊØ´·éÒÂ"

        Label3.Text = ""

        TextBox1.Text = ""

        TextBox2.Text = ""

        Label3.Text = ""

        Button1.Text = " ÍÍ¡ "

        RadioButton1.Text = " ·Ñé§ËÁ´ "

        RadioButton2.Text = " àÅ¢¤Öè "

        RadioButton3.Text = " àÅ¢¤Ùè "

 

    End Sub

 

    Private Sub Button1_Click

        End

    End Sub

 

    Private Sub RadioButton2_CheckedChanged

        RadioButton2.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 2)

 

    End Sub

 

    Private Sub RadioButton3_CheckedChanged

        RadioButton3.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 3)

    End Sub

 

    Private Sub RadioButton1_CheckedChanged  

        RadioButton1.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 1)

 

    End Sub

End Class

¡ÅѺÊÙè˹éÒËÅÑ¡ 

 

 

 

 

 

 

 

 

Free Web Hosting