สวัสดีครับ.. ผู้เริ่มต้นใช้ VB /ผู้ชำนาญ / และผู้เชี่ยวชาญ
ขณะนี้ผมเริ่มศึกษา vb.2010 (มีพื้นจาก macro ของ excel) พอเข้าใจเรื่อง form / btn / textbox และได้ใช้ vb ออกแบบหน้าตา โปรแกรมไว้แล้ว
ในรูปแบบแยก form ต่างๆ ไว้ 6-7 form. แต่ละ form จะมีตัวเลือก และการแสดงผล ในแต่ละ ข้อมูลที่ต้องการ
และ สิ่งที่ต้องการคือ การเขียนโค๊ด ให้เกิดผลการคำนวน / การเทียบสถิติ / การแสดงผล โดยจะขอคำปรึกษา
ไปทีละขั้น ๆ ครับ
1. จะมีการกำหนดให้ อักษร B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U รวม 20 ตัว นี้ fixed ประจำตำแหน่ง ที 1-20 ตามลำดับ
2. จะมีการนำสถิติหวยที่เก็บไว้ ใน .text มาเที่ยบ โดยข้อมูลหวยจะอยู่ในรูปแบบ
58922706259552927375 2020-02-01 เลขสถิติเดือน กพ. จะมีรางวัลใหญ่ที่นิยม นำมาเขียนต่อกัน จะได้ 20 ตัว และตามด้วย ว/ด/ป
78140394952515030918 2020-02-16 เลขสถิติเดือน กพ. จะมีรางวัลใหญ่ที่นิยม นำมาเขียนต่อกัน จะได้ 20 ตัว และตามด้วย ว/ด/ป
3. การเทียบจะเทียบตามตำแหน่ง เช่น งวด 2020-02-01
B=5,C=8,D=9,E=2,F=2,G=7,H=0,I=6,J=2,K=5,L=9,M=5,N=5,O=2,P=9,Q=2,R=7,S=3,T=7,U=5
4. ในส่วนสูตรหวยจะมีการกำหนดแยกเป็น 2 ส่วนคือ ส่วนที่เป็นอักษร และ ส่วนที่เป็นต้วเลข
เราสามารถกำหนดส่วนที่เป็นตัวอักษรได้สูงสุด คือ 20 ตัวอักษร และส่วนที่เป็นตัวเลข ได้ 9 ตัว
ตัวอย่าง เช่น BBBDEFGSTU 456 จะมีอักษร 10 ตัว และตัวเลข 3 ตัว (สูตรนี้จะถูกหาออกมาจากการเขียนโค้ดและเขียนลงใน .text)
ส่วนที่จะเป็นสูตรของเลขอะไร? และ สูตรจะมีอักษรจำนวนเท่าไร? และตัวเลขจำนวนเท่าไร? ขึ้นอยู่กับผู้ใช้จะกำหนดลงไปใน textbox
5. ในการเขียนโค้ดสร้างสูตร ตามตัวอย่าง สมมุติว่าเป็นสูตรที่ใช้ หา สองตัวล่างในงวด 2020-02-16 ที่ตำแหน่งหลักสิบ ซึ่งตามตัวอย่าง
สองตัวล่าง ผลการออกรางวัลคือ 94 แสดงว่า หลักสิบคือเลข 9 และอยู่ในตำแหน่งที่ 8 ซึ่งตรงกับอักษร I
6. ตามตัวอย่างที่กล่าวมา การเขียนโค้ด จะให้มีการวนลูป ในหมวดอักษร 10 ตัว และ ตามด้วยเลข อีก 3 ตัว โดยเริ่มจาก BBBBBBBBBB 001 ไป จนถึง
สุดท้าย ที่ UUUUUUUUUU 999 (ในส่วนตัวเลขจะมีตัวเลขที่ซ้ำกันถูกตัดออกแต่เพื่อความเข้าใจจึงให้เห็นภาพจาก 001-999)
7. โดยในการวนลูปแต่ละครั้งจะต้องมีการบวกค่าที่ได้ และ นำไปเทียบกับสถิติที่เลือกไว้ คืองวด 2020-02-01 ในตำแหน่งที 8 ในที่นี้ก็คือตำแหน่ง
ของหลักสิบ ของผลการออกรางวัลสองตัวล่างนั่นเอง ซึ่งจะต้องเทียบกับ สถิติเป็นจำนวนครั้งตามที่ ผู้ใช้กำหนด ย้อนหลังไป
8. การแทนค่า จากสถิติตามตัวอย่าง ตำแหน่งที่ 1 ตรงกับอักษร B วนลูปได้ BBBBBBBBBB 012 ก็แทนค่าได้ว่า ตำแหน่งที่ 1 เท่ากับอักษร B
และตำแหน่งที่ 1 ของสถิติ งวด 2020-02-01 เท่ากับเลข 5 ในที่นี้มี B =10 ตัว เมื่อแทนค่าจะได้ 10*5=50 และ จะต้องบวกกับตัวเลขอีก 3 ครัง
ครั้งที่ 1 จะได้ 50+0 =50 เอาเฉพาะเลขตัวท้ายคือ 0 , ครั้งที่ 2 จะได้ 50+1 = 51 เอาเฉพาะเลขตัวท้ายคือ 1 ,ครั้งที่ 3 จะได้ 50+2=52
เอาเฉพาะเลขท้ายคือ 2
9. ดังนั้น สูตรนี้จะได้คำตอบของสถิติครั้งที่ 1 คือเลข 0,1,2 ซึ่งเป็นไปได้ ทั้ง2 ทางคือ ถ้าสูตรนี้เป็การทำนายว่า เลขสามตัวคือ 0/1/2 นี้
เป็นเลขเด่นคือเลขที่น่าจะมา สูตรนี้ก็ถือว่าไม่ผ่านการเทียบสถิติครั้งที่1 ในทางกลับกันถ้าสูตรนี้เป็นสูตรดับ คือทำนายว่าเป็นเลขที่ไม่น่าจะมา
สูตรนี้ก็ถือว่าผ่าน เพราะ เลขในงวดต่อไป หลักสิบ สองตัวล่างคือ เลข 9 (ในการเทียบสถิติต้องเทียบตามจำนวนครั้งตามที่ผู้ใช้กำหนด
*******โดยคำนวนตามหลักการเดียวกัน*******) และเทียบย้อนถอยหลังไป ตามจำนวนครั้งที่กำหนด
10. ถ้าวนลูปแล้ว ผ่านหมดตามเงื่อนไข ก็ให้เขียนสุตรนี้ลงไปใน .text (คนละไฟล์กันสถิติ) และวนหาต่อไปใหม่จากจุดเดิมที่หาไว้ จนกว่าจะสิ้นสุดที่
ชุดอักษรสุดท้าย คือ UUUUUUUUUU 999 หรือ แล้วแต่ว่าผู้ใช้กำหนดว่าต้องการเพียงแค่กี่สูตร...
******** ยังมีขั้นตอน และเงื่อนไข อีกมากครับ วันนี้ขอเพียงแนวทางเขียนโค๊ต ตามที่อธิบายมาครับ ขอขอบคุณล่วงหน้าครับ*******
ศึกษาเรื่อง สูตรหวยมา แล้วอยากใช้ VB.2010 สร้างโปรแกรมไว้ใช้
ขณะนี้ผมเริ่มศึกษา vb.2010 (มีพื้นจาก macro ของ excel) พอเข้าใจเรื่อง form / btn / textbox และได้ใช้ vb ออกแบบหน้าตา โปรแกรมไว้แล้ว
ในรูปแบบแยก form ต่างๆ ไว้ 6-7 form. แต่ละ form จะมีตัวเลือก และการแสดงผล ในแต่ละ ข้อมูลที่ต้องการ
และ สิ่งที่ต้องการคือ การเขียนโค๊ด ให้เกิดผลการคำนวน / การเทียบสถิติ / การแสดงผล โดยจะขอคำปรึกษา
ไปทีละขั้น ๆ ครับ
1. จะมีการกำหนดให้ อักษร B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U รวม 20 ตัว นี้ fixed ประจำตำแหน่ง ที 1-20 ตามลำดับ
2. จะมีการนำสถิติหวยที่เก็บไว้ ใน .text มาเที่ยบ โดยข้อมูลหวยจะอยู่ในรูปแบบ
58922706259552927375 2020-02-01 เลขสถิติเดือน กพ. จะมีรางวัลใหญ่ที่นิยม นำมาเขียนต่อกัน จะได้ 20 ตัว และตามด้วย ว/ด/ป
78140394952515030918 2020-02-16 เลขสถิติเดือน กพ. จะมีรางวัลใหญ่ที่นิยม นำมาเขียนต่อกัน จะได้ 20 ตัว และตามด้วย ว/ด/ป
3. การเทียบจะเทียบตามตำแหน่ง เช่น งวด 2020-02-01
B=5,C=8,D=9,E=2,F=2,G=7,H=0,I=6,J=2,K=5,L=9,M=5,N=5,O=2,P=9,Q=2,R=7,S=3,T=7,U=5
4. ในส่วนสูตรหวยจะมีการกำหนดแยกเป็น 2 ส่วนคือ ส่วนที่เป็นอักษร และ ส่วนที่เป็นต้วเลข
เราสามารถกำหนดส่วนที่เป็นตัวอักษรได้สูงสุด คือ 20 ตัวอักษร และส่วนที่เป็นตัวเลข ได้ 9 ตัว
ตัวอย่าง เช่น BBBDEFGSTU 456 จะมีอักษร 10 ตัว และตัวเลข 3 ตัว (สูตรนี้จะถูกหาออกมาจากการเขียนโค้ดและเขียนลงใน .text)
ส่วนที่จะเป็นสูตรของเลขอะไร? และ สูตรจะมีอักษรจำนวนเท่าไร? และตัวเลขจำนวนเท่าไร? ขึ้นอยู่กับผู้ใช้จะกำหนดลงไปใน textbox
5. ในการเขียนโค้ดสร้างสูตร ตามตัวอย่าง สมมุติว่าเป็นสูตรที่ใช้ หา สองตัวล่างในงวด 2020-02-16 ที่ตำแหน่งหลักสิบ ซึ่งตามตัวอย่าง
สองตัวล่าง ผลการออกรางวัลคือ 94 แสดงว่า หลักสิบคือเลข 9 และอยู่ในตำแหน่งที่ 8 ซึ่งตรงกับอักษร I
6. ตามตัวอย่างที่กล่าวมา การเขียนโค้ด จะให้มีการวนลูป ในหมวดอักษร 10 ตัว และ ตามด้วยเลข อีก 3 ตัว โดยเริ่มจาก BBBBBBBBBB 001 ไป จนถึง
สุดท้าย ที่ UUUUUUUUUU 999 (ในส่วนตัวเลขจะมีตัวเลขที่ซ้ำกันถูกตัดออกแต่เพื่อความเข้าใจจึงให้เห็นภาพจาก 001-999)
7. โดยในการวนลูปแต่ละครั้งจะต้องมีการบวกค่าที่ได้ และ นำไปเทียบกับสถิติที่เลือกไว้ คืองวด 2020-02-01 ในตำแหน่งที 8 ในที่นี้ก็คือตำแหน่ง
ของหลักสิบ ของผลการออกรางวัลสองตัวล่างนั่นเอง ซึ่งจะต้องเทียบกับ สถิติเป็นจำนวนครั้งตามที่ ผู้ใช้กำหนด ย้อนหลังไป
8. การแทนค่า จากสถิติตามตัวอย่าง ตำแหน่งที่ 1 ตรงกับอักษร B วนลูปได้ BBBBBBBBBB 012 ก็แทนค่าได้ว่า ตำแหน่งที่ 1 เท่ากับอักษร B
และตำแหน่งที่ 1 ของสถิติ งวด 2020-02-01 เท่ากับเลข 5 ในที่นี้มี B =10 ตัว เมื่อแทนค่าจะได้ 10*5=50 และ จะต้องบวกกับตัวเลขอีก 3 ครัง
ครั้งที่ 1 จะได้ 50+0 =50 เอาเฉพาะเลขตัวท้ายคือ 0 , ครั้งที่ 2 จะได้ 50+1 = 51 เอาเฉพาะเลขตัวท้ายคือ 1 ,ครั้งที่ 3 จะได้ 50+2=52
เอาเฉพาะเลขท้ายคือ 2
9. ดังนั้น สูตรนี้จะได้คำตอบของสถิติครั้งที่ 1 คือเลข 0,1,2 ซึ่งเป็นไปได้ ทั้ง2 ทางคือ ถ้าสูตรนี้เป็การทำนายว่า เลขสามตัวคือ 0/1/2 นี้
เป็นเลขเด่นคือเลขที่น่าจะมา สูตรนี้ก็ถือว่าไม่ผ่านการเทียบสถิติครั้งที่1 ในทางกลับกันถ้าสูตรนี้เป็นสูตรดับ คือทำนายว่าเป็นเลขที่ไม่น่าจะมา
สูตรนี้ก็ถือว่าผ่าน เพราะ เลขในงวดต่อไป หลักสิบ สองตัวล่างคือ เลข 9 (ในการเทียบสถิติต้องเทียบตามจำนวนครั้งตามที่ผู้ใช้กำหนด
*******โดยคำนวนตามหลักการเดียวกัน*******) และเทียบย้อนถอยหลังไป ตามจำนวนครั้งที่กำหนด
10. ถ้าวนลูปแล้ว ผ่านหมดตามเงื่อนไข ก็ให้เขียนสุตรนี้ลงไปใน .text (คนละไฟล์กันสถิติ) และวนหาต่อไปใหม่จากจุดเดิมที่หาไว้ จนกว่าจะสิ้นสุดที่
ชุดอักษรสุดท้าย คือ UUUUUUUUUU 999 หรือ แล้วแต่ว่าผู้ใช้กำหนดว่าต้องการเพียงแค่กี่สูตร...
******** ยังมีขั้นตอน และเงื่อนไข อีกมากครับ วันนี้ขอเพียงแนวทางเขียนโค๊ต ตามที่อธิบายมาครับ ขอขอบคุณล่วงหน้าครับ*******