Tcl Programming Examples

hola

tcl

proc _motor_Move_Alla { {v1} {v2} } { }
proc _motor_Move_Aqui { {v1} {v2} } { }

proc _sensor_estado { {v1} {v2} } { }

set motorcat [info procs "_motor*"]
set sensorcat [info procs "_sensor*"]

puts [info procs localproc]

Test

tcl

set a 0.020

puts a

proc FORMAT { u } {
if { [expr $u*10] == [expr int($u*10)] } {
    set u [format "%.1f" $u]
} elseif { [expr $u*100] == [expr int($u*100)] } {
    set u [format "%.2f" $u]
}
}

set a [FORMAT $a]

puts $a

recrusive procedure

tcl

Unable to open file!