AMiN.M7892

خوووب بیید؟

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: false
    
#End Region
                                                                            

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
Dim lbl As Label
Dim lpic As Label
Private panel1 As Panel
Dim awake As PhoneWakeState
    Dim link,name As String
    Dim lname As Label
    Dim lurl As Label
Dim fara As Farakhani
    Private ScrollView1 As ScrollView
'    Private  As Button
'    Private  As Button
    Dim l As Label
'    Dim cafe As Intent
    Dim ts As TextSetting
    Private dw As Button
    Private pl As Button
    Private imageview1 As ImageView
    Private pl2 As Button
    Private ImageView2 As ImageView
     Dim p As PhoneWakeState
    Dim idd As Label
    Dim k1 As StudentLibrary
    Dim tite2 As String
    Dim tite1 As Label
    Private Label1 As Label
    Dim h As Int
    Dim im As Int
    Dim m2 As m2Lib
    Dim dar As Int
                    Dim dialog As AriaProgressDialog
Dim rs As RSAsyncDownloader
Dim dialog1 As AriaProgressDialog
Dim CopyTask As AriaAsyncTask
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("download3")
    dialog1.initialize("dialog1")
    idd.Initialize("")
        File.MakeDir(File.DirRootExternal, "kodak")
File.MakeDir(File.DirRootExternal, "kodack")
lname.Initialize("")
lurl.Initialize("")
dw.Visible=True
pl.Visible=False
pl2.Visible=True
tite1.Initialize("")
h=0            
lbl.Initialize("")
l.Initialize("")
lbl.TextColor=Colors.Black
lbl.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
Label1.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
p.KeepAlive(True)

    panel1.Visible=False
dw.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
pl.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
lpic.Initialize("")    
ts.Initialize
pl2.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
        
    If(File.Exists(File.DirRootExternal,"c.txt")) Then 
        
    Dim str As String
str = File.readString(File.DirRootExternal,"c"&".txt")
If str = "Colors.Black" Then
lbl.textColor = Colors.Black
Else If str = "Colors.Red" Then
lbl.textColor = Colors.Red
Else If str = "Colors.Blue" Then
lbl.textColor = Colors.Blue
End If
Else
lbl.textColor = Colors.Black        
    End If

fara.FarakhaniMatn("tasvir4.db",Main.sql1,Main.cur,"SELECT * FROM ftbb where id=",soccerm.aan,tite1,"tit")
fara.FarakhaniMatn("tasvir4.db",Main.sql1,Main.cur,"SELECT * FROM ftbb where id=",soccerm.aan,lbl,"tit")
fara.FarakhaniMatn("tasvir4.db",Main.sql1,Main.cur,"SELECT * FROM ftbb where id=",soccerm.aan,lname,"name")
fara.FarakhaniMatn("tasvir4.db",Main.sql1,Main.cur,"SELECT * FROM ftbb where id=",soccerm.aan,lurl,"url")
tite2=tite1.Text        
link=lurl.Text
name=lname.Text
    
    
'        lbl.Textsize=File.GetText(File.DirRootExternal,"textsize"&".txt")
'        l.Text=File.GetText(File.DirRootExternal,"textsize"&".txt")
'    imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,lpic.Text))
'
'    imageview1.Height=m2.GetPicHeight(imageview1)
'    imageview1.Width=60%x
im=Rnd(1,8)
If im=1 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7565678.3.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL    
End If

If im=2 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"atton.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If

If im=3 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"big-captain-tsubasa-best-11-ostnewanimationworld.blogspot2.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If

If im=4 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"f3-2.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL    
End If

If im=5 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"Football-cartoon-series-3-5.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If

If im=6 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"footballistha.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If

If im=7 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"suba3.jpg"))
    imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If

If im=8 Then
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"tsubasa___img004.jpg"))
imageview1.Height=25%y
    imageview1.Width=60%x
