<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-874" %> http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์ของไทยแห่งใหม่
เข้าสู่ระบบ ::    
http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์แห่งใหม่
ข่าว/กิจกรรม   
บทความ   

Programming Zone   
VB.NET       
VB.NET_OOP      
ASP.NET       
PHP       
JAVA       
J2ME      

ดาวน์โหลด   
ติดต่อเรา   
รวมลิงค์   
   
 
แลกลิงค์กับเรา
:: ติดต่อโฆษณา 089-6698280 ::

 
 
 
 ." การดีบักยากกว่าการเขียนโค้ดสองเท่า
ดังนั้นหากคุณเขียนโค้ดโดยใช้สติปัญญาทั้งหมดที่มี คุณจะโง่เกินกว่าที่จะดีบักมันได้ "


ไบรอัน ดับบลิว เคอร์นิกาน ( บิดาภาษา C )
 
 
บทความประจำวัน (Dialy Article)
           บทความที่ 36:: เรื่อง การ หาขนาดของไฟล์ [File Size ]
   การเชื่อมฐานข้อมูล MySQL ด้วย VB.NET2005

 

   โปรแกรม ShutDown , Restart , LogOff Computer ด้วย VB.NET2005

 

 

 

   โปรแกรม ตรวจสอบหมายเลขไอพี ของเครื่องคอมฯของ คุณ ด้วย VB.NET2005
 
   โปรแกรม download HTML จาก URL ด้วย VB.NET2005
   ดาวน์โหลดโปรแกรม แแปลงเลขฐาน convert digit 1.0
   การสร้างโปรแกรม Ping เครือข่าย ใน vb.net2005 แบบง่าย ๆ  
   ต.ย. เกมส์ Sweet Heart ด้วย VB.NET  
     การสมุดโน้ต (Notepad) แบบง่าย ๆ ด้วย VB.NET  
 
     การสร้างเกมส์ TicTacToe (OX) แบบง่าย ๆ ด้วย VB.NET เร็ว ๆ นี้  
 
     การสร้างเกมส์ Puzzle Number แบบง่าย ๆ ด้วย VB.NET
 
     การสร้างเกม Hi-Lo แบบง่าย ๆ Style VB.NET
 
' ต.ย. คำสั่งแสดงค่า ต่ำสุด และ สูงสุดของข้อมูลชนิดพื้นฐานใน VB.NET ที่สามารถเก็บได้

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


      MsgBox("Max Int16 = " & Int16.MaxValue & vbCrLf & _
      "Min Int16 = " & Int16.MinValue & vbCrLf & _
      "Max Int32 = " & Int32.MaxValue & vbCrLf & _
      "Min Int32 = " & Int32.MinValue & vbCrLf & _
      "Max Int64 = " & Int64.MaxValue & vbCrLf & _
      "Min Int64 = " & Int64.MinValue & vbCrLf & _
      "Max Decimal = " & Decimal.MaxValue & vbCrLf & _
      "Min Decimal = " & Decimal.MinValue & vbCrLf & _
      "Max Single = " & Single.MaxValue & vbCrLf & _
      "Min Single = " & Single.MinValue & vbCrLf & _
      "Max Double = " & Double.MaxValue & vbCrLf & _
      "Min Double = " & Double.MinValue, , "Min Max Value Of PDT")


End Sub


ผลลัพธ์ ::


Tips today..
 
            บ่อยครั้งที่ผู้หัดเริ่มเขียนโปรแกรมทุกภาษาไม่ว่าจะเป็น VB.NET หรือภาษาคอมพิวเตอร์ อื่น ๆ ต้องเจอปัญหาที่สำคัญ คือ ข้อผิดพลาด ( Error ) เมื่อทำการันโปรแกรม จึงทำให้ไม่สามารถรันโปรแกรมไ้ด้ ดังนั้นเราจึงจำเป็นต้องทำความรู้จักและเข้าใจกับ Error แบบต่าง ๆ แล้วหาวิธีแก้ไขข้อผิดพลาดดังกล่าว ให้ถูกต้อง  [ เร็ว ๆ นี้ ]
 

 คำสั่งในการทดสอบเครือข่าย  PING มีรูปแบบดังนี้
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress)
Dim value As Boolean = My.Computer.Network.Ping(address)
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress ,timeout)
Dim value As Boolean = My.Computer.Network.Ping(address ,timeout)

Example 1.

