version
6.30
1
Form2
Form1
2
0
5
0
13
5
0
13
13
1
0
0
48
0
1
0
0
26
1
0
238
268

0
0
0
Sub designer







































addform(Form2,"EDIT  SCREEN","",255,255,255)@
addlabel(form2,Label5,55,180,180,20,"         MAIN  SCREEN",0,0,0,0,255,0,True,True,11)@
addlabel(form2,Label4,55,90,180,20,"             AUDIO",0,0,0,0,255,0,True,True,11)@
addlabel(form2,Label3,55,0,180,20,"           PICTURES",0,0,0,0,255,0,True,True,11)@
addradiobtn(form2,RadioBtn8,0,200,55,20,"Screen",255,255,255,0,0,0,True,True,False,8)@
addradiobtn(form2,RadioBtn7,0,130,55,20,"Slide 2",255,255,255,0,0,0,True,True,False,8)@
addradiobtn(form2,RadioBtn6,0,110,55,20,"Slide 1",255,255,255,0,0,0,True,True,False,8)@
addimagebutton(form2,ImageButtonExitForm2,185,245,55,25,"Exit",212,208,200,0,0,0,"cCenterImage","r60w35.jpg",True,True,True,9)@
addtextbox(form2,TextBox8,55,200,180,19,"",255,255,255,0,0,0,True,True,False,8)@
addtextbox(form2,TextBox7,55,130,180,19,"",255,255,255,0,0,0,True,True,False,8)@
addtextbox(form2,TextBox6,55,110,180,19,"",255,255,255,0,0,0,True,True,False,8)@
addimagebutton(form2,ImageButtonReadFileForm2,0,245,55,25,"Read",212,208,200,0,0,0,"cCenterImage","y60w35.jpg",True,True,True,9)@
addimagebutton(form2,ImageButtonSaveFileForm2,55,245,55,25,"Save",212,208,200,0,0,0,"cCenterImage","y60w35.jpg",True,True,True,9)@
addradiobtn(form2,RadioBtn2,0,40,55,20,"Slide 2",255,255,255,0,0,0,True,True,False,8)@
addradiobtn(form2,RadioBtn1,0,20,55,20,"Slide 1",255,255,255,0,0,0,True,True,False,8)@
addopendialog(form2,OpenDialog1,5,245,All Files|*.*)@
addimagebutton(form2,ImageButtonSelectFileForm2,130,245,55,25,"Select",212,208,200,0,0,0,"cCenterImage","g60w35.jpg",True,True,True,9)@
addtextbox(form2,TextBox2,55,40,180,19,"",255,255,255,0,0,0,True,True,False,8)@
addtextbox(form2,TextBox1,55,20,180,19,"",255,255,255,0,0,0,True,True,False,8)@
addform(Form1,"PDA Mobile Market","",255,255,255)@
addimage(form1,Image2,85,245,20,25,"cCenterImage","sw1.jpg",245,245,220,True,True)@
addimagebutton(form1,ImageButtonLeft,0,245,55,25,"«",255,255,255,0,0,0,"cCenterImage","g60w35.jpg",True,True,True,15)@
addimage(form1,Image1,0,0,240,245,"cStretchImage","showcase.jpg",0,0,0,True,True)@
addimagebutton(form1,ImageButtonRight,185,245,55,25,"»",255,255,255,0,0,0,"cCenterImage","g60w35.jpg",True,True,True,15)@
addimage(form1,Image3,135,245,20,25,"cCenterImage","sw2.jpg",245,245,220,True,True)@
addimagelist(form1,ImageList1,90,70,80,20,0,0)@
addtimer(form1,Timer1,105,20,500)@
r
addmenuitem(form1,MenuImage,"Image",True,False)@r
addmenuitem(menuimage,MenuCenter,"Center",True,False)@r
addmenuitem(menuimage,MenuNormal,"Normal",True,False)@r
addmenuitem(menuimage,MenuStretch,"Stretch",True,False)@r
addmenuitem(form1,MenuRun,"Run",True,False)@r
addmenuitem(form1,MenuStop,"Stop",True,False)@r
addmenuitem(form1,MenuEdit,"Edit",True,False)@r
addmenuitem(form1,MenuDelay,"Delay",True,False)@r
addmenuitem(menudelay,ms3sec,"3 Sec",True,False)@r
addmenuitem(menudelay,ms4sec,"4 Sec",True,False)@r
addmenuitem(menudelay,ms5sec,"5 Sec",True,False)@r
addmenuitem(menudelay,ms6sec,"6 Sec",True,False)@r
addmenuitem(menudelay,ms7sec,"7 Sec",True,False)@r
addmenuitem(menudelay,ms8sec,"8 Sec",True,False)@r
addmenuitem(menudelay,ms9sec,"9 Sec",True,False)@r
addmenuitem(menudelay,ms10sec,"10 Sec",True,False)@r
addmenuitem(menudelay,ms11sec,"11 Sec",True,False)@r
addmenuitem(menudelay,ms12sec,"12 Sec",True,False)@r
addmenuitem(menudelay,ms13sec,"13 Sec",True,False)@r
addmenuitem(menudelay,ms14sec,"14 Sec",True,False)@r
addmenuitem(menudelay,ms15sec,"15 Sec",True,False)@r
addmenuitem(menudelay,ms16sec,"16 Sec",True,False)@r
addmenuitem(menudelay,ms17sec,"17 Sec",True,False)@r
addmenuitem(form1,MenuLabel,"1 Sec",True,False)@
End Sub
@EndOfDesignText@Sub Globals
count=0

