K
Kuzito
Guest
Pozdravljeni, imam to Visual Basec 6 code: -------- Private Sub cmdOff_Click () S MSComm1 "Poskrbite, da je serijska vrata odprta Če PortOpen = False Potem PortOpen = True.." Pošlje podatke Output =. Chr $ (255). Output = Chr $ (1). Output = Chr $ (0) End With 'MSComm1 End Sub Private Sub cmdOn_Click () S MSComm1 "Poskrbite, da je serijska vrata odprta Če. PortOpen = False Nato. PortOpen = True 'poslati podatke. Output = Chr $ (255). Output = Chr $ (1). Output = Chr $ (1) End With' MSComm1 End Sub ------------- Can nekdo mi pomaga pri preračunavanju te kode v kodo scenarij PERL? Hvala vnaprej