If My.Computer.Network.Ping("198.01.01.01") Then
       MsgBox("Server pinged successfully.")
Else
      MsgBox("Ping request timed out.")
End If

Example 2.
If My.Computer.Network.Ping("www.siam2dev.com",1000) Then
        MsgBox("Server pinged successfully.")
Else
         MsgBox("Ping request timed out.")
End If .

  การลบ และ ก็ เคลียร์
    หากต้องการ ลบ ข้อความ ใน Label สามารถทำได้ดันี้
       Label1.Text =""   หรือ Label1.Text = Nothing

    หากต้องการ ลบ ข้อความ ใน TextBox สามารถทำได้ดันี้
       TextBox.Clear   หรือ TextBox.Text =""   หรือ TextBox.Text = Nothing

    หากต้องการ ลบ รูปภาพที่อยู่ใน Picture Box สามารถทำได้ดันี้
       Picturebox1.image = nothing

    หากต้องการ ลบ รายการที่อยู่ ใน Listbox ทั้งหมด สามารถทำได้ดันี้
       ListBox1.Item.Clear
 


การใช้งานเครื่องหมาย _ (under score)
    ภาษา visual basic นั้น ได้กำหนดให้ การเขียนคำสั่ง 1 คำสั่ง นั้น ต้องจบภายในบรรทัดเดีียวกัน หรือ หนึ่งคำสั่ง หนึ่งบรรทัดนั้นเอง แต่บางครั้ง หรือ บางคำสั่งของ visual basic ก็อาจจะต้องเขียนคำสั่งยาวมากทำให้ ยากต่อการอ่านคำสั่ง {ต้องเลื่อน scroll bar นั่นเอง }

ต.ย.
    if TextBox1.Text = "" Then
        Msgbox("กรุณาป้อนข้อมูลใน TextBox ก่อนครับ",MsgboxStyle.yesnocancel + MsgboxStyle.Critical , "MyProject")
    else
    end if

    สังเกตุตรงบรรทัดคำสั่ง Msgbox จะเห็นว่าค่อนข้างยาว เราสามารถตัดขึ้นบรรทัดใหม่ได้ โดยใช้ _ ดังนี้

      If TextBox1.Text = "" Then
        MsgBox("กรุณาป้อนข้อมูลใน TextBox ก่อนครับ", _
        MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical, _
        "MyProject")
    Else
    End If

หมายเหตุ :: ก่อน _ ต้องเว้นช่องว่าง 1 ช่องก่อน


    ใน vb.net2005 เราสามารถเขียนคำสั่งหลาย ๆ คำสั่งในบรรทัดเดียวกันได้ {โดยปกติ คอมไพล์เลอร์ของ visual basic นั้นจะมองหนึ่งคำสั่ง หนึ่งบรรทัด } เพื่อเป็นการประหยัดบรรทัดคำสั่งใน source code โดยใช้เครื่องหมาย โคลอน : ดังตย.

    dim a ,b , c, d as integer

    a= 5 : b = 10 : c=20 : d=30

หรือ
    button1.enabled= false : button1.enabled= false : button1.enabled= false

[ อ่านเนื้อหาเกี่ยวกับ vb.net ทั้งหมด ]


