about mscomm

[UNLIMITED Team]

hi, im trying to connect dct3 phone using fbus com1 and checking phone version etc..

i write this code in vb6

phoneV() as byte

Mscomm1.portopen = true

mscomm1.output = 'fbus frame for phone info, here using chr$(&H) 'chr$(&H1E) 

'sleep for 100ms

phoneV = mscomm1.input

mscomm1.portopen = false

with that code you can read phone version and you can the reply from phone using comport analyzer.. the problem is if click the read phone button many times it won't read.. you need first turn off the phone and turn back it on..before you can.. what do you think is the problem?

[Bph&co]

Hi,

You have checksums and sequence numbers for the whole communication
session. Using snapshot values from old session is not good enough.

Regards

[UNLIMITED Team]

Originally Posted by Bph&co

Hi,

You have checksums and sequence numbers for the whole communication
session. Using snapshot values from old session is not good enough.

Regards

Hi Alan,

yes.. fbus frame to read phone info + senquence + xor

and then send to phone right? it display in comport analyzer but when i repeat to press.. it nothing happens anymore unless you reset the phone..

br

[Dave.W]

well simple thing, send the "reset phone" command before the "read info" command.

if you read some docs on the dct3 m/f bus, you will see that there is a reset command sent to phone first in all case. i guess it is needed!

[Zaihtam]

there are good source for this kid of matter, it's on the gnokii sources, there are docs explaining the fbus command.

[djalil]

may be u need enter the phon in test mode before reading

[Bph&co]

Hi,

Reset of the protocol from time to time is the best solution for this control. But
i recomend to use some custom control that you have source for, and allows
manual setting of comm parameters.

If i can remember corectly the ms control was not allowing proper setting of
Com Timeouts, so you will have probably a lot of errors, that will accumulate
eventually, and the phone will stall the session.

Regards

[UNLIMITED Team]

sad to say but i dont have any custom control to use.. anyone have an idea with this? actually im trying to create a library file thats send and receive sms/delete sms.. so the first thing i want to know is how to connect/disconnect phone by reading phone version/imei.. i dont have problem on sending,receiving,deleting sms..

br

[ssa]

here are some subs for send sequence in nokia..

Sub Launch(G As String)

'This routine will set SQ number and calc Checksum, and add it to the command

Dim arrHexList() As String, i As Integer, Result As Long, realhex As String

'Set SQ numer
If SQ < 10 Then
SQ = 10
Else
SQ = SQ + 1
End If

'Inc. SQ in command string
G = G & " " & SQ

'Split command into and aray using "space" as seperator
arrHexList = Split(G, " ")

Result = CLng("&H" & arrHexList(0)) 'give Result the first value

For i = 1 To UBound(arrHexList) 'loop from the 2nd item to the end of the list

'Xor the result so far with the next index
Result = Result Xor CLng("&H" & arrHexList(i))
Next

'The actual command string + chk
realhex = G & " " & Hex(Result)

'Send command to Sendhex rutine
sendhex (realhex)

End Sub

Sub sendhex(H As String)

Dim strHexList() As String
Dim loop1 As Long
Dim bytSend As Byte

'split the string into an array based on the space character
strHexList = Split(H, " ")

'loop through each item in the array
For loop1 = 0 To UBound(strHexList)

'convert the hex text into a byte
bytSend = CByte("&H" & strHexList(loop1))

'send the data
main.MSComm1.Output = Chr(bytSend)
Next 'loop1
End Sub