COM port i VB

Opsætning af port:
com.One.CommPort = 1

Hastighed
comOne.Settings = \"9600,N,8,1\"

Åbne port:
comOne.PortOpen = True

Hvis du ønsker at sende: (eks. til et modem)
comOne.Output = \"ATDT\" & A$ & vbCr

Modtagning af besked:
String = comOne.Input

Lukning af port:
comOne.PortOpen = False

For at få det over i Excell skal du bruge OLE funktionen:
eks:

Option Explicit

Private Sub cmdAngle_Click()
Dim xl as Object

Set xl  = CreateObject(\"Excell.Sheet\")

xl.Range(\"A1\").value = txtX.Text
xl.Range(\"A2\").value = txtY.Text

\'Beregning i tredje celle

xl.Range (\"A3\").Formula =\"=ATAN2(A1, A2)\"
xl.Range (\"A4\").Formula =\"=A3*180/PI()\"

\'Vis resultatet i VB
lblRadians.Caption = xl.Range(\"A3\").value
lblDegrees.Caption = xl.Range(\"A4\").value

\'Fjern fra Hukommelsen
Set xl = Nothing
End Sub

Du har her fået to programmer der hurtigt kan monteres sammen. Og udfra det antal point du vil give så viser du jo at du må havde en del kendskab til det i forvejen.

Mange tak for hjælpen. Det er en stor hjælp.