pic1file=""
pic2file=""

wav1file=""
wav2file=""

mainpic=""

End Sub

Sub App_Start
Form1.show

FileOpen (c1,"Stalk2Data.txt",cRead,,cASCII)

Textbox1.Text = FileRead (c1)
Textbox2.Text = FileRead (c1)

pic1file=textbox1.Text
pic2file=textbox2.Text

Textbox6.Text = FileRead (c1)
Textbox7.Text = FileRead (c1)

wav1file=textbox6.Text
wav2file=textbox7.Text

Textbox8.Text = FileRead (c1)
mainpic = Textbox8.Text
FileClose (c1)

image1.Mode=cCenterImage
image1.Image = mainpic

FileOpen (c1,"Stalk2time.txt",cRead,,cASCII)
timer1.Interval = FileRead(c1)
FileClose (c1)

if timer1.Interval=3000 then
menulabel.Text=" 3 Sec"
end if

if timer1.Interval=4000 then
menulabel.Text=" 4 Sec"
end if

if timer1.Interval=5000 then
menulabel.Text=" 5 Sec"
end if

if timer1.Interval=6000 then
menulabel.Text=" 6 Sec"
end if

if timer1.Interval=7000 then
menulabel.Text=" 7 Sec"
end if

if timer1.Interval=8000 then
menulabel.Text=" 8 Sec"
end if

if timer1.Interval=9000 then
menulabel.Text=" 9 Sec"
end if

if timer1.Interval=10000 then
menulabel.Text="10 Sec"
end if

if timer1.Interval=11000 then
menulabel.Text="11 Sec"
end if

if timer1.Interval=12000 then
menulabel.Text="12 Sec"
end if

if timer1.Interval=13000 then
menulabel.Text="13 Sec"
end if

if timer1.Interval=14000 then
menulabel.Text="14 Sec"
end if

if timer1.Interval=15000 then
menulabel.Text="15 Sec"
end if

if timer1.Interval=16000 then
menulabel.Text="16 Sec"
end if

if timer1.Interval=17000 then
menulabel.Text="17 Sec"
end if

image2.Image="sw1.jpg"
image3.Image="sw2.jpg"

sip(false)

End Sub

