UCCNC vezérlő program

[svejk]

Én meg közben csak álmodozom...
Álmaimban http://cnctar.hobbycnc.hu/Svejk/ELOLAP.JPG" TARGET=_fnew>ilyen kezelőpultot látok
Egyszer már elkezdtem a Mach3-hoz is, de közben jött az UCCNC.
A méretekről annyit, hogy 15"-os az LCD, 80 mm átmérőjű az MPG kerék.  
16x16 mm-esek a gombok.
Már a yaxlie-s választókapcsolókról is lemondtam a nyomógombok javára.

[000000000]

Szia Tibor,
 
Az lehet a gond amit Svejk írt, átalakítottuk teljesen a hotkeys ablakot így teljesen más bejegyzésekből olvassa a beállítás fájlból a jog gombok adatait is. Így ha egy régi .pro fájlt használasz, akkor be kell állítani a gombokat a hotkeys oldalon. Vagy egy új profilt létrehozni, ott alapban be van állítva. Vagy egy új profilból jegyzettömbbel bemásolni a hotkeys kulcsait.

[000000000]

A THCup és THCdown azok nem függvényei az UCCNC-nek, illetve eleve bemenetek nem kimenetek, szóval azt nem lehet konfigolni a hotkeys oldalon. Majd Balázssal beszélek erről, hogy hogyan tudnánk megcsinálni amit szeretnél.

[000000000]

Igen, ugyanaz a helyzet, az input triggernél is egy bemenetre több funkciót is rákonfigolhatsz.

[nffab2gnr]

Szia Balázs
 
Igen az volt a gond amit a svejk írt,erre nem figyeltem ,de már vígan működik.

[Gyati]

Szia Svejk! Ebben a korban már te sem nőkről, hanem kezelőpultokról álmodozol! [#vigyor2]

[xabi]

Elnézést hogy még egyszer megkérdezem, de nem kaptam választ hogy létezik a funkció vagy nem(találom):
- Macro-ban inputbox-ot lehet nyitni? Hogyan?
- Macro-ban hogyan lehet kiolvasni a Feedrate aktuális értéket?
- Macroban hogyan lehet a JOGFeed%-ot olvasni, írni?

[frkdv6dyr]

Elnézést a szemetelésért, de belinelés helyet bemásolom a makrót amit M21000 néven hívhatsz meg ha letöltöd a könyvtáramból
 
int _FF_ = 13;
char FF = (char)_FF_;
string ut5 = Application.StartupPath ;
string ut4 = ut5 + "/Wizards/Allinone/UCCNC_wizards.exe" ;
string ut1 = ut5 + "/Wizards/Allinone/command.txt" ;
string ut6 = ut5 + "/Wizards/Allinone/adatcsere.txt" ;
string ut7 = ut5 + "/Wizards/Allinone/GetXYZ.txt" ;
string ut8 = ut5 + "/Wizards/Allinone/file.txt" ;
string text1 = "1";
string text2 = "2";
string textend= "kilépve";
string s1 = "1";
string s2 = "2";
string kilep = "";
string beolvas = "L";
string kiolvas = "G";
string kiolvas_text = "";
string tapfile = "";
string XposVal = "";
string YposVal = "";
string ZposVal = "";
double Xposvariable;
double Yposvariable;
double Zposvariable;
string command = "C";
string command_text = "";
   System.Diagnostics.Process proc;  
    System.Diagnostics.ProcessStartInfo procInfo = new System.Diagnostics.ProcessStartInfo();  
    procInfo.UseShellExecute = true;
    procInfo.FileName = ut4;
    procInfo.Arguments = Application.StartupPath;
    proc = System.Diagnostics.Process.Start(procInfo);  
    System.IO.File.WriteAllText(ut6, text1);
    proc.WaitForExit(50);  
      do
            {
            System.Threading.Thread.Sleep(50);
                String[] lines = System.IO.File.ReadAllLines(ut6);
            String[] tap_file = System.IO.File.ReadAllLines(ut8);
            String[] command_ = System.IO.File.ReadAllLines(ut1);
                System.Console.WriteLine("Contents of adatcsere.txt = ");
                foreach (string tap__file in tap_file)
            {
               tapfile = tap__file;
            }
                foreach (string command__ in command_)
            {
               command_text = command__;
            }
            foreach (string line in lines)
                {
                   kilep = line;
                    if (line == s1)
                    {
                        System.IO.File.WriteAllText(ut6, text2);
                    }
                    if (line == s2)
                    {
                        System.IO.File.WriteAllText(ut6, text1);
                    }
                    if (line == beolvas)
                    {
                        System.IO.File.WriteAllText(ut6, text1);
                  exec.mainform.filenametoload =tapfile;  
                  exec.mainform.loadfile();  
               }
                    if (line == kiolvas)
                    {
                        System.IO.File.WriteAllText(ut6, text1);
                  XposVal = System.Convert.ToString(Xposvariable = exec.GetXpos());
                  YposVal = System.Convert.ToString(Yposvariable = exec.GetYpos());
                  ZposVal = System.Convert.ToString(Zposvariable = exec.GetZpos());
                  kiolvas_text = XposVal +FF + YposVal + FF + ZposVal;
                  System.IO.File.WriteAllText(ut7, kiolvas_text);
               }               
                    if (line == command)
                    {
                        System.IO.File.WriteAllText(ut6, text1);
                  exec.Code(command_text);
                    }
            }
            }
            while (kilep != "E");
   System.IO.File.WriteAllText(ut6, textend);
 
Ha alaposan végig olvasod láthatod, hogy fájlok írásával és olvasásával szépen lehet az adatokat oda-vissza írni, sőt parancsokat is át tudsz küldeni.  
 
Ha egy ilyen vagy hasonló megoldás érdekel este fele tudok részletesebben is írni, vagy telefonon tudok segíteni (adatlapomon megtalálod a számom).
 
Ui.: nem próbáltam, de windows alap formokkal, api hívással is működnie kell, ha már egy delphi-ben írt programmal is tud kommunikálni.

[xfg6v697j]

jogfeedrate% 232-es dro:
 MessageBox.Show(exec.mainform.AS3.Getinputlabel(232));
String-ben kapod az eredmény.
 
A többivel is próblkoztam,de nekem sem megy [#rinya]

[xfg6v697j]

Mégis csak összejött.
 
Actfeed 109-es dro:
MessageBox.Show(exec.mainform.AS3.Getlabel(109));
 
Inputboxot viszont tényleg nem tudom hogyan kellene kélszíteni.

[frkdv6dyr]

Nem vagyok mágus a winapikban, de ahogyan hívod a "messagebox" beépített windows elemet, úgy hívható beviteli ablak is. Sajna még a nevét sem tudom delphiben "Edit".

[nffab2gnr]

Ki tudja,hogy az UC300-5LPT controller magyar nyelvű leírását hol lehet letölteni.

[nffab2gnr]

Megtaláltam, barátom a google megmondta.[#email]

[svejk]

A feltelepített UCCNC/Dokumentation könyvtárban található, hogy ne kelljen keresgélni.

[nffab2gnr]

Szerintem ott csak a szoftver leírása van magyarul, a "vas" leírás a Balázs honlapján van.