A simple Slide Show program example for the PDA.

Discussion in 'Share Your Creations' started by pdablue, Jun 1, 2009.

  1. pdablue

    pdablue Active Member Licensed 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.
     

    Attached Files:

  2. JOTHA

    JOTHA Well-Known Member Licensed User

    Hi pdablue,

    I tried to test your example, but there are a lot of JPG-Files missing ...
     
  3. nicolasWhite

    nicolasWhite Member

    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.
    :):):)
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice