หากมีคำถาม ขอให้ไปโพสต์ลง เว็บบอร์ดจีทูจีเน็ตดอตคอม ตัวใหม่แทนน่ะครับ

หรือติดต่อเข้ามาทาง Inbox ที่ เฟซบุ๊ค ผมครับ

หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 5 9 1 7 8 7

7 ธันวาคม พ.ศ.2549
148 Users On-Line.
Visitors - Page views
 8 9 4 6 8 3 7
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  

เรียนรู้ SwishMax (หรือ Flash) เพื่อรับส่งข้อมูลไปมากับ MS Visual Basic 6.0 ภาค 1

Category »  จับฉ่ายคอมพิวเตอร์
โดย : Webmaster เมื่อ 8/7/2551 13:15:00
(อ่าน : 19391) 
ด้วยอาชีพแบบผมที่ต้องทำสารพัดอย่างในคนๆเดียวกัน หรือ ที่ผมมักเรียกตัวเองว่า "จับฉ่าย" นี่แหละ ... ในบรรดาเหล่าเครื่องมือที่ใช้ในการพัฒนาโปรแกรมซอฟท์แวร์แล้ว เห็นจะไม่มีตัวไหนเกินหน้าเกินตาเจ้า Microsoft Visual Basic 6.0 ที่มันช่างเหมาะเจาะ เหมาะสมยังกะกิ่งทอง ใบหยก กับตัวกระผมซ่ะเหลือเกิน ... ก็เพราะภาษาโปรแกรมตัวนี้มันก็ "จับฉ่าย" เหมือนกับตัวผมน่ะซิครับ เวลาผ่านไปนับสิบปีมาแล้วที่ผมยังไม่เคยคิดที่จะทอดทิ้งมันเลย ... บทความนี้แม้จะเป็นเพียงเศษเสี้ยวที่ต้องนำไปใช้ในการทำสื่อการเรียน การสอน หรือ ที่เรามักเรียกติดปากว่า CAI (Computer Assisted Instruction) แต่ผมก็คาดหมายว่ามันคงพอจะทำให้หลายต่อหลายคน ไม่ว่าจะเป็นน้องๆที่กำลังทำโปรเจค หรือ ครู อาจารย์ (ที่เป็นครูอาชีพจริงๆ ไม่ใช่พวกอาชีพครูน่ะ ... 55555+) ได้เกิดปิ๊งไอเดียใหม่ๆ หรือ แนวทางที่จะเริ่มต้นเรียนรู้ ฝึกฝน เพื่อสามารถนำไปประยุกต์ใช้งานได้ต่อไป
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6
 ดาวน์โหลด Visual Basic 6.0 SP5: Run-Time Redistribution Pack เครื่องคอมพิวเตอร์ที่ไม่มี MS Visual Basic 6.0 ต้อง ดาวน์โหลดไฟล์นี้ไปด้วย
 ดาวน์โหลด Microsoft Data Access Object (MDAC) และ Jet 4.0 Update
 ดาวน์โหลด Microsoft Visual Basic Service Pack 6
ออกแบบ Flash Movie ด้วย SwishMax
  • ออกแบบ - Layout เอาขนาดสัก 200 x 200 Pixel
  • ทำกรอบโดยการเลือก Tools --> Rectangle โดยที่
    Fill = None (เพื่อทำให้ทะลุพื้นหลัง - Background)
    Line = เส้นตรง/ความหนา = 5
  • ทำ Dynamic Text (เพื่อรับค่าหรือข้อความที่จะต้องถูกส่งมาจาก MS Visual Basic 6.0)
    Name = _DataReceive (ตั้งชื่ออะไรก็ได้ แต่อย่าให้ซ้ำกับชื่อตัวแปร Variable ... ครับพี่น้อง)
    Target = คลิ๊กเครื่องหมายถูกขึ้นมา (ทำให้ Variable ทำงาน)
    Variable = DataReceive (ชื่อตัวแปรนี้เราจะใช้เพื่อเป็นการอ้างอิงถึงเสมอ)
    ใช้ Device Text (ตัว D มีขีด) เพื่อให้สามารถรับสระภาษาไทยได้
  • ทำ Input Text (เพื่อป้อนค่าหรือข้อความที่จะต้องถูกส่งไปยัง MS Visual Basic 6.0)
    Name = _DataEntry (ตั้งชื่ออะไรก็ได้ แต่อย่าให้ซ้ำกับชื่อตัวแปร Variable ... ครับพี่น้อง)
    Target = คลิ๊กเครื่องหมายถูกขึ้นมา (ทำให้ Variable ทำงาน)
    Variable = DataEntry (ชื่อตัวแปรนี้เราจะใช้เพื่อเป็นการอ้างอิงถึงเสมอ)
    ใช้ Device Text (ตัว D มีขีด) เพื่อให้สามารถรับสระภาษาไทยได้
    เครื่องหมายลูกศรซ้าย (ใต้ Input Text) หมายถึง เมื่อป้อนข้อมูลเรียบร้อย สามารถกด Enter ตามไปได้เลย
  • การทำปุ่ม โดยเลือก Tools --> Rectangle
  • เพิ่มป้ายชื่อปุ่มด้วย Tools --> Text
    ให้ Name = ป้ายชื่อ (ชื่ออะไรก็ได้ครับ)
  • การทำ Group ปุ่ม (สวยๆหน่อย)
    ไปที่ Outline เลือกวัตถุ Shape และ ป้ายชื่อ โดยการกดปุ่ม Ctrl เข้าช่วย แล้วคลิ๊กเลือกที่วัตถุทีละตัว
    จากนั้นคลิ๊กเมาส์ขวาทำการ Grouping --> Group as Button
  • เปลี่ยนชื่อปุ่ม (Name) หน่อยครับ ... เผื่อว่ามันมีหลายตัวแล้วจะได้ไม่งงงวย น่ะจังงัง
  • การทำ Mouse Over (เมาส์เคลื่อนที่ไปบนปุ่ม) ก็คือ ...
    เลือกปุ่มที่ต้องการ แล้วกดเมาส์ขวาเลือก Has Over State
  • ปรับสีสันให้มันต่างไปจากสถานะปกติ (Up/Down/Hit State)
    โดยคลิ๊กเลือกวัตถุ Shape แล้วเปลี่ยนสี (ทางด้านขวามือ ในกลุ่มของ Fill)
  • เลือกวัตถุ ป้ายชื่อ เพื่อเปลี่ยนสีของตัวอักษรให้ต่างไปจากสถานะปกติ (สีเหลือง)
  • การทดสอบ
