ThaiIO.com

   หลังจากที่นำเสนอเนื้อหาเกี่ยวกับ GPS มาแล้วนั้น บทความนี้จะนำเสนอวิธีง่ายๆในการใช้งานกับอุปกรณ์ GPS โดยจะสร้างโปรแกรมด้วย Visual Basic 2005 ในการเขียนโปรแกรมติดต่อกับ GPS

  ในโครงงานนี้ ไม่ได้ใช้ GPS ราคาแพงอะไร แต่ผมใช้ GPS รุ่น Garmin eTrex Legend handheld ราคาเครื่องละ 3500 บาท ซึ่งมีขนาดเล็ก แต่ไม่ได้เป็นระดับ High End อย่างแน่นอน

   สำหรับคอมพิวเตอร์ของผมนั้นไม่มี Serial port แต่ได้หาซื้อสายยี่ห้อ a Belkin USB  adapter(an F5U109) ซึ่งเป็นสายในการต่ออุปกรณ์ภายนอก ผ่าน Serial port

   สำหรับโครงงานนี้ ผมจะนำค่า ละติจูด กับ ลองติจูด มาใช้ใน Google Map ซึ่งก็ไม่ยาก ตามมาตราฐาน NEMA 0183 ซึ่งเป็นตัวอักษรที่ได้มาจากเครื่อง GPS แต่เราจะและนำมาใช้เพียงตัวเลขของละติจูด กับ ลองติจูด โดยข้อความดังเช่น

   N33.455,W85.334

 ซึ่งในโปรแกรมของเราก็จะแสดงค่าที่รับมาจาก GPS ผ่านทาง Serial port นั้นเอง Read the rest of this entry »

Share This

 We will be use visual basic to develop software for fourier transform with used to data in a timely area of the frequency range, and vice versa. The forward-Fourier Transform-or simply Fourier transformation is the time for the frequency domain transformation. The Fourier transform is used to reverse the process. Here you’ll find a Visual Basic example of the application of Fourier Transform program with the method of correlation.

  Read the rest of this entry »

Share This

What New?

   For 64 bit capable Windows versions arrive, We had used inpout32.dll present then if it is 64 bit version so that 64 bit windows developers also can take advantage from programming parallel port.

Ported issue  to Windows XP 64bit Edition (XP/2003 x64 Editions) as the 32bit driver will not install or run on x64 systems.

For this new version will be support both 32bit and 64bit systems running under WOW64 as 32bit applicaitons, and, with a new DLL, pure x64 applicaitons. Read the rest of this entry »

Share This

As I introduce using MSComm 6 for Phone Dial-Up of modem through com port, this part, let’s use API Function that can use API Viewer to find code.

Start by creating new module file, I recommend to use as module file. From my experience in programming, if there is development or solve program, it will be convenient and easy for development. Read the rest of this entry »

Share This

As I mention about modem, it is modem for internet. Usually, working to connect with modem will have processed program for use, but if experiment for knowledge for one who like programming, it will be useful. It can apply for many.

This article will be the fundamental of step of programming and protocol command that is used for Dial-Up Phone, so we begin to know about protocol of modem first.

The protocol for connecting with modem

For connecting with modem, will have command according to standard of industry that produce modem, is protocol called AT Command in order to send command for controlling or get data from modem. Maybe, there is different command; we can see the form of command from manual of each modem that is bought. For command that is sent to control at modem that we will program, it has AT Command that must be used in the followings, Read the rest of this entry »

Share This

From sending file in the section 1, about how to code programming. In this section, will be development program by using original chat program of VB Winsock Chat in the section 3 to add 3 controls, 2 Text Box and one Command Button because in the section of listening from Server and Connect from Client have codes and I had already explained , if you have any question, click here.

Creating form and programming

1. Begin open file Visual Basic Project first, after that choose chat program in the section 3 click download Source Code Program Chat. When finishing, open Form of program that will appear like the picture. It is addition for get Path File and button Send File, or adding code 2 procedures. In the section about coding program in the section 1, so I won’t explain again. You just copy Code according to procedure that is set. I write to explain like this.

Source Code and Description

In this part, you must copy to paste in program that has 3 parts,
1. SendData function
2. Send button (Command1_Click)
3.Procedure Winsock_Arrival()

