Profiler programma

[fox99]

Dear All, Excuse me bu I am not a duch speaker I hope someone understand me....
In have a Profiler machine and lot of problem to run it with a sw from Colimbus ! Version 2.2.0.81 Colidrive lot of bug yet.
Somebody has a solution to mill a PCB and make drilling from gerbers files from ORCAD, I had the sw from sudar.ch tested bu it dont work with a first generation of the control unit of the profiler.

Someone could help me ?
Thanks

[boeingbrown]

Answer in forum you initially posted.
Hessel

[tommyken]

And it looks like you've an old version of colidrive. Perhaps contact colinbus by phone or mail !

i've a version above 3...

[boeingbrown]

Is seems that Profiers bought before:

20 march 2009

have version numbers with 2......
And after that date with 3 .....

h.

[cetest]

Ik ontdekte dat colinbus failliet is (niet verbazingwekkend) en mijn oude
profiler sinds een pc crash werkloos moet blijven.
Ik zoek dus een alternatief om simpele printjes te maken.

Ik las dat de auteur van dit artiekel Piet een eigens stuk software heeft geschreven.
Kudos Piet.

Is er nog een mogelijkheid om het profidoit programma beschikbaar te stellen ?
Ik zie dat de download op deze post is disabled
Eventueel kan je me mailen op cetest(at)cetest(dot)nl.

Bedankt : gert

[cetest]

In afwachting van een oplossing ben ik zelf wat aan het puzzelen gegaan.
Het volgende VB6 programma is een eerste aanzet, en is in staat om de profiler
in beweging te krijgen. Ik las dat veel mensen problemen hebben met het communicatieprotocol
en ook de juist baudrate staat nergens vermeld. Als je niet weet hoe dit te laten werken,
kijk dan eens rond op VB6 fora. Belangrijk is een MSCOMM library (projects,components,Microsoft Comm Control)
aan te zetten en een MSCOMM op je form te plaatsen. Ik heb hem "serial" ge-renamed. In mijn systeem
zit ie op poort 3 maar dat kan bij een ander ook 1-9 zijn.
Ik gebruik een van de oudste Profilers uit 2007.
Succes ermee !

Code: Select all

Private Sub Command1_Click()
Dim init As String

Call openrs232

init = Chr(27) + "MD:" + Chr(13) + Chr(26)
init2 = Chr(27) + "LM:" + Chr(13) + Chr(26)
init3 = "PA 8000,8000;" + Chr(13) + Chr(26)
Serial.Output = init
Serial.Output = init2
Serial.Output = init3

Serial.PortOpen = False
End Sub


Private Sub openrs232()

Serial.CommPort = 3
Serial.Handshaking = comRTS
Serial.Settings = "38400,N,8,1"
Serial.InputLen = 0
If Serial.PortOpen = False Then    'Check if serial port is open
        Serial.PortOpen = True         'Open the serial port
    End If

End Sub