imageview1.Gravity=Gravity.FILL        
End If
    imageview1.Height=25%y
    imageview1.Width=60%x

            If(File.Exists(File.DirRootExternal & "/kodack", lname.Text)) Then 
                
     ToastMessageShow("نیازی به دانلود نیست",  True)
    

dw.Visible=False
pl.Visible=False
pl2.Visible=True    
Label1.Visible=False        
Else

dw.Visible=True
pl.Visible=True
pl2.Visible=False    
Label1.Visible=False
    End If

            If(File.Exists(File.DirRootExternal,"s.txt")) Then 
'        lbl.Textsize=File.GetText(File.DirRootExternal,"textsize"&".txt")
'        l.Text=File.GetText(File.DirRootExternal,"textsize"&".txt")
        
        Main.cur.Position = 0
        
ScrollView1.Panel.AddView(lbl,0,0,75.5%x,100%y)
ts.LongText(lbl,lbl.Text,File.GetText(File.DirRootExternal,"s"&".txt"),ScrollView1,1.5)
Else
ScrollView1.Panel.AddView(lbl,0,0,75.5%x,100%y)
ts.LongText(lbl,lbl.Text,18,ScrollView1,1.5)

    End If

    lbl.Gravity=Gravity.RIGHT

awake.KeepAlive(True)
    CopyTask.Initialize("copy")
    rs.Initialize("rs")
        Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub

Sub dw_Click
    h=1
    If rs.IsInitialized=True Then
        rs.Cancel(True)
    End If
dialog.initialize("dialog")
        dialog.setTitle("در حال دانلود")
        dialog.setCancelable(False)
        dialog.setCanceledOnTouchOutside(False)
        dialog.SetIcon(LoadBitmap(File.DirAssets,"icon.png"))
        dialog.setMax(100)
        dialog.setIndeterminate(False)
        dialog.STYLE_Horizontal
        dialog.setMessage(tite1.Text)
        dialog.setCancelButton("توقف دانلود")
        dialog.Show
        rs.initialize("rs")
        rs.Directory = File.DirRootExternal & "/kodak"
'        rs.FileName = "home/"&name
rs.FileName=name
        Log("kodak/"&name)
        rs.Download(link)

dialog1.dismiss

dw.Visible=True
pl.Visible=True

name=lname.Text

link=lurl.Text

Label1.Visible=False

 
End Sub
Sub pl2_click

Dim i As Intent
Dim q As String

q="file://" & File.DirRootExternal& "/kodack"&"/"&lname.Text
i.Initialize(i.ACTION_VIEW,q)
i.SetType("video")
StartActivity(i)
File.Delete(File.DirRootExternal & "/kodak", lname.Text)

End Sub

Sub pl_click
'cc1=1
'StartActivity(view)

 StartActivity(k1.PlayStreamVideo(lurl.Text,""))
End Sub

Sub mediaplayer1_Complete

End Sub

Sub Activity_Resume

End Sub
'Sub ImageView7_Click    
'    cafe.Initialize(cafe.ACTION_EDIT,"bazaar://details?id=com.sorod.pack") 
'    StartActivity(cafe) 
'End Sub

'Sub CreateUri(uri As String) As Object
'   Dim r As Reflector
'   Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
'End Sub

Sub Activity_Pause (UserClosed As Boolean)    

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    If KeyCode = KeyCodes.KEYCODE_BACK Then
        rs.Cancel(True)
    Return False
    End If
End Sub

Private Sub rs_Started

End Sub

Private Sub rs_Update (Progress As Int)

    Try
        dar=Progress
dialog.setProgress(Progress)
dialog1.setProgress(Progress)
Catch
If File.Exists(File.DirRootExternal & "/kodack", lname.Text) Then
File.Delete(File.DirRootExternal & "/kodack", lname.Text)
    dw.Visible=True
    pl.Visible=True
    dialog.dismiss
    dialog1.dismiss
    Label1.Visible=False
End If
End Try
End Sub