Last Update :: 19/05/2551

      29/06/2551 บทความที่ 36:: เรื่อง การ หาขนาดของไฟล์ [File Size ]
      29/06/2551 บทความเรื่อง การทำ Screen Saver อย่างง่าย ๆ ดัวยตนเอง กับ VB.NET2005
      21/04/2551การ comment ที่ละหลายบรรทัด ใน VB.NET 2005
      14/04/2551การสร้าง Class Printer เพื่อสั่งพิมพ์ข้อความด้วย VB.NET2005
      14/04/2551 ตัวอย่างโจทย์ ทางคณิศาสตร์ ด้วย VB.NET2005
      23/02/2551 การเชื่อมฐานข้อมูล MySQL ด้วย VB.NET2005
      10/02/2551 โปรแกรม Get_Computer_Name ด้วย VB.NET2005
      10/02/2551 ดาวน์โหลด Sheet และ Source Code โปรแกรมระบบ จองห้องพักโรงแรม AsiaAirPort
      10/02/2551 ดาวน์โหลด Sheet และ Source Code โปรแกรมระบบ Inventory2008
      04/02/2551  โปรแกรม ShutDown , Restart , LogOff Computer ด้วย VB.NET2005
      30/01/2551 โปรแกรม ตรวจสอบหมายเลขไอพี ของเครื่องคอมฯของ คุณ ด้วย VB.NET2005
      20/01/2551 ดาวน์โหลดโปรแกรมจัดการโฟลเดอร์ ด้วย VB.NET2005
      26/12/2550 โปรแกรม download HTML จาก URL ด้วย VB.NET2005
      16/12/2550 ดาวน์โหลด Source Code โปรแกรมแปลงเลขฐาน [ ไฟล์ .rar ]
      02/10/2550 การตรวจสอบความกว้างของจอภาพ ใน vb.net2005
      01/10/2550 การกำหนดรูปพื้นหลังให้ย่อขยายตามขนาดของฟอร์ม
      21/09/2550 การตรวจสอบการป้อนอีเมล์ จาก ผู้ใช้งาน
      21/09/2550 การตรวจสอบการป้อนอีเมล์ จาก ผู้ใช้งาน
      14/09/2550 รู้จัก และการจัดการกับ MDI Form(Multiple Document Interface Form )
      10/09/2550 เปลี่ยนสีตัวอักษร ขนาด หรือ รูปแบบ ตัวอักษรบนปุ่ม Button ตอนรันโปรแกรม
      09/09/2550 การเข้ารหัส(Encrypt) แบบ Columnar Transposition Cipher
      06/09/2550 การเพิ่มฟอร์ม การลบฟอร์ม ออกจากโปรแเจ็กต์ และ การเรียกฟอร์มอื่น มาแสดง
      Sorting Algorithms ขั้นตอนวิธีจัดเรียงข้อมูล
     เขียนโปรแกรมติดต่อ Socet เพื่อรับและอ่านข้อมูลไฟล์เว็บเพจจาก Server ด้วย VB.NET
     การเขียนโปรแกรมติดต่อพอร์ต COM1 ,COM2 (En)
     การสร้างเกม Hi-Lo แบบง่าย ๆ
     การใช้งาน MainMenu
     VB.NET 2005 มีอะไรใหม่ (What's new in VB.NET 2005)
     คำสั่ง DoEvents   หรือ Application.DoEvents คืออะไร ?
     Overflow คืออะไร ?
     การแสดงหมายเลขบรรทัดในหน้าต่าง views code ของ Microsoft Visual Studio.Net 2003 
     การใช้ Function Shell ในการรันโปรแกรมอื่นขึ้นใน VB.NET
     การสุ่มตัวเลขใน VB>NET [ คำสั่ง RND() และ Randommize() ]
     การใช้งานฟังก์ชันทางคณิตศาสตร์ใน VB.NET >>> Math
     คำสั่ง VbCrLf คืออะไร มีประโยชน์อย่างไร
     ฟังก์ ชันเกี่ยวกับ วันที่ Date , DateDiff , DateAdd , Format etc.
     การสร้าง Link ไปยังเว็บไซต์ แบบง่าย ๆ
     การ Save Image ด้วยคำสั่ง บรรทัดเดียว
     การ แสดงตำแหน่งของ เมาส์ บนฟอร์มเหมือน โปรแกรม Paint Brush
     การจัดการกับ ข้อความ String Manipulation
     โปรแกรมแปลงเลขฐานสิบ เป็นเลขฐานสอง
     การจัดการไฟล์ (File Management System)
     โปรแกรมแปลงเลขฐานสิบ เป็นเลขฐานสอง [ อ่านรายละเอียด ]
     การ Save Image ด้วยคำสั่ง บรรทัดเดียว [ อ่านรายละเอียด ]
     การสร้าง Link ไปยังเว็บไซต์ แบบง่าย ๆ [ อ่านรายละเอียด ]
     การใช้งานฟังก์ชั่นทางคณิตศาสตร์ Math [ อ่านรายละเอียด ]
 
  :: บทเรียน VB.NET
     แนะนำ .NET Framwork
     เริ่มต้นรู้จักกับ VB.NET
     เริ่มต้นรู้ใช้งาน VB.NET2005
     การสร้าง Project แรก
     รู้จักกับ Form
     รู้จักกับ Control [ Label , TextBox , Button ]
     หน้าต่าง Properties
     หน้าต่าง View Code
     ตัวแปร ( Variables )
     Control Structure
     Procedure & Function
     File System
     ADO & Database
:: http://www.siam2dev.com ::
e-mail :: xnattapong@hotmail.com , songneam@gmail.com