เนื่องจาก Source Code บางตัว สุ่มเสี่ยงต่อการนำไปใช้ในทางที่ผิด
หากดาวน์โหลดไม่ได้ ติดต่อเข้ามาทาง Inbox ที่เฟซบุ๊คผมแทนน่ะครับ
เฟซบุ๊คเว็บมาสเตอร์

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

กระดานข่าวสาร เว็บบอร์ด - www.g2gnet.com
ดาวน์โหลดฟรีโปรแกรม และ Free Souce Code ได้ที่นี่ ...
รู้จักกับเว็บมาสเตอร์ - www.g2gnet.com
::: โปรแกรมมาใหม่ :::
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ (iPayPost Software)
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ
โปรแกรมจุดรับชำระค่าบริการ (iPayLite Software)
โปรแกรมจุดรับชำระค่าบริการ
::: BarcodeSoft :::
::: Printing :::
โปรแกรมพิมพ์รหัสบาร์โค้ด - BarcodeSoft Printing
โปรแกรมรหัสไปรษณีย์ทั่วไทย
::: G2GNet PostCode :::
!!!!! แจกฟรี !!!!!
ดาวน์โหลดโปรแกรมรหัสไปรษณีย์ทั่วไทย G2GNet PostCode Thailand
Visitors - Session views
 3 6 4 8 1 0 3

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

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  
    ดาวน์โหลด และ แนะนำวิธีการติดตั้ง Active Report Professional 2.0
    แจกฟรี Source Code โปรแกรมขายสินค้า - Point Of Sale (โดย เว็บมาสเตอร์-ทองก้อน
    แจกฟรี Source Code การพิมพ์ใบกำกับภาษี - Active Report 2.0 (โดย ctx-9000@hotmail.com)
    SourceCode การดึงข้อมูลมาแสดงผลลงใน SharpGrid (โดย dos_network@hotmail.com)
    แจกฟรี Source Code VB6+Access โปรแกรมฐานข้อมูลครุภัณฑ์
    แจกโปรแกรมดูทีวี ดูหนัง ฟังวิทยุ ฟังเพลงออนไลน์ - G2GnetTV On Line ... ฟรีๆๆๆๆ
          ข้อมูลสถานี/รายการ (XML)  ข้อมูลสถานี/รายการ (HTML)
โปรแกรมระบบบัญชี Profit - Account

เทคนิคพื้นฐานในการเขียนโปรแกรม Visual Basic

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 5/11/2549 10:30:00
(อ่าน : 164347)/(ตอบ : 98)  ข้อคิดเห็น   |   พิมพ์   |  

แม้ว่า Visual Basic จะเป็นภาษาที่ใช้งานได้ง่ายก็ตาม และ ตัวโปรแกรม Visual Basic เองยังมีขีดความสามารถ ในการทำงานอันเพียบพร้อม ซึ่งช่วยให้เราสามารถเขียนโค้ดได้ง่ายขึ้น และ มีการตรวจสอบโค้ดได้ ในขณะเขียนโดยอัตโนมัติ แต่เราก็ควรจะทำตามกฏเกณฑ์บางอย่าง ซึ่งผมจะแนะนำให้ดังต่อไปนี้ เพื่อให้โปรแกรมเขียนออกมาทำงานได้อย่างถูกต้อง แม่นยำ และ บำรุงรักษาได้ง่าย

เทคนิคที่ 1 ใช้ Option Explicit อยู่เสมอ

การใช้ Option Explicit อยู่เสมอ จะช่วยป้องกันการพิมพ์ชื่อตัวแปร หรือ ค่าคงที่ผิดพลาด อันจะช่วยในการกำจัด Bug บางตัวที่ซ่อนอยู่ในโปรแกรม และ อาจรอวันประทุ เมื่อโปรแกรมมีขนาดใหญ่ขึ้น เช่น ถ้าเราไม่ใช้ Option Explicit เราจะไม่ทราบว่า ตัวแปรใดมีการประกาศเอาไว้ หรือ มีข้อมูลเป็นแบบใด ซึ่งอาจก่อให้เกิดการแปลงข้อมูลที่ผิดพลาดในอนาคต

เทคนิคที่ 3 ใช้ฟังค์ชั่น Len เพื่อตรวจสอบว่าข้อความว่างเปล่าหรือไม่
ฟังค์ชั่น Len ทำงานได้เร็วกว่ามาก โดยเฉพาะอย่างยิ่งเมื่อทำงานในลูป
ดังตัวอย่างต่อไปนี้
Dim sTemp As String

แทนที่จะใช้

If sTemp = "" Then DoSomeThing

' Check if sTemp is empty

If sTemp <> "" Then DoSomeThing

' Check if sTemp has a value



เราควรใช้

If Len(sTemp) = 0 Then Do SomeThing

' Check if sTemp is empty

If Len(sTemp) > 0 Then DoSomeThing

' Check if sTemp has a value.


เทคนิคที่ 5 กำหนดชนิดของตัวแปรให้ชัดเจน


การกำหนดชนิดของตัวแปรให้ชัดเจน เช่น เป็นตัวแปรชนิด
Long หรือ Integer จะช่วยให้โปรแกรมทำงานเร็วขึ้น
(ก็เพราะตัวแปลภาษา - Complier ทราบถึงชนิดของตัวแปรเรียบร้อยแล้ว
ไม่จำเป็นต้องมาเสียเวลาหาอีก) และ ง่ายต่อการ Debug
เพราะเราสามารถคาดเดา ได้ว่าตัวแปรนั้น สามารถรับค่าช่วงใดได้บ้าง

Dim sMsg As String

Dim iCounter As Integer

Dim vTemp As Variant



ซึ่งเราอาจประกาศตัวแปรหลายตัวเอาไว้บนบรรทัดเดียวกัน
ดังนี้

Dim sMsg As String, iCounter As Integer, vTemp As
Variant



โดยมีข้อควรระวัง คือ ถ้าเราไม่ได้ระบุชนิดข้อมูล จะเป็นการประกาศให้เป็นชนิด
Variant ดังตัวอย่างต่อไปนี้

Dim iCounter ดังนั้นตัวแปร iCounter จะกลายเป็นชนิด
Variant โดยทันที


เทคนิคที่ 7 จำลองคีย์แท็บ เมื่อกด Enter


ปกติเมื่อเราใส่ TextBox หลายอันเข้าไปในฟอร์ม เพื่อรับข้อมูล
คงไม่เป็นการสะดวกแน่ ถ้าผู้ใช้ต้องกดคีย์แท็บ เพื่อเลื่อนไปยังฟิลด์ถัดไปทุกครั้งที่คีย์ข้อมูลเสร็จ
โค้ดต่อไปนี้จะเลื่อน Cursor ไปยังฟิลด์ถัดไป เมื่อผู้ใช้กดคีย์
Enter ซึ่งจะช่วยให้ใช้โปรแกรมได้ง่ายขึ้น



Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

SendKeys "{TAB}"

KeyAscii = 0

End If

End Sub


 


  เทคนิคที่ 2 ใช้ NOT แทน <> เมื่อต้องการตรวจสอบความไม่เท่ากัน

การใช้ฟังค์ชั่น NOT จะทำงานได้เร็วกว่า <> เป็นอย่างมาก
โดยเฉพาะอย่างยิ่ง เมื่อทำงานในลูป ดังตัวอย่างต่อไปนี้

Dim i As Integer

แทนที่จะใช้

If i <> 5000 Then DoSomeThing

เราควรใช้

If Not i = 5000 Then DoSomeThing



เทคนิคที่ 4 เมื่อประกาศออปเจกต์ อย่าใช้ Dim ... As New ...


แทนที่จะประกาศออปเจกต์เป็น Instance ตัวใหม่ เราควรประกาศตัวแปรเป็นชนิดออปเจกต์นั้น
แล้วค่อยสร้าง Instance ขึ้นมาใหม่ ทั้งนี้เพื่อให้ทำงานได้เร็วขึ้น
และ รับประกันว่าจะมีการล้างหน่วยความจำที่ใช้โดยออปเจกต์
เมื่อเราไม่ต้องการใช้มันอีกต่อไป ด้วยการกำหนดค่า Nothing
ให้ ดังตัวอย่างต่อไปนี้

แทนที่จะใช้

Dim MyConnect As New Connection

เราควรใช้

Dim MyConnect As Connection

Set MyConnect = New Connection

จากนั้นเมื่อเราใช้เสร็จแล้ว เราควรล้างหน่วยความจำ
ด้วยการกำหนดค่า Nothing ให้กับตัวแปรดังนี้

Set MyConnect = Nothing


เทคนิคที่ 6 ระมัดระวังในการใช้ฟังค์ชั่น String และ Variant ที่อาจให้ผลลัพธ์ต่างกัน


ใน Visual Basic เราจะมีฟังค์ชั่นที่ลงท้ายด้วยเครื่องหมาย Dollar Sign
"$" อยู่กลุ่มหนึ่ง คู่กับฟังค์ชั่นชื่อเดียวกันที่ไม่ได้ลงท้ายด้วย
$ เช่น

MID กับ MID$

Left กับ Left$

Date กับ Date$

ซึ่งฟังค์ชั่น Date นี้เป็นตัวอย่างที่ดี โดยฟังค์ชั่น
Date จะส่งค่าคืนกลับเป็นชนิด Variant ในรูปแบบของ mm/dd/yy
ในขณะที่ฟังค์ชั่น Date$ ส่งค่ากลับคืนเป็นชนิด String
ในรูปแบบ mm/dd/yyyy ซึ่งถ้าใช้ไม่ระมัดระวัง ความแตกต่างนี้
จะก่อให้เกิด Bug ที่ต้องใช้เวลาพอสมควรในการค้นหา




เทคนิคที่ 8 ระวังความแตกต่างของค่าคงที่ vbNullXXX VB มีค่าคงที่ ที่ใช้ระบุถึงค่า
Null หลายตัวดังนี้


vbNull
เป็นข้อมูลชนิด Long มีค่าเท่ากับ 1

vbNullChar
เป็นข้อมูลชนิด String มีค่าเท่ากับ Chr$(0) ซึ่งตรงกับข้อความว่าง
ในภาษา C และค่าที่ส่งกลับคืนมาจากฟังค์ชั่น DLL ส่วนใหญ่
อย่างไรก็ตาม vbNullChar จะไม่ใช่ข้อความว่างใน VB

vbNullString
เป็นข้อมูลชนิด String ใีค่าเท่ากับข้อความว่างใน VB



ซึ่งแต่ละตัวใช้ในสถานการณ์ต่างกันดังนี้



vbNull
ใช้เพื่อตรวจสอบผลลัพธ์ของฟังค์ชั่น VarType() ซึ่งหมายความว่า
ไม่มีข้อมูลที่ถูกต้อง

vbNullChar
ใช้แทน Chr$(0) ซึ่งปกติใช้เพื่อเรียกใช้ Procedure
ภายนอก

vbNullString
ใช้เพื่อเคลียร์ String



โดย vbNullChar มีค่าไม่เท่ากับ vbNullString ดังนั้น
vbNullChar = vbNullString จะได้ค่าเป็น False เสมอ


ร่วมแสดงความคิดเห็น

[ความเห็นที่:  1] จากคุณ : 55+ เมื่อ 10/1/2551 20:50:18  IP: 125.26.179.162

ขอบคุณกับสิ่งดี ๆ ครับ

[ความเห็นที่:  2] จากคุณ : trong เมื่อ 14/1/2551 12:54:58  IP: 202.6.107.59

เป็นเนื้อหาที่ดีมากๆเลยครับ

[ความเห็นที่:  3] จากคุณ : Prayut เมื่อ 18/1/2551 12:53:02  IP: 117.47.16.20

Thank ครับ

ขอถามใน เทคนิคที่ 5 กำหนดชนิดของตัวแปรให้ชัดเจน ว่า
ถ้ากำหนดตัวแปรหลายๆตัวแบบนี้

Dim i,j,k,x,y,z As Integer

กับแบบนี้ 

Dim i As Integer, j As Integer, k As Integer, x As Integer, y As Integer, z As Integer

เหมือนกันไหมและแบบใหนดีกว่ากัน
และถ้าเป็นแบบข้างล่างนี้จะดีกว่าไหม

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

[ความเห็นที่:  4] จากคุณ : ทองก้อน เมื่อ 18/1/2551 16:19:11

เหมือนกันครับผม แบบไหนก็ได้ แล้วแต่คนชอบ คนถนัด แต่หากเอาง่ายๆสั้นสุด ก็น่าจะ
Dim i, j, k, x, y, z As Integer
น่าจะสะดวกกว่า ... แค่เราต้องระมัดระวังเรื่องชนิดข้อมูลให้ดีล่ะกันครับ

แต่อันที่จริงผมอยากได้แบบ Dot Net คือมันสามารถกำหนดค่าได้ด้วยน่ะซิ ... เอิ๊กๆๆๆๆ

[ความเห็นที่:  5] จากคุณ : Prayut เมื่อ 25/1/2551 10:54:16  IP: 222.123.91.220

แต่ผมเถามอาจาร์ยที่ ม. แล้วเขาบอกว่าไม่เหมือนกันนะครับเช่นถ้าเรากำหนดแบบนี

Dim i       หรือง่ายๆขี้เกียจพิพม์เยอะเอามารวมๆกันแบบนี้
Dim i,j,k   ก็ได้แต่ระบบก็จะนำตัวแปรนี้ไปใช้เป็นตัวแปรอะไรก็ได้ 
                   ไม่ว่าจะเป็น String  Date  Long  ฯลฯ......


ดังนั้น Dim i,j,k,x,y,z As Integer   แบบนี้จะไม่ดีควรที่จะระวังก็คือ
ตัวแปร i,j,k,x,y นั้นเป็นตัวแปรที่ไม่ได้กำหนดว่าเป็นชนิดไหนหรือก็คือ  Variant  นั้นเอง
ส่วนตัวแปร  z เท่านั้นที่กำหนดเป็น Integer ดังนั้นเวลาโปรแกรมคำนวนจะคิดว่า
ตัวแปร i,j,k,x,y นั้นเป็นตัวแปร  Variant ตลอดทำให้ระบบช้าเพราะต้องมาแปลงชนิดอีกทีครับ
และทำให้เกิด Error ในการคอมไพล์ได้เวลาส่งต่อของข้อมูลระหว่งฟังก์ชั่นเช่น 
i = "25 มกราคม"
j= val(i)
k = log(i)
ดังนั้นถ้าจะกำหนดให้ระบบมีประสิทธิภาพควรที่จะกำหนดเฉพาะเจาะจงไปเลยว่าเป็นชนิดไหนเช่นแบบนี้


Dim i As Integer, j As Integer, k As Integer, x As Integer, y As Integer, z As Integer


หรือไม่ก็แบบนี้

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

[ความเห็นที่:  6] จากคุณ : BUNYAT เมื่อ 27/2/2551 16:49:47  IP: 203.155.40.12

อยากทราบเทคนิคพื้นฐานในการเขียน VB.NET น่ะครับ

[ความเห็นที่:  7] จากคุณ : ทองก้อน เมื่อ 28/2/2551 1:06:30

โอ๊ะ โอว ... ไม่รู้ว่าตอนตอบคำถามไปเนี่ยไม่บ้า ก็เบลอ หรือก็เมา (ค้าง) แล้วน่ะเนี่ย ... 55555
ถูกๆๆๆๆต้องน่ะครับ คุณ Prayut ... ตามที่คุณว่ามาจริงๆแหละ ...
คนเรามันก็พลาดกันได้แหละ แต่สำหรับคนด้านได้ อายก็อด คนมึน หนากว่าตราช้างแบบผมน่ะเหรอ ... ลืมไปเลยเรื่องอายคนเนี่ย
เอาเป็นว่าหากพี่น้อง ... ที่เข้ามาอ่านแล้วก็อย่ามาต่อว่าผมเลย ลองทดสอบดูแบบง่ายๆดังนี้น่ะขอรับ
Dim i, j As Integer
Debug.Print TypeName(i) & " : " & TypeName(j)

ตัวแปร j คือ Integer ส่วน i น่ะจะเป็น Variant ครับพี่น้อง

[ความเห็นที่:  8] จากคุณ : BUNYAT เมื่อ 28/2/2551 11:57:37  IP: 203.155.40.12

อยากได้ เทคนิคพื้นฐานในการเขียนโปรแกรม VB.NET ครับ มีหรือเปล่าครับ พอดีตอนนี้กำลังศึกษาเกี่ยวกับ VB.NET อยู่ครับ  อยากได้มาก ๆ เลยครับ 

ขอบคุณครับ 

[ความเห็นที่:  9] จากคุณ : ทองก้อน เมื่อ 28/2/2551 12:16:31

คาดว่าจะตามมาเร็วๆนี้แหละครับ เพราะตอนแรกผมกะว่าจะเริ่มเปลี่ยนไปใช้ .Net Technology เต็มรูปแบบราวๆปี 2010 คืออีกสัก 2 ปีข้างหน้า แต่ทีนี้ได้รับ .Net 2008 จากพี่น้องที่ส่งมาให้ผมทดสอบ ปรากฏว่าผมชื่นชอบมากสำหรับ Upgrade Wizard VB 6 ไปเป็น .Net ของ www.artinsoft.com นั่นก็หมายความว่า มันทำให้ผมใช้เวลาในการศึกษาอีกไม่มากเท่าไหร่นัก ... หลังจากที่แปลงขึ้นมาเป็น .Net ผมพบว่า Algorithm หรือ Flow Control มันไม่ได้เปลี่ยนแปลง จะเปลี่ยนก็คือชุดคำสั่งที่ซับซ้อน แต่นั่นมันก็เป็น Guide นำทางที่ดีให้กับผม ได้พบทางสว่างสำหรับ .Net ในเร็ววัน ... น่าสงสารก็แต่ VB 6 ที่เตรียมจะต้องถูกผมสลัดรักเร็วๆนี้แล้ว ... 55555555555

[ความเห็นที่:  10] จากคุณ : เตือน เมื่อ 3/4/2551 10:13:29  IP: 221.115.239.2

เป็นเว็บที่ดีจริง ๆ ได้ความรู้เยอะเลย อยากได้วิธีการเอา data จาก MSFlexgrid ลง Excel ค่ะ
ขอบคุณค่ะ

[ความเห็นที่:  11] จากคุณ : ทองก้อน เมื่อ 3/4/2551 20:23:14

ดูที่นี่ครับ ... http://www.g2gnet.com/News/activenews_view.asp?articleID=80

ผมให้อ่านข้อมูลจาก MS Access แล้วนำมาแสดงผลให้เห็นในตารางก่อน ... แล้วค่อยส่งต่อไปที่ MS Excel

[ความเห็นที่:  12] จากคุณ : วีบีจ้า เมื่อ 8/4/2551 18:56:42  IP: 203.170.228.168

แนะนำเว็บไซต์จ้า http://www.vbworkshop.hostsnake.com

[ความเห็นที่:  13] จากคุณ : THE K เมื่อ 3/6/2551 12:49:56  IP: 124.121.195.143

ท่านน่าจะไปลองแต่งหนังสือ
โดยใช้สำนวน และสไตล์ของท่านเองดูนะ
ผมคนนึงแหละที่จะอุดหนุน
หลังจากที่ลองซื้อหนังสือจากพวกอาจารย์ชื่อดัง หรือบรรนาธิการมีชื่อ
ผมก็ยังไม่ได้คำตอบสุดท้ายอยู่ดี จนมาเจอเว็บนี้ ได้สาระและประโยชน์มากคับ
เออ อันที่จริงผมก็อยากรู้มานานว่าไอ้พวกที่แต่งหนังสือน่ะ เค้าเขียนเองกับมือจริง ๆ หรือเปล่า
หรือให้ยึดเอาพวกผลงานและฝีมือของเด็กรุ่นหลังไปพิมพ์ขายกันแน่

[ความเห็นที่:  14] จากคุณ : ต้น เมื่อ 7/6/2551 11:43:46  IP: 203.154.86.170

ผมอยากได้การเขียนโปรแกรมแบบพื้นฐานเพื่อนชาวเว็บช่วยส่งเมลมาที่sleepington@thaimail.com ขอบคุณมากครับ

[ความเห็นที่:  15] จากคุณ : viva เมื่อ 26/6/2551 17:02:47  IP: 124.120.34.172

ขอเพิ่มเติมที่ข้อ 7 ค่ะ เราต้องกำหนด properties(ของ Form) - kaypreviwe = true ด้วยถึงจะใช้ได้

[ความเห็นที่:  16] จากคุณ : cheer เมื่อ 30/6/2551 11:21:06  IP: 58.8.175.131

ผมก็ว่า vb6 ดีและเสถียรกว่านะครับ  เคยเปลี่ยนไปใช้ .net  เขียน application สักพัก แล้วผมมีความจำเป็นต้องฟอร์แมตเครื่องใหม่ นำเอา exe ที่ได้จาก .net มารัน ปรากฏว่า มีปัญหารันไม่ได้  แต่พอไปเอา exe เก่าๆที่ได้จาก vb6มารัน ปรากฏว่า ยังรันได้เหมือนเดิม

[ความเห็นที่:  17] จากคุณ : ta เมื่อ 20/7/2551 11:13:17  IP: 117.47.52.205

อยากรู้ว่าจะนำภาพเคลื่อนไหวมาใส่ในvb ได้ไงอยากรู้จัง

[ความเห็นที่:  18] จากคุณ : ta เมื่อ 20/7/2551 11:25:56  IP: 117.47.52.205

จะลง Flash8 ใน vb6 ทำไง

[ความเห็นที่:  19] จากคุณ : mindnato เมื่อ 29/7/2551 20:30:02  IP: 124.157.236.144

ขอคุงมากครับ มีประโยชน์มาเลยคำ

[ความเห็นที่:  20] จากคุณ : S0l1d เมื่อ 8/8/2551 14:55:11  IP: 203.185.128.131

เคยเห็น Option Implicit ป่ะคับ
มันต่างยังไงกับ Option Explicit คับ
หรือแค่ "โบราณ" กว่า เท่านั้นเอง

[ความเห็นที่:  21] จากคุณ : superning เมื่อ 7/10/2551 14:15:35  IP: 125.25.128.250

ขอบคุณบทความดีๆ อ่านสนุกๆ

[ความเห็นที่:  22] จากคุณ : Jae เมื่อ 9/10/2551 10:09:08  IP: 202.29.6.246

VB 6 พิมพ์ไทยไม่ได้ ต้องแก้ไขยังไงคะ

[ความเห็นที่:  23] จากคุณ : ทองก้อน เมื่อ 9/10/2551 10:17:55

ดูจากเมนู Tools --> Option และจาก Tab --> Editor Format
แล้วแก้ Font ให้เป็น Ms Sans Serif ครับผม

[ความเห็นที่:  24] จากคุณ : Jae เมื่อ 9/10/2551 11:16:21  IP: 202.29.6.246

ขอบคุณนะคะ คุณทองก้อน

[ความเห็นที่:  25] จากคุณ : TUY เมื่อ 9/10/2551 11:21:19  IP: 202.29.6.246

พอดีว่าผม ได้รับมอบหมายงานมาชิ้นหนึ่ง ให้เขียนโปรแกรม สรุปยอดเงินงบประมาณคงเหลือของแต่ละโครงการ น่ะครับ ไม่รู้จะเริ่มต้นยังไงดี เพราะว่าไม่มีพื้นฐานด้านการเขียนโปรแกรมเลย วานผู้รู้ช่วยแนะนำหน่อยนะครับ

[ความเห็นที่:  26] จากคุณ : หนุ่มน้อย เมื่อ 22/11/2551 10:40:02  IP: 58.147.101.195

พี่ทองก้อนครับ คือผมต้องการสร้างกราฟเป็นกราฟแท่ง 

และข้อมูลที่จะนำมาทำกราฟต้องดึงมาจากฐานข้อมูล 

แบบว่าคร้ายๆ แบบประเมินนะครับ

ไม่รู้ว่าจะทำยังไงดี ช่วยทีนะครับ

และต้องขอโทษด้วยนะครับ ที่มาโพสในหัวข้อนี้ (ไม่รู้จะไปโพสที่ไหน)


[ความเห็นที่:  27] จากคุณ : ทองก้อน เมื่อ 22/11/2551 12:40:48

โห ... พี่น้องครับ หาที่โพสต์ไม่ได้ก็ส่งเมล์มาถามซิครับ ... วันก่อนผมก็เห็นแว่บๆอยู่ใน M ... แต่ตอนนั้นตอบปัญหาศิราณี วีบีหก ให้หลายท่านพร้อมๆกันเหลือเกิน เลยตอบให้ไม่ทัน เนี่ยขนาดไม่ทัน แต่เห็นว่าเป็นเรื่องที่น่าสนใจดี ก็เลยเขียนบทความเอาไว้ให้เลยน่ะครับพี่น้อง ... ทีหลังอยากให้ตอบเร็วๆล่ะก็
1. เกิดใหม่เป็นผู้หญิง ... 55555+
2. ส่งเหล้ามาเซ่นไหว้ คารวะ ยาจกขี้เมาด้วย ... เอิ๊กๆๆๆๆๆ

[ความเห็นที่:  28] จากคุณ : YOUหน่อย เมื่อ 22/1/2552 13:12:11  IP: 222.123.241.120

งงเรื่องการเขียนโปรแกรม  ไม่ค่อยคล่องเรื่องคอมแต่อยากเรียนคอม จะทำยังไงดีเนี่ย
แต่อยากลองทำให้ได้ ลบกวนพวกเทพช่วยหาขั้นตอนเทพให้YOU

[ความเห็นที่:  29] จากคุณ : ติ๊ก เมื่อ 25/2/2552 14:57:26  IP: 61.90.167.107

ขอบคุณครับกำลังเรียนรู้การเขียนโปรแกรมพอดี แต่ติดปัญหาการเชื่อมต่อกับฐานข้อมูลนี่หละที่ยังงง....คอยอ่านเวบนี้ไปเรื่อยก่อน

[ความเห็นที่:  30] จากคุณ : NUT เมื่อ 30/5/2552 12:51:53  IP: 114.128.79.60

ผมไม่มีคำถามเพียงแต่ขอขอบคุณที่คุณได้นำความรู้มาแจกจ่ายให้คนที่มีความรู้น้อยกว่าคุณสามารถเรียนรู้เพิ่มเติมได้ดีทีเดียวครับ

[ความเห็นที่:  31] จากคุณ : ปุย เมื่อ 13/9/2552 9:43:23  IP: 124.157.174.222

อยากรู้ว่า variantcxi;jkvtwi

[ความเห็นที่:  32] จากคุณ : เฟรส เมื่อ 18/11/2552 9:54:38  IP: 203.113.86.139

เขียนวีบีไม่เป้นเลยคะไม่รุจะเริ่มต้นตรงไหนดีเลยคะ
จะทำระบบยืมคืนคะ คัยรุวิธีเริ่มต้นเขียนโปรแกรมด้วยวีบี2005 ว่าควรรเริ่มตรงไหนก่อนดี
แบบว่ามีสโคปงานแร้วคะ

[ความเห็นที่:  33] จากคุณ : พลอย เมื่อ 19/11/2552 14:02:31  IP: 202.29.9.10

ช่วยเขียนโปรแกรมvb เพื่อรับหมายเลขบัตรเครดิต ชื่อ นามสกุลเจ้าของบัตร และราคาที่ซื้อทางแป้นพิมพ์ จากนั้นให้คำนวนและแสดงส่วนลดทางจอภาพ ตามเงื่อนไขดังนี้
  ถ้าซื้อสินค้าครบ 15000-24999 ลด 450
  "..................."25000-54999 ลด 850
 "...................."55000-84999 ลด 3000
 "....................."85000-129999 ลด 4500
 "....................."130000บาทขึ้นไป ลด 7000
จากนั้นให้คำนวณและแสดงจำนวนเงินที่ต้องจ่ายทางจอภาพโดยคำนวณเงินที่ต้องจ่าย=ราคาสินค้า-ส่วนลด ช่วยหน่อยนะค่ะ ขอก่อนวัน จันทร์ที่  23  พ.ย. 2552 ได้เปล่าค่ะ ขอบคุรค่ะ

[ความเห็นที่:  34] จากคุณ : Tomas เมื่อ 21/11/2552 12:47:33  IP: 180.183.66.79

ขอโค้ด ปุ่มdelete หน่อยคับ ผมเหลือแต่ปุ่มเดียวที่ไม่สามารถทำการลบข้อมูลออกจากตารางได้
-----------------------------------------
Option Explicit On
Option Strict On
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Public Class frmRoomType
    Dim conn As SqlConnection
    Dim com As SqlCommand
    Dim tr As SqlTransaction
    Dim sb As StringBuilder
    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        clearAlldata()
        txtRoom_ID.Focus()
    End Sub
    Private Sub clearAlldata()
        txtRoom_ID.Text = ""
        txtRoomType.Text = ""
    End Sub
    Private Sub RoomType_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strconn As String
        strconn = DBConnString.strConn

        conn = New SqlConnection
        With conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strconn
            .Open()
        End With
        showdata()
        formatdgvRoomtype()
    End Sub
    Private Sub showdata()
        Dim sqlRoomtype As String
        sqlRoomtype = "select * from RoomType order by RoomType_ID"
        Dim dr As SqlDataReader
        Dim dt As DataTable

        com = New SqlCommand()
        With com
            .CommandType = CommandType.Text
            .CommandText = sqlRoomtype
            .Connection = conn
            dr = .ExecuteReader()
            If dr.HasRows Then
                dt = New DataTable()
                dt.Load(dr)
                dgvRoomtype.DataSource = dt
            Else
                dgvRoomtype.DataSource = Nothing
            End If
        End With
        dr.Close()
    End Sub
    Private Sub formatdgvRoomtype()
        With dgvRoomtype
            If .RowCount > 0 Then
                .Columns(0).HeaderText = "รหัสประเภทห้องพัก"
                .Columns(1).HeaderText = "ชื่อประเภทห้องพัก"
                .Columns(0).Width = 100
                .Columns(1).Width = 150
            End If
        End With
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If txtRoom_ID.Text.Trim() = "" Then
            MessageBox.Show("กรุณาป้อนรัหสห้องพักก่อน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtRoom_ID.Focus()
            Exit Sub
        End If
        If txtRoomType.Text.Trim() = "" Then
            MessageBox.Show("กรุณาป้อนชื่อประเภทของห้องพักก่อน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtRoomType.Focus()
            Exit Sub
        End If
        'ถ้าคลิกปุ่ม Yes แล้ว
        If MessageBox.Show("คุณต้องการเพิ่มประเภทห้องพัก ใช่หรือไม่", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = conn.BeginTransaction()
            Try
                sb = New StringBuilder()
                sb.Append("INSERT INTO RoomType(RoomType_ID,RoomType)")
                sb.Append("VALUES (@Roomtype_ID,@RoomType)")
                Dim sqlAdd As String
                sqlAdd = sb.ToString()

                With com
                    .CommandText = sqlAdd
                    .CommandType = CommandType.Text
                    .Connection = conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("@RoomType_ID", SqlDbType.NChar).Value = txtRoom_ID.Text.Trim()
                    .Parameters.Add("@RoomType", SqlDbType.NVarChar).Value = txtRoomType.Text.Trim()
                    .ExecuteNonQuery()
                End With
                tr.Commit()
                MessageBox.Show("เพิ่มประเภทห้องพัก  เรียบร้อยแล้ว!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                clearAlldata()
                showdata()
                formatdgvRoomtype()
            Catch ex As Exception
                MessageBox.Show("คุณป้อนรหัสสาขาซ้ำ !!! ", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                tr.Rollback()
            End Try
        End If
        txtRoom_ID.Focus()
    End Sub
    Private Sub dgvRoomtype_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvRoomtype.CellMouseUp
        If e.RowIndex = -1 Then Exit Sub
        With dgvRoomtype
            txtRoom_ID.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
            txtRoomType.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
            txtRoomType.Focus()
            txtRoomType.SelectAll()
        End With
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        If txtRoom_ID.Text.Trim() = "" Then
            MessageBox.Show("กรุณาป้อนรหัสประเภทห้องพักก่อน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtRoom_ID.Focus()
            Exit Sub
        End If
        If txtRoomType.Text.Trim() = "" Then
            MessageBox.Show("กรุณาป้อนชื่อประเภทห้องพักก่อน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtRoomType.Focus()
            Exit Sub
        End If
        If MessageBox.Show("คุณต้องการแก้ไขชื่อประเภทห้องพัก ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            tr = conn.BeginTransaction()
            Try
                sb = New StringBuilder()
                sb.Append("UPDATE Roomtype")
                sb.Append(" SET RoomType=@RoomType")
                sb.Append(" WHERE (RoomType_ID=@RoomType_ID)")
                Dim sqlEdit As String
                sqlEdit = sb.ToString()
                With com
                    .CommandText = sqlEdit
                    .CommandType = CommandType.Text
                    .Connection = conn
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("@RoomType_ID", SqlDbType.NChar).Value = txtRoom_ID.Text.Trim()
                    .Parameters.Add("@RoomType", SqlDbType.NVarChar).Value = txtRoomType.Text.Trim()

                    Dim result As Integer
                    result = .ExecuteNonQuery()
                    If result = 0 Then
                        tr.Rollback()
                        MessageBox.Show("รหัสประเภทห้องพักที่คุณป้อน ไม่ถูกต้อง !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        txtRoom_ID.SelectAll()
                    Else
                        tr.Commit()
                        MessageBox.Show("แก้ไขชื่อประเภทห้องพัก เรียบร้อย!!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        clearAlldata()
                        showdata()
                        formatdgvRoomtype()
                    End If
                End With
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก" & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End If
        txtRoom_ID.Focus()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        frmRoom_and_RoomType.Show()
        Me.Hide()
    End Sub

    Private Sub frmroomtype_formClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        If conn IsNot Nothing Then
            conn.Close()
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        


    End Sub

    
End Class

ฝากทีนะคับ

[ความเห็นที่:  35] จากคุณ : นพดล เมื่อ 4/1/2553 15:44:29  IP: 61.19.66.129

จะสั่งพิมพ์ข้อมูลจากหน้าฟอร์ม
หลังจากที่ค้นหาข้อมูลมาแล้ว ทำไงครับ

[ความเห็นที่:  36] จากคุณ : ทองก้อน เมื่อ 4/1/2553 23:16:32

หากเอาแบบติดมาจากตัว Visual Basic 6 ก็ต้องใช้ Data Report ครับ
http://www.g2gnet.com/News/activenews_view.asp?articleID=74

หากเอาแบบมีอนาคตในทางอาชีพ ก็ต้องใช้ Active Report 2.0 เข้าช่วย ...
http://www.g2gnet.com/News/activenews_view.asp?articleID=86

[ความเห็นที่:  37] จากคุณ : นพดล เมื่อ 7/1/2553 15:22:38  IP: 61.19.66.184

ท่านให้มาเป็นแบบสรุปรายงานทั้งหมดใช่ไหมครับ
แต่ผมอยากได้แค่รายเดียว
เช่น ผมค้นหาประวัติสมาชิกขึ้นมา 1 คน
ซึ่งข้อมูลรายละเอียด แสดงที่ textbox ต่างๆ
แล้วผมต้องการ พิมพ์ข้อมูลดังกล่าวออกมา เป็น paper เพื่อเก็บไว้ครับ
สรุปคือ ค้นหาคนไหนขึ้นมาก็ให้ พิมพ์คนนั้นครับ
รบกวนอีกรอบครับ ขอบคุณครับ

[ความเห็นที่:  38] จากคุณ : เก่ง เมื่อ 10/1/2553 0:53:25  IP: 58.8.140.138

  Dim i As String
        Dim a As String
        Dim b As String
        i = Text1.Text
        a = Text2.Text
        b = CheckBox1.CheckState
        If i = "ccs" Then
            If a = "09" Then
                MsgBox("ถูกต้อง")
                Text1.Text = ""
                Text2.Text = ""
            End If
        End If
        If b = True Then
            Text1.Text = i
        End If

[ความเห็นที่:  39] จากคุณ : เก่ง เมื่อ 10/1/2553 0:54:23  IP: 58.8.140.138

ทดสอบครับระบบ login การตรวจสอบ

[ความเห็นที่:  40] จากคุณ : นพดล เมื่อ 2/2/2553 11:44:42  IP: 61.19.66.51

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

[ความเห็นที่:  41] จากคุณ : neung เมื่อ 10/2/2553 15:50:06  IP: 124.121.236.116

คือ จะทำโปรเจค VB นะค่ะ
แต่ยังไม่รุ้ว่าจะทำอะไรดี
เริ่มโปรเจคไม่ถุกอะค่ะ
ที่คิดไว้ตอนนี้ก้อว่าจะทำเกี่ยวกับร้านอาหาร หรือไหมก้อร้านหมูกะทะอะค่ะ

แค่อยากทราบว่าจะเริ่มจากตรงไหน
แล้วจะใช้โค๊ดแบบไหนอะค่ะ รูปแบบ  Form ด้วยค่ะ
ฝากด้วยนะค่ะ ขอบคุนค่ะ ^^!

[ความเห็นที่:  42] จากคุณ : น้ำตาล เมื่อ 17/2/2553 8:54:05  IP: 61.7.231.82

อยากได้โค้ดพร้อมวิธีสร้างโปรแกรมvbของการคำนวนอัตราการและเปลี่ยนเงินค่ะ

กรุณาส่งที่

mantancup@msn.com

นะค่ะ

[ความเห็นที่:  43] จากคุณ : น้องเมย์ เมื่อ 18/2/2553 14:26:14  IP: 61.19.66.196

จะนำภาพบันทึกลง access มันขึ้น package แก้ไขยังดีคะ
คือทำโครงงานจบคะ เรื่องงานบุคลากร ต้องการเก็บรูปพนักงาน และสามารถแสดง
ในหน้าฟอร์ม vb ได้จากการค้นหา ช่วยหน่อยคะ ขอบคุณล่วงหน้าคะ

[ความเห็นที่:  44] จากคุณ : ทองก้อน เมื่อ 18/2/2553 15:59:25

ช่วงนี้มีคนถามถึงเรื่องการนำภาพเข้าเก็บ และ แสดงผล มากันเยอะมาก ... รออีกสักครู่ครับ เพราะผมเขียนโค้ด และ คำอธิบายไว้หมดแล้ว ... พอดีช่วงนี้ดำเนินการไล่ล่าโจรป่าละเมาะ แถมยังเป็นโรคจิตอีก 55555+ ที่ชอบมา Spam เว็บไซต์ของอยู่ ... รอดยากครับ 

จริงๆแล้วอยากเล่าเรื่องราวการติดตามไอ้โรคจิตนี่ให้ฟังกันก่อนครับ ผมใช้ทั้ง VB6+XML เข้ามาช่วย และ บทความในส่วนของการหาความต่างของเวลา ซึ่งล้วนแล้วแต่มันมีอยู่ในบทความของผมทั้งหมดเลย 5555+ ... ใครจะไปคาดคิดล่ะว่าต้องนำเอามาใช้งานเรื่องแบบนี้ด้วย เอิ๊กๆๆๆๆ

[ความเห็นที่:  45] จากคุณ : mix เมื่อ 26/3/2553 0:05:52  IP: 180.183.145.187

อยากได้โค้ด VB2008 เกี่ยวกับ ยืมหนังสือ  และโค้ดคืนหนังสือ

[ความเห็นที่:  46] จากคุณ : หมูน้อย เมื่อ 26/3/2553 17:38:54  IP: 202.29.64.221

ขอโค้ดเกี่ยวกับการซื้อสินค้าหน่อยค่ะ 
พอซื้อสินค้าหลายชิ้นแล้วมันลงในdatabase เพียงอันเดียว ไม่รู้ทำไงเลยค่ะ
ช่วยเขียนโค้ดให้หน่อยนะค่ะ ใกล้จะส่งแล้ว

[ความเห็นที่:  47] จากคุณ : bird เมื่อ 30/3/2553 23:20:24  IP: 210.246.144.163

ขอโค้ดตั้งเวลา 0-20 วินาที เเบบเพิ่ม ลด ค่าได้ทีละ 1 วินาทีหน่อยครับผมจำเป็นจริงๆครับช่วยที

[ความเห็นที่:  48] จากคุณ : bird เมื่อ 30/3/2553 23:22:22  IP: 210.246.144.163

กรุณาส่งที่ birdcasanova@hotmail.com นะครับ

[ความเห็นที่:  49] จากคุณ : เปิ๊ล เมื่อ 15/5/2553 6:29:27  IP: 10.0.100.20

ขอโค้ดโปรแกรมเกมแบบง่ายที่เขียนด้วย VB.NET 2008
เป็นโปรเจ็ทจะส่งอาจารณ์ ติดต่อที่ tum-laksa@hotmail.com

[ความเห็นที่:  50] จากคุณ : อนุบาล 1 เมื่อ 18/5/2553 11:44:18  IP: 125.26.38.247

อยากเขียนโปรแกรม เกี่ยวกับงาน ประกันภัย  พ.ร.บ. แต่ไม่มีความรู้เกี่ยวกับ VB  พอได้ ACCESS นิดหน่อย  ช่วยสอนหน่อยได้ไหมคะ  เคยให้เขาเขียนให้ แต่เขาก็ไม่ค่อยมีเวลามาทำให้อีก ได้อยู่หน้าต่างเดียว  และที่ตัวเองอยากได้มันต้องทำแล้วได้ประโยชน์หลายทาง เช่น ทำ จม.ตามลูกค้าก็ไม่ได้   ทำรายงานประจำวันก็ไม่ได้  ก็เลยคิดว่า ตนคือที่พึ่งแห่งตน   ถ้ากรุณาก็ที่นี่คะ  my-mayavee@hotmail.com

[ความเห็นที่:  51] จากคุณ : เล็ก เมื่อ 20/5/2553 8:14:51  IP: 124.122.162.94

ต้องการให้ช่วยแนะนำสถานที่เรียนการเขียนโปรแกรม vb ขั้นพื้นฐาน โดยที่ไม่มีพื้นฐานการเขียนมาก่อน แบบนี้พอจะเรียนได้ ? กรุณาส่ง rat_noklek@hotmail.com       Thank you

[ความเห็นที่:  52] จากคุณ : ทองก้อน เมื่อ 20/5/2553 12:36:02

ตอบ: คุณอนุบาล 1 และ คุณเล็ก
มีหลายต่อหลายคนมากที่ถามผมว่า หากจะเรียนรู้การเขียนโปรแกรม จะต้องเริ่มต้นอย่างไร ... ผมตอบได้ทันทีเลยครับว่า มันต้องเริ่มที่ตัวเราก่อน นั่นคือเราต้องมีความตั้งใจจริงที่จะเรียนรู้ ฝึกฝน ต้องมีความมุ่งมั่น ความพยายาม เป็นอย่างมาก ... สิ่งที่เห็นอยู่ในเว็บไซต์แห่งนี้ ก็ล้วนแล้วแต่มาจากการเรียนรู้ด้วยตัวเองทั้งหมดครับ แรกๆก็หาหนังสือมาอ่าน มาดู มามั่ว พร้อมๆกับมาคิดเอาเองตามไปด้วย แรกๆมันค่อนข้างจะยากมาก (ยิ่งไม่มีใครให้คำปรึกษาด้วย) แต่ถ้าหากคุณผ่านช่วงยากๆมาได้ ซึ่งก็เพราะความตั้งใจจริงของตัวเราเอง ... คุณก็จะรู้จักกับคำว่า อะโธ่ มันก็เท่านี้นี่เองครับ

[ความเห็นที่:  53] จากคุณ : matrix เมื่อ 23/5/2553 11:14:59  IP: 124.122.180.84

งืมมๆ.. มันก็จริงอย่้างที่คุณ จขกท บอกน่ะคับ
ผมเองก็เพิ่งเริ่มเขียน ตั้งใจอย่างรุนแรง เพราะ DB มันกินได้ยาว
เลยโหลดมาสารพัดหนังสือ สำนักในไทยและต่างประเทศ วีดีโอสอน นั่งดูทุกวันเหอะๆ 
อย่างกะจะเอาไปสอบน่ะคับ

ผมแนะว่า ต้องมีประโยคนี้อยู่ในใจอ่ะคับว่า
"ไม่ว่ามันจะ error อะไร ติดยังไง ก็จะทำต่อให้ได้" 

แล้วก็ยังติดเหมือนเดิมคับ เย้ยย!!   แล้วก็จะมีการกระตุ้นตัวเองว่าที่เบื่อมะอยากทำน่ะคับ
ค่อนข้างต้องศึกษาเยอะพอสมควร

[ความเห็นที่:  54] จากคุณ : aoy เมื่อ 31/5/2553 12:39:35  IP: 118.175.83.118

แล้วจะเข้ามาอ่านบ่อยๆ นะคะ

[ความเห็นที่:  55] จากคุณ : บอย เมื่อ 2/6/2553 18:19:49  IP: 125.25.196.254

ผมทำไม่ได้อะครับ ช่วยตอบที
คือว่าในเทคนิคที่ 7 จำลองคีย์แท็บ เมื่อกด Enter
ผมลองใส่ดูแล้วมันก็ยังกด enter เพื่อเลื่อน เคอเซอร์ ไม่ได้อยู่ดีอะครับ ช่วยตอบทีนะคัรบ ขอบคุณมากคัรบ

[ความเห็นที่:  56] จากคุณ : บอย เมื่อ 2/6/2553 18:24:28  IP: 125.25.196.254

แล้วอีกทเรื่องที่ผมทำไม่ได้นะครับ คือว่าผมได้เขียนโปรแกรม คิดเงินแบบง่ายๆๆให้เพื่อนนะครับ เอาไว้คิดเงินร้านinternet แล้วตัว ติดตรงที่ เมื่อได้ผลลัพออกมาแล้ว ตอน+ - x / ผมใส่เป็นจุดทศนิยม แต่ว่าผลลัพธ์ออกมาแล้วมันไม่มีจุดทศนิยมนะครับ ถ้าผู้ใดรู้ช่วยบอกทีนะครับขอบพระคุณเป็นอย่างสูงครับ

[ความเห็นที่:  57] จากคุณ : NightMal2e เมื่อ 3/6/2553 14:12:27  IP: 58.97.7.162

รบกวนขอถามนิดนึงนะครับ หากใช้ MS Visual Basic 6 sp ? ไม่แน่ใจ
จะสามารถที่จะเขียนเป็น .net ได้หรือไม่ครับ

หรือว่าต้องเปลี่ยนเป็นเขียนใน VS 2005 - 2008 เลยเหรอครับ
ถ้ายังไงก็รบกวนด้วยนะครับ

[ความเห็นที่:  58] จากคุณ : MonTaKun เมื่อ 25/6/2553 21:44:57  IP: 115.87.179.31

ขอบคุณสำหรับสิ่งดีนะครับ ที่นำมาฝากกัน ผมจะพยายามศึกษาต่อไปเรื่อยๆนะครับ ^^

[ความเห็นที่:  59] จากคุณ : rboonsak เมื่อ 21/7/2553 9:53:59  IP: 183.89.201.19

ในการเขียนโปรแกรม Editor ไม่แสดงภาษาไทย ผมใช้ Vb 6 แล้ว รันบน Win XP ครับ ต้องแก้ไขอย่างไร ช่วยด้วย

[ความเห็นที่:  60] จากคุณ : KiiK เมื่อ 25/8/2553 12:23:03  IP: 222.123.143.16

อยากได้โค้ดในการคำนวณนิพจน์คณิศาสตร์ค่ะ ช่วยหน่อยนะคะ

[ความเห็นที่:  61] จากคุณ : ทองจัน 2010 เมื่อ 7/9/2553 11:18:09  IP: 202.12.74.250

มีvbใหม่มาให้ ผลิตมาใหม่เเบบสุดยอดสุดยอด ฟรี  
เเละโปรเเกรมอื่นอีกมากมาย รับรองสนุกเเน่นอน
เข้ามาดูซิที่ www.madooncha.com

[ความเห็นที่:  62] จากคุณ : งงครับ เมื่อ 21/9/2553 16:44:44  IP: 125.26.23.102

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

SendKeys "{TAB}"

KeyAscii = 0

End If

End Sub 

เอาไปใช้งานไม่ได้อ่ะครับ

ไม่รู้ว่าผมทำไม่ถูกตรงไหนครับ

[ความเห็นที่:  63] จากคุณ : สงวน ภูกระดึง เมื่อ 28/9/2553 23:50:05  IP: 188.248.14.179

ดีครับเป็น เว็พที่ดีมากๆ เลย รธบ หน้าจะดี ผมเป็นคนไทย ผมยังดีใจเลยครับ ขอไห้อยู่ไปนานๆนะครับ (ขอบคูณ)

[ความเห็นที่:  64] จากคุณ : สวัสดีครับ เมื่อ 4/10/2553 12:09:47  IP: 202.44.37.11

ผมเขียนโปรแกรมคำนวณทางวิศวกรรมนิดหน่อย พบว่า ผมให้inputค่าใน form1 แล้ว จะให้form2 แสดงค่า มันส่งผ่านข้อมูลยังไงครับ และ อีกฟอร์มเป็นฟอร์ม ฐานข้อมูล ไม่มีปัญหาเกี่ยวกับฐานข้อมูล แต่จะเอาข้อมูลที่ดึงจากฐานข้อมูลไปใส่ในฟอร์มที่1อย่างไรครับ 

[ความเห็นที่:  65] จากคุณ : ทองก้อน เมื่อ 4/10/2553 14:07:11

การส่งค่าข้ามฟอร์ม:
- เช่น มี Text1 ในฟอร์ม Form1 พอไปที่ Form2 ... เราอ้างอิงถึงก็ได้ครับ ... แบบนี้ Form1.Text1.Text (เอาค่าใน TextBox) ... ลักษณะนี้ มันแฝงความหมายอีกอย่าง คือ การจองพื้นที่ในหน่วยความจำมันยังค้างอยู่ครับ ... จนกว่าจะปิดโปรแกรมไป (เทคนิคเล็กๆ เทคโนฯไม่เกี่ยว 55555+)

- หรือ ใช้ตัวแปรแบบ Global ก็ได้

[ความเห็นที่:  66] จากคุณ : Pass เมื่อ 3/11/2553 8:53:05  IP: 182.53.125.27

ผมหาที่แก้ไม่เจอครับ จะต้องแก้ไงครับ



Run-time error '_2147217913(80040e07)':
Data Type mismatch in criteria expression.


นี้คือโค๊ดครับ

Private Sub dcbPaper_Change()
Dim sqltest As String
Dim sqldbpaper As String
Dim rspaper  As New ADODB.Recordset
Dim rspapertest As New ADODB.Recordset

    With Conn
        If .State = adStateOpen Then .Close
        .ConnectionString = strConn & ";Data Source=C:\Work\MyDB.mdb"
        .ConnectionTimeout = 90
        .Open
    End With
        sqldbpaper = "SELECT*FROM Paper WHERE Paper.Price='" & dcbpaper.Text & "'"
        'sqltest = "select * from Paper where Paper.Price='" & Trim(dcbpaper.Text) & "'"
        
        With rspapertest
        If .State = adStateOpen Then .Close
        .ActiveConnection = Conn
        .CursorType = adOpenForwardOnly
        .CursorLocation = adUseClient
 *       .Open sqldbpaper       ขึ้นแถบสีตรงนี้ครับ
        
        'With rspaper
        'If .State = adStateOpen Then .Close
        '.ActiveConnection = Conn
        '.CursorType = adOpenForwardOnly
        '.CursorLocation = adUseClient
        '.Open sqltest
        
        Text1(0).Text = .Fields("Price").Value
        End With
End Sub



นี้ก็อีกอันครับ

Run-time '3021':
Either BOF or EOF is True, or the Current record has been deleted.
Requested operation  requires a carrent  record.

โค๊ดครับ


Private Sub dcbEm_Change()
Dim rsEme As New ADODB.Recordset
Dim sqltest As String

    With Conn
        If .State = adStateOpen Then .Close
        .ConnectionString = strConn & ";Data Source=C:\Work\MyDB.mdb"
        .ConnectionTimeout = 90
        .Open
    End With

If dcbEm.Text = "" Then Exit Sub

   sqltest = "SELECT *FROM EmployeesMaster"
   sqltest = sqltest & " WHERE (EmployeesMaster.Salarry='" & Trim(dcbEm.Text) & "')"
      
      With rsEme
        If .State = adStateOpen Then .Close
        .ActiveConnection = Conn
        .CursorType = adOpenForwardOnly
        .CursorLocation = adUseClient
        .Open sqltest
            
            'txt99.Text = .Fields("Salarry").Value
   **         lblsaly.Caption = .Fields("Salarry").Value   มันขึ้นแถบสีตรงเนี้ย
     End With
      
     
    AdoEm.Refresh
Call dcbempData
End Sub


ขอบคุณล่วงหน้าครับ

[ความเห็นที่:  67] จากคุณ : ทองก้อน เมื่อ 3/11/2553 13:17:25

Data Type mismatch in criteria expression
คือ การกำหนดชนิดตัวแปรไม่ถูกต้องครับ จากที่ผมดู ฟิลด์นี้เป็นตัวเลข ลองแก้ ...
sqldbpaper = 'SELECT*FROM Paper WHERE Paper.Price = ' Val(dcbpaper.Text)

Either BOF or EOF is True, or the Current record has been deleted
มันหาข้อมูลไม่พบครับ ... ลองดู
ชื่อฟิลด์ Salary หรือเปล่า 
- ตรวจสอบชื่อฟิลด์ข้อมูลด้วยครับ
- sqltest = sqltest & ' WHERE (EmployeesMaster.Salarry='' & Trim(dcbEm.Text) & '')'

- หากหาข้อมูลไม่พบในตาราง ... เราควรสร้างเงื่อนไขตรวจสอบก่อน ... และลองเช็คข้อมูลดูก่อนน่ะครับ

[ความเห็นที่:  68] จากคุณ : Pass เมื่อ 4/11/2553 9:41:50  IP: 125.26.139.158

ขอบคุณครับ อาจารย์  ผมจะลองดูครับ

[ความเห็นที่:  69] จากคุณ : Pass เมื่อ 5/11/2553 8:54:21  IP: 125.26.197.88

Data Type mismatch in criteria expression
คือ การกำหนดชนิดตัวแปรไม่ถูกต้องครับ จากที่ผมดู ฟิลด์นี้เป็นตัวเลข ลองแก้ ...
sqldbpaper = 'SELECT*FROM Paper WHERE Paper.Price = ' Val(dcbpaper.Text)


**** ตอบครับ ****
คือลองเปลี่ยนแบบอาจารย์ บอกแล้วครับแต่ยังเป็นเหมือนเดิม เลยไปแก้ตรงฟิลด์ เป็น text รันได้แล้วครับ แต่

มันดันขึ้นแบบ ด้านล่างอ่าครับ ผมต้องแก้ไงต่อ

Either BOF or EOF is True, or the Current record has been deleted
มันหาข้อมูลไม่พบครับ ... ลองดู
ชื่อฟิลด์ Salary หรือเปล่า 
- ตรวจสอบชื่อฟิลด์ข้อมูลด้วยครับ
- sqltest = sqltest & ' WHERE (EmployeesMaster.Salarry='' & Trim(dcbEm.Text) & '')'
- หากหาข้อมูลไม่พบในตาราง ... เราควรสร้างเงื่อนไขตรวจสอบก่อน ... และลองเช็คข้อมูลดูก่อนน่ะครับ

**** ตอบครับ ****
ตรวจดูแล้วครับ ชื่อฟิลด์ ถูกต้องแล้วครับ ข้อมูลมีอยู่ในตารางครบครับ

 **   lblsaly.Caption = .Fields("Salarry").Value   มันขึ้นแถบสีตรงเนี้ย

ตรงนี้ถ้าปิดมันไว้ มันรันได้ตามปกตินะครับ 
 ณ ตรงเนี้ย ผมจะให้ dcbem รับค่าชื่อพนักงาน และจะให้ lblsaly.Caption แสดงเงินเดือนของคนๆนั้น
มันเลยมาติดตรงนี้ละครับ  ผมหาที่แก้ไม่เจอ ข้อมูลมีทุกอย่าง

[ความเห็นที่:  70] จากคุณ : Pang เมื่อ 11/12/2553 20:50:50  IP: 110.49.193.67

ช่วยเขียนโค้ดที่ลิงค์VBกับMicrosoft accessหน่อยได้ไมค่ะ
จ๊ะทำโครงงานส่งค๊ะ

[ความเห็นที่:  71] จากคุณ : dos_network เมื่อ 13/12/2553 8:18:51  IP: 118.175.90.37

แง่มๆๆๆ จะบอกดีมั๊ยนะ อิอิอิ
ถ้าค้นดูดีๆ เจอเพี้ยบเลยครับ
http://www.g2gnet.com/News/activenews_view.asp?articleID=176 <== นี่ก็ใช่
http://www.g2gnet.com/News/activenews_view.asp?articleID=194 <== นี่ก็ใช่

โชคดีครับ

[ความเห็นที่:  72] จากคุณ : MeSa เมื่อ 4/1/2554 14:05:17  IP: 118.175.13.26

ขอบคุณสำหรับทุกความคิดเห็นที่เพิ่มประสบการณ์ ความรู้ที่มีให้เพิ่มมากขึ้น..

[ความเห็นที่:  73] จากคุณ : nat เมื่อ 4/1/2554 19:03:42  IP: 223.207.21.77

จงเขียนโปรแกรมรับอายุจำนวน 20 คนเพื่อนับจำนวนแต่ละกลุ่มดังนี้
ต่ำกว่า 25 ปี
25-35 ปี
36-60 ปี
ตั้งแต่ 60 ปี ขึ้นไป
ช่วยเขียนโค้ดให้หน่อยนะค่ะ พรุ่งนี้จะส่งแล้ว

[ความเห็นที่:  74] จากคุณ : เมษา เมื่อ 10/1/2554 15:28:09  IP: 182.52.20.178

ขอบคุณสำหรับปัญหาและข้อแก้ไขที่เพิ่มความรู้ให้อีกเยอะ

[ความเห็นที่:  75] จากคุณ : x-man เมื่อ 18/1/2554 15:30:54  IP: 203.113.101.156

ต้องการโปรแกรมส่งอาจารย์ครับแต่คิดไม่ออกว่าจะเขียนอะไรดี ใครมีโปรแกรมเจ๋งๆ ขออหน่อยครับ

[ความเห็นที่:  76] จากคุณ : ทราย เมื่อ 10/2/2554 0:21:22  IP: 115.87.113.157

อยากได้ โค้ดวีบี เกมอะไรก็ได้อ่ะ วีบี 2005 อ่ะ
เราไม่ค่อยรู้เรื่องนี้เลยอ่ะ
ใครรู้อะไรก็บอกหน่อยสิ

[ความเห็นที่:  77] จากคุณ : นิว เมื่อ 4/3/2554 22:07:22  IP: 203.155.224.130

ต้องการเขียนโปรแกรมสต็อกการ์ดสำหรับหน่วยงานก่อสร้างที่ใ้ช้โอนย้ายแบบเหล็กนั้งร้านที่มีรายการประมาณ 30 ชนิด
โดยโอนย้ายก้ันระหว่างหน่วยงาน ศูนย์กลางทำสต็อกการ์ดที่สำนักงานใหญ่เพื่อปลายเดือนทำรายงานออกมาจะได้รู้ว่าหน่วยงานไหนมีสินค้าอยู่เท่าไร รบกวนปรีกษาหน่อยว่าจะ่ต้องเขียนอย่างไร  ไม่มีประสบการณ์การเขียนโปรแกรม (่มีประมาณ 6 หน่วยงา่น)

[ความเห็นที่:  78] จากคุณ : Devilgirl เมื่อ 19/6/2554 11:58:57  IP: 101.109.176.217

พีค่ะหนูพึ่งเริ่มเรียนโปรแกรม VB 2008 อ่ะค่ะ
อยากถามว่าการบวกกับการคูณมันต่างกันอย่างไรค่ะ
พอดีอาจารย์ให้การบ้านมาทำอ่ะค่ะ
ขอเปงโค้ดนะค่ะ
ขอความกรุณาส่งให้ที่ moontra_2534@hotmail.com
ขอบคุณค่ะ

[ความเห็นที่:  79] จากคุณ : เด็กเรียนVB เมื่อ 15/7/2554 14:12:13  IP: 122.155.37.20

VB ยากจังครับผมอยู่แค่ม.1เอง แต่ต้องเรียนVBแล้ว

[ความเห็นที่:  80] จากคุณ : กำนัน VB 2010 เมื่อ 20/8/2554 1:41:41  IP: 110.168.142.60

ขอคำแนะนำครับ คือตอนนี้ผมฝึกงานครับ ได้รับหมอบหมายให้เขียนโปรแกรมขึ้นมา ซึงโปรแกรมที่ผมจะต้องเขียนมันมีคอนเซ็ปแบบนี้นะคร้าบ คือ เมือเปิดโปรแกรมขึ้นมาจะปรากฏ ปุ่ม button ขึ้นมาประมาณ 100 ปุ่มครับ แต่ละปุ่มจะมีชื่อของเครื่องจักรแต่ละเครื่อง การทำงานของโปรแกรมคือ ต้องการให้เมื่อเปิดโปรมแกรมขึ้นมาแล้วปุ่มของเครื่องจักรที่ต้องทำการ PM จะกระพริบเตือนว่าถึงวันที่ต้องทำ PM แล้ว และเมื่คลิกที่ปุ่ม ก็จะปรากฎข้อมูลของเครื่องขึ้นมาครับ ซึ่งข้อมูลจะประกอบไปด้วย ชื่อเครื่องจักร วันที่ต้องทำPM วันที่ต้องทำPM ครั้งต่อไป ระยะห่างของวันที่ต้องทำPMกับวันที่ต้องทำPMครั้งต่อไป(เช่น 12/08/2011-1/08/2011 ซึ่ง จะเท่ากับ  11 วัน) เเละพื้นที่ตั้งของเครื่องจักร ซึ่งปัญหาของผมคือ 1 จะทำให้ปุ่มกระพริบเตือนได้อย่างไร 2 จะทำอย่างไรให้วันที่สามารถอัฟเดทได้ตลอด และจะเป็นไปโดยอัติโนมัติ ตอนนี้อ่านจากหนังสือก็ไม่รู้เรื่องเพราะผมไม่มีพื้นฐานเลย อยากจะขอคำแนะนำจากผู้เชี่ยวชาญทุกท่านครับ ด่วนมากๆๆเลย ขอบคุณมากครับ E-mail: koch_kandid@hotmail.com

[ความเห็นที่:  81] จากคุณ : data เมื่อ 24/8/2554 21:42:07  IP: 223.205.7.109

สวัสดีค่ะ ผมกำลังทำโปรเจกเกี่ยวกับป้ายตัวอักษรไฟวิ่ง โดยใช้ภาษา VB6.0 เขียนโปรแกรมครับ
ซึ่งตอนนี้ผมไม่รู้ว่าจะนำข้อความใน Textbox ที่เราพิมพ์เข้าไปแล้วมาแสดงผลบนป้ายแอลอีดีอย่างไรครัีบ
ผมมีแนวคิดว่า กำหนดให้ Textbox รับข้อความได้ 20 ตัวอักษร ซึ่งรับได้สูงสุด 3 ข้อความ
แล้วข้อความนี้ต้องไปแสดงผลบนป้ายแอลอีดี และข้อความนี้ต้องวิ่งจากซ้ายไปขวา พอหมดข้อความแรกก็มีข้อความที่สองขึ้นมาวิ่งต่อไป จนครบ 3 ข้อความ แล้วก็นำข้อความที่หนึ่งกลับมาวิ่งต่ออีก 
ช่วยกรุณาเขียนโค้ดที่ใช้ VB6.0 ส่งมาให้ทางอีเมลผมหน่อยครับ ขอบคุณมากครับ kann2531@gmail.com

[ความเห็นที่:  82] จากคุณ : ยัยน้อง เมื่อ 30/8/2554 10:12:32  IP: 223.206.71.6

ขอโค้ดการลบภาพใน PictureBox หน่อยคะ

[ความเห็นที่:  83] จากคุณ : เด็กน้อย เมื่อ 14/9/2554 20:54:55  IP: 49.229.240.137

ขอโค้ดการเขียนโปรแกรมคำนวณส่วนลดของสินค้าเมื่อ input ยอดซื้อของลูกค้า  1คนโดยมีเงื่อนไข
  ยอดซื้อ                      ส่วนลด
น้อยกว่า 1000                 0%
ระหว่าง 1001-5000          5%
ระหว่าง 5001-10000       10%
มากกว่า  10000             15%
ขอความกรุณาด้วยนะค่าอาจารย์ให้การบ้านมา

[ความเห็นที่:  84] จากคุณ : Yam เมื่อ 20/9/2554 8:25:33  IP: 203.130.134.196

ลองนำคำแนะนำไปเขียนดูค่ะ ได้ผลตามต้องการในเบื้องต้น แต่ตอนนี้เกิดปัญหาเมื่อ user ไม่ใส่ค่า แล้วคำนวณผล ผลที่ต้องการจะแสดงใต้ตาราง กลับไปแสดงผลที่ช่องว่างในแต่ละตำแหน่งนะค่ะ ซึ่งตอนนี้แก้ไขโดยให้ใส่ 0 ไว้ก่อน(ซึ่งเยอะมาก และทาง user ต้องการเมื่อค่า 0 ให้เป็นสีขาว และ ที่มีค่าเป็นสีน้ำตาลหรือสีน้ำเงินตามแต่ row ด้วยค่า อันนี้ยังทำไม่ได้เลยค่า) อยากทราบวิธีที่สามารถใส่ค่าว่างได้ และคำนวณผลไว้ใต้ตารางหน่อยนะค่ะ ขอความกรุณาคนเพิ่งหัดเริ่มเขียนหน่อยค่า ขอบคุณมาก ๆ ค่ะ (ปล.หากกรุณาแนะนำวิธีเขียนให้สั้นๆ ลงหน่อยยิ่งดีค่า ^^)
Sub Total()
Dim sumPlan, sumResult, sumResultAss As Integer
Dim sumPA1, sumPA2, sumPB1, sumPB2, sumPC1, sumPC2, sumPD1, sumPD2, sumPE1, sumPE2 As Integer
Dim sumRA1, sumRA2, sumRB1, sumRB2, sumRC1, sumRC2, sumRD1, sumRD2, sumRE1, sumRE2 As Integer
Dim sumRAA1, sumRAA2, sumRAB1, sumRAB2, sumRAC1, sumRAC2, sumRAD1, sumRAD2, sumRAE1, sumRAE2 As Integer
    i = 6
    j = 15
    
    Do While Len(Cells(i, j)) > 0
        sumPlan = 0
        sumResult = 0
        sumResultAss = 0
        sumPA1 = 0
        sumPA2 = 0
        sumPB1 = 0
        sumPB2 = 0
        sumPC1 = 0
        sumPC2 = 0
        sumPD1 = 0
        sumPD2 = 0
        sumPE1 = 0
        sumPE2 = 0
        sumRA1 = 0
        sumRA2 = 0
        sumRB1 = 0
        sumRB2 = 0
        sumRC1 = 0
        sumRC2 = 0
        sumRD1 = 0
        sumRD2 = 0
        sumRE1 = 0
        sumRE2 = 0
        sumRAA1 = 0
        sumRAA2 = 0
        sumRAB1 = 0
        sumRAB2 = 0
        sumRAC1 = 0
        sumRAC2 = 0
        sumRAD1 = 0
        sumRAD2 = 0
        sumRAE1 = 0
        sumRAE2 = 0
        
        Do While Len(Cells(i, j)) > 0
            If Cells(i, 13) = "Plan" Then
            sumPlan = sumPlan + Cells(i, j)
                If Cells(i, 1) = "A1" Then
                sumPA1 = sumPA1 + Cells(i, j)
                End If
                If Cells(i, 1) = "A2" Then
                sumPA2 = sumPA2 + Cells(i, j)
                End If
                If Cells(i, 1) = "B1" Then
                sumPB1 = sumPB1 + Cells(i, j)
                End If
                If Cells(i, 1) = "B2" Then
                sumPB2 = sumPB2 + Cells(i, j)
                End If
                If Cells(i, 1) = "C1" Then
                sumPC1 = sumPC1 + Cells(i, j)
                End If
                If Cells(i, 1) = "C2" Then
                sumPC2 = sumPC2 + Cells(i, j)
                End If
                If Cells(i, 1) = "D1" Then
                sumPD1 = sumPD1 + Cells(i, j)
                End If
                If Cells(i, 1) = "D2" Then
                sumPD2 = sumPD2 + Cells(i, j)
                End If
                If Cells(i, 1) = "E1" Then
                sumPE1 = sumPE1 + Cells(i, j)
                End If
                If Cells(i, 1) = "E2" Then
                sumPE2 = sumPE2 + Cells(i, j)
                End If
            
            End If
            
            If Cells(i, 13) = "Result" Then
            sumResult = sumResult + Cells(i, j)
                If Cells(i, 1) = "A1" Then
                sumRA1 = sumRA1 + Cells(i, j)
                End If
                If Cells(i, 1) = "A2" Then
                sumRA2 = sumRA2 + Cells(i, j)
                End If
                If Cells(i, 1) = "B1" Then
                sumRB1 = sumRB1 + Cells(i, j)
                End If
                If Cells(i, 1) = "B2" Then
                sumRB2 = sumRB2 + Cells(i, j)
                End If
                If Cells(i, 1) = "C1" Then
                sumRC1 = sumRC1 + Cells(i, j)
                End If
                If Cells(i, 1) = "C2" Then
                sumRC2 = sumRC2 + Cells(i, j)
                End If
                If Cells(i, 1) = "D1" Then
                sumRD1 = sumRD1 + Cells(i, j)
                End If
                If Cells(i, 1) = "D2" Then
                sumRD2 = sumRD2 + Cells(i, j)
                End If
                If Cells(i, 1) = "E1" Then
                sumRE1 = sumRE1 + Cells(i, j)
                End If
                If Cells(i, 1) = "E2" Then
                sumRE2 = sumRE2 + Cells(i, j)
                End If
            End If
            
            If Cells(i, 13) = "Result Ass'y" Then
            sumResultAss = sumResultAss + Cells(i, j)
                If Cells(i, 1) = "A1" Then
                sumRAA1 = sumRAA1 + Cells(i, j)
                End If
                If Cells(i, 1) = "A2" Then
                sumRAA2 = sumRAA2 + Cells(i, j)
                End If
                If Cells(i, 1) = "B1" Then
                sumRAB1 = sumRAB1 + Cells(i, j)
                End If
                If Cells(i, 1) = "B2" Then
                sumRAB2 = sumRAB2 + Cells(i, j)
                End If
                If Cells(i, 1) = "C1" Then
                sumRAC1 = sumRAC1 + Cells(i, j)
                End If
                If Cells(i, 1) = "C2" Then
                sumRAC2 = sumRAC2 + Cells(i, j)
                End If
                If Cells(i, 1) = "D1" Then
                sumRAD1 = sumRAD1 + Cells(i, j)
                End If
                If Cells(i, 1) = "D2" Then
                sumRAD2 = sumRAD2 + Cells(i, j)
                End If
                If Cells(i, 1) = "E1" Then
                sumRAE1 = sumRAE1 + Cells(i, j)
                End If
                If Cells(i, 1) = "E2" Then
                sumRAE2 = sumRAE2 + Cells(i, j)
                End If
            End If
            i = i + 1
         
        Loop
        
              
        Cells(i, j) = sumPlan
        Cells(i + 1, j) = sumResult
        Cells(i + 2, j) = sumResultAss
        Cells(i + 3, j) = sumPA1
        Cells(i + 4, j) = sumPA2
        Cells(i + 5, j) = sumPB1
        Cells(i + 6, j) = sumPB2
        Cells(i + 7, j) = sumPC1
        Cells(i + 8, j) = sumPC2
        Cells(i + 9, j) = sumPD1
        Cells(i + 10, j) = sumPD2
        Cells(i + 11, j) = sumPE1
        Cells(i + 12, j) = sumPE2
        Cells(i + 13, j) = sumRA1
        Cells(i + 14, j) = sumRA2
        Cells(i + 15, j) = sumRB1
        Cells(i + 16, j) = sumRB2
        Cells(i + 17, j) = sumRC1
        Cells(i + 18, j) = sumRC2
        Cells(i + 19, j) = sumRD1
        Cells(i + 20, j) = sumRD2
        Cells(i + 21, j) = sumRE1
        Cells(i + 22, j) = sumRE2
        Cells(i + 23, j) = sumRAA1
        Cells(i + 24, j) = sumRAA2
        Cells(i + 25, j) = sumRAB1
        Cells(i + 26, j) = sumRAB2
        Cells(i + 27, j) = sumRAC1
        Cells(i + 28, j) = sumRAC2
        Cells(i + 29, j) = sumRAD1
        Cells(i + 30, j) = sumRAD2
        Cells(i + 31, j) = sumRAE1
        Cells(i + 32, j) = sumRAE2
         
        j = j + 1
        i = 6
    Loop
End Sub

[ความเห็นที่:  85] จากคุณ : small เมื่อ 19/10/2554 15:06:07  IP: 101.66.94.205

[url=http://www.stilwatches.com/]replica watches[/url] replica watch

[ความเห็นที่:  86] จากคุณ : bomb เมื่อ 26/10/2554 20:05:38  IP: 223.206.102.140

vb.net นะคับ อยากให้ ซ่อน ฟอร์ม ทันที หลังจากรัน ด้วยการใช้รันแบบ startup แล้ว น่ะคับ

[ความเห็นที่:  87] จากคุณ : bomb เมื่อ 26/10/2554 20:08:29  IP: 223.206.102.140

จะให้โปรแกรมตรวจสอบ data base เป็นช่วงเวลาน่ะคับ เช่น 9:00,13:00 ในแต่ละวัน

[ความเห็นที่:  88] จากคุณ : TonKlar เมื่อ 20/11/2554 23:00:24  IP: 124.120.164.132

คือผมอยากได้โค๊ดของการทำกราฟแบบลายเส้น(เหมือนๆ กราฟชีวิตที่เค้าดูดวงกันอ่าคับ) โดยรับค่าจาก Serial Port มาแสดงแบบ Realtime อ่าคับ ใครพอมีโปรแกรมตัวอย่างหรือมีวิธีแนะนำ รบกวนช่วยสอนทำหน่อยนะคับ ขอบคุณล่วงหน้านะคับ ^^

[ความเห็นที่:  89] จากคุณ : puy เมื่อ 29/11/2554 19:31:36  IP: 223.205.11.29

อยากได้โค๊ดของระบบขายเช่าหนังสือค่ะ ที่เขียนด้วยภาษาvb.net พร้อมทั้งหน้าฟอร์มค่ะ

[ความเห็นที่:  90] จากคุณ : chittakone เมื่อ 30/11/2554 11:59:16  IP: 202.137.156.6

อยากได้โค๊ด โทละสัมฃบมืภื telephone

[ความเห็นที่:  91] จากคุณ : pol เมื่อ 4/12/2554 22:32:45  IP: 203.156.49.203

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub 
ทำแล้วใช้ไม่ได้ครับ ทำงัยดีพี่ทองก้อน

[ความเห็นที่:  92] จากคุณ : bee เมื่อ 8/12/2554 11:30:14  IP: 202.137.156.10

ขอโค้ด telephone หน่อยคับ ยากด้ายมากคับ

[ความเห็นที่:  93] จากคุณ : พิมพ์ลดา ปิ่นประเสริฐอมร เมื่อ 8/1/2555 17:09:52  IP: 124.121.182.214

เห็นพวกคุณๆ เขียนโค้ดกันเก่งๆ ทั้งนันเลย แล้วตัวดิฉันกำลังจะเรียนต่อคอมพิวเตอร์ธุรกิจ  แล้วจะรอดไหมเนี้ย
ถ้ามีปัญหา  คงจะอกแตกตายแน่ๆเลย
ถ้าลงเรียนแล้ว  ขอความกรุณาเป็นอาจารย์ติวเตอร์ให้ด้วยนะค่ะ

[ความเห็นที่:  94] จากคุณ : yee เมื่อ 11/1/2555 11:40:18  IP: 202.12.73.129

พอดีผมจะทำแบบประเมินออนไลน์ กับ vs2005
ท่านพอมีวิธีที่จะแนะนำหรือขั้นตอนการทำอย่างไรคับ

[ความเห็นที่:  95] จากคุณ : pat เมื่อ 4/5/2555 19:09:16  IP: 124.121.160.131

อยากได้โค้ดเกี่ยวกับการรับซ่อมเครื่องปริ้น

[ความเห็นที่:  96] จากคุณ : beer เมื่อ 17/10/2555 14:32:01  IP: 125.27.45.114

อยากเรียนเขียน vb. ไม่ทราบว่าเรียนที่ไหน ค่าเล่าเรียนเท่าไหร่ 
ไม่มีความรู้เรื่อง vb. แต่อยากเขียนโปรแกรมเป็น
รบกวนช่วยแนะนำด้วยครับ ผมอยู่พื้นที่ กทม. ว่างวันเสาร์-อาทิตย์และวันนักขัตฤกษ์

[ความเห็นที่:  97] จากคุณ : นักศึกษาเฒ่า เมื่อ 6/2/2556 16:31:15  IP: 125.27.119.181

ตอนนี้มีโปรเจคจบยุค่ะ เป็นการเปิดไฟล์งานในแฟรชไดรฟ์ นับหน้ากระดาษจากไฟล์เอกสารที่จะสั่งปริ้น
แล้วก็คำนวนเงินค่ะ ช่วยแนะนำหน่อยได้มั้ยค่ะ

[ความเห็นที่:  98] จากคุณ : No Name เมื่อ 17/6/2556 9:47:14  IP: 203.144.130.176

รบกวนพวกพี่ๆหน่อยครับ พอดีผมอยากทราบวิธีการเขียนโค๊ด คำนวนการแลกเงิน VB 2008 ครับ โจทย์คืิอ ให้มีช่องที่ใส่จำนวนเงิน 1 ช่อง (เพื่อกดกดแลก) แล้วจะได้ออกมาเป็นแบงค์ 100,50,20 จำนวนกี่บัตรครับ รบกวนด้วยนะครับ มือใหม่ครับผม


ก่อนการคลิ๊กโพสต์ข้อความ ขอความกรุณาใช้ถ้อยคำที่สุภาพด้วยครับ เว็บไซต์แห่งนี้เป็นแหล่งเผยแพร่ความรู้ ดังนั้นสำหรับท่านที่พยายามจะป่วนเว็บไซต์ หากท่านเป็น "คนไทย" เช่นเดียวกันกับผม ก็ขอความกรุณาได้โปรดเห็นใจ "คนไทย" อีกจำนวนไม่น้อย ที่เข้ามาขอความช่วยเหลือ จากเว็บไซต์ของผมด้วยน่ะครับ และหากท่านใดไม่เข้าใจในตรงจุดไหน ก็ขอให้ระบุสิ่งที่อยากจะถามออกมา บทความของผมแทบทั้งหมดต้องอาศัยทักษะการปฏิบัติเป็นหลัก ดังนั้นขอให้ดู และ ทดสอบจากโค้ดโปรแกรมประกอบตามไปด้วย
IP Address: 54.145.183.126
ชื่อของคุณ:

ข้อคิดเห็น:

1 + 3 = ?  (กรุณาป้อนคำตอบลงในช่องด้านล่างให้เป็น ภาษาไทย ตามผลบวกของตัวเลขให้ถูกต้องก่อนด้วยน่ะครับ เช่น ศูนย์)
  


จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
Copyright © 2005 g2gNet.Com All rights reserved.
Email: thongkorn@hotmail.com หรือ โทร. 08-6862-6560