Nabble - Plua

Plua accesses Visor Springboard

2009-09-05T11:04:54Z

I don't know if there are many old Handspring Visor fans out there, but I wrote a simple C extension that can be called from Plua2 to access the Springboard address space. So far this lets me read individual bytes off my flash backup cards, but it should enable you to read and write to any home-made hardware that you hook up. I'll try uploading the extension and some sample Lua code to the Files area here, if anyone is interested.

My main interest is getting one of the wireless SDIO cards from PalmOne or SanDisk to work on my Visors. If anyone is at all knowledgable about these, please let me know.

Thanks,
rolio

Re: New here!

2009-07-30T14:58:03Z

Hi Daniel. Welcome to Plua.

--- On Thu, 7/30/09, Daniel <buda_to_einstein@...> wrote:

From: Daniel <buda_to_einstein@...>
Subject: [plua] New here!
To: plua@...
Date: Thursday, July 30, 2009, 6:49 PM

Hi.
This is exactly what I was looking for. Thanks a lot. I will be sending progress results :D
Thanks a lot again!

[Non-text portions of this message have been removed]

New here!

2009-07-30T08:49:07Z

Hi.
This is exactly what I was looking for. Thanks a lot. I will be sending progress results :D
Thanks a lot again!

Re: Wiki Plua

2009-07-23T18:20:36Z

The images are useful for uploading screenshots. Of course, i will upload some.

And i recommend checking the "Recent Changes" page, and the "Discussion page" of the main page has became a whiteboard of discussion on general organisation, mainly to help the group clear of those things. Of course, here is the pace for discussion and helpp, but i think it will be better if we have a "Everithing you always wanted to know on..." for graphic buttons, sound samples, and so on.

--- In plua@..., Helton Eduardo Ritter <heltonritter@...> wrote:

>
> "Will it contain images, huh?" => I'm testing yet, and there is disabled. I
> will enabled it (I only must know how make it ...)
>
> Yes, is a good tip make links in all pages.
>
> My sugestion: put a link of "working" pages at "main", is more easy to other
> people revise it.
>
> Bye.
>
> On Thu, Jul 23, 2009 at 8:22 PM, ibelcomputing
> <ibelcomputing@...>wrote:
>
> >
> >
> > Ok, now there are some content to start from. Since Plua has two flavours,
> > 1 and 2, lets redirect the plua 1 functions to their plua2
> > counterparted-named articles. Indeed, the article can have both
> > descriptions, as well as the arguments explained and some examples using the
> > command. The command lists created by Blade412412 are isolated, and don't
> > have any links to the mentioned pages (in fact, they don't exist), as the
> > plua2 commands are not included, a table can be created like: Plua1 Plua2
> > Description.
> >
> > As it can be read on my user (personal, own, etc) page, i'm too lazy to
> > read all the wikidocs, so i think i'll stick on editing existing pages. Can
> > someone create the redirectors? I can do the rest (if you provide me with
> > basic wikipedia-like formatting, this is, like subtitle formatting, the
> > tables or uploading images. ) Will it contain images, huh?
> >
> > This "Help me using the wiki" fashioned post is part targeted to certain
> > user on this group, who i've contacted for help. But it haves some
> > warm-minded ideas.
> >
> > Well, i'm here willing to help.
> >
> > PS. if my english reads... "cheesy" or "rough" as some people have
> > warned... I'm not using a translator, and EN is not my mother tongue. (but i
> > don't mind it too much, since i'm not the only one...)
> >
> >
> >
>
>
>
> --
> --
> Helton Eduardo Ritter
> www.sourcedreams.com.br
> www.phpmagazine.org.br
> livehelton.blogspot.com
> vonluawelt.blogspot.com
> includec.blogspot.com
> foojava.blogspot.com
> www.setrem.com.br,
>
> "If you want to make your dreams come true, the first thing you have to do
> is wake up."(J. M. Power)
>
> "Die Grenzen meiner Sprache bedeuten die Grenzen meiner Welt"(Ludwig
> Wittgenstein)
>
>
> [Non-text portions of this message have been removed]
>

Re: Re: Wiki Plua

2009-07-23T17:33:49Z

oK, uploads are enabled now.

[Non-text portions of this message have been removed]

About gui.sethandler

2009-07-23T17:23:01Z

Plua2 gurus: How can i set a handler for the screen tap (1) event, and pass the arguments that derive from a common while & gui.event combo, in this case, the coordinates, to the handler function? Is it possible?

Re: Re: Wiki Plua

2009-07-23T17:12:32Z

"Will it contain images, huh?" => I'm testing yet, and there is disabled. I
will enabled it (I only must know how make it ...)

Yes, is a good tip make links in all pages.

My sugestion: put a link of "working" pages at "main", is more easy to other
people revise it.

Bye.

On Thu, Jul 23, 2009 at 8:22 PM, ibelcomputing
<ibelcomputing@...>wrote:

>
>
> Ok, now there are some content to start from. Since Plua has two flavours,
> 1 and 2, lets redirect the plua 1 functions to their plua2
> counterparted-named articles. Indeed, the article can have both
> descriptions, as well as the arguments explained and some examples using the
> command. The command lists created by Blade412412 are isolated, and don't
> have any links to the mentioned pages (in fact, they don't exist), as the
> plua2 commands are not included, a table can be created like: Plua1 Plua2
> Description.
>
> As it can be read on my user (personal, own, etc) page, i'm too lazy to
> read all the wikidocs, so i think i'll stick on editing existing pages. Can
> someone create the redirectors? I can do the rest (if you provide me with
> basic wikipedia-like formatting, this is, like subtitle formatting, the
> tables or uploading images. ) Will it contain images, huh?
>
> This "Help me using the wiki" fashioned post is part targeted to certain
> user on this group, who i've contacted for help. But it haves some
> warm-minded ideas.
>
> Well, i'm here willing to help.
>
> PS. if my english reads... "cheesy" or "rough" as some people have
> warned... I'm not using a translator, and EN is not my mother tongue. (but i
> don't mind it too much, since i'm not the only one...)
>
>
>

--
--
Helton Eduardo Ritter
www.sourcedreams.com.br
www.phpmagazine.org.br
livehelton.blogspot.com
vonluawelt.blogspot.com
includec.blogspot.com
foojava.blogspot.com
www.setrem.com.br,

"If you want to make your dreams come true, the first thing you have to do
is wake up."(J. M. Power)

"Die Grenzen meiner Sprache bedeuten die Grenzen meiner Welt"(Ludwig
Wittgenstein)

[Non-text portions of this message have been removed]

Re: Wiki Plua

2009-07-23T16:22:45Z

Ok, now there are some content to start from. Since Plua has two flavours, 1 and 2, lets redirect the plua 1 functions to their plua2 counterparted-named articles. Indeed, the article can have both descriptions, as well as the arguments explained and some examples using the command. The command lists created by Blade412412 are isolated, and don't have any links to the mentioned pages (in fact, they don't exist), as the plua2 commands are not included, a table can be created like: Plua1 Plua2 Description.

As it can be read on my user (personal, own, etc) page, i'm too lazy to read all the wikidocs, so i think i'll stick on editing existing pages. Can someone create the redirectors? I can do the rest (if you provide me with basic wikipedia-like formatting, this is, like subtitle formatting, the tables or uploading images. ) Will it contain images, huh?

This "Help me using the wiki" fashioned post is part targeted to certain user on this group, who i've contacted for help. But it haves some warm-minded ideas.

Well, i'm here willing to help.

PS. if my english reads... "cheesy" or "rough" as some people have warned... I'm not using a translator, and EN is not my mother tongue. (but i don't mind it too much, since i'm not the only one...)

Re: Re: Wiki Plua

2009-07-22T15:50:47Z

Cool friends, thanks for receptivity.

Exactly, the wiki will be constructed from scratch, and naturally must talk
some questions about Lua too.

My free time like your is short, and my
programms<http://code.google.com/p/palm-sdmm/>under plua are paused
now, in this semester i'm matriculated only in 3
classes at college, i hope got more time for this :)

http://wikiplua.sourcedreams.com.br (add to your favorites)

Bye.

On Tue, Jul 21, 2009 at 12:00 PM, ibelcomputing
<ibelcomputing@...>wrote:

>
>
> Cool!
>
> I've been watching this group lately, but due my lack of time i haven't
> uploaded anything. I think i'll start on that wiki.
>
> I assume that one will be from scratch, this is, even "What is a table?"
> stuff added? I like the wiki idea a lot.
>
> ...Mainly because i haven't migrated to plua2 yet, and on NVFS devices my
> apps fail... (Namely if i use strupper or strlower.)
>
> Ok then, IOPending. :P
>
> URL:
>
> http://wikiplua.sourcedreams.com.br (add to your favorites)
>
>
>

Resources

2009-07-21T18:04:32Z

I use pilrc to compile the *.rcp files, there is an editor (like guikachu) or an reference book to edit these files?

Is it possible to use Palm OS Resource Editor (provided by ACCESS/PalmSource) to generate files that can be used with plua/plua2c?

Thanks,

Re: Plua on LifeDrive

2009-07-21T17:49:59Z

Alberto Cruz Vivero wrote:

Hi.

I have not found any way to use the entire screen. And since that's not a command for allocating/switching it, i assume that it can't be used on portrait / landscape.

And plua can't (natively) manage forms on a RCP or on a PRC. (tFRM)

...That natively is if you want to investigate the tFRM format and want to code an interpreter for plua...

Sorry, both answers were negative...

Regards.

Thankyou for the reply.

This is the only ways to use the 320x480 resolution capabilities?
If is, I already saw applications (not written in plua) that can take the full screen, even the home buttons are hidden, there is a way to do this in plua?

Thanks.

Re: Plua on LifeDrive

2009-07-21T08:04:51Z

--- In plua@..., marcelofrau <marcelofrau@...> wrote:

>
>
> Hi,
>
> Is it possible to use plua on the LifeDrive using all the 320x480 pixels?
> Using the gui.main() opens a form with the size of old palm apps (using
> 320x320)
> There is a way to create a form that uses all the screen?
> Using the Palm Resource Editor, I can create a form with 320x480, there is a
> way to use a form located on a resource file (rcp)??
>
>
> --
> View this message in context: http://www.nabble.com/Plua-on-LifeDrive-tp24580349p24580349.html
> Sent from the Plua mailing list archive at Nabble.com.
>

Hi.

I have not found any way to use the entire screen. And since that's not a command for allocating/switching it, i assume that it can't be used on portrait / landscape.

And plua can't (natively) manage forms on a RCP or on a PRC. (tFRM)

