Vb 6.0 dan vb.net e cevirme

MSComm1 nesnesi neyi belirtiyor. onun dll i veya ocx'i varsa veya standart bir nesne ise tanımlamasını mesaja eklersen bişeyler yapablirim.
ayrıca ser_parse2() adında bir metot daha olması lazım.onu da ekle :)

vb .net express kullanıom mscomm32.ocx compenenti indirip ekledim.bu kodu buldum bunu vb.net te yazmaya calısıom bazı yerlerı cevırdım ama bazı yerler eksık kalıo.lutfen yardım :(:(

önce mscomm32.ocx nesnesini referanslara ekle.

Imports MSCommLib

Public Class comm_hasanozkoc
    Dim WithEvents MSComm1 As New MSCommLib.MSComm
    Dim m_busy As Boolean
    Dim CommPort, comNone, rxbuffer As String
    Private Sub MSComm1_OnComm() Handles MSComm1.OnComm
        Dim t As String, i As Long, tline As String
        Select Case MSComm1.CommEvent
            Case MSCommLib.OnCommConstants.comEvReceive
                t = MSComm1.Input
                'ShowText t
                rxbuffer = rxbuffer & t

                Do While True
                    'parse receive data here
                    i = InStr(1, rxbuffer, vbCr) 'look for enter
                    If i > 0 Then
                        tline = Mid(rxbuffer, 1, i)
                        rxbuffer = Mid(rxbuffer, i + 1)
                        'ser_parse2(tline)
                    Else
                        Exit Do
                    End If
                Loop

        End Select
    End Sub

    Private Sub connect_comm()
        Dim t As Integer

        On Error GoTo err

        m_busy = False

        'Debug.Print "Port:", CommPort

        If MSComm1.PortOpen = False Then
            t = CInt(Trim("0" & Mid(CommPort, 4)))
            Debug.Print("COM PORT: " & t)
            With MSComm1
                .CommPort = t
                .Settings = "115200,n,8,1"
                .Handshaking = comNone
                .InBufferSize = 1024
                .OutBufferSize = 0
                .RThreshold = 1
                .SThreshold = 0
                .InputLen = 0
                .EOFEnable = False
                .NullDiscard = False
                .RTSEnable = True
                .DTREnable = True
                .PortOpen = True
            End With
        End If

        rxbuffer = ""
        'CmdReset_Click

        Exit Sub

err:
        MsgBox("Communications Error!")
        Exit Sub
    End Sub

End Class

'ser_parse2(tline) bu metod olmadığı için bu satırı kapatmak zorunda kaldım.

saol artı rep süpersin aga :D:D

---------- saat 17:40 eklendi ---------- önceki mesaj saat 17:37 eklenmişti ----------

aga eger müsaitsen bide kodu acıklarsan cok makbule gecer tabi müsaitsen amacım birşeyler ögrenmek :D:d

yardım eden arkadaşa bende bonus verdim :)

slm elimde 6.0 kod var .net e çevirmeye çalıştım yapamadım ödevimi yetiştirmem gerekiyo.rica etsem yardımcı olabilirmisiniz ?

Kodlar;

Dim x, y As Integer

Private Sub Form_Load()
For k = 0 To 9
grid.ColWidth(k) = 400
grid.RowHeight(k) = 400
grid.Enabled = False
Next k
Randomize
End Sub

Private Sub Command1_Click()
If Val(Text2) > 9 And Val(Text2) < 50 Then
bosalt
dizin = 0
While dizin < Val(Text2)
k = Int(Rnd * 10)
z = Int(Rnd * 10)
If grid.TextMatrix(k, z) = "" Then
grid.TextMatrix(k, z) = "M"
dizin = dizin + 1
End If
Wend
grid.Enabled = True
Else
MsgBox ("doğru sayı gir")
Text2 = ""
Text2.SetFocus
End If
End Sub

Private Sub bosalt()
For k = 0 To 9
For z = 0 To 9
grid.Col = k
grid.Row = z
grid.TextMatrix(k, z) = ""
grid.CellForeColor = vbRed
grid.CellBackColor = vbRed
Next z
Next k
End Sub


Private Sub grid_Click()
x = grid.Row
y = grid.Col
If grid.TextMatrix(x, y) = "M" Then
mayingoster
grid.Enabled = False
Else
sayibul
grid.CellBackColor = vbWhite
End If

End Sub
Private Sub mayingoster()
For k = 0 To 9
For z = 0 To 9
grid.Col = k
grid.Row = z
If grid.TextMatrix(z, k) = "M" Then
grid.CellFontSize = 20
End If
grid.CellForeColor = vbWhite
grid.CellBackColor = vbRed
Next z
Next k
End Sub
Private Sub sayibul()
maysay = 0
If y > 0 Then
If grid.TextMatrix(x, y - 1) = "M" Then
maysay = maysay + 1
End If
End If
If x > 0 And y > 0 Then
If grid.TextMatrix(x - 1, y - 1) = "M" Then
maysay = maysay + 1
End If
End If
If x > 0 Then
If grid.TextMatrix(x - 1, y) = "M" Then
maysay = maysay + 1
End If
End If
If y < 9 And x < 9 Then
If grid.TextMatrix(x + 1, y + 1) = "M" Then
maysay = maysay + 1
End If
End If
If y < 9 Then
If grid.TextMatrix(x, y + 1) = "M" Then
maysay = maysay + 1
End If
End If
If x > 0 And y < 9 Then
If grid.TextMatrix(x - 1, y + 1) = "M" Then
maysay = maysay + 1
End If
End If
If x < 9 Then
If grid.TextMatrix(x + 1, y) = "M" Then
maysay = maysay + 1
End If
End If
If x < 9 And y > 0 Then
If grid.TextMatrix(x + 1, y - 1) = "M" Then
maysay = maysay + 1
End If
End If
grid.TextMatrix(x, y) = maysay


End Sub