Archive

Posts Tagged ‘Basic’

VB6: My First ActiveX DLL Component

August 14th, 2005 Scalopus+ 1 comment

วันนี้ได้ทดสอบเขียน DLL Library แล้ว หลังจากไม่มีหลังสือเล่มไหนที่สอนเข้าใจมานานหลายปี สัปดาห์นี้ อ่านหนังสือ Advance Visual Basic ฉบับ Object & Component ของ พร้อมเลิศ หล่อวิจิตร ซึ่งซื้อมา 2 เดือนแล้วเพิ่งมีโอกาสได้แตะ พาให้เราเข้าใจ ว่าจริงๆแล้ว DLL Library นั้นสร้างได้ไม่ยากเลย มันก็คือการเขียนโปรแกรมเป็น Class ธรรมดานี่เอง

และวันนี้ เราก็สามารถทดสอบเขียน DLL Library ตัวแรก ด้วย VB6 ได้จากวิธีการให้หนังสือ. ใช้เวลาเพียง ไม่ถึงครึ่งชั่วโมงในการทดสอบเขียน DLL Library นำไปใช้กับโปรแกรมอื่น จริงๆเมื่อวานก็ได้ลองไปสักชั่วโมงแล้ว แต่พอดีไม่มีหนังสืออยู่ข้างกาย ก็เลยลองมั่วๆทำเอง จนถึงขั้นตอนเรียกใช้ ที่ลืมว่าทำยังไง พอขึ้นบ้านไปอ่านหนังสืออีกรอบก่อนนอน ก็จึงจำได้ ว่าอ่อ มันต้องเรียกใช้จาก Reference นี่เอง

ช่วยสร้างสีสัน ที่ทำให้เราอยากเขียนโปรแกรม หลังจากเอื่อยเฉื่อยมานาน…..

ตอนนี้กำลังเรียน Java แต่ก็อยากใช้ VB6 ที่คุ้นเคยควบคู่ไปด้วยกันด้วย แต่ Java ก็อยากเอาให้แม่นๆ โลภมากจริงเรา

Tags:

VB6: Verify Visa Card

August 12th, 2005 Scalopus+ No comments

หลังจากหยุดพักไปนาน วันนี้ เอา Simple Sourcecode จาก TechRepublic.com มาลองเขียนเล่น เป็น Code สำหรับ Verify หมายเลข Credit ว่าถูกต้องหรือไม่ ซึ่งหมายเลขบัตรเครดิตแต่ละหลัก จะสร้างขึ้นจากสมการของ Luhn คือ เลขของบัตรเนี๊ย มันไม่ได้เรียงไปเรื่อยๆนะ แต่ว่าตัวเลข 16 หลักจะสามารถ Verify เลขเองได้ว่า เลขที่ใส่มามันควรจะเป็น หมายเลขบัตรเครดิตหรือไม่ หรือว่ามีการกรอกข้อมูลตัวใดตัวนึงผิด ก็จะทราบทันที เพราะว่าพอ Luhn Check แล้วจะได้เลขมากกว่า 0 ตี๊ต่างง่ายๆว่า มันผิด

เขียนโปรแกรมกะลั่วๆง่ายๆ เพียงรับหมายเลขบัตรมาตรวจสอบ ยังใช้เวลาระลึกชาตินานมาก T.T ทิ้งจนลืมเกลี้ยง Syntax โครงสร้างภาษาของ VB6 ก็เน่าไปด้วย T_______T

Source : TechRepublic.com

Tags:

งงกับ OOP – ปัญหาที่ 1

August 15th, 2004 Scalopus+ No comments

@_@ วันนี้นั่งงงกับ VB.NET อยู่นาน เรื่อง OOP

Dim i As Integer
For i = 1 To lvPoint.Items.Count
Dim MyItem As New Windows.Forms.ListViewItem()
Dim X As Int32
X = Convert.ToInt32(lvPoint.Items(i – 1).Text)
MyItem.Text = i
MyItem.SubItems.Add( X )
lvCalc1.Items.Add(MyItem)

Dim MyItem2 As Windows.Forms.ListViewItem = MyItem.Clone
MyItem2.SubItems.Add((X ^ 2) * Y)
lvCalc2.Items.Add(MyItem2)
Next i

เราลืมไปว่า Object ที่เราประกาศขึ้นมานั้น ถูกเอาไปใช้แล้ว จากตัวอย่าง MyItem มันถูกเอาไปใช้แล้ว ดังนั้น จะเอาไป Add อีกไม่ได้ เพราะมัน Add เข้า Listview ไปแล้ว. ต้อง Clone Object ใหม่ขึ้นมา ถ้าหากว่าจะเอาไปใช้งานอื่น.

ตอนแรกที่งง เพราะว่าเหมือนกับว่าทำไมตัวแปรเอาไปใช้อีกไม่ได้ อย่างนี้มันไม่สิ้นเปลืองหรือ ซึ่งนั่นไมได้เป็นมุมมองของ OOP

Tags:

Secured for spam by MLW and Associates, LLP's Super CAPTCHASecured by Super-CAPTCHA © 2009-2010 MLW & Associates, LLP. All rights reserved.