...That natively is if you want to investigate the tFRM format and want to code an interpreter for plua...

Sorry, both answers were negative...

Regards.

Re: Wiki Plua

2009-07-21T08:00:57Z

Cool!

I've been watching this group lately, but due my lack of time i haven't uploaded anything. I think i'll start on that wiki.

I assume that one will be from scratch, this is, even "What is a table?" stuff added? I like the wiki idea a lot.

...Mainly because i haven't migrated to plua2 yet, and on NVFS devices my apps fail... (Namely if i use strupper or strlower.)

Ok then, IOPending. :P

URL:
http://wikiplua.sourcedreams.com.br (add to your favorites)

Plua on LifeDrive

2009-07-20T18:34:15Z

Hi,

Is it possible to use plua on the LifeDrive using all the 320x480 pixels?
Using the gui.main() opens a form with the size of old palm apps (using 320x320)
There is a way to create a form that uses all the screen?
Using the Palm Resource Editor, I can create a form with 320x480, there is a way to use a form located on a resource file (rcp)??

Re: Wiki Plua

2009-07-20T16:59:06Z

Thank you Helton !
Let's see what kind of help we can get to keep some nice pLua content
there....

Best
Dado

On Mon, Jul 20, 2009 at 20:41, Helton Eduardo Ritter <heltonritter@...
> wrote:

>
>
> Hello.
>
> Well, my english is bad ;) But I want announce the wikiPlua site:
> http://wikiplua.sourcedreams.com.br (add to your favorites )
>
> No have content now, is a wikimedia instalation. The content is free, the
> site is hosted on my personal domain (I can mantein it), but if in the
> future a group will change a host.. no problems, the content not is mine.
>
> This wiki was created because a dificulty to share tips, programs or files
> in this group.
>
> I hope that help to Plua not die.
>
> If you have a tip, article, tutorial, please contribute.
>
> Best regards, Helton.
>
> --
> --
> Helton Eduardo Ritter
> www.sourcedreams.com.br
> www.phpmagazine.org.br
> livehelton.blogspot.com
> vonluawelt.blogspot.com
> includec.blogspot.com
> foojava.blogspot.com
> www.setrem.com.br,
>
> "If you want to make your dreams come true, the first thing you have to do
> is wake up."(J. M. Power)
>
> "Die Grenzen meiner Sprache bedeuten die Grenzen meiner Welt"(Ludwig
> Wittgenstein)
>
> [Non-text portions of this message have been removed]
>
>
>

[Non-text portions of this message have been removed]

Wiki Plua

2009-07-20T16:41:20Z

Hello.

Well, my english is bad ;) But I want announce the wikiPlua site:
http://wikiplua.sourcedreams.com.br (add to your favorites )

No have content now, is a wikimedia instalation. The content is free, the
site is hosted on my personal domain (I can mantein it), but if in the
future a group will change a host.. no problems, the content not is mine.

This wiki was created because a dificulty to share tips, programs or files
in this group.

I hope that help to Plua not die.

If you have a tip, article, tutorial, please contribute.

Best regards, Helton.

--
--
Helton Eduardo Ritter
www.sourcedreams.com.br
www.phpmagazine.org.br
livehelton.blogspot.com
vonluawelt.blogspot.com
includec.blogspot.com
foojava.blogspot.com
www.setrem.com.br,

"If you want to make your dreams come true, the first thing you have to do
is wake up."(J. M. Power)

"Die Grenzen meiner Sprache bedeuten die Grenzen meiner Welt"(Ludwig
Wittgenstein)

[Non-text portions of this message have been removed]

Someone please reach Marcio...

2009-07-15T12:05:10Z

..and make him release the ownership of this group or enable uploads, so members can upload files.

If you read this Marcio, we miss you and want Plua survive.

PluaDoc as PDF...

2009-07-15T12:02:45Z

I compiled the Plua documentation as a PDF file and posted the file on a e-document sharing site. The site is secure and free of malicious software and viruses. Besides you will find thousands of online books there. Must register though. Here is the link:

http://www.scribd.com/doc/17171115/PluaDocumentation

Re: GUI Problem....

2009-07-09T09:24:40Z

uuuuuuy... yah, duh. I think I see what's going on. Thanks for the tip. I also forgot to put my end statement on my function, (although it's correct in the program, and of course wasn't the problem). So I've fixed that for your viewing pleasure.

--- In plua@..., Emil Tchekov <etchekov@...> wrote:

>
>
> Hi,
>
> you should not call screen.clear() after creating the label... Thats why you can not see it - created and mikroseconds later destroyed (overdrawn) again.
>
> very best regards
>
> Emil
>
> P.S. Just put screen.clear() directly after gui.destroy()...
>
> --- jimmy joe jack <wildcard_seven@...> schrieb am Do, 9.7.2009:
>
> > Von: jimmy joe jack <wildcard_seven@...>
> > Betreff: [plua] GUI Problem....
> > An: plua@...
> > Datum: Donnerstag, 9. Juli 2009, 7:30
> > Hey, I was wondering about something.
> > I'm a little tired and a bit hazy about what to do with this
> > myself, so hopefully this is clear.
> >
> > Basically, for giggles, I'm building like a budget
> > calculator. I want it to have tabs for four pages at the
> > top, so I switch to one screen I can total up my bills,
> > another one my food...etc.
> >
> > Not being an experienced programmer (at all), my method of
> > creating "new screens" was to do a gui.destroy within a
> > function and build a whole new page within a function, when
> > a certain button is pressed. But after I put gui.destroy(),
> > it seems like it won't let me put any new GUI stuff after.
> > Like my "FOOD" label. Here's the code (so far). Hope this
> > makes sense.
> >
> > CODE EDITED:

> > function page2()
> > gui.destroy()
> > screen.clear()
> > screen.moveto(0,40)
> > gui.label("FOOD")
end

> >
> >
> > screen.clear()
> > gui.title("Budget Calculator")
> > gui.menu({"exit"})
> > screen.moveto(220,0)
> > p1=gui.pbutton("1",1)
> > p2=gui.pbutton("2",1)
> > p3=gui.pbutton("3",1)
> > p4=gui.pbutton("4",1)
> >
> > screen.moveto(0, 40)
> > gui.label("BILLS:")
> > screen.moveto(0,80)
> > gui.label("Car Insurance")
> > screen.moveto(150,80)
> > gui.label("$")
> > field1=gui.field(1,6,6,e)
> >
> > gui.inserttext(field1,"hello")
> >
> > screen.moveto(0,100)
> > gui.label("House Payment")
> > screen.moveto(150,100)
> > gui.label("$")
> > field2=gui.field(1,6,6,e)
> >
> > screen.moveto(0,120)
> > gui.label("Gas")
> > screen.moveto(150,120)
> > gui.label("$")
> > field3=gui.field(1,6,6,e)
> >
> > screen.moveto(0,140)
> > gui.label("Electric")
> > screen.moveto(150,140)
> > gui.label("$")
> > field4=gui.field(1,6,6,e)
> >
> > screen.moveto(0,160)
> > gui.label("Water")
> > screen.moveto(150,160)
> > gui.label("$")
> > field5=gui.field(1,6,6,e)
> >
> > screen.moveto(0,180)
> > gui.label("Garbage")
> > screen.moveto(150,180)
> > gui.label("$")
> > field6=gui.field(1,6,6,e)
> >
> > screen.moveto(0,200)
> > gui.label("Association Fee")
> > screen.moveto(150,200)
> > gui.label("$")
> > field7=gui.field(1,6,6,e)
> >
> > screen.moveto(0,220)
> > gui.label("Internet")
> > screen.moveto(150,220)
> > gui.label("$")
> > field8=gui.field(1,6,6,e)
> >
> > screen.moveto(0,240)
> > gui.label("Car Gas")
> > screen.moveto(150,240)
> > gui.label("$")
> > field9=gui.field(1,6,6,e)
> >
> >
> > while true do
> > ev,id=gui.event()
> > if ev==appStop then break end
> > if ev==menuSelect and id==1 then os.exit() end
> > if ev==ctlSelect and id==p2 then page2() end
> > end
> >
> > gui.main()
> >

end

> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> >
> > mailto:plua-fullfeatured@...
> >
> >
> >
>

AW: GUI Problem....

2009-07-08T23:33:31Z

Hi,

you should not call screen.clear() after creating the label... Thats why you can not see it - created and mikroseconds later destroyed (overdrawn) again.

very best regards

Emil

P.S. Just put screen.clear() directly after gui.destroy()...

--- jimmy joe jack <wildcard_seven@...> schrieb am Do, 9.7.2009:

> Von: jimmy joe jack <wildcard_seven@...>
> Betreff: [plua] GUI Problem....
> An: plua@...
> Datum: Donnerstag, 9. Juli 2009, 7:30
> Hey, I was wondering about something.
> I'm a little tired and a bit hazy about what to do with this
> myself, so hopefully this is clear.
>
> Basically, for giggles, I'm building like a budget
> calculator. I want it to have tabs for four pages at the
> top, so I switch to one screen I can total up my bills,
> another one my food...etc.
>
> Not being an experienced programmer (at all), my method of
> creating "new screens" was to do a gui.destroy within a
> function and build a whole new page within a function, when
> a certain button is pressed. But after I put gui.destroy(),
> it seems like it won't let me put any new GUI stuff after.
> Like my "FOOD" label. Here's the code (so far). Hope this
> makes sense.
>
>
> function page2()
> gui.destroy()
> screen.clear()
> screen.moveto(0,40)
> gui.label("FOOD")
>
>
> screen.clear()
> gui.title("Budget Calculator")
> gui.menu({"exit"})
> screen.moveto(220,0)
> p1=gui.pbutton("1",1)
> p2=gui.pbutton("2",1)
> p3=gui.pbutton("3",1)
> p4=gui.pbutton("4",1)
>
> screen.moveto(0, 40)
> gui.label("BILLS:")
> screen.moveto(0,80)
> gui.label("Car Insurance")
> screen.moveto(150,80)
> gui.label("$")
> field1=gui.field(1,6,6,e)
>
> gui.inserttext(field1,"hello")
>
> screen.moveto(0,100)
> gui.label("House Payment")
> screen.moveto(150,100)
> gui.label("$")
> field2=gui.field(1,6,6,e)
>
> screen.moveto(0,120)
> gui.label("Gas")
> screen.moveto(150,120)
> gui.label("$")
> field3=gui.field(1,6,6,e)
>
> screen.moveto(0,140)
> gui.label("Electric")
> screen.moveto(150,140)
> gui.label("$")
> field4=gui.field(1,6,6,e)
>
> screen.moveto(0,160)
> gui.label("Water")
> screen.moveto(150,160)
> gui.label("$")
> field5=gui.field(1,6,6,e)
>
> screen.moveto(0,180)
> gui.label("Garbage")
> screen.moveto(150,180)
> gui.label("$")
> field6=gui.field(1,6,6,e)
>
> screen.moveto(0,200)
> gui.label("Association Fee")
> screen.moveto(150,200)
> gui.label("$")
> field7=gui.field(1,6,6,e)
>
> screen.moveto(0,220)
> gui.label("Internet")
> screen.moveto(150,220)
> gui.label("$")
> field8=gui.field(1,6,6,e)
>
> screen.moveto(0,240)
> gui.label("Car Gas")
> screen.moveto(150,240)
> gui.label("$")
> field9=gui.field(1,6,6,e)
>
>
> while true do
> ev,id=gui.event()
> if ev==appStop then break end
> if ev==menuSelect and id==1 then os.exit() end
> if ev==ctlSelect and id==p2 then page2() end
> end
>
> gui.main()
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
> mailto:plua-fullfeatured@...
>
>
>

