Version=4.3
IconFile=
NumberOfModules=18
Module1=frmGame1
Module2=common
Module3=settings
Module4=frmGame1_result
Module5=frmGame1_final
Module6=frmGame2
Module7=frmGame3
Module8=frmGame4
Module9=frmGame5
Module10=frmGame6
Module11=frmGame7
Module12=frmcontact
Module13=frmGame8
Module14=frmabout
Module15=frmGame9
Module16=setting
Module17=SlideMenu
Module18=frmStatistic
Build1=Default,student.tutorial
DoNotOverwriteManifest=False
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~'End of default text.~\n~
NumberOfFiles=115
File1=0.gif
File2=1.gif
File3=2.gif
File4=3.gif
File5=4.gif
File6=5.gif
File7=6.gif
File8=7.gif
File9=8.gif
File10=9.gif
File11=about.bal
File12=about.png
File13=again.png
File14=bg.gif
File15=bg.mp3
File16=bg2.jpg
File17=bg3.jpg
File18=bg4.jpg
File19=BNazanin.ttf
File20=book.db
File21=cat.jpg
File22=cat.mp3
File23=chicken.jpg
File24=chicken.mp3
File25=contact.bal
File26=cow.jpg
File27=cow.mp3
File28=dog.jpg
File29=dog.mp3
File30=down.gif
File31=duck.jpg
File32=duck.mp3
File33=elephant.jpg
File34=elephant.mp3
File35=exit.png
File36=fa_0.mp3
File37=fa_1.mp3
File38=fa_10.mp3
File39=fa_100.mp3
File40=fa_100_.mp3
File41=fa_11.mp3
File42=fa_12.mp3
File43=fa_13.mp3
File44=fa_14.mp3
File45=fa_15.mp3
File46=fa_16.mp3
File47=fa_17.mp3
File48=fa_18.mp3
File49=fa_19.mp3
File50=fa_2.mp3
File51=fa_20.mp3
File52=fa_20_.mp3
File53=fa_3.mp3
File54=fa_30.mp3
File55=fa_30_.mp3
File56=fa_4.mp3
File57=fa_40.mp3
File58=fa_40_.mp3
File59=fa_5.mp3
File60=fa_50.mp3
File61=fa_50_.mp3
File62=fa_6.mp3
File63=fa_60.mp3
File64=fa_60_.mp3
File65=fa_7.mp3
File66=fa_70.mp3
File67=fa_70_.mp3
File68=fa_8.mp3
File69=fa_80.mp3
File70=fa_80_.mp3
File71=fa_9.mp3
File72=fa_90.mp3
File73=fa_90_.mp3
File74=game1.bal
File75=game1_final.bal
File76=game1_result.bal
File77=game2.bal
File78=game3.bal
File79=game5.bal
File80=game6.bal
File81=game7.bal
File82=game8.bal
File83=game9.bal
File84=goorbaghe.jpg
File85=goorbaghe.mp3
File86=header.gif
File87=help.png
File88=horse.jpg
File89=horse.mp3
File90=joghd.jpg
File91=joghd.mp3
File92=khar.jpg
File93=khar.mp3
File94=khoros.jpg
File95=lion.jpg
File96=lion.mp3
File97=login.jpg
File98=main.bal
File99=monkey.jpg
File100=monkey.mp3
File101=nj_nazani.ttf
File102=none.gif
File103=pashe.jpg
File104=pig.jpg
File105=question.jpg
File106=sad_star.jpg
File107=setting.bal
File108=setting.png
File109=star.mp3
File110=star.png
File111=statistic.bal
File112=statistic.png
File113=unwin.mp3
File114=win.mp3
File115=wrong.wav
NumberOfLibraries=7
Library1=animation
Library2=core
Library3=dialogs
Library4=phone
Library5=sql
Library6=threading
Library7=expressionevaluator
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: آزمایشگاه ریاضی و حافظه (استاد98)
	#VersionCode: 1
	#VersionName: 1.0.0
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals

End Sub

'Www.Ostad98.ir
'Www.SourceBaran.Com

Sub Globals
	Dim game1 As ImageView
	Dim game3 As ImageView
	Dim game4 As ImageView
	Dim game6 As ImageView
	Dim game5 As ImageView
	Dim game2 As ImageView
	Dim game7 As ImageView
	Dim Contact1 As ImageView
	Dim imgword As ImageView
	Dim imgbackground As ImageView
	Dim sm1 As SlideMenu
	Dim sSelectGame As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
common.changeTheme(imgbackground)
loadMenu
sm1.Initialize(Activity,Me,"slidemenu1",0,190dip)
sm1.AddItem("آمار این بازی",LoadBitmap(File.DirAssets,"statistic.png"),"statistic")
sm1.AddItem("راهنما",LoadBitmap(File.DirAssets,"help.png"),"help")
sm1.AddItem("از دوباره",LoadBitmap(File.DirAssets,"again.png"),"again")
sm1.AddItem("تنظیمات",LoadBitmap(File.DirAssets,"setting.png"),"setting")
sm1.AddItem("درباره ما",LoadBitmap(File.DirAssets,"about.png"),"about")
sm1.AddItem("خروج",LoadBitmap(File.DirAssets,"exit.png"),"exit")
End Sub
Sub slidemenu1_Click(Item As Object)
Select Case Item
 Case "statistic"
  Activity.Finish
  frmStatistic.sGameNumber = sSelectGame
  StartActivity(frmStatistic)
 Case "help"
  showHelp
 Case "again"
  Try
   File.Delete(File.DirInternal,"settingGame" & sSelectGame & ".app")
   ToastMessageShow("تمام مراحل این بازی حذف شد و از نو شروع میشود",True)
  Catch
   ToastMessageShow("Error In Reset Game Level",True)
  End Try
 Case "setting"
  btnsetting_Click
 Case "about"
  btnabout_Click
 Case "exit"
  exit1_Click
