Hallo Dirk,
ich versuche es mal.
1. Du erstellt eine neue Zelle oder nimmst eine vorhandene
2. Im Cell-Explorer gehst du auf RobotControler1-Dateien
3. Rechte Maustaste - Neue Datei - Karel-Source
4. in das leere Fenster fügst du z. B. ein kleines Beispielprogramm aus dem Karel Reference-Manual ein
5. Speichere die Datei ab, der Dateiname muss dabei gleich sein wie der Programmname in der ersten Zeile
6. Mit der rechten Schaltfläche (Build) kannst du das Programm kompalieren und direkt in Roboguide testen
7. Wen alles pass, auf den Roboter spielen.
Sollten dir die Programme in dem Handbuch zulang sein, hier ein kleineres Programm, allerdings ohne Kommentare. Wie der Name schon sagt berechnet es aus einem Übergabewert den dazugehörigen Sinus.
PROGRAM sinus
%NOLOCKGROUP
VAR
-------------------------------------------------------------
--TPE Parameter Fetch Variables
-- Cannot be used to store paramter data.
-- Other operations may fail.
-------------------------------------------------------------
param_no : INTEGER
par_typ : INTEGER
par_int : INTEGER
par_real : REAL
par_str : STRING[80]
bool_val : BOOLEAN
paramok : BOOLEAN
realflag : BOOLEAN
Winkel_real : REAL
sinu : REAL
--------------------------------------
regnr,
regnr2,
Winkel_int,
status : INTEGER
BEGIN
status=0
param_no=1
get_tpe_prm(param_no,par_typ,par_int,par_real,par_str,status)
IF (par_typ=1) AND (status=0) THEN --INTEGER
regnr=par_int
ENDIF
param_no=2
GET_TPE_PRM(param_no,par_typ,par_int,par_real,par_str,STATUS)
IF (par_typ=1) AND (STATUS=0) THEN --INTEGER
regnr2=par_int
ENDIF
-- IF (par_typ=2) AND (status=0) THEN --REAL
-- ENDIF
-- IF (par_typ=3) AND (status=0) THEN --STRING
-- ENDIF
get_reg(regnr,realflag,winkel_int,winkel_real,status)
if (realflag=false) And (status=0) THEN
sinu = SIN(Winkel_int)
endif
IF (realflag=TRUE) AND (STATUS=0) THEN
sinu = SIN(winkel_real)
endif
SET_REAL_REG(regnr2,sinu,STATUS)
END sinus
Viel Erfolg und bei Fragen einfach wieder melden.
Gruß
Thilbi