Private Sub rs_Finished (Result As String)
        Try
    If Main.net.TestInterntConnection=True Then
        If dar=100 Then
    If File.Exists(File.DirRootExternal & "/kodak", lname.Text) Then
        
    h=3
dialog1.dismiss

    dialog.dismiss
    rs.Cancel(True)
    ToastMessageShow("دانلود شد!",True)
        Label1.Visible=False
dw.Visible=False
pl.Visible=False
pl2.Visible=True

    'initialize va sakhte AriaProgressDialoglog

    'tedade maximum ravand ro barabare tedad file hae assets mizarim
    
    'task ro ejra mikonim va chon niazi nadarim meqdario be task bedim pas Null mizarim
    CopyTask.Run(Null) 
Else
                    h=1
                    If rs.IsInitialized=True Then
                        rs.Cancel(True)
                    End If
dialog1.initialize("dialog1")
        dialog1.setTitle("دانلود مجدد")
        dialog1.setCancelable(False)
        dialog1.setCanceledOnTouchOutside(False)
        dialog1.SetIcon(LoadBitmap(File.DirAssets,"icon.png"))
        dialog1.setMax(100)
        dialog1.setIndeterminate(False)
        dialog1.STYLE_Horizontal
        dialog1.setMessage(tite1.Text)
        dialog1.setCancelButton("توقف دانلود")
        dialog1.Show
        rs.initialize("rs")
        rs.Directory = File.DirRootExternal & "/kodak"
'        rs.FileName = "home/"&name
rs.FileName=name
        Log("kodak/"&name)
        rs.Download(link)    
    End If
    

    Else
    Msgbox("فضا کافی نیست","خطا")    
dialog.dismiss
dialog1.dismiss
dw.Visible=True
pl.Visible=True    
pl2.Visible=False    
Label1.Visible=False        
File.Delete(File.DirRootExternal & "/kodak", lname.Text)    
        End If
Else

Msgbox("عدم اتصال به اینترنت","خطا")

dialog.dismiss
dialog1.dismiss
End If

Catch
If File.Exists(File.DirRootExternal & "/kodak", lname.Text) Then
File.Delete(File.DirRootExternal & "/kodak", lname.Text)
    dw.Visible=True
    pl.Visible=True
End If
    End Try
End Sub

Sub copy_DoInBackground(params() As Object) As Object
    

            
            ' file 3bar copy mikonim ke amaliat sangin tar she
File.Copy(File.DirRootExternal & "/kodak",lname.Text,File.DirRootExternal & "/kodack",lname.Text)
File.Copy(File.DirRootExternal & "/kodak",lname.Text,File.DirRootExternal & "/kodack",lname.Text)

        CopyTask.PublishProgress(1) ' be sub OnProgressUpdate meqdare 1 o mifrestim ta unja yeki be meqdare progressAriaProgressDialoglog ezafe she

    
End Sub

Sub copy_OnPostExecute(param As Object)
    ' zamani ke task tamum shod va kar anjam shod
ProgressDialogHide
    File.Delete(File.DirRootExternal & "/kodak", lname.Text)
End Sub

Sub copy_OnPreExecute
    'zamani ke task shoru be kar kardan mikone miaim ProgressAriaProgressDialoglog ro namayesh midim
    ProgressDialogShow2("درحال آماده سازی",True)
End Sub

Sub dialog_ButtonClick (Response As Int)
    Select Response
        Case DialogResponse.CANCEL
            rs.Cancel(True)
        
    End Select
End Sub

Sub dialog1_ButtonClick (Response As Int)
    Select Response
    
        Case DialogResponse.CANCEL
            rs.Cancel(True)
        
    End Select
End Sub

زیاد زحمت نکش خود ارل هم نمیتونه سر دربیاره

وای به حال کسی که برنامه های منو دیکامپایل کنه

جدا خسته نباشی

دیوونه ی اینجاش شدم " Private  As Button "