End Select
End Sub
Sub showHelp
 Select Case sSelectGame
  Case "1"
   Msgbox("در این بازی باید بزرگترین یا کوچکترین اعداد را" & CRLF & "به ترتیب تشخیص و انتخاب کنید","راهنما")
  Case "2"
   Msgbox("این گزینه در واقع بازی نیست بلکه آموزش " & CRLF & "جدول ضرب میباشد","راهنما")
  Case "3"
   Msgbox("در این بازی باید حاصل جمع تفریق یا شاید " & CRLF & "هم ضرب و تقسیم رو انتخاب کنید","راهنما")	
  Case "4"
   Msgbox("در این بازی باید بزرگتر یا کوچکتر یا تساوی " & CRLF & "بودن اعداد را انتخاب کنید","راهنما")
  Case "5"
   Msgbox("در این بازی صدای عددی پخش خواهد شد و شما باید" & CRLF & "تشخیص دهید کدام عدد است","راهنما")
  Case "6"
   Msgbox("در این بازی،صدای حیوانی پخش خواهد شد و"  & CRLF & "شما باید تصویر حیوان را انتخاب کنید","راهنما")
  Case "7"
   Msgbox("در این بازی شما باید تصاویر متشابه را" & CRLF & "انتخاب کنید تا بازی کامل شود","راهنما")
  Case "8"
   Msgbox("در این بازی تعدادی تصویر با تکرار شدن نمایش" & CRLF & "داده میشود و در آخر تصویری دلخواه انتخاب"  & CRLF & "میشود و شما باید تعداد تکرار تصویر را بگویید","راهنما")   
  Case "9"
   Msgbox("در این بازی سوالی از شما پرسیده میشود و" & CRLF & "شما باید حروف موجود در پاسخ را انتخاب کنید","راهنما")
End Select
End Sub
Sub loadMenu
Activity.AddMenuItem2("تنظیمات","btnsetting",LoadBitmap(File.DirAssets,"setting.png"))
Activity.AddMenuItem2("درباره ما","btnabout",LoadBitmap(File.DirAssets,"about.png"))
Activity.AddMenuItem2("خروج","exit1",LoadBitmap(File.DirAssets,"exit.png"))
End Sub
Sub btnsetting_Click
Activity.Finish
StartActivity(setting)
End Sub
Sub btnabout_Click
Activity.Finish
StartActivity(frmabout)
End Sub
Sub exit1_Click
Dim i As Int
i = Msgbox2("آیا مایل به خروج هستید؟","خروج","آری","خیر","",Null)
If i = DialogResponse.POSITIVE Then
 ExitApplication
End If
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub game1_Click
Activity.Finish
StartActivity(frmGame1)
End Sub
Sub game3_Click
Activity.Finish
StartActivity(frmGame3)	
End Sub
Sub game4_Click
Activity.Finish
StartActivity(frmGame4)	
End Sub
Sub game6_Click
Activity.Finish
StartActivity(frmGame6)	
End Sub
Sub game5_Click
Activity.Finish
StartActivity(frmGame5)	
End Sub
Sub game2_Click
Activity.Finish
StartActivity(frmGame2)	
End Sub
Sub game7_Click
Activity.Finish
StartActivity(frmGame7)	
End Sub
Sub contact1_Click
Activity.Finish
StartActivity(frmGame8)
End Sub
Sub imgword_Click
Activity.Finish
StartActivity(frmGame9)
End Sub
Sub game1_LongClick
 sm1.show
 sSelectGame = "1"
End Sub
Sub game2_LongClick
 sm1.Show
 sSelectGame = "2"
End Sub
Sub game3_LongClick
 sm1.Show
 sSelectGame = "3"
End Sub
Sub game4_LongClick
 sm1.Show
 sSelectGame = "4"
End Sub
Sub game5_LongClick
 sm1.Show
 sSelectGame = "5"
End Sub
Sub game6_LongClick
 sm1.Show
 sSelectGame = "6"
End Sub
Sub game7_LongClick
 sm1.Show
 sSelectGame = "7"
End Sub
Sub contact1_LongClick
 sm1.Show
 sSelectGame = "8"
End Sub
Sub imgword_LongClick
 sm1.Show
 sSelectGame = "9"
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
  If KeyCode = KeyCodes.KEYCODE_BACK Then
   Activity.Finish
   common.stopAudio
   ExitApplication
  End If
  If KeyCode = KeyCodes.KEYCODE_MENU Then
   Activity.OpenMenu
   Return True
  End If  
End Sub