เริ่มต้นการใส่ Script แบบ Guided
  • จาก Outline ให้คลิ๊กเลือก Scene_1 ก่อน
    ต่อไปเลือกเหตุการณ์ (Events) --> Frame --> onLoad
  • ก็จะได้ onLoad() ขึ้นมา
  • ต่อไปเป็นการกำหนดค่าเริ่มต้นให้กับ Text ทั้ง 2 ตัว ... พูดง่ายๆก็คือการเคลียร์ค่าใน Text นั่นเองครับ ... พี่น้อง
    โดยเลือก Statements --> name = expr;
  • Name = DataReceive หรือก็คือชื่อตัวแปร (Variable) นั่นเอง
    Operator = "" หรือ ก็คือค่าว่างเปล่า
  • Name = DataEntry หรือก็คือชื่อตัวแปร (Variable) นั่นเอง
    Operator = "" หรือ ก็คือค่าว่างเปล่า
  • ใส่ Script ให้กับปุ่ม SendMessage เพื่อส่งข้อความไปยัง MS Visual Basic 6.0 โดย ...
    Browser/Network --> fscommand(...)
    คำสั่ง fscommand ... มีใช้ทั้งใน SwishMax และ Macromedia Flash เพื่อติดต่อกับคำสั่งต่างๆที่อยู่ภายนอก
  • ตั้งค่าการกดปุ่มแล้วปล่อย (release) ดังนี้
    Command = Send (เพื่อตั้งชื่อเป็นตัวอ้างอิงถึงใน MS Visual Basic 6.0 ... กรณีที่มีปุ่มคำสั่งเยอะๆ)
    Argument = DataEntry หรือก็คือชื่อตัวแปร (Variable) นั่นเอง โดยที่ต้องคลิ๊กที่ปุ่ม (e) ไว้ด้วย เพื่อระบุการส่งค่าในตัวแปร DataEntry ไป
    หากไม่เลือกตัวนี้ผลที่ได้คือ "DataEntry" นั่นหมายความว่าเป็นการส่งคำว่า DataEntry ไปแทนน่ะครับ
  • ปุ่มคำสั่งนี้ เราสามารถให้ผู้ใช้เขา (หรือเธอ) สามารถกด Enter ตามไปได้เลย โดยไม่ต้องคลิ๊กเลือกเพียงอย่างเดียว
    คลิ๊กเลือก on (release) ก่อน ... จากนั้นให้คลิ๊กเลือก Key ที่ต้องการ ... นั่นคือ Enter ครับ
  • ผลลัพธ์ที่ได้
  • กดปุ่ม Play Movie เพื่อทำการทดสอบ ... แล้วให้เลือก Tab Debug เพื่อดูผลลัพธ์
    หากพี่น้องทำได้ตามนี้ นั่นก็แสดงว่า Flash Movie ก็พร้อมที่จะืำทำงานแล้วครับ
  • ทำการ Export ออกเป็นไฟล์นามสกุล SWF ได้เลย
เรียนรู้ SwishMax (หรือ Flash) เพื่อรับส่งข้อมูลไปมากับ MS Visual Basic 6.0 ภาค 2

จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] หรือ โทร. 08-6862-6560