Search results for query: *

Thanks, but as I see all of them about serial port handlig. As I mentioned COM handling works me properly. I would like handle an USB port either under UNIX or Win. Anyway thanks Arepi

Thanks for answer My first mistake i tried this expression under Win. Anyway open a port with simple 'open' works in Tcl even under windows, I tried and worked fine. Otherwise /dev/ttyUSB0 could be works only under linux so im sorry, i asked a really irrelevant question. Anyway at last I tried...

Hi, When I try to open a serial port like this: set serial [open /dev/ttyS0 r+] I get: " couldn't open "/dev/ttyS0": no such file or directory" When I use this form: set serial [open COM1: r+] It works properly. It might be importent to know why is it as i would like open USB connection like...

Hi, If you want a simple and fast solution I suggest to use an emulator which convert serial data to USB, so you can handle it from yor program as a simple serial port.

Thanks for answers! I typed "tclsh85" instead "tclsh" and it works now.

Hi, I'm just getting started with Tcl. When i try to run my simple script in command prompt like this C:\script.tcl a window appears and there is no output in command prompt When I try like this(as i know this is the right way for this) c:\tclsh script.tcl I get a message that system could...

Thaks all!

I thought "display a DICOM(.dcm) image", like I can display a JPEG,GIF,PNG, in Tk. For example, display a JPEG image: use Tk; use Tk::JPEG; my $main = new MainWindow; my $canvas = $main ->Canvas; $canvas->pack; my $image = $canvas->Photo('-format' => 'jpg'...

Hi, It's possible to display in PERL a DICOM format image? Besides might importent also that embedding the image in a GUI like Tk. Thanks a lot! Arepi

Meanwhile I found Tk::PNG.

Thanks! It works fine but dont whit a .png. What Ishould do to display a png image? Thanks! Arepi

Hi, I tryed this example from Tk FAQ to display en image. use strict; use Tk; my $main = new MainWindow; my $canvar = $main ->Canvas; $canvar->pack; my $file = 'demos/images/earth.gif'; my $img = $canvar->Photo( 'IMG', -file =>...

Hi! http://books.google.hu/books?id=IzdJIax6J5oC&pg=PA615&vq=You+want+to+write+text+onto+an+existing+image&source=gbs_search_r&cad=1_1

Well, you use brackets wrong again .When you count them youcan see 4 left({) but just 3 right(}) brackets .So your first while loop "doesnt has end".

Hi! In PERL you must take always {} when use if. You forget this at line 21.:if ($line =~/results/) (When you tabulate your program youcan see that things easy) I hope it help you!

Thanks but this work just in MainWindow. I need that ina subrutin what I called from MainWindow use Tk; $top = MainWindow->new(); $frame = $top->Frame( -height => '6c', -width => '6c', -background => 'black', -cursor => 'gobbler' ); $frame->pack; $g2 =...

Hi! I try monitoring the keyboard in perl tk(non blocked read) I tryed use TermReadKey but that read just from prompt shell(STDIN) I need something to non blocked read in tk(in a subrutin what i called from mainwindow) (like in C kbhit(); function) Thanks!