Sub Timer1_Tick
count=count+1

if count=3 then
count=1
end if

if count=1 then
image1.Image=pic1file
sound(wav1file)
image2.Image="sr1.jpg"
image3.Image="sw2.jpg"
end if

if count=2 then
image1.Image=pic2file
sound(wav2file)
image2.Image="sw1.jpg"
image3.Image="sr2.jpg"
end if

End Sub

Sub ImageButtonLeft_ButtonDown
ImageButtonLeft.Image="r60w35.jpg"
End Sub

Sub ImageButtonLeft_ButtonUp
ImageButtonLeft.Image="g60w35.jpg"
End Sub

Sub ImageButtonLeft_Click
count=count-1

if count < 0 then
count=2
end if

if count=0 then
count=2
end if

if count=1 then
image1.Image=pic1file
sound(wav1file)
image2.Image="sr1.jpg"
image3.Image="sw2.jpg"
end if

if count=2 then
image1.Image=pic2file
sound(wav2file)
image2.Image="sw1.jpg"
image3.Image="sr2.jpg"
end if

End Sub

Sub ImageButtonRight_ButtonDown
ImageButtonRight.Image="r60w35.jpg"
End Sub

Sub ImageButtonRight_ButtonUp
ImageButtonRight.Image="g60w35.jpg"
End Sub

Sub ImageButtonRight_Click
count=count+1

if count=3 then
count=1
end if

if count=1 then
image1.Image=pic1file
sound(wav1file)
image2.Image="sr1.jpg"
image3.Image="sw2.jpg"
end if

if count=2 then
image1.Image=pic2file
sound(wav2file)
image2.Image="sw1.jpg"
image3.Image="sr2.jpg"
end if

End Sub

Sub ms3sec_Click
timer1.Interval=3000
menulabel.Text=" 3 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms4sec_Click
timer1.Interval=4000
menulabel.Text=" 4 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms5sec_Click
timer1.Interval=5000
menulabel.Text=" 5 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms6sec_Click
timer1.Interval=6000
menulabel.Text=" 6 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms7sec_Click
timer1.Interval=7000
menulabel.Text=" 7 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms8sec_Click
timer1.Interval=8000
menulabel.Text=" 8 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms9sec_Click
timer1.Interval=9000
menulabel.Text=" 9 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms10sec_Click
timer1.Interval=10000
menulabel.Text="10 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms11sec_Click
timer1.Interval=11000
menulabel.Text="11 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms12sec_Click
timer1.Interval=12000
menulabel.Text="12 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms13sec_Click
timer1.Interval=13000
menulabel.Text="13 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms14sec_Click
timer1.Interval=14000
menulabel.Text="14 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms15sec_Click
timer1.Interval=15000
menulabel.Text="15 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms16sec_Click
timer1.Interval=16000
menulabel.Text="16 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ms17sec_Click
timer1.Interval=17000
menulabel.Text="17 sec"
FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)
End Sub

Sub ImageButtonSelectFileForm2_ButtonDown
ImageButtonSelectFileForm2.Image="b60w35.jpg"
End Sub

Sub ImageButtonSelectFileForm2_ButtonUp
ImageButtonSelectFileForm2.Image="g60w35.jpg"
End Sub

Sub ImageButtonSelectFileForm2_Click

if radiobtn1.Checked=true then
opendialog1.Filter="All Files|*.jpg"
opendialog1.Show
textbox1.Text=opendialog1.File
end if

if radiobtn2.Checked=true then
opendialog1.Filter="All Files|*.jpg"
opendialog1.Show
textbox2.Text=opendialog1.File
end if

if radiobtn6.Checked=true then
opendialog1.Filter="All Files|*.wav"
opendialog1.Show
textbox6.Text=opendialog1.File
end if

if radiobtn7.Checked=true then
opendialog1.Filter="All Files|*.wav"
opendialog1.Show
textbox7.Text=opendialog1.File
end if

