A simple Slide Show program example for the PDA.

pdablue

Active Member
Licensed User
Longtime User
Hi,

Here is a simple Slide Show program for the Pocket PC written in
Basic4ppc.

The program allows you to select 5 pictures that you can put into
a slide show. You can vary the slide show display rate from 500 mSec
up to 4000 mSec in steps of 250 mSec.

From the "Edit Screen" you can select 1 of the 5 radio buttons and then
press "Select File" which will take you to the OpenDialog screen where
you can select a file to assign to the selected slide position.

Pressing the button "Start" will start the slide show.

Pressing the button "Stop" will stop the slide show.

Pressing the "<<" button will scroll Left through the slide show.

Pressing the ">>" button will scroll Right through the slide show.

Pressing the "Edit" button will take you to the Edit screen where you
can select pictures for each of the 5 slides.

Pressing the "Read" button or "Read File" button
will read information for the 5 slides from the file "SlideData.txt".

Pressing the "Save File" button will save the information for all 5 slides to
the file "SlideData.txt".

Pressing the "Exit" button will take you out of the Edit screen and back
to the main Slide Show screen.

The file "Slidepic0.JPG" is the screenshot for the Slide Show program.

The files "Slidepic1.JPG" through "Slidepic5.JPG" are screenshots of all
5 slides.

The file "Slideedit.JPG" is the screenshot of the Edit Screen.

The file "Slide.sbp" is the Basic4ppc source code for the program.

The file "Slidezip.zip" is the zipped up ARMV4 (.CAB) installation file.
 

Attachments

  • Slidepic0.JPG
    Slidepic0.JPG
    20.4 KB · Views: 339
  • Slidepic1.JPG
    Slidepic1.JPG
    18.5 KB · Views: 342
  • Slidepic2.JPG
    Slidepic2.JPG
    17.8 KB · Views: 348
  • Slidepic3.JPG
    Slidepic3.JPG
    18.6 KB · Views: 321
  • Slidepic4.JPG
    Slidepic4.JPG
    18.6 KB · Views: 316
  • Slidepic5.JPG
    Slidepic5.JPG
    18.8 KB · Views: 322
  • Slideedit.JPG
    Slideedit.JPG
    22.6 KB · Views: 321
  • Slide.sbp
    12 KB · Views: 438
  • slidezip.zip
    81 KB · Views: 420

JOTHA

Well-Known Member
Licensed User
Longtime User
Hi pdablue,

I tried to test your example, but there are a lot of JPG-Files missing ...
 
Hello fellas.
I have played with the programm....none of the jpg files are missing.:cool:
Regarding the code:

n = 500
do
addevent("ms"&n,click, "button_click")
n = n + 250
loop until n = 4000

Sub button_click
Timer1.interval = n
Label1.text = n & " msec"
End Sub

Writing these nine lines would have saved you writing 50 lines.
:):):)
 
Top