would be suitable for this
purpose?
2.Is there possibility of cooperation with someone of you because I feel
it is beyond my forces?
3.Is it neccesary to be unter GPL licence?. Part of the payment will be
a donation to Gambas.
I'm waiting for your ideas.
Vassi
Thank you Alessandro very elegant solution. I'll give it a try!
Doriano, I don't understand how could netcat work here.
--
Download Intel® Parallel Studio Eval
Try the new software tools for yourself. Speed compiling, fi
Some months ago Doriano suggested the code for the printing of 1 line on
a parallel printer which is the following:
PUBLIC SUB bEktiposi_Click()
DIM hPrinter AS File
hPrinter = OPEN "/dev/lp0" FOR OUTPUT
hPrinter.EndOfLine = gb.Windows
PRINT #hPrinter, "test a line:
the (textbox) LostFocus() routine is working on Opensuse (with Gambas
2.17) but not on Ubuntu (with Gambas 2.19)!
The same components of Gambas are loaded on both PCs!
gb, gb.db, gb.db.form, gb.form, gb.image, gb.net, gb.qt, gb.qt.ext,
gb.vb.
PUBLIC SUB tEponimia_LostFocus()
DIM rs33 AS Result
Why does Gambas create 2 rpm files one .src and one .noarch?
Is it the noarch.rpm file that I have to install ?
Why does the .noarch.rpm ask for all the Gambas2.* depedencies in order
to be installed? Is it logical to ask for almost all of the components
of Gambas?
Is this happening in Deb distr
Ok, I had to use my Desktop (with Ubuntu 9.10) to make the Deb
packages !!!
It worked fine !
This is another proof of the 2 different distros Theorem !
--
Download Intel® Parallel Studio Eval
Try the new software tools
Hello again,
I just made packages of a small application for Opensuse, Madriva and
Fedora. Everything worked fine.
But the package building for Debian and Ubuntu did not work! It shows:
.
sh: fakeroot: command not found
package building failed
Package,MakeDebPackage.531:'dpkg-buildpac
I'm trying to make a routine that fills a dropdown menu of a textbox OR
fills a listbox with data taken from mysql, with every keypress.
So if the 1st key pressed is A it shows all data from A, if the second
key pressed is b it shows only the data from Ab etc..
I have made a few efforts with "Left
I solved it !!
With your help !!
1. I installed the locales as Doriano said.
2. After that I found the ibm web-page with all the greek char types:
http://www-01.ibm.com/software/globalization/ccsid/ccsid_registered.jsp
3. I started printing with Fabien's routine and the different char types
of tha
Merci Fabien,
With this routine I get some characters printed but not the Greek ones!
I also tried the conv(tEpitheto.Text, "UTF-8", "")
where was the following char type:
windows-1253, ibm869 : I got output but not in Greek
ibm737,cp-850,cp850,cp-851,ibm869,x-EBCDIC-GreekModern, x-EBC
Dear Doriano,
I remember from the last time that you where a kind of old printers
expert !
I printed all the characters from 33 to 255 and have found all the greek
letters somewhere between 128-180 and 224-234.
The greek letters are in order from 128 "Α" to 151 "Ω" . The capitals
are 100% in ord
I am using a parallel printer Panasonic KX-P1150 (dot printer).
The printer is at /dev/lp0 and prints very well in English.
In Greek it only shows some strange characters like "road crossings" and
crosses with other symbols.
I have tried to use all the font options of the printer that can be
adju
How is this possible ? (to specify the alignment for each cell).
--
SOLARIS 10 is the OS for Data Centers - provides features such as DTrace,
Predictive Self Healing and Award Winning ZFS. Get Solaris 10 NOW
http://p.sf.n
I tried
.Columns[1].Alignment = Align.Right
AND I get error :
Unknown symbol 'alignment' in class '.GridviewColumn'
I'm using Gambas 2.17
--
SOLARIS 10 is the OS for Data Centers - provides features such as DTrace,
P
Lets say that I want to align the 2nd columns of the following code to
the right. How is this possible?
WITH GridView1
.rows.count = 0
.columns.count = 6
.Columns[0].Width = 45
.columns[0].text = "AA"
.Columns[1].Width = 280
.columns[1].text = "Name"
etc..
I have t
I 'll use the Gambas Mysql commands to make a table ! it works !
The reason that I asked you is that the code for creating a Mysql table
in Gambas is less accurate than the code of python.
--
SOLARIS 10 is the OS for Data
I am using python because it executes the table creation commands with
the same type like in terminal mode. For example in python we write:
sql = """CREATE TABLE Aplianikis (
aa BIGINT(20) NOT NULL auto_increment,
Eponimia VARCHAR(40) NOT NULL,
AFM VARCHAR(18) NOT NULL,
Hello again,
I am using the following code for the creation of a table in a Mysql DB:
SHELL"python /home/delphi/Documents/Apodeixi/dimiourgiaTableMYSQLmePython1.py"
IF ERROR THEN
Message.Error(DConv(Error.Text))
ENDIF
The command works perfectly and it creates the table.
After a more accurate control I discovered that the last record was not
included with red color. But when I put the LOOP up to rsThesi.Count it shows
up the same old error.
so I put just after the LOOP the line :
change_bgcolor("Label" & CInt(rsThesi!thesi))
AND everything is OK at last !!
Here'
After the function of change_bgcolor that existed and Benoit reminded us, the
code is becoming more sophisticated:
PUBLIC SUB Form_Open()
DIM rsThesi AS Result
DIM iTemp AS Integer
DIM sTemp AS String
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchos
It is Solved !!
It works fine with: rsThesi.Count - 1
DO WHILE rsThesi.Index < rsThesi.Count - 1
change_bgcolor(CInt(rsThesi!thesi))
rsThesi.MoveNext()
LOOP
Thank you Dimitri and Doriano
--
Come build wi
Dimitri it worked !!
I put the code that you suggested and it works only when I put a number
smaller than rsThesi.Count . For example when I put 10 it shows 10 Labels
coloured !
I ' m writing down the code that worked:
PUBLIC SUB Form_Open()
DIM rsThesi AS Result
DIM iTemp AS Integer
DIM
Dear Doriano,
I have tested both codes with
sTemp = CStr(rsThesi!thesi) 'As a string variable
AND then with
iTemp = rsThesi!thesi 'As Integer
I get the results on the console but the code now stops at:
sTemp = CStr(rsThesi!thesi)
OR at
iTemp = rsThesi!thesi
with message "Result is not
Dimitri I don't understand where to place
IF rsThesi.Index < rsThesi.Count THEN
rsThesi.MoveNext()
ENDIF
If I use it for the loop of all the rows it only stops at row 2
and it shows Label12 (for example) red
It also passes row 1 !!!
I don't know if something like GOTO (the beginning of
And of cource on:
PRINT rsThesi!thesi
PRINT "Label" & rsThesi!thesi
I get :
2
Label2
12
Label12
57
Label57
47
Label47
33
Label33
56
Label56
44
Label44
11
Label11
78
Label78
3
Label3
etc.
at Console window as described in my previous email and the code stops at
PRINT rsThesi!thesi
with
resul
I tested :
PRINT CStr(rsThesi!thesi)
PRINT CStr(rsThesi.Index)
Instead of change_bgcolor("Label" & rsThesi!thesi)"
and I got everything working fine
I got 42 couples of numbers as it should be:
38
0
15
1
47
2
74
3
96
4
etc... up to 42 row !!
the first number was the correct rsThesi!thesi
I have changed the Select of rsThesi to find only the records that thesi <> 0
as following:
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax = 0
AND thesi <> 0 ")
Now it only counts 42 rows out of 70.
But the error is the same as described in my previous email:
"Result is no
I get error:
"Result is not available"
at line:
"change_bgcolor("Label" & rsThesi!thesi)"
of the code:
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
0")
rsThesi.MoveFirst
Dimitri
I changed it to your proposed option and I get :
"Result is not available"
error at line:
SELECT CASE rsThesi!thesi
I do not know why it doesn't read the Result from database!!!
You are right about the grid option. It looks more logical for 100 Labels!
But I have made an image and put
Since I did not want to make labels on run time, I got a solution to show red
color as following:
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
0")
WHILE iD
Thanks for the answer Dimitri.
You also caught error No 2 with the 2nd solution:
$alblTime.Resize(100)
FOR iD = 0 TO rsThesi.Count - 1
$alblTime[iD] = NEW Label(ME)
$alblTime[iD].Background = Color.Red
NEXT
MODMain.$Con.Commit()
END
The form wit
Here is the new routine with all the testings that I tried:
PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
ME.Title = "Σχέδιο θέσεων Camping"
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where el
I changed it as you said :
PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
0")
FOR iD = 0 TO rsThesi!AA
i = r
Hello,
I want to change the color of about 100 Labels of a form according to the
values of a table in the database.
If the value of the field thesi is 12, I want to make Label12 look red (with
red background color).
For this purpose I made the following :
PUBLIC SUB Form_Open()
DIM rsThesi AS
Thank you Dimitri
That was it !!!
I made so many efforts today to find out what was wrong.
But most of the times the solution is in front of our eyes and we cannot see
it !!!
--
Come build with us! The BlackBerry(R) D
Hello again,
I have a strange little problem with my database (Mysql) queries.
I make many queries and updates together with the click of a button.
When I make the queries and updates without using any of the results then
everything works fine !!
When I want to use a part of the results I get th
Is there any chance to find out why I get the message:
Access forbidden at the following Sub? And of course to make it work?
PUBLIC SUB bEktiposi_Click()
DIM hPrinter AS Printer
DIM hFile AS File
hPrinter = OPEN "dev/lp1" FOR OUTPUT
hPrinter.EndOfLine = gb.Windows
You are right!
It works without root privileges with:
echo "this is a test"" | lpr -P lpt2
but it feeds all the paper !!
I 'll try to find a way not to feed the paper !!
--
Come build with us! The BlackBerry® Develope
It is a typogriphic error.
I wrote it as "/dev/lp1"
--
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take Bl
Thank you all for your help.
I have tried the following printing SUB:
PUBLIC SUB bEktiposi_Click()
DIM hPrinter AS Printer
DIM hFile AS File
hPrinter = OPEN "dev/lp1" FOR OUTPUT
hPrinter.EndOfLine = gb.Windows
PRINT #hFile, "test a line: ";
CLOSE hP
I do not understand how exactly to use :
cat file > /dev/lp0
or
echo "test" > /dev/lp0
Could you be more specific?
Ευχαριστώ Δημοσθένη!
Thanks Demosthenis!
--
Come build with us! The BlackBerry® Developer Conference in
Actually it is a serial matrix impact printer (panasonic KX-P1150) with a 9
pins head and parallel port (LTP)
So I think it is only possible to print with Shell command like
SHELL lp -d ltp2 printfile.ps
I only need an example for this action. If somebody has done it before it
would be nice to
I have an 9 pins printer for this job.
If I understood well I have to make a file with the line that I want to print
then I shall use the SHELL command to send it directly to the printer lp1:
SHELL lp -d lpt2 printfile.ps
I need a small example to get it to work.
I also need the printer to feed
Hello,
I want to print one line each time in order to keep the entrance book of a
little hotel.
I want to print one line each time.
How can I do it?
With SHELL command it can only print files.
I have tried:
SHELL "lp1 tEpitheto.Text" WAIT
(where tEpitheto.Text is the text I want to print)
but
44 matches
Mail list logo
