Jump to content

cnc_war

Members
  • Posts

    2
  • Joined

  • Last visited

Everything posted by cnc_war

  1. Hello to everyone. I wrote a quite big script (i think) which needs to be improved or even rewriten. My technical skills are not enough- i am a PLC programmist since few years but PC programming is not my strong site of mine. I want to order revriting code to someone more expirienced. further details in PM for interested: 1. Logic of what script has to do is in 85% solved 1a. Interface is build using KODA 2. script communicate with external devices via 2 rs232 port and that is my biggest problem. When i put communication i constant way - frame are sended one by one witch no brake witch small exception (it hast to be like this) the whole interface stop to working as whole "script power" is directed for sending data via RS232 - no button reaction 3. error in refreshing controls like led and labels - refresh rate is horrible. like i said i can very precisly tell what script has to do but has no idea how to get script works stable and faster. I will share my code for interested people who can "take this job". Thank You.
  2. It's my firts post in here so HELLO to everyone. I have read down whole thread, but i cant figure out why my code not working: _CommSwitch(12) _Comm12() ;ConsoleWrite ("Com12:" & _CommPortConnection() &@CRLF) _CommSendString("com 12 ok") _CommSwitch(14) _Comm14() ;ConsoleWrite ("Com14:" & _CommPortConnection() &@CRLF) _CommSendString("com 14 ok") _CommSwitch(12) ;ConsoleWrite ("Com12:" & _CommPortConnection() &@CRLF) _CommSendString("com 12 ok 2") _CommClosePort() Func _Comm12() Local $sportSetError _CommSetDllPath("C:\Program Files (x86)\AutoIt3\Include\commg.dll") _CommSetPort(12, $sportSetError, 38400, 8, 0, 1, 2) If $sportSetError <> '' Then MsgBox(262144, 'Setport error: ', $sportSetError) EndIf EndFunc Func _Comm14() Local $sportSetError _CommSetDllPath("C:\Program Files (x86)\AutoIt3\Include\commg.dll") _CommSetPort(14, $sportSetError, 38400, 8, 0, 1, 2) If $sportSetError <> '' Then MsgBox(262144, 'Setport error: ', $sportSetError) EndIf EndFunc The problem is that i get msgbox : I am runing on Win10 X64 but using 32bit version of dll and CommMG. Thank You for Your chelp. cnc_war
×
×
  • Create New...