ภาพชุดแรกมีหนังสือดังนี้

1. 3 เล่มบนเป็นหนังสือต่างประเทศ ขายเล่มละ 100 บาท
2. ความทรงจำสีแดง 100 บาท
3. After Earth 140 บาท
4. เลโมนี สนิกเก็ต 100 บาท
5. ชิโกะกุ 90 บาท
6. รูจ รักหลงเงา 85 บาท
7. พาราไซต์อีฟ 110 บาท
8. สไปรัล 100 บาท
9. การตูนเรื่อง Orange พันธุ์เตะเลือดสีส้ม ขายยกชุด 130 บาท

ราคาทั้งหมดไม่รวมค่าส่งนะครับ
รายได้ทั้งหมด (หักค่าส่งแล้ว) จะส่งให้กับ Web Master เมื่อปิดการขายแล้ว

ท่านใดสนใจเล่มไหน ชุดไหน สามารถสั่งซื้อได้ในกระทู้นี้ครับ

อยู่ข้างล่าง ครับ  กรณีตอบกระทู้มันจะขึ้นว่าตั้งกระทู้ครับ
ส่วนกรณีแก้ไข ปุ่มจะเปลี่ยนเป็น ปุ่มบันทึก ครับ

 




ผมเห็นเพื่อนๆสมาชิกหลายๆท่านมีการสร้าง นาฬิกาไว้ แสดงบนฟอร์มแต่เวลาไม่ได้แสดงตลอดเวลาวันนี้เรามาลองทำนาฬิกาไว้แสดงบนฟอร์มเพื่อให้ดูสวยงามไปอีกแบบ

โดยสร้าง textbox ชื่อ txtShowTime
โดยเซ็ท TimeInterval 125
และใส่ Code ที่ Event OnTimer ดังนี้
Private Sub Form_Timer()
Me.txtShowTime.Value = Format(Time, "HH:mm:ss AM/PM")
End Sub
ต่อไปทำให้แสดงวันที่ ก็กด ที่ Design  > กดเลือกที่ Date And Time ลงมาวงในฟอร์ม และตกแต่งเพื่อความสวยงาม
จบขั้นตอนคับ

ภาษา VBA นำมาจากภาษา BASIC ซึ่งเป็นภาษาเก่าแก่ สิ่งนึงที่ตกทอดมาถึง VBA ก็คือหมายเลขบรรทัด เราสามารถใส่เลขที่บรรทัด จะเป็นเลขอะไรก็ได้ตั้งแต่ 1 ถึง 65535 และแต่ละบรรทัดจะเป็นเลขอะไรก็ได้ ไม่จำเป็นต้องเรียงลำดับ ไม่จำเป็นต้องมีทุกบรรทัด ขอให้ไม่ซ้ำใน Sub หรือ Function Procedure เดียวกันก็พอ โดยเขียนไว้เป็นส่วนแรกของโค้ดแต่ละบรรทัด ที่ทำๆกันมาเป็นมาตรฐานก็คือเริ่มจาก 10  และเพิ่มทีละ 10 เพื่อให้อ่านง่ายและสะดวกเมื่อมีการแทรกบรรทัดเพิ่ม จะได้ใส่เลขบรรทัดได้โดยไม่ต้องไปแก้หมายเลขของบรรทัดอื่นๆให้เสียเวลาครับ

ตย.ของโค้ดก็เช่น
Private Function NewSalesPrice(Price As Variant, Percent As Variant) As Single
          Dim Factor  As Single

          On Error GoTo ErrHandler

10        Factor = 1 + Percent / 100
20        NewSalesPrice = Price * Factor

ExitRtn:
30        Exit Function
               
ErrHandler:
40        MsgBox "In [NewSalesPrice], Line " & Str(Erl) & ", Error " & Str(Err.Number) & " : " & Err.Description
50        Resume ExitRtn
End Function
เลขบรรทัดทำหน้าที่แบบเดียวกับลาเบล เราสามารถสั่ง Goto <ลาเบล/เลขบรรทัด> หรือ GoSub <ลาเบล/เลขบรรทัด> เพื่อให้โค้ดข้ามไปทำงานที่บรรทัดตามเลขที่นั้นได้ แต่ประโยชน์ที่ชัดเจนที่สุดก็คือ ถ้าเกิด Runtime Error ขึ้นในบรรทัดของโค้ดที่มีเลขที่บรรทัดอยู่ เราสามารถใช้ฟังก์ชั่น Erl เพื่อคืนเลขที่บรรทัดออกมาได้ด้วย ดังนั้นเราจึงใส่ไว้ในส่วนของ Error Handling Routine เพื่อบอกให้ทราบว่าเกิดปัญหาที่บรรทัดอะไร การ Debug หรือแก้ไขปัญหาก็จะทำได้ง่ายขึ้นมาก แต่หากเกิด Error ในบรรทัดที่ไม่ได้ใส่หมายเลขบรรทัดเอาไว้  ฟังก์ชั่น Erl จะคืนค่าของเลขบรรทัดสุดท้ายที่อยู่ก่อนหน้าออกมาให้แทน หรือถ้าไม่มีเลย ก็จะคืนค่าเป็นศูนย์แทนครับ

ตย.ของข้อความ

ขอเสริมอีกนิด จากคนที่ใช้ Draw.io อยู่

เวลาบันทึกไฟล์ แนะนำว่าควรบันทึกไว้ใน OneDrive จะดีกว่าบันทึกลงเครื่องตัวเอง

เพราะการบันทึกลงเครื่องตัวเอง จะมีปัญหาเวลา Re-Save ที่จะไม่บันทึกซ้ำไฟล์เดิม (และมีความไม่สะดวกเวลาเปิดใช้งานไฟล์ที่บันทึกไว้)

บางท่านอาจคิดว่าก็ดีสิ ไม่ต้องกลัวไฟล์หายหรือเซฟทับโดยไม่ตั้งใจ

ต้องลองครับ แล้วจะรู้ว่าบันทึกใน OneDrive นั้น OK กว่า

เลือกเป็น default เลยดีกว่าครับ เพราะปกติเวลาตอบแล้วคนเรามักจะอยากอ่านสิ่งที่ตัวเองตอบเลย การกลับสู่หน้ารวม มันจะทำให้เปิดหน้าเดียวกัน (เกือบเหมือนกัน) 2 หน้าน่ะครับ

ขอบคุณครับ

พอดีได้ทำอีกครั้ง เลยเอามาแชร์สำหรับเพื่อนที่สนใจครับ

ตอนนี้มีโปรแกรมในการเชื่อมต่อที่ง่ายขึ้นด้วย MX Component ของ Mitsubishi
link ตัวอย่างการใช้งาน

แหล่งที่มา ตัวอย่าง

และสามารถเขียนส่งข้อความเข้าโปรแกรม line ได้

http://www.silverlight.in.th/?p=380

ความเดิมจากกระทู้เก่าที่

https://www.thai-access.com/yeadram_view.php?topic_id=627&PagePosition=1