‘ <a href="/index.php?tag=product/" class="alinks_links" onclick="return alinks_click(this);" title="" >Product</a> by : http://thaiio.com ‘ <a href="/index.php?tag=data/" class="alinks_links" onclick="return alinks_click(this);" title="" >Data</a> : 11/04/2001 ‘ Progrmming by : Narong Y. Option Explicit Private Declare <a href="/tag/function/" class="alinks_links" onclick="return alinks_click(this);" title="" >Function</a> ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim bFileArriving As Boolean Dim sFile As String Dim sArriving As String Dim valTotal As Long Dim bSendingFile As Boolean ‘————— ส่วนของฟังก์ชั่น SendData —————— Public Sub SendData(sFile As String, sSaveAs As String, tcpCtl As Winsock) On Error GoTo ErrHandler Dim sSend As String, sBuf As String Dim ifreefile As Integer Dim lRead As Long, lLen As Long, lThisRead As Long, lLastRead As Long ifreefile = FreeFile ‘ เปิดไฟล์ชนิดไบนาลี่ Open sFile For Binary Access Read As #ifreefile lLen = LOF(ifreefile) ‘วนลูปเพื่อทำให้ไฟล์เป็นแพกขนาด 64k: Do While lRead < lLen lThisRead = 65536 If lThisRead + lRead > lLen Then lThisRead = lLen - lRead End If If Not lThisRead = lLastRead Then sBuf = Space$(lThisRead) ‘ เก็บค่า Record ไว้ใน Buffer End If Get #ifreefile, , sBuf ‘ ทำการอ่านข้อมูลจากไฟล์มาเก็บไว้ใน Random Buffer lRead = lRead + lThisRead sSend = sSend &<a href="/tag/amp/" class="alinks_links" onclick="return alinks_click(this);" title="" >amp</a>; sBuf Loop valTotal = lLen Close ifreefile ‘ปิดแฟ้มข้อมูล bSendingFile = True ‘ส่งชื่อแฟ้มข้อมูลแจ้งไปล่วงหน้า tcpCtl.SendData “FILE” &<a href="/index.php?tag=amp/" class="alinks_links" onclick="return alinks_click(this);" title="" >amp</a>; sSaveAs DoEvents ‘ส่งข้อมูลของแฟ้มข้อมุล tcpCtl.SendData sSend DoEvents ‘เสร็จสิ้น tcpCtl.SendData “File Complete!” bSendingFile = False Exit Sub ErrHandler: MsgBox “Err ” & Err & ” : ” & Error End Sub ‘——————–เป็นส่วนของปุ่ม Send ————— Private Sub cmdSend_Click() If TxtInput.Text <> “” Then On Error GoTo ErrLabel: Winsock1.SendData TxtInput.Text TxtMassage.Text = TxtMassage.Text & “Me: ” & TxtInput.Text & vbCrLf TxtInput.Text = “” TxtMassage.SelStart = Len(TxtMassage.Text) End If Exit Sub ErrLabel: txtMonitor.Text = txtMonitor.Text & Err.Description & ” - Error number: ” & Err.Number & vbCrLf txtMonitor.SelStart = Len(txtMonitor.Text) End Sub ‘———— เป็นส่วนที่จะต้องนำไปเพิ่มเติมในWinsock1_DataArrival(ByVal bytesTotal As Long)——— Dim ifreefile DoEvents If Right$(StrValue, 7) = “Filecmp” Then ‘ถ้าหากฝั่ง Server ส่งค่าสตริงคำว่า”Filecmp” bFileArriving = False sArriving = sArriving & Left$(StrValue, Len(StrValue) - 7) ‘ ifreefile = FreeFile If Dir(sFile) <> “” Then ‘ ตรวจสอบว่ามีไฟล์เดิมอยู่หรือไม่ MsgBox “File Already Exists” Else ‘เปิดแฟ้มข้อมูลแบบไบนาลี่เพื่อเขียนข้อมูล Open sFile For Binary Access Write As #ifreefile Put #ifreefile, 1, sArriving ‘ บันทึกข้อมูลจากตัวแปร buffer ลงสู่แฟ้มข้อมูลตามเรคคอท Close #ifreefile ‘ ปิดแฟ้มข้อมูล ‘ เปิดไฟล์ ShellExecute 0, vbNullString, App.Path & “\” & sFile, vbNullString, vbNullString, vbNormalFocus End If ElseIf Left$(StrValue, 4) = “File” Then bFileArriving = True sFile = Right$(StrValue, Len(StrValue) - 4) ElseIf bFileArriving Then sArriving = sArriving & StrValue End If Exit Sub

How to use program for sending file.

1. After doing file as EXE, then open program to 2 programs, click connect button in order to set value of winsock. The Client side must be clicked to choose status of the computer as client, for Server, choose Server in the part of Client, must fill value Server ในส่วนของ Client and Port number. The computer that send and get must Sharing directrory first in experiment. For this program in another Windows, choose status of computer as Server, then fill port number that match with client side. After that, push Listen   button. For client side, push Connect button. If there aren’t any problems, will have message that successful connection.

Click downloads source code of all programs here

The learning outcome of this article
1.    To know how to program by using Visual Basic to connect through TCP/IP by Winsock.
2.    To apply basic about managing data file to use sending file via TCP/IP.
3.    To understand principle of working of Event and Function of Winsock.

Share This

From my problem in seek the data something for remote debugging in internet but do not meet .After i know the way , so ,i write come to give friends get to know for take keep use with step by step.

1. Select menu “Project ->Setting” thus as picture below

2. Define EXE file path on target machine(computer) thus picture below. Read the rest of this entry »