GUI Problem....

2009-07-08T22:30:38Z

Hey, I was wondering about something. I'm a little tired and a bit hazy about what to do with this myself, so hopefully this is clear.

Basically, for giggles, I'm building like a budget calculator. I want it to have tabs for four pages at the top, so I switch to one screen I can total up my bills, another one my food...etc.

Not being an experienced programmer (at all), my method of creating "new screens" was to do a gui.destroy within a function and build a whole new page within a function, when a certain button is pressed. But after I put gui.destroy(), it seems like it won't let me put any new GUI stuff after. Like my "FOOD" label. Here's the code (so far). Hope this makes sense.

function page2()
gui.destroy()
screen.clear()
screen.moveto(0,40)
gui.label("FOOD")

screen.clear()
gui.title("Budget Calculator")
gui.menu({"exit"})
screen.moveto(220,0)
p1=gui.pbutton("1",1)
p2=gui.pbutton("2",1)
p3=gui.pbutton("3",1)
p4=gui.pbutton("4",1)

screen.moveto(0, 40)
gui.label("BILLS:")
screen.moveto(0,80)
gui.label("Car Insurance")
screen.moveto(150,80)
gui.label("$")
field1=gui.field(1,6,6,e)

gui.inserttext(field1,"hello")

screen.moveto(0,100)
gui.label("House Payment")
screen.moveto(150,100)
gui.label("$")
field2=gui.field(1,6,6,e)

screen.moveto(0,120)
gui.label("Gas")
screen.moveto(150,120)
gui.label("$")
field3=gui.field(1,6,6,e)

screen.moveto(0,140)
gui.label("Electric")
screen.moveto(150,140)
gui.label("$")
field4=gui.field(1,6,6,e)

screen.moveto(0,160)
gui.label("Water")
screen.moveto(150,160)
gui.label("$")
field5=gui.field(1,6,6,e)

screen.moveto(0,180)
gui.label("Garbage")
screen.moveto(150,180)
gui.label("$")
field6=gui.field(1,6,6,e)

screen.moveto(0,200)
gui.label("Association Fee")
screen.moveto(150,200)
gui.label("$")
field7=gui.field(1,6,6,e)

screen.moveto(0,220)
gui.label("Internet")
screen.moveto(150,220)
gui.label("$")
field8=gui.field(1,6,6,e)

screen.moveto(0,240)
gui.label("Car Gas")
screen.moveto(150,240)
gui.label("$")
field9=gui.field(1,6,6,e)

while true do
ev,id=gui.event()
if ev==appStop then break end
if ev==menuSelect and id==1 then os.exit() end
if ev==ctlSelect and id==p2 then page2() end
end

gui.main()

Re: Why cant I upload files?

2009-07-03T10:21:36Z

Address: http://wikiplua.sourcedreams.com.br

and I'm downloading mediaWiki to install.

2009/7/3, Helton Eduardo Ritter <heltonritter@...>:

>
> I can provide a host (sub domain) to wiki page for plua.
>
> Tomorow, at morning (on Brasil) i will make it, and publish the address
> here. Yeah is more easy to share articles, code....
>
> Well, bye.
>
> 2009/7/3, Dado Sutter <dadosutter@...>:
>>
>>
>>
>> It seems that I've "lost" my buttons too :)
>> I don't see any way to upload files to the pLua site in Yahoo Groups,
>> although it has only 7% of the 100MB space used.
>> Maybe Marcio has blocked it after closing the project :(
>> Again, I might be able to setup and host a pLua Users Wiki, with space for
>> code sharing too. But I would need some help to maintain and manage it.
>>
>> Thanks a lot for sharing this Berkant.
>>
>> Best
>> Dado Sutter
>>
>> On Fri, Jul 3, 2009 at 12:43, Berkant Atay <berkant_atay@...<berkant_atay%40yahoo.com>>
>> wrote:
>>
>> >
>> >
>> > I used to upload files to this group's FILES section. But I see that I
>> lost
>> > the necessary buttons... Any ideas?
>> >
>> >
>> >
>>
>> [Non-text portions of this message have been removed]
>>
>>
>>
>
>
>
> --
> --
> Helton Eduardo Ritter
> www.sourcedreams.com.br
> www.phpmagazine.org.br
> livehelton.blogspot.com
> vonluawelt.blogspot.com
> includec.blogspot.com
> foojava.blogspot.com
> www.setrem.com.br,
>
> "If you want to make your dreams come true, the first thing you have to do
> is wake up."(J. M. Power)
>
> "Die Grenzen meiner Sprache bedeuten die Grenzen meiner Welt"(Ludwig
> Wittgenstein)
>
>
>

Re: Re: You are welcome.. (and some more demo code)

2009-07-03T10:11:13Z

Thank you all for helping to keep pLua rocking !!

Best
Dado

On Fri, Jul 3, 2009 at 13:34, jimmy joe jack <wildcard_seven@...>wrote:

>
>
> --- In plua@... <plua%40yahoogroups.com>, "Berkant Atay"
> <berkant_atay@...> wrote:
> >
> > Happy to see you having started writing your home code, jimmyjoejack.. I
> also code on my Treo in bed (till my wife kicks me out) :)
> >
> > Since I cannot upload files to the files section any more, I copy-pasted
> here some more demonstration codes I wrote. There are 9 programs separated
> with asterices. Just copy them in a new .txt file on your desktop, then copy
> these text files on your SD card's PALM\Programs\Plua\SRC folder, then
> change the extensions to lower case ".lua". You can access and run them in
> Plua after changing to "Card"...
> >
> > Here we go...
> >
> >
> > *********************************************************************
> >
> > -- ** Combinatorial Mathematics **
> >
> > function fact(x)
> > local mult=1
> > for i=1,x do
> > mult=mult*i
> > end
> > return mult
> > end
> >
> > function getnumbers()
> > local p=gui.gettext(num1field)
> > if p=="" then gui.alert("You cannot leave a field blank.") return nil,nil
> end
> > if tonumber(p)==nil then gui.alert("Only numbers.") return end
> > p=tonumber(p)
> > if p~=tonumber(string.format("%d", p)) then gui.alert("Integral numbers
> please.") return nil,nil end
> > local q=gui.gettext(num2field)
> > if q=="" then gui.alert("You cannot leave a field blank.") return nil,nil
> end
> > if tonumber(q)==nil then gui.alert("Only numbers.") return end
> > q=tonumber(q)
> > if q~=tonumber(string.format("%d", q)) then gui.alert("Integral numbers
> please.") return nil,nil end
> > if p<q then gui.alert("First argument cannot be smaller than the
> second.") return nil,nil end
> > return p,q
> > end
> >
> > function permu()
> > local p,q=getnumbers()
> > if p==nil or q==nil then return end
> > screen.moveto(0,200)
> > print(" ")
> > print(" ")
> > print(" ")
> > screen.moveto(0,200)
> > local k=fact(p)/fact(p-q)
> > s=" The permutation of ( "..tostring(p).." , "..tostring(q).." ) is "
> > print(s)
> > print()
> > print(" ",k)
> > return
> > end
> >
> > function combi()
> > local p,q=getnumbers()
> > if p==nil or q==nil then return end
> > screen.moveto(0,200)
> > print(" ")
> > print(" ")
> > print(" ")
> > screen.moveto(0,200)
> > local k=fact(p)/(fact(q)*fact(p-q))
> > s=" The combination of ( "..tostring(p).." , "..tostring(q).." ) is "
> > print(s)
> > print()
> > print(" ",k)
> > return
> > end
> >
> > gui.title("COMBINATORIAL MATHEMATICS")
> > screen.moveto(10,50)
> > num1field=gui.field(1,10,10,"",not nil,nil)
> > screen.moveto(140,50)
> > num2field=gui.field(1,10,10,"",not nil,nil)
> > screen.moveto(5,100)
> > butcomb=gui.button("combination")
> > screen.moveto(133,100)
> > butperm=gui.button("permutation")
> > screen.moveto(180,270)
> > exitbtn=gui.button("Quit")
> > screen.rect(6,48,92,28)
> > screen.rect(132,48,92,28)
> > gui.setfocus(num1field)
> >
> > while true do
> > ev,id=gui.event()
> > if ev==appStop then break end
> > if ev==ctlSelect and id==butperm then permu() end
> > if ev==ctlSelect and id==butcomb then combi() end
> > if ev==ctlSelect and id==exitbtn then os.exit() end
> > end
> >
> >
> > *********************************************************************
> >
> >
> > -- ** Random colored disks, fun to watch.. **
> >
> > screen.clear()
> > while true do
> > x=math.random(320)
> > y=math.random(320)
> > c=screen.rgb(math.random()*256,math.random()*256,math.random()*256)
> > r1=math.random(160)
> > r2=math.random(160)
> > screen.disc(x,y,r1,r2,c)
> > ev=gui.event(0)
> > if ev==appStop then break end
> > end
> >
> >
> > **********************************************************************
> >
> >
> > -- ** Simple demostration game **
> >
> >
> > function initfile()
> > points=0
> > person={}
> > f,numrec=io.open("db:/Gamehigh.ber","r+")
> > if numrec==0 then person={"nobody",0}
> > data=bin.pack("SB", person)
> > f:createrec(string.len(data))
> > f:openrec(0)
> > f:write(data)
> > high=0
> > f:closerec() end
> > f:openrec(0)
> > data=f:read("*a")
> > person=bin.unpack("SB", data)
> > high=person[2]
> > f:closerec()
> > f:close()
> > end
> >
> > function play()
> > shots={}
> > gui.destroy()
> > for n=1,10 do
> > gui.title("Points: "..points)
> > for i=1,n do
> > if shots[i]==1 then screen.disc(120+i*16,14,8,6,screen.rgb(0,255,0))
> > else screen.disc(120+i*16,14,8,6,screen.rgb(255,0,0))
> > end
> > end
> > os.sleep(0.1+3*math.random())
> > x=math.random(300)+10
> > y=math.random(270)+40
> > screen.disc(x,y,10,10,screen.rgb(255,0,0))
> > t=os.clock()
> > while true do
> > ev,inx,iny=gui.event(0)
> > if ev==appStop then os.exit() end
> > if os.clock()-t>0.5 then break end
> > if ((ev==penDown)
> > and (inx>x-10) and (inx<x+10)
> > and (iny>y-10) and (iny<y+10))
> > then
> > points=points+1
> > screen.disc(x,y,10,10,screen.rgb(0,0,255))
> > os.sleep(0.1)
> > shots[n]=1
> > break end
> > end
> > end
> > end
> >
> > function trunk()
> > if points>high then
> > newrecname=gui.input("You broke the record ! Enter your name:")
> > person[1]=newrecname
> > person[2]=points
> > f=io.open("db:/Gamehigh.ber","r+")
> > f:removerec(0)
> > data=bin.pack("SB", person)
> > f:createrec(string.len(data))
> > f:openrec(0)
> > f:write(data)
> > f:closerec()
> > f:close()
> > high=points
> > end
> > screen.clear()
> > gui.title("Hunt 'em down ! !")
> > screen.moveto(130,180)
> > print("Last game points: "..points)
> > screen.moveto(130,210)
> > print("High score: "..high.." by "..person[1])
> > screen.moveto(130,130)
> > startbtn=gui.control{type="button",text="Start",width=100}
> > screen.moveto(250,270)
> > quitbtn=gui.button("Quit")
> > screen.moveto(80,80)
> > gui.label("Press Start to begin...")
> > points=0
> > end
> >
> >
> > initfile()
> > trunk()
> > while true do
> > e,v=gui.event()
> > if e==appStop then os.exit() end
> > if e==ctlSelect and v==startbtn then
> > play()
> > trunk()
> > end
> > if e==ctlSelect and v==quitbtn then os.exit() end
> > end
> >
> >
> > *********************************************************************
> >
> >
> > -- ** Reflecting ball on screen **
> > -- ** You can also draw a full circle, but buffering makes it slightly
> faster.**
> >
> > screen.clear(0)
> > bufempty=buffer.get(0,0,10,10)
> > screen.disc(5,5,5,5,16777215)
> > buffull=buffer.get(0,0,10,10)
> >
> > function makecircle()
> > buffer.put(bufempty,xo,yo)
> > buffer.put(buffull,x,y)
> > end
> >
> > screen.clear(0)
> > x=50+math.random(130)
> > y=50+math.random(130)
> > repeat
> > xd=math.random(3)-1
> > until xd~=0
> > repeat
> > yd=math.random(3)-1
> > until yd~=0
> >
> > while true do
> > xo,yo=x,y
> > x=x+xd
> > y=y+yd
> > if x>315 then xd=math.random(3)-3
> > elseif x<5 then xd=math.random(3)
> > elseif y>315 then yd=math.random(3)-3
> > elseif y<5 then yd=math.random(3)
> > end
> > if gui.event(0)==appStop then break end
> > makecircle()
> > end
> >
> >
> > *********************************************************************
> >
> >
> > -- ** Draw on the screen **
> >
> > screen.clear(0)
> > white=screen.rgb(255,255,255)
> > while true do
> > ev,x,y = gui.event()
> > if ev==penDown then xo=x yo=y end
> > if ev ==penMove then
> > screen.line(xo,yo,x,y,white)
> > xo=x yo=y
> > elseif ev == appStop then os.exit()
> > end
> > end
> >
> >
> > *********************************************************************
> >
> >
> > -- ** Using sound.tone and slider **
> >
> > function ex()
> > screen.clear()
> > screen.moveto(70,150)
> > print("Thanks for using me...")
> > os.sleep(1)
> > os.exit()
> > end
> >
> > function act()
> > screen.font(7)
> > screen.moveto(10,280)
> > print(" ")
> > screen.moveto(10,280)
> > screen.color(screen.rgb(200,0,0),bckgrnd)
> > print("Now playing...")
> > sound.tone(freq,dur,vol)
> > screen.moveto(10,280)
> > print(" ")
> > screen.moveto(10,280)
> > screen.color(screen.rgb(0,160,0),bckgrnd)
> > print("Finished.")
> > end
> >
> > function pr()
> > screen.font(0)
> > screen.color(0,bckgrnd)
> > screen.moveto(240,147)
> > print(" ")
> > screen.moveto(240,147)
> > print(freq-1)
> > screen.moveto(260,187)
> > print(" ")
> > screen.moveto(260,187)
> > print(math.floor(dur/100)/10)
> > screen.moveto(260,227)
> > print(" ")
> > screen.moveto(260,227)
> > print(math.floor(vol*1.5625))
> > end
> >
> > bckgrnd=screen.rgb(190,190,250)
> > screen.clear(bckgrnd)
> > screen.moveto(10,30)
> > screen.color(screen.rgb(0,0,200),bckgrnd)
> > screen.font(7)
> > print("H I G H A U D I O")
> > screen.line(10,55,310,55)
> > screen.font(0)
> > screen.color(0,bckgrnd)
> > btnbeep=gui.control{type="button",text="S o u n
> d",x=150,y=80,width=80,height=40,font=1}
> >
> btnquit=gui.control{type="button",text="QUIT",x=270,y=280,width=36,height=20,font=3}
> > screen.moveto(40,220)
> > v=gui.slider(200,64)
> > screen.moveto(40,180)
> > d=gui.slider(200,10000)
> > screen.moveto(40,140)
> > f=gui.slider(200,9999)
> > screen.moveto(2,227) print("Vol")
> > screen.moveto(2,187) print("Time")
> > screen.moveto(2,147) print("Freq")
> > screen.moveto(294,227) print("%")
> > screen.moveto(294,187) print("sec")
> > screen.moveto(294,147) print("Hz")
> > freq,dur,vol=10001,0,1
> > pr()
> > gui.setfocus(btnbeep)
> >
> > while true do
> > ev,id,value=gui.event()
> > if ev==appStop then ex() end
> > if ev==ctlSelect and id==f then freq=10000+value end
> > if ev==ctlSelect and id==d then dur=value end
> > if ev==ctlSelect and id==v then vol=value end
> > if ev==ctlSelect and id==btnbeep then act() end
> > if ev==ctlSelect and id==btnquit then ex() end
> > pr()
> > end
> >
> >
> > **********************************************************************
> >
> >
> > -- ** Classic "Life" loop **
> > -- ** Ofcourse, having a 16x16 grid makes the loop faster.. **
> >
> > function init()
> > screen.clear()
> > cell={}
> > cellnext={}
> > for i=1,32 do cell[i]={} end
> > for i=1,32 do cellnext[i]={} end
> > for i=1,250 do
> > cell[math.random(32)][math.random(32)]=1
> > end
> > end
> >
> > function drawworld()
> > screen.clear()
> > for x=1,32 do
> > for y=1,32 do
> > if cell[x][y]==1 then screen.box((x-1)*10,(y-1)*10,8,8) end
> > end
> > end
> > end
> >
> > function tick()
> > for x=1,32 do
> > for y=1,32 do
> > sum=0
> > if x>1 and y>1 and cell[x-1][y-1]==1 then sum=sum+1 end
> > if y>1 and cell[x][y-1]==1 then sum=sum+1 end
> > if x<32 and y>1 and cell[x+1][y-1]==1 then sum=sum+1 end
> > if x>1 and cell[x-1][y]==1 then sum=sum+1 end
> > if x<32 and cell[x+1][y]==1 then sum=sum+1 end
> > if x>1 and y<32 and cell[x-1][y+1]==1 then sum=sum+1 end
> > if y<32 and cell[x][y+1]==1 then sum=sum+1 end
> > if x<32 and y<32 and cell[x+1][y+1]==1 then sum=sum+1 end
> > if sum<2 then cellnext[x][y]=0 end
> > if sum>3 then cellnext[x][y]=0 end
> > if (sum==2 or sum==3) and cell[x][y]==1 then cellnext[x][y]=1 end
> > if sum==3 and cell[x][y]==0 then cellnext[x][y]=1 end
> > end
> > end
> > cell=cellnext
> > end
> >
> > init()
> > while true do
> > if gui.event(0)==appStop then os.exit() end
> > drawworld()
> > tick()
> > end
> >
> >
> > **********************************************************************
> >
> >
> > -- ** Buffers can be used to show BMP
> > -- ** files, but not jpg's...
> >
> > screen.clear()
> > screen.moveto(70,50)
> > screen.font(7)
> > print("This is it !")
> >
> id,height,width=buffer.read("vfs0:/PALM/PROGRAMS/Plua/SRC/SUZUKIGSR600A-K7.bmp")
> -- for example, my bike's pic..
> > buffer.put(id,0,0,3)
> > screen.moveto(100,100)
> > screen.font(0)
> > g=gui.button("This") -- you can have gui elements on a foreground..
> > screen.line(0,0,320,320) --...or draw something on them..
> > gui.main()
> >
> >
> > **********************************************************************
> >
> >
> > -- ** scrolling text like in eReader etc.. **
> >
> > function newline()
> > buffer.use(vbuf)
> > screen.moveto(math.random(180),320)
> > print(math.random())
> > end
> >
> > vbuf=buffer.new(320,340)
> > newline()
> >
> > while true do
> > buffer.use()
> > for i=1,22 do
> > buffer.put(vbuf,0,-i)
> > --os.sleep(0.02) -- set the scrolling speed
> > if gui.event(0)==appStop then os.exit() end
> > end
> > buffer.free(vbuf)
> > vbuf=buffer.get(0,0,320,340)
> > newline()
> > end
> >
> >
> > **********************************************************************
> >
> > END OF FILES...
> >
>
> Dynamite. And thanks again. I'm sure I'll be tapping these for tips soon.
>
>
>

[Non-text portions of this message have been removed]

Re: You are welcome.. (and some more demo code)

2009-07-03T09:34:10Z

--- In plua@..., "Berkant Atay" <berkant_atay@...> wrote:

>
> Happy to see you having started writing your home code, jimmyjoejack.. I also code on my Treo in bed (till my wife kicks me out) :)
>
> Since I cannot upload files to the files section any more, I copy-pasted here some more demonstration codes I wrote. There are 9 programs separated with asterices. Just copy them in a new .txt file on your desktop, then copy these text files on your SD card's PALM\Programs\Plua\SRC folder, then change the extensions to lower case ".lua". You can access and run them in Plua after changing to "Card"...
>
> Here we go...
>
>
> *********************************************************************
>
> -- ** Combinatorial Mathematics **
>
> function fact(x)
> local mult=1
> for i=1,x do
> mult=mult*i
> end
> return mult
> end
>
> function getnumbers()
> local p=gui.gettext(num1field)
> if p=="" then gui.alert("You cannot leave a field blank.") return nil,nil end
> if tonumber(p)==nil then gui.alert("Only numbers.") return end
> p=tonumber(p)
> if p~=tonumber(string.format("%d", p)) then gui.alert("Integral numbers please.") return nil,nil end
> local q=gui.gettext(num2field)
> if q=="" then gui.alert("You cannot leave a field blank.") return nil,nil end
> if tonumber(q)==nil then gui.alert("Only numbers.") return end
> q=tonumber(q)
> if q~=tonumber(string.format("%d", q)) then gui.alert("Integral numbers please.") return nil,nil end
> if p<q then gui.alert("First argument cannot be smaller than the second.") return nil,nil end
> return p,q
> end
>
> function permu()
> local p,q=getnumbers()
> if p==nil or q==nil then return end
> screen.moveto(0,200)
> print(" ")
> print(" ")
> print(" ")
> screen.moveto(0,200)
> local k=fact(p)/fact(p-q)
> s=" The permutation of ( "..tostring(p).." , "..tostring(q).." ) is "
> print(s)
> print()
> print(" ",k)
> return
> end
>
> function combi()
> local p,q=getnumbers()
> if p==nil or q==nil then return end
> screen.moveto(0,200)
> print(" ")
> print(" ")
> print(" ")
> screen.moveto(0,200)
> local k=fact(p)/(fact(q)*fact(p-q))
> s=" The combination of ( "..tostring(p).." , "..tostring(q).." ) is "
> print(s)
> print()
> print(" ",k)
> return
> end
>
> gui.title("COMBINATORIAL MATHEMATICS")
> screen.moveto(10,50)
> num1field=gui.field(1,10,10,"",not nil,nil)
> screen.moveto(140,50)
> num2field=gui.field(1,10,10,"",not nil,nil)
> screen.moveto(5,100)
> butcomb=gui.button("combination")
> screen.moveto(133,100)
> butperm=gui.button("permutation")
> screen.moveto(180,270)
> exitbtn=gui.button("Quit")
> screen.rect(6,48,92,28)
> screen.rect(132,48,92,28)
> gui.setfocus(num1field)
>
> while true do
> ev,id=gui.event()
> if ev==appStop then break end
> if ev==ctlSelect and id==butperm then permu() end
> if ev==ctlSelect and id==butcomb then combi() end
> if ev==ctlSelect and id==exitbtn then os.exit() end
> end
>
>
> *********************************************************************
>
>
> -- ** Random colored disks, fun to watch.. **
>
> screen.clear()
> while true do
> x=math.random(320)
> y=math.random(320)
> c=screen.rgb(math.random()*256,math.random()*256,math.random()*256)
> r1=math.random(160)
> r2=math.random(160)
> screen.disc(x,y,r1,r2,c)
> ev=gui.event(0)
> if ev==appStop then break end
> end
>
>
> **********************************************************************
>
>
> -- ** Simple demostration game **
>
>
> function initfile()
> points=0
> person={}
> f,numrec=io.open("db:/Gamehigh.ber","r+")
> if numrec==0 then person={"nobody",0}
> data=bin.pack("SB", person)
> f:createrec(string.len(data))
> f:openrec(0)
> f:write(data)
> high=0
> f:closerec() end
> f:openrec(0)
> data=f:read("*a")
> person=bin.unpack("SB", data)
> high=person[2]
> f:closerec()
> f:close()
> end
>
> function play()
> shots={}
> gui.destroy()
> for n=1,10 do
> gui.title("Points: "..points)
> for i=1,n do
> if shots[i]==1 then screen.disc(120+i*16,14,8,6,screen.rgb(0,255,0))
> else screen.disc(120+i*16,14,8,6,screen.rgb(255,0,0))
> end
> end
> os.sleep(0.1+3*math.random())
> x=math.random(300)+10
> y=math.random(270)+40
> screen.disc(x,y,10,10,screen.rgb(255,0,0))
> t=os.clock()
> while true do
> ev,inx,iny=gui.event(0)
> if ev==appStop then os.exit() end
> if os.clock()-t>0.5 then break end
> if ((ev==penDown)
> and (inx>x-10) and (inx<x+10)
> and (iny>y-10) and (iny<y+10))
> then
> points=points+1
> screen.disc(x,y,10,10,screen.rgb(0,0,255))
> os.sleep(0.1)
> shots[n]=1
> break end
> end
> end
> end
>
> function trunk()
> if points>high then
> newrecname=gui.input("You broke the record ! Enter your name:")
> person[1]=newrecname
> person[2]=points
> f=io.open("db:/Gamehigh.ber","r+")
> f:removerec(0)
> data=bin.pack("SB", person)
> f:createrec(string.len(data))
> f:openrec(0)
> f:write(data)
> f:closerec()
> f:close()
> high=points
> end
> screen.clear()
> gui.title("Hunt 'em down ! !")
> screen.moveto(130,180)
> print("Last game points: "..points)
> screen.moveto(130,210)
> print("High score: "..high.." by "..person[1])
> screen.moveto(130,130)
> startbtn=gui.control{type="button",text="Start",width=100}
> screen.moveto(250,270)
> quitbtn=gui.button("Quit")
> screen.moveto(80,80)
> gui.label("Press Start to begin...")
> points=0
> end
>
>
> initfile()
> trunk()
> while true do
> e,v=gui.event()
> if e==appStop then os.exit() end
> if e==ctlSelect and v==startbtn then
> play()
> trunk()
> end
> if e==ctlSelect and v==quitbtn then os.exit() end
> end
>
>
> *********************************************************************
>
>
> -- ** Reflecting ball on screen **
> -- ** You can also draw a full circle, but buffering makes it slightly faster.**
>
> screen.clear(0)
> bufempty=buffer.get(0,0,10,10)
> screen.disc(5,5,5,5,16777215)
> buffull=buffer.get(0,0,10,10)
>
> function makecircle()
> buffer.put(bufempty,xo,yo)
> buffer.put(buffull,x,y)
> end
>
> screen.clear(0)
> x=50+math.random(130)
> y=50+math.random(130)
> repeat
> xd=math.random(3)-1
> until xd~=0
> repeat
> yd=math.random(3)-1
> until yd~=0
>
> while true do
> xo,yo=x,y
> x=x+xd
> y=y+yd
> if x>315 then xd=math.random(3)-3
> elseif x<5 then xd=math.random(3)
> elseif y>315 then yd=math.random(3)-3
> elseif y<5 then yd=math.random(3)
> end
> if gui.event(0)==appStop then break end
> makecircle()
> end
>
>
> *********************************************************************
>
>
> -- ** Draw on the screen **
>
> screen.clear(0)
> white=screen.rgb(255,255,255)
> while true do
> ev,x,y = gui.event()
> if ev==penDown then xo=x yo=y end
> if ev ==penMove then
> screen.line(xo,yo,x,y,white)
> xo=x yo=y
> elseif ev == appStop then os.exit()
> end
> end
>
>
> *********************************************************************
>
>
> -- ** Using sound.tone and slider **
>
> function ex()
> screen.clear()
> screen.moveto(70,150)
> print("Thanks for using me...")
> os.sleep(1)
> os.exit()
> end
>
> function act()
> screen.font(7)
> screen.moveto(10,280)
> print(" ")
> screen.moveto(10,280)
> screen.color(screen.rgb(200,0,0),bckgrnd)
> print("Now playing...")
> sound.tone(freq,dur,vol)
> screen.moveto(10,280)
> print(" ")
> screen.moveto(10,280)
> screen.color(screen.rgb(0,160,0),bckgrnd)
> print("Finished.")
> end
>
> function pr()
> screen.font(0)
> screen.color(0,bckgrnd)
> screen.moveto(240,147)
> print(" ")
> screen.moveto(240,147)
> print(freq-1)
> screen.moveto(260,187)
> print(" ")
> screen.moveto(260,187)
> print(math.floor(dur/100)/10)
> screen.moveto(260,227)
> print(" ")
> screen.moveto(260,227)
> print(math.floor(vol*1.5625))
> end
>
> bckgrnd=screen.rgb(190,190,250)
> screen.clear(bckgrnd)
> screen.moveto(10,30)
> screen.color(screen.rgb(0,0,200),bckgrnd)
> screen.font(7)
> print("H I G H A U D I O")
> screen.line(10,55,310,55)
> screen.font(0)
> screen.color(0,bckgrnd)
> btnbeep=gui.control{type="button",text="S o u n d",x=150,y=80,width=80,height=40,font=1}
> btnquit=gui.control{type="button",text="QUIT",x=270,y=280,width=36,height=20,font=3}
> screen.moveto(40,220)
> v=gui.slider(200,64)
> screen.moveto(40,180)
> d=gui.slider(200,10000)
> screen.moveto(40,140)
> f=gui.slider(200,9999)
> screen.moveto(2,227) print("Vol")
> screen.moveto(2,187) print("Time")
> screen.moveto(2,147) print("Freq")
> screen.moveto(294,227) print("%")
> screen.moveto(294,187) print("sec")
> screen.moveto(294,147) print("Hz")
> freq,dur,vol=10001,0,1
> pr()
> gui.setfocus(btnbeep)
>
> while true do
> ev,id,value=gui.event()
> if ev==appStop then ex() end
> if ev==ctlSelect and id==f then freq=10000+value end
> if ev==ctlSelect and id==d then dur=value end
> if ev==ctlSelect and id==v then vol=value end
> if ev==ctlSelect and id==btnbeep then act() end
> if ev==ctlSelect and id==btnquit then ex() end
> pr()
> end
>
>
> **********************************************************************
>
>
> -- ** Classic "Life" loop **
> -- ** Ofcourse, having a 16x16 grid makes the loop faster.. **
>
> function init()
> screen.clear()
> cell={}
> cellnext={}
> for i=1,32 do cell[i]={} end
> for i=1,32 do cellnext[i]={} end
> for i=1,250 do
> cell[math.random(32)][math.random(32)]=1
> end
> end
>
> function drawworld()
> screen.clear()
> for x=1,32 do
> for y=1,32 do
> if cell[x][y]==1 then screen.box((x-1)*10,(y-1)*10,8,8) end
> end
> end
> end
>
> function tick()
> for x=1,32 do
> for y=1,32 do
> sum=0
> if x>1 and y>1 and cell[x-1][y-1]==1 then sum=sum+1 end
> if y>1 and cell[x][y-1]==1 then sum=sum+1 end
> if x<32 and y>1 and cell[x+1][y-1]==1 then sum=sum+1 end
> if x>1 and cell[x-1][y]==1 then sum=sum+1 end
> if x<32 and cell[x+1][y]==1 then sum=sum+1 end
> if x>1 and y<32 and cell[x-1][y+1]==1 then sum=sum+1 end
> if y<32 and cell[x][y+1]==1 then sum=sum+1 end
> if x<32 and y<32 and cell[x+1][y+1]==1 then sum=sum+1 end
> if sum<2 then cellnext[x][y]=0 end
> if sum>3 then cellnext[x][y]=0 end
> if (sum==2 or sum==3) and cell[x][y]==1 then cellnext[x][y]=1 end
> if sum==3 and cell[x][y]==0 then cellnext[x][y]=1 end
> end
> end
> cell=cellnext
> end
>
> init()
> while true do
> if gui.event(0)==appStop then os.exit() end
> drawworld()
> tick()
> end
>
>
> **********************************************************************
>
>
> -- ** Buffers can be used to show BMP
> -- ** files, but not jpg's...
>
> screen.clear()
> screen.moveto(70,50)
> screen.font(7)
> print("This is it !")
> id,height,width=buffer.read("vfs0:/PALM/PROGRAMS/Plua/SRC/SUZUKIGSR600A-K7.bmp") -- for example, my bike's pic..
> buffer.put(id,0,0,3)
> screen.moveto(100,100)
> screen.font(0)
> g=gui.button("This") -- you can have gui elements on a foreground..
> screen.line(0,0,320,320) --...or draw something on them..
> gui.main()
>
>
> **********************************************************************
>
>
> -- ** scrolling text like in eReader etc.. **
>
> function newline()
> buffer.use(vbuf)
> screen.moveto(math.random(180),320)
> print(math.random())
> end
>
> vbuf=buffer.new(320,340)
> newline()
>
> while true do
> buffer.use()
> for i=1,22 do
> buffer.put(vbuf,0,-i)
> --os.sleep(0.02) -- set the scrolling speed
> if gui.event(0)==appStop then os.exit() end
> end
> buffer.free(vbuf)
> vbuf=buffer.get(0,0,320,340)
> newline()
> end
>
>
> **********************************************************************
>
> END OF FILES...
>

Dynamite. And thanks again. I'm sure I'll be tapping these for tips soon.

Re: Why cant I upload files?

2009-07-03T09:27:50Z

I can provide a host (sub domain) to wiki page for plua.

Tomorow, at morning (on Brasil) i will make it, and publish the address
here. Yeah is more easy to share articles, code....

Well, bye.

2009/7/3, Dado Sutter <dadosutter@...>:

>
>
>
> It seems that I've "lost" my buttons too :)
> I don't see any way to upload files to the pLua site in Yahoo Groups,
> although it has only 7% of the 100MB space used.
> Maybe Marcio has blocked it after closing the project :(
> Again, I might be able to setup and host a pLua Users Wiki, with space for
> code sharing too. But I would need some help to maintain and manage it.
>
> Thanks a lot for sharing this Berkant.
>
> Best
> Dado Sutter
>
> On Fri, Jul 3, 2009 at 12:43, Berkant Atay <berkant_atay@...<berkant_atay%40yahoo.com>>
> wrote:
>
> >
> >
> > I used to upload files to this group's FILES section. But I see that I
> lost
> > the necessary buttons... Any ideas?
> >
> >
> >
>
> [Non-text portions of this message have been removed]
>
>
>

You are welcome.. (and some more demo code)

2009-07-03T09:12:00Z

Happy to see you having started writing your home code, jimmyjoejack.. I also code on my Treo in bed (till my wife kicks me out) :)

Since I cannot upload files to the files section any more, I copy-pasted here some more demonstration codes I wrote. There are 9 programs separated with asterices. Just copy them in a new .txt file on your desktop, then copy these text files on your SD card's PALM\Programs\Plua\SRC folder, then change the extensions to lower case ".lua". You can access and run them in Plua after changing to "Card"...

Here we go...

*********************************************************************

-- ** Combinatorial Mathematics **

function fact(x)
local mult=1
for i=1,x do
mult=mult*i
end
return mult
end

function getnumbers()
local p=gui.gettext(num1field)
if p=="" then gui.alert("You cannot leave a field blank.") return nil,nil end
if tonumber(p)==nil then gui.alert("Only numbers.") return end
p=tonumber(p)
if p~=tonumber(string.format("%d", p)) then gui.alert("Integral numbers please.") return nil,nil end
local q=gui.gettext(num2field)
if q=="" then gui.alert("You cannot leave a field blank.") return nil,nil end
if tonumber(q)==nil then gui.alert("Only numbers.") return end
q=tonumber(q)
if q~=tonumber(string.format("%d", q)) then gui.alert("Integral numbers please.") return nil,nil end
if p<q then gui.alert("First argument cannot be smaller than the second.") return nil,nil end
return p,q
end

function permu()
local p,q=getnumbers()
if p==nil or q==nil then return end
screen.moveto(0,200)
print(" ")
print(" ")
print(" ")
screen.moveto(0,200)
local k=fact(p)/fact(p-q)
s=" The permutation of ( "..tostring(p).." , "..tostring(q).." ) is "
print(s)
print()
print(" ",k)
return
end

function combi()
local p,q=getnumbers()
if p==nil or q==nil then return end
screen.moveto(0,200)
print(" ")
print(" ")
print(" ")
screen.moveto(0,200)
local k=fact(p)/(fact(q)*fact(p-q))
s=" The combination of ( "..tostring(p).." , "..tostring(q).." ) is "
print(s)
print()
print(" ",k)
return
end

gui.title("COMBINATORIAL MATHEMATICS")
screen.moveto(10,50)
num1field=gui.field(1,10,10,"",not nil,nil)
screen.moveto(140,50)
num2field=gui.field(1,10,10,"",not nil,nil)
screen.moveto(5,100)
butcomb=gui.button("combination")
screen.moveto(133,100)
butperm=gui.button("permutation")
screen.moveto(180,270)
exitbtn=gui.button("Quit")
screen.rect(6,48,92,28)
screen.rect(132,48,92,28)
gui.setfocus(num1field)

while true do
ev,id=gui.event()
if ev==appStop then break end
if ev==ctlSelect and id==butperm then permu() end
if ev==ctlSelect and id==butcomb then combi() end
if ev==ctlSelect and id==exitbtn then os.exit() end
end

*********************************************************************

-- ** Random colored disks, fun to watch.. **

screen.clear()
while true do
x=math.random(320)
y=math.random(320)
c=screen.rgb(math.random()*256,math.random()*256,math.random()*256)
r1=math.random(160)
r2=math.random(160)
screen.disc(x,y,r1,r2,c)
ev=gui.event(0)
if ev==appStop then break end
end

**********************************************************************

-- ** Simple demostration game **

function initfile()
points=0
person={}
f,numrec=io.open("db:/Gamehigh.ber","r+")
if numrec==0 then person={"nobody",0}
data=bin.pack("SB", person)
f:createrec(string.len(data))
f:openrec(0)
f:write(data)
high=0
f:closerec() end
f:openrec(0)
data=f:read("*a")
person=bin.unpack("SB", data)
high=person[2]
f:closerec()
f:close()
end

function play()
shots={}
gui.destroy()
for n=1,10 do
gui.title("Points: "..points)
for i=1,n do
if shots[i]==1 then screen.disc(120+i*16,14,8,6,screen.rgb(0,255,0))
else screen.disc(120+i*16,14,8,6,screen.rgb(255,0,0))
end
end
os.sleep(0.1+3*math.random())
x=math.random(300)+10
y=math.random(270)+40
screen.disc(x,y,10,10,screen.rgb(255,0,0))
t=os.clock()
while true do
ev,inx,iny=gui.event(0)
if ev==appStop then os.exit() end
if os.clock()-t>0.5 then break end
if ((ev==penDown)
and (inx>x-10) and (inx<x+10)
and (iny>y-10) and (iny<y+10))
then
points=points+1
screen.disc(x,y,10,10,screen.rgb(0,0,255))
os.sleep(0.1)
shots[n]=1
break end
end
end
end

function trunk()
if points>high then
newrecname=gui.input("You broke the record ! Enter your name:")
person[1]=newrecname
person[2]=points
f=io.open("db:/Gamehigh.ber","r+")
f:removerec(0)
data=bin.pack("SB", person)
f:createrec(string.len(data))
f:openrec(0)
f:write(data)
f:closerec()
f:close()
high=points
end
screen.clear()
gui.title("Hunt 'em down ! !")
screen.moveto(130,180)
print("Last game points: "..points)
screen.moveto(130,210)
print("High score: "..high.." by "..person[1])
screen.moveto(130,130)
startbtn=gui.control{type="button",text="Start",width=100}
screen.moveto(250,270)
quitbtn=gui.button("Quit")
screen.moveto(80,80)
gui.label("Press Start to begin...")
points=0
end

initfile()
trunk()
while true do
e,v=gui.event()
if e==appStop then os.exit() end
if e==ctlSelect and v==startbtn then
play()
trunk()
end
if e==ctlSelect and v==quitbtn then os.exit() end
end

*********************************************************************

-- ** Reflecting ball on screen **
-- ** You can also draw a full circle, but buffering makes it slightly faster.**

screen.clear(0)
bufempty=buffer.get(0,0,10,10)
screen.disc(5,5,5,5,16777215)
buffull=buffer.get(0,0,10,10)

function makecircle()
buffer.put(bufempty,xo,yo)
buffer.put(buffull,x,y)
end

screen.clear(0)
x=50+math.random(130)
y=50+math.random(130)
repeat
xd=math.random(3)-1
until xd~=0
repeat
yd=math.random(3)-1
until yd~=0

while true do
xo,yo=x,y
x=x+xd
y=y+yd
if x>315 then xd=math.random(3)-3
elseif x<5 then xd=math.random(3)
elseif y>315 then yd=math.random(3)-3
elseif y<5 then yd=math.random(3)
end
if gui.event(0)==appStop then break end
makecircle()
end

*********************************************************************

-- ** Draw on the screen **

screen.clear(0)
white=screen.rgb(255,255,255)
while true do
ev,x,y = gui.event()
if ev==penDown then xo=x yo=y end
if ev ==penMove then
screen.line(xo,yo,x,y,white)
xo=x yo=y
elseif ev == appStop then os.exit()
end
end

*********************************************************************

-- ** Using sound.tone and slider **

function ex()
screen.clear()
screen.moveto(70,150)
print("Thanks for using me...")
os.sleep(1)
os.exit()
end

function act()
screen.font(7)
screen.moveto(10,280)
print(" ")
screen.moveto(10,280)
screen.color(screen.rgb(200,0,0),bckgrnd)
print("Now playing...")
sound.tone(freq,dur,vol)
screen.moveto(10,280)
print(" ")
screen.moveto(10,280)
screen.color(screen.rgb(0,160,0),bckgrnd)
print("Finished.")
end

function pr()
screen.font(0)
screen.color(0,bckgrnd)
screen.moveto(240,147)
print(" ")
screen.moveto(240,147)
print(freq-1)
screen.moveto(260,187)
print(" ")
screen.moveto(260,187)
print(math.floor(dur/100)/10)
screen.moveto(260,227)
print(" ")
screen.moveto(260,227)
print(math.floor(vol*1.5625))
end

bckgrnd=screen.rgb(190,190,250)
screen.clear(bckgrnd)
screen.moveto(10,30)
screen.color(screen.rgb(0,0,200),bckgrnd)
screen.font(7)
print("H I G H A U D I O")
screen.line(10,55,310,55)
screen.font(0)
screen.color(0,bckgrnd)
btnbeep=gui.control{type="button",text="S o u n d",x=150,y=80,width=80,height=40,font=1}
btnquit=gui.control{type="button",text="QUIT",x=270,y=280,width=36,height=20,font=3}
screen.moveto(40,220)
v=gui.slider(200,64)
screen.moveto(40,180)
d=gui.slider(200,10000)
screen.moveto(40,140)
f=gui.slider(200,9999)
screen.moveto(2,227) print("Vol")
screen.moveto(2,187) print("Time")
screen.moveto(2,147) print("Freq")
screen.moveto(294,227) print("%")
screen.moveto(294,187) print("sec")
screen.moveto(294,147) print("Hz")
freq,dur,vol=10001,0,1
pr()
gui.setfocus(btnbeep)

while true do
ev,id,value=gui.event()
if ev==appStop then ex() end
if ev==ctlSelect and id==f then freq=10000+value end
if ev==ctlSelect and id==d then dur=value end
if ev==ctlSelect and id==v then vol=value end
if ev==ctlSelect and id==btnbeep then act() end
if ev==ctlSelect and id==btnquit then ex() end
pr()
end

**********************************************************************

-- ** Classic "Life" loop **
-- ** Ofcourse, having a 16x16 grid makes the loop faster.. **

function init()
screen.clear()
cell={}
cellnext={}
for i=1,32 do cell[i]={} end
for i=1,32 do cellnext[i]={} end
for i=1,250 do
cell[math.random(32)][math.random(32)]=1
end
end

function drawworld()
screen.clear()
for x=1,32 do
for y=1,32 do
if cell[x][y]==1 then screen.box((x-1)*10,(y-1)*10,8,8) end
end
end
end

function tick()
for x=1,32 do
for y=1,32 do
sum=0
if x>1 and y>1 and cell[x-1][y-1]==1 then sum=sum+1 end
if y>1 and cell[x][y-1]==1 then sum=sum+1 end
if x<32 and y>1 and cell[x+1][y-1]==1 then sum=sum+1 end
if x>1 and cell[x-1][y]==1 then sum=sum+1 end
if x<32 and cell[x+1][y]==1 then sum=sum+1 end
if x>1 and y<32 and cell[x-1][y+1]==1 then sum=sum+1 end
if y<32 and cell[x][y+1]==1 then sum=sum+1 end
if x<32 and y<32 and cell[x+1][y+1]==1 then sum=sum+1 end
if sum<2 then cellnext[x][y]=0 end
if sum>3 then cellnext[x][y]=0 end
if (sum==2 or sum==3) and cell[x][y]==1 then cellnext[x][y]=1 end
if sum==3 and cell[x][y]==0 then cellnext[x][y]=1 end
end
end
cell=cellnext
end

init()
while true do
if gui.event(0)==appStop then os.exit() end
drawworld()
tick()
end

**********************************************************************

-- ** Buffers can be used to show BMP
-- ** files, but not jpg's...

screen.clear()
screen.moveto(70,50)
screen.font(7)
print("This is it !")
id,height,width=buffer.read("vfs0:/PALM/PROGRAMS/Plua/SRC/SUZUKIGSR600A-K7.bmp") -- for example, my bike's pic..
buffer.put(id,0,0,3)
screen.moveto(100,100)
screen.font(0)
g=gui.button("This") -- you can have gui elements on a foreground..
screen.line(0,0,320,320) --...or draw something on them..
gui.main()

**********************************************************************

-- ** scrolling text like in eReader etc.. **

function newline()
buffer.use(vbuf)
screen.moveto(math.random(180),320)
print(math.random())
end

vbuf=buffer.new(320,340)
newline()

while true do
buffer.use()
for i=1,22 do
buffer.put(vbuf,0,-i)
--os.sleep(0.02) -- set the scrolling speed
if gui.event(0)==appStop then os.exit() end
end
buffer.free(vbuf)
vbuf=buffer.get(0,0,320,340)
newline()
end

**********************************************************************

END OF FILES...

Re: Why cant I upload files?

2009-07-03T08:56:56Z

It seems that I've "lost" my buttons too :)
I don't see any way to upload files to the pLua site in Yahoo Groups,
although it has only 7% of the 100MB space used.
Maybe Marcio has blocked it after closing the project :(
Again, I might be able to setup and host a pLua Users Wiki, with space for
code sharing too. But I would need some help to maintain and manage it.

Thanks a lot for sharing this Berkant.

Best
Dado Sutter

On Fri, Jul 3, 2009 at 12:43, Berkant Atay <berkant_atay@...> wrote:

>
>
> I used to upload files to this group's FILES section. But I see that I lost
> the necessary buttons... Any ideas?
>
>
>

[Non-text portions of this message have been removed]

Why cant I upload files?

2009-07-03T08:43:10Z

I used to upload files to this group's FILES section. But I see that I lost the necessary buttons... Any ideas?

Re: Success at last....getting my feet wet with Plua, with special thanks to Berkant

2009-07-03T05:25:04Z

--- In plua@..., Dado Sutter <dadosutter@...> wrote:

>
> Welcome to the never ending show of pLua :)
> Please share your code if you can.
> I might be able to offer to host a User's Wiki for pLua if you all think
> this can be useful. It would be driven by
> Sputnik<http://sputnik.freewisdom.org/>(100% Lua) and it might help to
> concentrate pLua resources, code examples
> and free aplications.
> I cannot guarantee to much time to maintain it though but the very nature
> of a wiki should be the answer for this, if enough folks help.
> What is the best/main source of information, code examples and repo for
> pLua today ?
>
> Best of all
> Dado Sutter
>
>
>

Below is the code, brutish though it is. Still has Berkant's comments in places, I just converted his example to palmdoc and tweaked it to make it do what I wanted. A user wiki would be great. There really isn't much out there for this language beyond the basic documentation...of nothing else a nice repository of examples would be nice.

-- **Retrieves previously written files **

savState={}
f,recs =io.open("db:/savState", "r")

-- note that arrays are indexed starting from 1!!!
-- but file recs index starts with 0 !

for i=0,recs-1 do
f:openrec(i)
data = f:read("*a")
table=bin.unpack("SBBB", data)
savState[1]=table[1]
savState[2]=table[2]
savState[3]=table[3]
savState[4]=table[4]
f:close()
end

screen.clear()
gui.title("College Checklist")
screen.moveto(0,40)
faCheck = gui.checkbox( "Financial Aid" )
screen.moveto(0,80)
claCheck=gui.checkbox("Classes Scheduled")
screen.moveto(0,120)
boCheck=gui.checkbox("Books Purchased")
screen.moveto(0,160)
woCheck=gui.checkbox("Work Schedule Fixed")
screen.moveto(150,280)
doneBut=gui.button("Done?")

gui.setstate(faCheck,savState[1])
gui.setstate(claCheck,savState[2])
gui.setstate(boCheck,savState[3])
gui.setstate(woCheck,savState[4])

function saveEnd()

faState=1
claState=2
boState=3
woState=4

savState = {}
savState[1]=gui.getstate(faCheck)
savState[2]=gui.getstate(claCheck)
savState[3]=gui.getstate(boCheck)
savState[4]=gui.getstate(woCheck)

os.remove("savState")

-- check for packing string format in Plua.doc

-- write to file in RAM

f=io.open("db:/savState", "r+")
data = bin.pack("SBBB", savState)
index = f:createrec(string.len(data))
f:openrec(index)
f:write(data)
f:close()
os.exit()
end

while true do
ev,id=gui.event()
if ev==appStop then break end
if ev==ctlSelect and id==doneBut then saveEnd()
end
end

Re: Success at last....getting my feet wet with Plua, with special thanks to Berkant

2009-07-02T15:05:58Z

Welcome to the never ending show of pLua :)
Please share your code if you can.
I might be able to offer to host a User's Wiki for pLua if you all think
this can be useful. It would be driven by
Sputnik<http://sputnik.freewisdom.org/>(100% Lua) and it might help to
concentrate pLua resources, code examples
and free aplications.
I cannot guarantee to much time to maintain it though but the very nature
of a wiki should be the answer for this, if enough folks help.
What is the best/main source of information, code examples and repo for
pLua today ?

Best of all
Dado Sutter

On Thu, Jul 2, 2009 at 18:41, jimmy joe jack <wildcard_seven@...>wrote:

>
>
> I think I mentioned in my first post that as a busy father of two who can't
> just jaunt away to the computer for hours, my only option to dabble in
> programming is generally at night, in bed, with my palm.
>
> I'd tried other palm languages before (mainly PocketC, some izibasic), but
> as a guy starting from square one the going was tedious and I felt like I
> could do examples and stuff but I couldn't really just dream up a program
> (even a simple one) to do what I wanted to do. It was too complicated, I
> didn't have the patience, time...etc.
>
> With Plua, and Berkant Atay's examples to get me started, I've actually
> made MY very first program that can actually do stuff. Even with the scant
> lua/plua documentation out there for total beginners, I made a tiny program:
> a checklist for college tasks that--get this--stores the status of where I
> placed checks on the list in a database and remembers where I placed the
> checks when I re-enter.
>
> Revolutionary, I know. But I'm starting from absolutely nil, and with other
> languages it would have taken tons more code and patience on my part. For a
> guy in my weird situation this is about as good as at gets, and I just
> wanted to say thanks for the help and thanks to the Plua gods wherever they
> are.
>
>
>

[Non-text portions of this message have been removed]

Success at last....getting my feet wet with Plua, with special thanks to Berkant

2009-07-02T14:41:02Z

I think I mentioned in my first post that as a busy father of two who can't just jaunt away to the computer for hours, my only option to dabble in programming is generally at night, in bed, with my palm.

I'd tried other palm languages before (mainly PocketC, some izibasic), but as a guy starting from square one the going was tedious and I felt like I could do examples and stuff but I couldn't really just dream up a program (even a simple one) to do what I wanted to do. It was too complicated, I didn't have the patience, time...etc.

With Plua, and Berkant Atay's examples to get me started, I've actually made MY very first program that can actually do stuff. Even with the scant lua/plua documentation out there for total beginners, I made a tiny program: a checklist for college tasks that--get this--stores the status of where I placed checks on the list in a database and remembers where I placed the checks when I re-enter.

Revolutionary, I know. But I'm starting from absolutely nil, and with other languages it would have taken tons more code and patience on my part. For a guy in my weird situation this is about as good as at gets, and I just wanted to say thanks for the help and thanks to the Plua gods wherever they are.

Re: My Story + Small Request

2009-06-12T15:07:45Z

--- In plua@..., "Berkant Atay" <berkant_atay@...> wrote:

>
> Now I have the time to help you more.
>
> In these examples, I first demonstrate the exit button. The second one shows how to create and write something on an SD card file, then read it, and then create a stream file (Palm internal memory file), and writing records on it, kind of database demo... The second program chunk retrieves what the first program has put in the stream file. However, you have to refer to Plua.doc for details about files, records, and tables.
>
> 1. FIRST THE EXIT BUTTON: **********************
>
> screen.moveto(100,100)
> buttonexit=gui.button("Quit")
> while true do
> ev,id=gui.event()
> if ev==appStop then break end
> if ev==ctlSelect and id==buttonexit then os.exit() end
> end
>
> *************************************************
>
> 2. NOW SOME FILE OPERATIONS: ********************
>
> -- ** Writes to VFS and stream files **
> -- First, you can save items in a VFS file. Remember your SD card is vfs0, ie "vfs zero"..!
>
>
> print() print() print("Writing and reading to a VFS file")
> os.remove("vfs0:/PALM/Launcher/myfile.who")
> f=io.open("vfs0:/PALM/Launcher/myfile.who", "w")
> a=math.p --just a numeric example..
> f:write("pencil","ruler")
> f:write("compass",a)
> f:close()
> f=io.open("vfs0:/PALM/Launcher/myfile.who","r")
> s=f:read()
> print(s)
> f:close()
> os.remove("vfs0:/PALM/Launcher/myfile.who") --we don't need this file anymore..
> print() print("Press any key...")
> gui.event() --this makes the OS wait for any event
>
> -- Creating and putting records in a stream file
>
> print("...now writing records to a RAM file...")
> name=1 age=2 gender=3 value=4
> person={}
> for n=1,3 do person[n]={} end -- we defined a matrix with two dimensions
>
> person[1][name]="BERKANT"
> person[1][age]=41
> person[1][gender]=1
> person[1][value]=100
>
> person[2][name]="TUBA"
> person[2][age]=36
> person[2][gender]=0
> person[2][value]=90
>
> person[3][name]="YIGIT"
> person[3][age]=9
> person[3][gender]=1
> person[3][value]=80 -- you can find other ways to enter these data..
>
> -- first remove the existing file
>
> os.remove("person")
>
> -- check for packing string format in Plua.doc
>
> -- write to file in RAM
>
> f=io.open("db:/person", "r+")
> for i=1,3 do
> data = bin.pack("SBBB", person[i])
> index = f:createrec(string.len(data))
> f:openrec(index)
> f:write(data)
> end
> f:close()
>
> print("Finished writing to file.")
> print("Press Home key to quit...")
> gui.main() -- this waits for the "home" key
>
>
> *************************************************************
>
> 3. NOW, THIS FILE READS WHAT THE ABOVE CODE HAS WRITTEN: ****
>
>
> -- **Retrieves previously written files **
>
> person={}
> f,recs =io.open("db:/person", "r")
> for i=1,recs do
> person[i]={}
> end
>
> name=1
> age=2
> gender=3
> value=4
>
> -- note that arrays are indexed starting from 1!!!
> -- but file recs index starts with 0 !
>
> for i=0,recs-1 do
> f:openrec(i)
> data = f:read("*a")
> table=bin.unpack("SBBB", data)
> person[i+1][name]=table[1]
> person[i+1][age]=table[2]
> person[i+1][gender]=table[3]
> person[i+1][value]=table[4]
> end
> f:close()
>
> for i=1,recs do
> print(person[i][name])
> print(person[i][age])
> print(person[i][gender])
> print(person[i][value])
> end
>
> gui.main()
>
> *********************************************************************
>
> Hope you are progressing fast...
>

Thanks one more time for this. It really helps to look at stuff that has ONLY the stuff I'm trying to work on and not a bunch of extra clutter I don't need. Straight and to the point. Much appreciated.

Re: My Story + Small Request

2009-06-11T09:33:19Z

Now I have the time to help you more.

In these examples, I first demonstrate the exit button. The second one shows how to create and write something on an SD card file, then read it, and then create a stream file (Palm internal memory file), and writing records on it, kind of database demo... The second program chunk retrieves what the first program has put in the stream file. However, you have to refer to Plua.doc for details about files, records, and tables.

1. FIRST THE EXIT BUTTON: **********************

screen.moveto(100,100)
buttonexit=gui.button("Quit")
while true do
ev,id=gui.event()
if ev==appStop then break end
if ev==ctlSelect and id==buttonexit then os.exit() end
end

*************************************************

2. NOW SOME FILE OPERATIONS: ********************

-- ** Writes to VFS and stream files **
-- First, you can save items in a VFS file. Remember your SD card is vfs0, ie "vfs zero"..!

print() print() print("Writing and reading to a VFS file")
os.remove("vfs0:/PALM/Launcher/myfile.who")
f=io.open("vfs0:/PALM/Launcher/myfile.who", "w")
a=math.p --just a numeric example..
f:write("pencil","ruler")
f:write("compass",a)
f:close()
f=io.open("vfs0:/PALM/Launcher/myfile.who","r")
s=f:read()
print(s)
f:close()
os.remove("vfs0:/PALM/Launcher/myfile.who") --we don't need this file anymore..
print() print("Press any key...")
gui.event() --this makes the OS wait for any event

-- Creating and putting records in a stream file

print("...now writing records to a RAM file...")
name=1 age=2 gender=3 value=4
person={}
for n=1,3 do person[n]={} end -- we defined a matrix with two dimensions

person[1][name]="BERKANT"
person[1][age]=41
person[1][gender]=1
person[1][value]=100

person[2][name]="TUBA"
person[2][age]=36
person[2][gender]=0
person[2][value]=90

person[3][name]="YIGIT"
person[3][age]=9
person[3][gender]=1
person[3][value]=80 -- you can find other ways to enter these data..

-- first remove the existing file

os.remove("person")

-- check for packing string format in Plua.doc

-- write to file in RAM

f=io.open("db:/person", "r+")
for i=1,3 do
data = bin.pack("SBBB", person[i])
index = f:createrec(string.len(data))
f:openrec(index)
f:write(data)
end
f:close()

print("Finished writing to file.")
print("Press Home key to quit...")
gui.main() -- this waits for the "home" key

*************************************************************

3. NOW, THIS FILE READS WHAT THE ABOVE CODE HAS WRITTEN: ****

-- **Retrieves previously written files **

person={}
f,recs =io.open("db:/person", "r")
for i=1,recs do
person[i]={}
end

name=1
age=2
gender=3
value=4

-- note that arrays are indexed starting from 1!!!
-- but file recs index starts with 0 !

for i=0,recs-1 do
f:openrec(i)
data = f:read("*a")
table=bin.unpack("SBBB", data)
person[i+1][name]=table[1]
person[i+1][age]=table[2]
person[i+1][gender]=table[3]
person[i+1][value]=table[4]
end
f:close()

for i=1,recs do
print(person[i][name])
print(person[i][age])
print(person[i][gender])
print(person[i][value])
end

gui.main()

*********************************************************************

Hope you are progressing fast...

Re: My Story + Small Request

2009-06-11T05:24:33Z

--- In plua@..., berkant_atay@... wrote:

>
>
> I just don't have the time now to write down all the code you've wanted to see, but I guess this will help a little..
>
> screen.moveto(5,100)
> buttonhello=gui.button("Press me!)
>
> while true do
> ev,id=gui.event()
> if ev==appStop then break end
> if ev==ctlSelect and id==buttonhello then screen.clear() screen moveto(150,150) print ("Surprise...!!") end
>
> end
>
>
> --- On Wed, 6/10/09, jimmy joe jack <wildcard_seven@...> wrote:
>
>
> From: jimmy joe jack <wildcard_seven@...>
> Subject: [plua] My Story + Small Request
> To: plua@...
> Date: Wednesday, June 10, 2009, 6:08 AM
>
>
>

Thanks a lot for that. That saves me time trying to mine answers out of documentation sorely lacking in beginner Plua examples. (the little beginner tutorial pdf has a similar example, but it's not 2.0 and it goes about it in a slightly different way...so I just wanted to be sure).

If you or anyone else can do that little database example I requested in my original post, that'd be awesome, too. Thanks again.

Re: PLua Documentation

2009-06-10T04:24:56Z

if you want plua 2.0 docs is here

http://meusite.uai.com.br/~mmand/plua/plua.htm

2009/6/10 Berkant Atay <berkant_atay@...>

>
>
> You can find detailed information on Plua and Lua in various formats in the
> Files\Documentation folder of this yahoo group.
>
> From: Gerbrand G <ggerbrand@... <ggerbrand%40yahoo.com>>
> Subject: [plua] PLua Documentation
> To: plua@... <plua%40yahoogroups.com>
> Date: Wednesday, June 10, 2009, 10:31 AM
>
>
> Hi,
>
> The link at http://netpage. em.com.br/ mmand/pluadoc. htm seams to be
> broken.
>
> Getting "404 Not Found".
>
> Kind Regards,
>
> Lennie De Villiers
>
> [Non-text portions of this message have been removed]
>
> [Non-text portions of this message have been removed]
>
>
>