|
|
|
|
|
|
|
|
´ÒǹìâËÅ´â»Ãá¡ÃÁ RSS Reader ä´é·Õè¹Õè ...
| |
|
|
|
| Visitors - Session views |      
7 ¸Ñ¹ÇÒ¤Á ¾.È.2549
47 Users On-Line. |
|
| Visitors - Page views |  
1 ¡ØÁÀҾѹ¸ì ¾.È.2551 |
| |
|
|
 |
|
µÃǨÊͺ¡Òá´á»é¹¤ÕÂìºÍÃì´à¾×èÍãËéÃѺ¤èÒ੾ÒеÑÇàÅ¢ (VB.Net) |
Category »
VB 6/VB.Net
â´Â : Webmaster àÁ×èÍ 15/6/2551 àÇÅÒ: 16:39 | | (ÍèÒ¹ : 38345) |  ËÅÒ»աè͹à¾×è͹ªÒǵèÒ§ªÒµÔ (¤¹¹ÕéäÁèªÒµÔªÑèǹèФÃѺ ... 55555) à¤Â¶ÒÁ¼ÁÁÒÇèÒ "ÃÙéÁÑé Dot Net Áѹ¤×ÍÍÕËÂѧ àÍê ¤×ÍÍÐäà ?" ... äÍéµÑÇ¡ÃмÁ¡çµÍºä»µÒÁ¤ÇÒÁ¤Ô´«×èÍæ àËÁ×͹¡Ãк×ÍäÁèÁÕà¨éҢͧµÒÁẺ¼Áàͧ¹Ñè¹áËÅÐ áµè¾Íà¢ÒµÍº¡ÅѺ¼ÁÁÒ á¤è¹Ñé¹àͧ¡çÎÒµÃÖÁàŤÃѺ ... à¢ÒºÍ¡ÇèÒ "Áѹ¤×Í¡ÒùÓàÍÒä¿Åì DLL ËÃ×Í Dynamics Link Library ä»ãªé§Ò¹º¹ÍÔ¹à·ÍÃìà¹çµä§ÅèÐ (äÍéâ§è)" ... 55555+ ·Õè¢Ó¹Õè¡çà¾ÃÒÐÁѹà»ç¹¡ÒÃà»ÃÕºà»Ã á¡Á»ÃЪ´ M$ àÅç¡æáËÅФÃѺ ... ¡çàÍҾ͢Óæ¤ÃѺ ÊÓËÃѺªÒÇ VB6 ·Õèã¤Ãæ¡çÁÑ¡µÔÇèÒàÃÒÅéÒËÅѧ෤â¹âÅÂÕ áÅдѹà»ç¹¤ÇÒÁäÁè©ÅÒ´¢Í§ VB6 ·ÕèÁѹäÁèä´éà¡Ô´ÁÒà»ç¹ OOP 100% ... 55555+ ... ¤ÃÒǹÕé¼Á¨Ð¹ÓàÍÒá¹Ç¤Ô´·ÕèäÁèãªè¢Í§ VB6 100% ËÃÍ¡¤ÃѺ ÁÒá¡é»ÑËÒãËé¡Ñº VB.Net ãËéä´éÃѺªÁ¡Ñ¹ ... ÍèШÖêÂÂÂÂ
ASCII = American Standard Code for Information Interchange
àÇÅÒ·Õè¤Ø³¡´á»é¹¤ÕÂìºÍÃì´µÑÇÍÑ¡Éà "A" à¤Ã×èͧ¤ÍÁ¾ÔÇàµÍÃìÁѹäÁèÃÙé¨Ñ¡ËÃÍ¡¤ÃѺ ÁѹÃÙé¨Ñ¡áµè¤ÇÒÁᵡµèÒ§·Ò§ÈÑ¡Âìä¿¿éÒ àªè¹ + ¡Ñº Ground ËÃ×Í + ¡Ñº - ËÃ×Í Ê¶Ò¹Ð High Voltage ¡Ñº Low Voltage ... áµèã¹ÀÒÉÒÁ¹ØÉÂìàÃҨйÓÁѹÁÒà»ÃÕºà·ÕºáÅСÅèÒǶ֧à¾Õ§á¤è "0" ¡Ñº "1" (µÑÇàÅ¢Ãкº Binary ËÃ×Í °Ò¹ 2) ´Ñ§¹Ñé¹ÍÑ¡¢ÃÐ "A" àÁ×èÍá·¹¤èÒà»ç¹àÅ¢°Ò¹ 2 (Binary) àÃÒ¨Ðä´é¤èÒà»ç¹ 0 1 0 0 0 0 0 1 ËÃ×Í 65 ã¹°Ò¹ 10 (ÁÒ¨Ò¡ 0+64+0+0+0+0+0+1 = 65 ËÃ×Í ·ÕèàÃÒ¨ÐàÃÕ¡ÁѹÇèÒ ASCII Code ä§ÅèФÃѺ¾Õè¹éͧ) ... àÍÒÅèФÃѺµÔêµèÒ§ÇèÒàÃÒÃÙé·ÕèÁҢͧ ASCII (ÍèÒ¹ÇèÒ áÍÊ¡Õé) ¡Ñ¹à»ç¹·ÕèàÃÕºÃéÍÂáÅéÇ ´Ñ§¹Ñ鹤èÒ ASCII Code ÊÓËÃѺµÑÇÍÑ¡¢ÃÐ 0 - 9 ¤×Í
"0" = 0 0 1 1 0 0 0 0 ËÃ×Í 48 (°Ò¹ 10)
"1" = 0 0 1 1 0 0 0 1 ËÃ×Í 49 (°Ò¹ 10)
"2" = 0 0 1 1 0 0 1 0 ËÃ×Í 50 (°Ò¹ 10)
..... ä»àÃ×èÍÂæ ....
"9" = 0 0 1 1 1 0 0 1 ËÃ×Í 57 (°Ò¹ 10)
¾ÍÁͧàËç¹·Ò§ÊÇèÒ§ÃÓäÃáÅéÇãªèÁÑé¤ÃѺ¾Õè¹éͧ ... ⨷Âìã¹¢é͹ÕéµÃǨÊͺ¡Òá´á»é¹¤ÕÂìºÍÃì´à¾×èÍãËéÃѺ¤èÒ੾ÒеÑÇàÅ¢ ... ´Ñ§¹Ñé¹á¹Ç¤Ô´áººË¹Ù¹éÍÂ͹غÒÅáÁÇàËÁÕÂÇ ¤×Í
ËÒ¡¼Ùéãªé¡´¤ÕÂìµÑÇàÅ¢ÃÐËÇèÒ§ 0 - 9 (áµèµéͧãªé ASCII Code ÃÐËÇèÒ§ 48 ¶Ö§ 57) ãËéÊ觤èÒ ASCII Code ¹Ñé¹æ¡ÅѺ¤×¹ä» (¨Ðãªé¿Ñ§¤ìªÑè¹ Asc, Chr à¢éÒªèÇ Âѧä§æáÅéÇ µÑÇá»ÅÀÒÉÒÁѹ¡çÃÙé¨Ñ¡ áµè ASCII Code à·èÒ¹Ñé¹áËÅÐ)
¹Í¡à˹×ͨҡ¤ÕÂì·ÕèÇèÒÁÒ ¨ÐµéͧÅçͤ¡Òá´¤ÕÂìäÇé ËÃ×Í àÊÁ×͹˹Öè§ÇèÒäÁèÁÕ¡Òá´¤ÕÂìã´æ
á¹Ç¤Ô´áºº·Õè 1 :
µÑÇÍÂèÒ§¹Õé¼ÁäÁèä´éà»ÅÕè¹á¹Ç¤Ô´¨Ò¡ VB6 àÅ ... ´Ñ§¹Ñé¹¼Á¡ç¨ÐàÅè¹µÒÁá¹Ç·Ò§à´ÔÁ â´ÂÍÒÈÑ ASCII Code áµè·ÇèÒàÃÒäÁèÊÒÁÒö¹Ó KeyAscii ã¹ VB6 ÁÒãªé§Ò¹ã¹ Dot Net ä´é ´Ñ§¹Ñ鹨֧µéͧÍÒÈÑ e.KeyChar (Áѹ¨ÐÃкؤÕÂì¹Ñé¹æ ÍÍ¡ÁÒàÅ àªè¹ "S") à¢éÒÁÒªèÇ áÅéÇá»Å§ãËéà»ç¹ÃËÑÊ ASCII Code ´éǤÓÊÑè§ Asc ÍÕ¡·Õ
Êèǹ e.Handled 㹤ÇÒÁËÁÒ¢ͧ¼Á ¤×Í ¡Òú觺͡ʶҹСÒÃÅçͤà˵ءÒóì Keypress «Öè§ ...
ËÒ¡Áѹà»ç¹ False áÊ´§ÇèÒà¡Ô´¡Òà Return ¤èÒ¤ÕÂì·Õè¡´ä´é (¡ç¤èÒ ASCII ¹Ñè¹áËÅÐ)
ËÒ¡Áѹà»ç¹ True áÊ´§ÇèÒà¡Ô´¡Òà Return ¤èÒ¤ÕÂì·Õè¡´à»ç¹ 0 (äÁèÁÕ¡Òá´¤ÕÂì)
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) _
Handles TextBox1.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
Select Case KeyAscii
Case 48 To 57
e.Handled = False
Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
|
à¢Õ¹â¤é´áºº¹ÕéËÒ¡ÁÕ TextBox ¨Ó¹Ç¹ÁÒ¡æ¨Ð·ÓÂѧ䧴ÕÅèÐ ... ¡çà»ÅÕè¹à»ç¹¿Ñ§¤ìªÑè¹ (Function) á·¹«Ô¤ÃѺ¾Õè¹éͧ
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) _
Handles TextBox1.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
' µÃǨÊͺ¡Òà Return ¤èÒ¡ÅѺÇèÒ True ËÃ×Í False
e.Handled = CheckDigitOnly(KeyAscii)
End Sub
Function CheckDigitOnly(ByVal index As Integer) As Boolean
Select Case index
Case 48 To 57 ' àÅ¢ 0 - 9
CheckDigitOnly = False
Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
CheckDigitOnly = False
Case Else
CheckDigitOnly = True
End Select
End Function
|
á¹Ç¤Ô´áºº·Õè 2 :
Ẻ·Õè 1 ÃÙéÊÖ¡ÇèÒÁѹ¨ÐºéÒ¹æà¡Ô¹ä» µéͧŴÃٻẺŧÁÒ ... â´Âãªé¿Ñ§¤ìªÑè¹ (ËÃ×Í ¤ÓÊÑè§) Asc(µÑÇÍÑ¡¢ÃÐ) à¾×èÍÃкصÑÇÍÑ¡¢ÃйÑé¹æâ´ÂµÃ§ àªè¹ Asc("0") ¡ç¨ÐÁÕ¤èÒ ASCII Code à·èҡѺ 48
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) _
Handles TextBox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57
e.Handled = False
Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
|
á¹Ç¤Ô´áºº·Õè 3 :
¨Ðãªé¿Ñ§¤ìªÑè¹ (ËÃ×ͤÓÊÑè§) Chr(ÃËÑÊáÍÊ¡Õé) à¢éÒÁÒªèÇ ¹Ñ蹤×Í Chr(48) ¡ç¨ÐÁÕ¤èÒà·èҡѺµÑÇÍÑ¡¢ÃÐ "0"
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) _
Handles TextBox1.KeyPress
Select Case e.KeyChar
Case Chr(48) To Chr(57)
e.Handled = False
Case Chr(8), Chr(13), Chr(46)
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
|
á¹Ç¤Ô´áºº·Õè 4 :
¤ÃÒǹÕéÁÒãªéµÑÇÍÑ¡¢ÃÐâ´ÂµÃ§ä»àÅ ¤×Í "0", "1", ... "9" (µéͧÍÂÙèÀÒÂã¹à¤Ã×èͧËÁÒ Double Quote ËÃ×Í "")
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs _
) _
Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9"
e.Handled = False
Case Chr(8), Chr(13), Chr(46)
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
|
Conclusion:
à»ç¹ÍÂèÒ§äáѹºéÒ§¤ÃѺ¾Õè¹éͧ ... ä´éàËç¹ÀÒ¾¡Ñ¹ªÑ´æ¨ÐæËÃ×ÍÂѧ äÁèÇèÒàÃÒ¨ÐàÃÔèÁµé¹ÈÖ¡ÉÒ¨Ò¡ÀÒÉÒâ»Ãá¡ÃÁÍÐäáçáÅéÇáµè ¨ÐàËç¹ä´éÇèÒ "á¹Ç¤Ô´ ËÃ×Í Algorithm" 㹡ÒÃá¡é»ÑËÒ¹Ñé¹ ÁѹäÁèä´éà»ÅÕè¹á»Å§ä»µÒÁÀÒÉÒâ»Ãá¡ÃÁ·Õèãªé§Ò¹àÅ ¨Ðà»ÅÕ蹡çáµèÃٻẺ¤ÓÊÑè§ (Syntax) áÅÐ ÇÔ¸Õ¡ÒùÓÁÒãªé§Ò¹ áÅШҡµÑÇÍÂèÒ§·Õè¹ÓÁÒàʹ͹Õé Áѹà»ç¹á¹Ç¤Ô´·ÕèàÃÕ¡ä´éÇèÒà»ç¹ "¾×é¹°Ò¹" (·Õè¼ÁÁÑ¡¡ÅèÒǶ֧à»ç¹»ÃШÓ) ... ÅͧÂé͹¡ÅѺä»ÈÖ¡ÉÒ´Ùà¡ÕèÂǡѺàÃ×èͧ¢Í§ Bit/Byte »ÃÐàÀ· ª¹Ô´¢Í§¢éÍÁÙŵèÒ§æ à¾ÃÒоǡ¹ÕéáËÅФ×Í BASIC ·Õè¨ÐÊèͧ·Ò§ãËé¾Õè¹éͧä´é¹ÓÁÒãªé㹡ÒÃá¡é»ÑËÒ áÅÐ ¾Ñ²¹Òâ»Ãá¡ÃÁµèÍ-ÂÍ´ÍÍ¡ä»ä´éÍÕ¡ÁÒ¡ÁÒÂ
|
|
