2 variables, 2 data VB6 com port

[trololol]

hi, pa help sna ako idea kung paano mag
recieve ng dalawang data tapos store nya
sa mag ka ibang variable
gus2 ko sna may security vb6 ko..

mag send ung microcontroller ko via bluetooth..
gus2 ko sna una mag send text tapos ung data
at kung "text" nga ung una na send, process nya ung data
pero kung hndi "text", do nothing..

eto plg nagawa ko po...

Code: [Select]


uart1_write_text("text");
delay_ms(500); //delay to wait for VB6 to process the data
uart1_write(data);


tapos check ng vb6 kung "text" nga ba ung pinadala
tapos kung totoo nga.. process nya ung preceeding data
pero kung hndi "text" ang  pinadalang data ay hndi
i-process..

eto plg nagawa ko program sa VB6 MScomm


Private Sub MSComm1_OnComm()
Dim infut As String
Dim infut2 As String

With MSComm1     'test for incoming event
Select Case .CommEvent
Case comEvReceive
infut = .Input
If infut = text Then
infut2 = 'data that will be sent next
Text1.Text = infut2
Else
'do Nothing
End If
End Select
End With

End Sub

pa help sna po salamat