کمک برای تبدیل کد یک برنامه به VB.Net

[mohsenp910]

سلام
دوستان خسته نباشید
یه مشکل کوچیک دارم که مطمئنم اساتید کمکم کنن.من رشته تحصیلیم مهندسی سخت افزاره و یه پروژه برداشتم سخت افزارشو کامل کردم ولی توی نرم افزارش موندم .البته با vb6 انجام دادم ولی میخوام توی vb.net باشه من اینجا پلود می کنم یه توضیح هم میدم خیلی ممنون میشم کمکم کنید .

فایل GPS : این همون برنامه ایه که من میخوام تبدیل بشه به vb.net . خودم با vb6 نوشتم ولی متاسفانه برای port contoller کرک میخواد که من ندارم از طرفی چون برنامه دوم رو با vb.net نوشتم میخوام اینم همونجوری باشه . کاره برنامه هم اینه که به طور مستقیم وصل میشه به GPS و ساعت رو دریافت می کنه و بعدش 3:30+ می کنه و ساعت ویندوز رو تنظیم می کنه

http://up.iranblog.com/images/5a3hkz0vcqfhydvfxu8t.zip

فایل GPS2 : این برنامه هیچ مشکلی نداره و با vb.net نوشته شده و فقط برای راهنمایی شما گذاشتم .این برنامه کارش اینه که توسط یه میکرو ساعت رو از GPS میگیره و بعدش کامپیوتر هم ساعت رو از میکرو میگیره.یعنی دقیقا مثل برنامه بالا هست با این تفاوت که میکرو بین کامپیوتر و GPS واسطه شده

http://up.iranblog.com/images/b801mj63qg2q57ae8yg5.zip

خیلی ممنونم از کمکتون

[reza_agha]

پاسخ : کمک برای تبدیل کد یک برنامه به VB.Net

عزیز من. خودت که برنامه دوم رو نوشتی مستقیما به GPS وصلش کن. فقط باید حواست باشه که اطلاعات رو توی رویداد SerialPort1_DataReceived مرتبا به یک رشته اضافه کنی و پس از گرفتن انتهای خط پردازش کنی و اطلاعات رو از توش دربیاری و رشته رو خالی کنی. من VB بلد نیستم. اما سعی کردم یه چیزی دربیارم که منطق رو برسونه. مثل این:

Public Class Form1

Dim GpsLineBuf As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GpsLineBuf = ""
SerialPort1.Encoding = System.Text.Encoding.ASCII
SerialPort1.Open()
End Sub

Private Function IntVal(ByVal index As Integer)
Return Asc(GpsLineBuf(index + 1)) - Asc("0&quot
End Function

Private Sub ProcessData()
Dim hh As Integer
Dim mm As Integer
Dim ss As Integer

If GpsLineBuf = "" Then Exit Sub
' hh = ((buffer[7] - '0&#039 * 10) + (buffer[8] - '0'
' mm = ((buffer[9] - '0&#039 * 10) + (buffer[10] - '0'
' ss = ((buffer[11] - '0&#039 * 10) + (buffer[12] - '0'

hh = (IntVal(7) * 10) + IntVal(8)
mm = (IntVal(9) * 10) + IntVal(10)
ss = (IntVal(11) * 10) + IntVal(12)


End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim C As Integer

While SerialPort1.BytesToRead > 0
C = SerialPort1.ReadByte()
If GpsLineBuf = "" Then
If C = Asc("$&quot Then
GpsLineBuf = "$"
End If
Else
GpsLineBuf = GpsLineBuf + Chr(C)
If GpsLineBuf.EndsWith(Chr(13) + Chr(10)) Then
Call ProcessData()
GpsLineBuf = ""
End If
End If
End While
End Sub
End Class

البته این وسط میکروسافت هم کلی کمک کرد!

[mohsenp910]

پاسخ : کمک برای تبدیل کد یک برنامه به VB.Net

دوست عزیز خیلی ممنون از جوابتون
متاسفانه منم اصلا vb بلد نیستم و اینارو کسی واسم نوشته که الان در دسترس نیست . از برنامه دوم فقط در صورت وجود میکرو میتونم استفاده کنم و اگر میکرو رو از بورد خارج کنم برنامه کار نمیکنه . برنامه اول که به زبان vb6 هست مستقیم به gps وصل هست که من میخوام به vb.net تبدیلش کنم

[reza_agha]

پاسخ : کمک برای تبدیل کد یک برنامه به VB.Net

خوب عزیز من این سورسی که برات فرستادم رو قراره مستقیما به gps وصل کنی. متاسفانه من بعد از صد سال هنوز یاد نگرفتم چطوری فایل ارسال کنم وگرنه مطمئن باش کل پروژه رو برات ارسال میکردم.

[mohsenp910]

پاسخ : کمک برای تبدیل کد یک برنامه به VB.Net

دوست عزیز متاسفانه من زیاد از برنامه نویسی سر در نمیارم و میخوام یه نفر برنامه رو بهم بده نه سورسشو .شما برای پلود کردن برنامه کافیه فولدر برنامه رو zip کنید بعدش برید توی سایت up.iranblog.com و فایلتو انتخاب کن و بزن پلود بشه بعدش لینک مستقیمش رو بده به من
خیلی ممنونت میشم کارمو راه بندازی