K
Kuzito
Guest
Labas,
Aš Visual Basec 6 kodas:
--------
Private Sub cmdOff_Click ()
Su MSComm1
"įsitikinkite uosto szeregowego yra atvira
Jei. PortOpen = False Tada. PortOpen = True
"siųsti duomenis
. Output = Chr $ (255)
. Output = Chr $ (1)
. Output = Chr $ (0)
End With 'MSComm1
End Sub
Private Sub cmdOn_Click ()
Su MSComm1
"įsitikinkite uosto szeregowego yra atvira
Jei. PortOpen = False Tada. PortOpen = True
"siųsti duomenis
. Output = Chr $ (255)
. Output = Chr $ (1)
. Output = Chr $ (1)
End With 'MSComm1
End Sub
-------------
Can someone help me su konvertuoti šį kodą į PERL programinį kodą?
Thank you in advance
Aš Visual Basec 6 kodas:
--------
Private Sub cmdOff_Click ()
Su MSComm1
"įsitikinkite uosto szeregowego yra atvira
Jei. PortOpen = False Tada. PortOpen = True
"siųsti duomenis
. Output = Chr $ (255)
. Output = Chr $ (1)
. Output = Chr $ (0)
End With 'MSComm1
End Sub
Private Sub cmdOn_Click ()
Su MSComm1
"įsitikinkite uosto szeregowego yra atvira
Jei. PortOpen = False Tada. PortOpen = True
"siųsti duomenis
. Output = Chr $ (255)
. Output = Chr $ (1)
. Output = Chr $ (1)
End With 'MSComm1
End Sub
-------------
Can someone help me su konvertuoti šį kodą į PERL programinį kodą?
Thank you in advance