Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,503

HOME > .NET Framework > Forum > สอบถามการเขียนโค้ด VB การคำนวณผลรวมที่เป็นเลขคู่ คับ





 

สอบถามการเขียนโค้ด VB การคำนวณผลรวมที่เป็นเลขคู่ คับ

 



Topic : 072147

Guest




ถ้าหากเราต้องรับค่า ข้อมูลมา 20 ค่าแล้วต้องการคำนวณเฉพาะค่าที่เป็นเลขคู่เท่านั้น ต้องใช้คำสั่งประมาณไหนคับ ^^



Tag : .NET, VS 2005 (.NET 2.x), VS 2008 (.NET 3.x), VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-01-18 00:00:17 By : arm_666 View : 14850 Reply : 16
 

 

No. 1



โพสกระทู้ ( 154 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
If x mod 2 = 0 Then
' x เป็นเลขคู่
Else
' x เป็นเลขคี่
End If







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-18 00:28:55 By : gunnermontana
 


 

No. 2



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์


โจทย์งานของผมคือ " จงเขียนโปรแกรมรับจำนวนอายุ 10 คนแล้วคำนวณผลรวมของอายุที่เป็นเลขคู่ "

ได้เขียนโปรแกรมตามนี้อะคับ แต่ก้อยังรันไม่ได้ตามโจทย์สั่งซักที่ รบกวนช่วยดูให้หน่อยนะคับ

Code (VB.NET)
Public Class Form1
    Dim sum As Integer

    Private Sub a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.Click
        txtShow.Enabled = True
        txtShow.Text = ""
        txtSum.Text = ""
        Dim i As Integer
        Dim age(9) As Integer
        sum = 0
        For i = 0 To 9
            age(i) = InputBox(" คุณกำลังป้อนอายุคนที่ " & i + 1, " ยินดีต้อนรับ ")
            txtShow.Text = txtShow.Text & age(i) & vbCrLf
            sum = sum + age(i)
        Next i
     End Sub

    Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
        Dim i As Integer
        Dim age(9) As Integer
        If age(i) Mod 2 = 0 Then
            sum = sum + age(i)
        End If
        txtSum.Text = sum
    End Sub

    Private Sub c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.Click
        Me.Close()
    End Sub
End Class

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-18 21:36:14 By : arm_666
 

 

No. 3



โพสกระทู้ ( 154 )
บทความ ( 0 )



สถานะออฟไลน์


แก้เป็นอย่างงี้ดีกว่ามั้ยครับ

Code (VB.NET)
Public Class Form1
    Dim age(9) As Integer

    Private Sub a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.Click
        txtShow.Enabled = True
        txtShow.Text = ""
        txtSum.Text = ""

        For i As Integer = 0 To age.Length - 1
            age(i) = InputBox(" คุณกำลังป้อนอายุคนที่ " & i + 1, " ยินดีต้อนรับ ")
            txtShow.Text = txtShow.Text & age(i) & vbCrLf
        Next i
    End Sub

    Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
        Dim sum As Integer = 0

        For i As Integer = 0 To age.Length - 1
            If age(i) Mod 2 = 0 Then
                sum = sum + age(i)
            End If
        Next

        txtSum.Text = sum
    End Sub

    Private Sub c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.Click
        Me.Close()
    End Sub
End Class

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-18 23:28:28 By : gunnermontana
 


 

No. 4



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์


รันได้แล้วคับ ขอบคุณมากเลยนะคับ คุณGunner
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-19 00:03:34 By : arm_666
 


 

No. 5

Guest


พี่คะ

คือว่าอาจารย์เค้าสั่งให้หนูทำโครงงานเกี่ยว โปรแกรม vb อะคะ

แต่หนูไม่รู้ว่าจะทำโครงงานเรื่องอะไรดีคะ

ตอนแรกว่าจะทำเครื่องคิดเลขแต่ก็ไม่มีโค้ดคะ

อ๋อ แล้วก็อาจารบอกว่าไม่ต้องทำยากมาก แต่ก็ต้องทำให้สวยงามคะ

ขอบคุณคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-25 10:05:34 By : เมสิยา ไสแสง
 


 

No. 6

Guest


ขอคำตอบเร็วๆนะคะ

ขอด่วนมากคะ

ขอบคุณคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-25 10:19:38 By : เมสิยา ไสแสง
 


 

No. 7

Guest


ตอบความคิดเห็นที่ : 2 เขียนโดย : arm_666 เมื่อวันที่ 2012-01-18 21:36:14
รายละเอียดของการตอบ ::
ช่วยแปลโคดนี้ให้หน่อยนะคับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-05-18 10:19:38 By : หะว
 


 

No. 8

Guest


คุร Arm Ha ช่วยบอกความหมายโค้ดที่คุณเขียนหน่อยได้มั้ยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-05-18 10:33:56 By : ปรัชวิน
 


 

No. 9

Guest


ขอโค้ดการจองรถจักยานยนต์หน่อยค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-02 13:49:08 By : หญิงๆ
 


 

No. 10

Guest


ขอโทษนะคะ รบกวนหน่อยนึงคะ
พอดีโจทย์คล้ายกันเลยคะ แต่สับสนมากกกเลยคะ

โจทย์ " จงออกแบบโปรแกรมเพื่อหาค่าผลบวกของตัวเลขจำนวนเต็มกี่จำนวนก็ได้ แต่จะบวกเฉพาะเลขคี่เท่านั้น " ใน vb.net

โดยให้ใช่ ปุ่ม Button มาวางหน้า Form1 เพียง 2 ปุ่ม คือ " บันทึก " และ " คำนวณ "
อยากทราบโค้ดที่จะนำมาเขียนลงใน ปุ่ม Button ที่ชื่อว่า " บันทึก "
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-08-10 22:30:17 By : HobBit
 


 

No. 11

Guest


จงเขียนโปรแกรมแสดงเฉพาะเลขคู่ ของจำนวนต่อไปนี้ 10, 8, 17, 20, 19,
15, 21, 61, 32, 36, 80, 47, 55, 66, 53 โดยให้เก็บข้อมูลแบบอาร์เรย์ และใช้
ฟังก์ชั่น foreach ในการเขียนโปรแกรม

ช่วยหน่อยจ้าว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-19 23:49:15 By : Nan Nan
 


 

No. 12

Guest


1. Bitwise Operators

Code (VB.NET)
Dim need As New List(Of Integer)(New Integer() {1, 2, 3, 4, 5})
need.ForEach(Sub(sex)
                 If ((sex And 1) = 0) Then 'Bitwise Operators
                     Console.WriteLine("ฉันคือคู่ " & sex)
                 Else
                     Console.WriteLine("ฉันคือขี้ " & sex)
                 End If
             End Sub)


ครบตามโจทย์ครูของพวกเธอ/ไม่ใช่ครูของฉันแน่นอน (Array & ForEach)

2. Bit Shift Operators

3. Mod

More...
...
...
...
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-20 09:14:03 By : หน้าฮี
 


 

No. 13

Guest


pfgof ouhhk;fsdsp;dejtjdey
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-10-26 10:01:39 By : dsadas
 


 

No. 14

Guest


แสดงผลลัพธ์ยกกำลงสองของเลข1_50
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-08-26 18:24:00 By : Nut
 


 

No. 15



โพสกระทู้ ( 3,950 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 14 เขียนโดย : Nut เมื่อวันที่ 2017-08-26 18:24:00
รายละเอียดของการตอบ ::
ใช่แบบนี้ป่าว

Code (C#)
for(int i =1;i<=50;i++)
            MessageBox.Show("" +  Math.Pow(1, 2));


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-08-26 18:43:13 By : lamaka.tor
 


 

No. 16

Guest


[marquee]:)[/marquee]
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-05-13 08:35:07 By : Shen
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามการเขียนโค้ด VB การคำนวณผลรวมที่เป็นเลขคู่ คับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่