Search found 172 matches

by cogier
Saturday 17th February 2018 4:25pm
Forum: General
Topic: Current forum
Replies: 3
Views: 267

Re: Current forum

Hi Bill and welcome, This is not an official forum. As far as I know there is only the mailing list http://lists.gambas-basic.org/listinfo/user but something may happen here soon http://www.gambas-basic.org/ . We set this up when 'gambas.guru' closed. I was hoping to get more traffic that we do, see...
by cogier
Thursday 15th February 2018 9:38pm
Forum: General
Topic: Writing a simple text file
Replies: 5
Views: 408

Re: Writing a simple text file

Why does Gambas default to the root directory? If you were running a Distro like Puppy that gives you access to all the directories without the need to use 'sudo' or root passwords Gambas will happily put your new file in the 'root' directory. This is fine but allows you to really screw things up v...
by cogier
Thursday 15th February 2018 10:30am
Forum: General
Topic: Writing a simple text file
Replies: 5
Views: 408

Re: Writing a simple text file

Hi and welcome. If I read your request correctly there is a very easy way to do this in Gambas. The reason you are getting "Access forbidden" is because you are trying to write your file to the root directory which you are not allowed to do. Your 'Home' directory is the place to save your file and G...
by cogier
Sunday 11th February 2018 3:08pm
Forum: General
Topic: Raspberry Pi camera module
Replies: 30
Views: 2513

Re: Raspberry Pi camera module

OK. I suggest you add the following code at line 79 to create 'param.par' if it does not exist If Not Exist(User.home &/ "param.par") Then File.Save(User.home &/ "param.par", "") I changed all references to the RamDrive to /tmp (not /tmp1) and added the following 'Sub' which I took from 'PiCam'. Pub...
by cogier
Thursday 08th February 2018 3:28pm
Forum: General
Topic: Raspberry Pi camera module
Replies: 30
Views: 2513

Re: Raspberry Pi camera module

Hi Sony, I got the LibWiringPi sorted :D Then at line 78 I got error 'File of directory does not exist' :o nf = "~/param.par" hfile = Open nf for Input I REMed that out then I got another error at Line 180, 'Unable to load picture' :? hMyPic = Picture.Load("/var/tmp1/sample.jpg") What am I missing?
by cogier
Wednesday 07th February 2018 8:29am
Forum: Lounge
Topic: so silent
Replies: 6
Views: 444

Re: so silent

Code: Select all

My latest project still use camera module with RPi and run with your help.
I'm interested in this. Have you got some code we can look at. I wrote PiCamera which is on the Farm if that helps.
by cogier
Saturday 03rd February 2018 11:55am
Forum: Lounge
Topic: so silent
Replies: 6
Views: 444

Re: so silent

Hi sony, It is a shame that there is not more activity on the site but it seems that Gambas is a niche programming language. I would expect a little more traffic when you see the amount of downloads some of the 'Farm' software gets. I put an email address in the programs I publish but I have only ha...
by cogier
Monday 15th January 2018 3:16pm
Forum: General
Topic: 'Ends'
Replies: 2
Views: 302

Re: 'Ends'

Excellent! Well using that method you could shorten: -
TextBox1.Text = Mid((Last.name), InStr(Last.name, "Button") + Len("Button"))
To
TextBox1.Text = Mid(Last.name, InStr(Last.name, "Button") + 6)
It just goes to show that there is always another way to do things. :D
by cogier
Sunday 14th January 2018 5:14pm
Forum: General
Topic: 'Ends'
Replies: 2
Views: 302

'Ends'

I have discovered a very useful tool in the Gambas toolbox 'Ends' so I thought I would share it with you.

Handle all the controls in the program below in 5 lines of code: -
Example of Ends.png
Example of Ends.png (169.4 KiB) Viewed 302 times
Example_of_Ends.tar
(97 KiB) Downloaded 37 times
by cogier
Wednesday 10th January 2018 3:58pm
Forum: General
Topic: Gridview borders
Replies: 6
Views: 655

Re: Gridview borders

I did a bit of digging into CSS syntax and came up with this modification to sevedee's code. hTimer As Timer siCount As Short Public Sub Form_Open() Dim hBorder As Border hTimer = New Timer As "Timer1" hTimer.start hBorder = New Border 'specify cell border With hBorder .Width = 5 .Color = Color.Red ...