reza644
-
تعداد ارسال ها
339 -
تاریخ عضویت
-
آخرین بازدید
-
روز های برد
2
نوع محتوا
نمایه ها
فروشگاه
تالارهای گفتگو
بخش دریافت
پاسخ های دیدگاه ها ارسال شده توسط reza644
-
در مورد نفر قبلیت ، یه سطر توضیح بده
-
خواهشا! ژانِ عزیزتون یه کم مرتب کد بنویسید!!
یه کم ترفند ها و نکات تمیز کد نوشتن رو یاد بگیرید!
از حروف بزرگ و کوچیک استفاده کنید!
متغیرهای هم نوع رو تو یک خط تعریف کنید!!
فاصله زیادی نزارید!!!
تا میتونید! تا میتونید از فینگلیش استفاده نکنید!!
ای خدا...
ملت میرن عاشق میشن عشقشون ولشون میکنه به ناله و زاری میافتن!
من میرم سورس بیسیک باز میکنم که فقط یه ماژولش 1600 خط کده که همش هم نامرتبه به ناله و زاری میافتم!
به معنی واقعی کلمه دهنم سر... شد!!
دعا کنید این سورسه دیوونم نکنه
-
خوووب بیید؟
#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 SubSub 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 Iffara.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
Elsedw.Visible=True
pl.Visible=True
pl2.Visible=False
Label1.Visible=False
End IfIf(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=Truename=lname.Text
link=lurl.Text
Label1.Visible=False
End Sub
Sub pl2_click
Dim i As Intent
Dim q As Stringq="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 SubSub 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 SubSub 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_StartedEnd 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 SubPrivate 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.dismissdialog.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
ElseMsgbox("عدم اتصال به اینترنت","خطا")
dialog.dismiss
dialog1.dismiss
End IfCatch
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 SubSub 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 SubSub copy_OnPostExecute(param As Object)
' zamani ke task tamum shod va kar anjam shod
ProgressDialogHide
File.Delete(File.DirRootExternal & "/kodak", lname.Text)
End SubSub 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 SubSub dialog1_ButtonClick (Response As Int)
Select Response
Case DialogResponse.CANCEL
rs.Cancel(True)
End Select
End Subزیاد زحمت نکش خود ارل هم نمیتونه سر دربیاره
وای به حال کسی که برنامه های منو دیکامپایل کنه
-
-
منصفانه نیست ... (مصطفی پاشایی)
http://dl.pop-music.ir/music/1395/Tir/Mostafa Pashaei - Monsefaneh Nist.mp3
-
بچه ها یه خانواده ایم باهم
عاشق شدم بدجور
واسم دعا کنید که بهش برسم
-
خوشحال میشم بدونم کی استاتون منو پاک کرده ؟
حرف حساب تلخه نه ؟
-
اون دسته از هموطن هایی که نوز دارن جلو ساختمان پلاسکو عکس سلفی میگیرن
یه هشتگ من گوسفند هستم هم بزارن زیر عکسشون که جهانی بشن
-
گفت: چند وقتیه کدنویسیم بد شده، حوصله برنامه نوشتن ندارم، خیلی اشتباه تایپ میکنم، برنامه هام کلی ارور پیدا میکنن و...
گفتم: وقتی برنامه می نویسی، آهنگ هم گوش میدی یا نه؟
گفت: نه
گفتم: قهوه چی؟ موقع کدنویسی قهوه میخوری؟ نسکافه؟ کاپوچینو؟
گفت: نه
گفتم: حتی چایی هم نمیخوری؟
گفت: نه
گفتم: اشکال نداره بعضیا استعداد برنامه نویس شدن ندارن
-
داشتم قسمت فایلارو چک میکردم دیدم یه کتابخونه 585 بار دانلود شده ، با خودم گفتم ایول بابا چه کتابخونه ایه ، رفتم لیست افراد دریافت کننده رو دیدم حداقل 550 تاش خود سازندش بود ، پشت کارش حرف نداشت :دی خسته نباشی دلاور :دی
-
بریم کانتر دیگه ، چخ وضعشه :|
-
نمیدونم چرا وقتی اخبار تلویزیون خودمون رو میبینم همش یاد کشور کره شمالی میفتم!!!!!
-
یادمه مجموعه شوخی کردم از استاد مدیری یه ایتم جالب داشت که قصدش قشنگ مسخره کردن اخبار رسانه ملی بود
یه قسمتشو گیر اوردم حتما ببینید
شوخی کردم - اجرای خبر مهران مدیری
الیکا عبدالرزاقی قشنگ تو نقشه
-
-
برناـᓄــᓄ ᓄـنتشر شهـ
ᓘـیــــــــــــــــــلیــارو زᓘــᓄـیـ ᓄـیــکنـᓄ -
درگذشت آیت الله هاشمی رفسنجانی ، یار دیرین انقلاب تسلیت باد.
-
هنگام نوشتن کد موسیقی گوش می دید ؟ اگر بله چه موسیقی ؟ معرفی کنید ما هم گوش بدیم
-
B4R...B4R ما داریم میاییم...
-
آماده ی انتشار
-
دوستان هر زمان دیدید که پستی در جای اشتباهی هست، یا مشکلی داره، یا تخلفی داره، گزارشش کنید لطفا
مدیریت میبینن گزارشات رو و اقدامات لازم رو انجام میدن، اینکه یه گزارش بدیم، یه اسپم هم خودمون زیرش بدیم زیاد زیبا نیستباشد که رستگار شویم، مرسی اَه
-
یه از سخت ترین کارهای برنامه نویسی چیه؟
به نظر من ایده دادنه
نظر شما چیه!!؟؟؟
-
یه از سخت ترین کارهای برنامه نویسی چیه؟
به نظر من ایده دادنه
نظر شما چیه!!؟؟؟
-
سورس تلگرام رو بعد از 4 ساعت پیا پی با تمام ارور های سنگینش ازش کامپایل کردفتم .
مهندس ایزدی مرسی از روحیت:D
-
یه سری ایده بدید واسه برنامه :||: خواهشا برنامه هایی نباشه که زیاد وقت بگیره
-
وقتشه دیگه بیاین سمت mac و xcode و برنامه نویسی ios :-دی
-
یه سری ایده بدید واسه برنامه :||: خواهشا برنامه هایی نباشه که زیاد وقت بگیره
-
:| Keep calm and play Dota 2
-
یه آموزش حیرت انگیز واسه بیسیک کارای عزیز ایقد پیچیده شده دیگه خودمم نمیتونم هندلش کنم هندل هندل
-
کتاب میساختیم وقتی کتاب ساختن مد نبود هه ! : )))