if radiobtn8.Checked=true then
opendialog1.Filter="All Files|*.jpg"
opendialog1.Show
textbox8.Text=opendialog1.File
end if

End Sub

Sub ImageButtonExitForm2_ButtonDown
ImageButtonExitForm2.Image="b60w35.jpg"
End Sub

Sub ImageButtonExitForm2_ButtonUp
ImageButtonExitForm2.Image="r60w35.jpg"
End Sub

Sub ImageButtonExitForm2_Click

radiobtn1.Checked=false
radiobtn2.Checked=false

radiobtn6.Checked=false
radiobtn7.Checked=false
radiobtn8.Checked=false

Form2.Close

pic1file=textbox1.Text
pic2file=textbox2.Text

wav1file=textbox6.Text
wav2file=textbox7.Text
mainpic=textbox8.Text

End Sub

Sub ImageButtonReadFileForm2_ButtonDown
ImageButtonReadFileForm2.Image="b60w35.jpg"
End Sub

Sub ImageButtonReadFileForm2_ButtonUp
ImageButtonReadFileForm2.Image="y60w35.jpg"
End Sub

Sub ImageButtonReadFileForm2_Click
FileOpen (c1,"Stalk2Data.txt",cRead,,cASCII)

Textbox1.Text = FileRead (c1)
Textbox2.Text = FileRead (c1)

Textbox6.Text = FileRead (c1)
Textbox7.Text = FileRead (c1)

pic1file=textbox1.Text
pic2file=textbox2.Text

wav1file=textbox6.Text
wav2file=textbox7.Text

Textbox8.Text = FileRead (c1)
mainpic = Textbox8.Text

FileClose (c1)

image1.Mode=cCenterImage
image1.Image = mainpic

FileOpen (c1,"Stalk2time.txt",cRead,,cASCII)
timer1.Interval = FileRead(c1)
FileClose (c1)

End Sub

Sub ImageButtonSaveFileForm2_ButtonDown
ImageButtonSaveFileForm2.Image="b60w35.jpg"
End Sub

Sub ImageButtonSaveFileForm2_ButtonUp
ImageButtonSaveFileForm2.Image="y60w35.jpg"
End Sub

Sub ImageButtonSaveFileForm2_Click
FileOpen(c1,"Stalk2Data.txt",cWrite,,cASCII)

FileWrite (c1,Textbox1.Text)
FileWrite (c1,Textbox2.Text)

FileWrite (c1,Textbox6.Text)
FileWrite (c1,Textbox7.Text)

FileWrite (c1,Textbox8.Text)

FileClose (c1)

FileOpen(c1,"Stalk2time.txt",cWrite,,cASCII)
FileWrite (c1,timer1.Interval)
FileClose (c1)

End Sub

Sub MenuCenter_Click
image1.Mode=cCenterImage
End Sub

Sub MenuNormal_Click
image1.Mode=cNormalImage
End Sub

Sub MenuStretch_Click
image1.Mode=cStretchImage
End Sub

Sub Image2_Click
image1.Image=pic1file
sound(wav1file)
count=1
image2.Image="sr1.jpg"
image3.Image="sw2.jpg"
End Sub

Sub Image3_Click
image1.Image=pic2file
sound(wav2file)
count=2
image2.Image="sw1.jpg"
image3.Image="sr2.jpg"
End Sub

Sub MenuRun_Click
timer1.Enabled=true
timer1_tick
End Sub

Sub MenuEdit_Click

Form2.Show

textbox1.Text=pic1file
textbox2.Text=pic2file

textbox6.Text=wav1file
textbox7.Text=wav2file

textbox8.Text=mainpic

radiobtn1.Checked=false
radiobtn2.Checked=false

radiobtn6.Checked=false
radiobtn7.Checked=false

radiobtn8.Checked=false

End Sub

Sub MenuStop_Click
timer1.Enabled=false
End Sub