Did You found something? I am lookin too.
Posts by Tomeeek
-
-
Windows 10 oer 11?
-
Hallo, You can get a list from fanuc support. There are all compatible TP's listed.
-
Hallo Yakaw,
I modified the programm. Now is working like i wanted. Thanks a lot!
Below new Code:
PROGRAM CVS_Write_V5
%COMMENT='CVS_Write'
%NOLOCKGROUP
%NOPAUSE= ERROR+COMMAND+TPENABLE
%INCLUDE KLEVCCDFVAR
CVS_File: FILE
Status: INTEGER
reg_value1: REAL
reg_value2: REAL
reg_value3: REAL
reg_string1: STRING[10]
reg_string2: STRING[10]
reg_string3: STRING[10]
reg_value : REAL
int_value : INTEGER
real_flag : BOOLEAN
reg_number : INTEGER
file_name : STRING[30]
OutStr : STRING[30]
RegFile : FILE
SAT : INTEGER
ROUTINE Clr_Scr
BEGIN
WRITE TPDISPLAY(CHR(cc_clear_win), CHR(cc_home))
WRITE TPERROR(CHR(cc_clear_win))
WRITE TPSTATUS(CHR(cc_clear_win))
WRITE TPPROMPT(CHR(cc_clear_win))
WRITE TPFUNC(CHR(cc_clear_win))
FORCE_SPMENU(TP_PANEL, SPI_TPUSER, 1)
END Clr_ScrBEGIN
Clr_Scr
OPEN FILE CVS_File('AP', 'test_out.csv')
Status = IO_STATUS(CVS_File)
IF Status <> 0 THEN
WRITE TPDISPLAY('Open File failed', Status, CR)
ELSE
-- Registerwerte auslesen und in die Datei schreiben
FOR reg_number = 1 TO 10 DO
-- Wert des Registers auslesen
GET_REG(reg_number, real_flag, int_value, reg_value, SAT)
-- Wert in String umwandeln
IF (real_flag=TRUE) THEN
CNV_REAL_STR(reg_value,16,6,OutStr)
ELSE
CNV_INT_STR(int_value,16,10,OutStr)
ENDIF
-- Schreibregisterwerte in die CSV-Datei
WRITE CVS_File('Register ', reg_number, ': ', OutStr, CR)
Status = IO_STATUS(CVS_File)
IF Status <> 0 THEN
WRITE TPDISPLAY('Write File failed', Status, CR)
ENDIF
ENDFORCLOSE FILE CVS_File
WRITE TPDISPLAY('Done', CR)
ENDIF
END CVS_Write_V5
-
Do You have some sampe KAREL Programms for me? Just to get a better undeerstanding of the Karel stuff.
Thank U
-
-
Thank U very much! I will test.
Br. Tomasz
-
PROGRAM WriteRegistersToMC
%NOLOCKGROUP
%COMMENT = 'Schreibt Registerwerte auf Memory Card'VAR
reg_value : REAL
reg_number : INTEGER
file_id : INTEGER
file_name : STRING[30]BEGIN
-- Dateiname definieren
file_name = 'mc:register.txt'-- Datei öffnen
OPEN FILE file_id (file_name, WRITE)IF file_id < 0 THEN
WRITE('Datei konnte nicht geöffnet werden', CR)
ABORT
ENDIF-- Registerwerte auslesen und in die Datei schreiben
FOR reg_number = 1 TO 10 DO
-- Wert des Registers auslesen
GET_REG(reg_number, reg_value)-- Wert in die Datei schreiben
WRITE file_id ('Register ', reg_number, ': ', reg_value, CR)
ENDFOR-- Datei schließen
CLOSE FILE file_id-- Bestätigungsmeldung ausgeben
WRITE('Registerwerte erfolgreich auf Memory Card geschrieben', CR)
END WriteRegistersToMC---->>> ERROR
----------------------------------------------------------------------
Translating C:\Users\t.virnich\Desktop\write_registers.klKTRANS Version V9.30 (Build 25 9/14/2023)
Copyright (C) FANUC America Corporation, 1985 through 2019.
All Rights Reserved.C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
Id or quoted string expected.C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
")" expected.C:\Users\t.virnich\Desktop\write_registers.kl(16)
16 OPEN FILE file_id (file_name, WRITE)
^ ERROR
Invalid statement. ";" or new line expected.
===============Translation not successful===============
Build Failed: Error translating program: Code: 0xFFFFFFFF:
----------------------------------------------------------------------Can anyone Help?
-
Can anyone help me to write a Karel Programm? I want to write Robot registers to MC Card.
Need one example programm. I get to many errors whilie building...
-
Hallo Yakaw,
it is working now!
Thanks
-
Thank You very much. I start to understand how it is working...
Br. Tomasz
PS. I will give You some reply.
-
Hallo Yakaw,
where can I find the passlvl.xml? I am not that deep into the subject yet...
Br. Tomasz
-
Hallo guys. I'm having a problem importing password.xml. Maybe someone has the same problem.
XML file contains errors. Please VERIFY. After verifying I get LOG FIle..
The error in that logfile
:[xmlparse_scan] Syntax error 0x10404 line 6 Column 8
<LEVEL="0" name="Operator" lang="eg"/> <----I do not see any reason for that error.Please Help.