Page 1 of 1
แสดงเลขคู่เลขคี่
Posted: Tue Aug 21, 2018 5:37 pm
by Chayanun19
ต้องการที่จะทำโปรแกรมแสดงเลขคู่และเลขคี่ ด้วย เเบบ windows form application ค่ะ ใช้โค้ดเริ่มเป็น Public class
ตัวอย่างเช่น ใส่ตัวเลข 10 ไปใน textbox1 และ ใส่ตัวเลข 20 ไปใน textbox2 กดปุ่มตกลง ให้แสดงผลลัพธ์ เป็นเลขคู่ คือ 10 12 14 16 18 20 และเลขคี่ คือ 11 13 15 17 19 ค่ะ
หน้าจอโปรแกรมตามแบบที่แนบมาเลยค่ะ
Re: แสดงเลขคู่เลขคี่
Posted: Tue Aug 21, 2018 7:29 pm
by snasui
ลองเขียนมาเองก่อน ติดตรงไหนค่อยนำมาถามกันต่อครับ
Re: แสดงเลขคู่เลขคี่
Posted: Tue Aug 21, 2018 8:03 pm
by Chayanun19
พยายามลองทำแล้วจริงๆค่ะ ไปไม่ถูกจริงๆค่ะ
Re: แสดงเลขคู่เลขคี่
Posted: Tue Aug 21, 2018 8:53 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Dim b, num1, num2 As Byte
Dim s1, s2 As String
num1 = Val(TextBox1.Text)
num2 = Val(TextBox2.Text)
s1 = ""
s2 = ""
For b = num1 To num2 Step 2
s1 = s1 & " " & b
If b < num2 Then
s2 = s2 & " " & b + 1
End If
Next b
TextBox3.Text = s1
TextBox4.Text = s2
Re: แสดงเลขคู่เลขคี่
Posted: Tue Aug 21, 2018 9:05 pm
by Chayanun19
ได้แล้วค่ะ ขอบคุณมากๆนะคะ
Re: แสดงเลขคู่เลขคี่
Posted: Wed Aug 17, 2022 9:27 am
by profess79
snasui wrote: ↑Tue Aug 21, 2018 8:53 pm
ตัวอย่าง Code ครับ
Code: Select all
Dim b, num1, num2 As Byte
Dim s1, s2 As String
num1 = Val(TextBox1.Text)
num2 = Val(TextBox2.Text)
s1 = ""
s2 = ""
For b = num1 To num2 Step 2
s1 = s1 & " " & b
If b < num2 Then
s2 = s2 & " " & b + 1
End If
Next b
TextBox3.Text = s1
TextBox4.Text = s2
แบบนี้ถ้า user ใส่ 21-30 ละครับ
Re: แสดงเลขคู่เลขคี่
Posted: Wed Aug 17, 2022 9:30 am
by snasui
กรุณายกคำถามนี้ไปถามในหมวด
Excel ตรงนี้เป็นหมวดของ VB.NET ครับ
Re: แสดงเลขคู่เลขคี่
Posted: Thu Aug 18, 2022 2:50 pm
by profess79
อันนี้ผมถามในส่วนของ Code ที่ Quote มาครับน่าจะตรงหมวดแล้ว
หรือผมถามผิดอะไรตรงไหนครับ
Re: แสดงเลขคู่เลขคี่
Posted: Thu Aug 18, 2022 3:33 pm
by snasui
profess79 wrote: ↑Wed Aug 17, 2022 9:27 am
แบบนี้ถ้า user ใส่ 21-30 ละครับ
จะให้แสดงคำตอบเป็นอย่างไร ช่วยแจกแจงคำตอบมาเป็นตัวอย่างด้วยครับ
Re: แสดงเลขคู่เลขคี่
Posted: Fri Aug 19, 2022 7:16 pm
by profess79
พอดีไม่เห็นอะไรที่มันเป็นการหาร 2 เอาเศษ 0 ครับ
มันเลยออกมาแบบนี้
ที่ถูกต้องมีการหาร 2 เอาเศษ 0 ประมาณนี้ครับ
อันนี้เขียนจาก VB6 นะครับ แต่ VB.Net ก็คล้ายๆ กันครับ
Re: แสดงเลขคู่เลขคี่
Posted: Fri Aug 19, 2022 10:01 pm
by snasui
สามารถปรับ Code ตอนให้แสดงผลใน TextBox เป็นด้านล่างครับ
Code: Select all
'Other code
Next b
If num1 Mod 2 = 0 Then
TextBox3.Text = s1
TextBox4.Text = s2
Else
TextBox3.Text = s2
TextBox4.Text = s1
End If
End Sub