حسینh 50 ارسال شده در 19 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ باسلام دوستان من یک جستجو نوشتم ولی خوب کار نمی کنه سورس ان را کذاشتم دوستان نگاه کنین مشکل کجاست(وچطور میتوانم برای لیست ویو این سورس عکس بگزارم باتوجه به این سورس بگویید ممنون) اینم لینک ان= http://s3.picofile.com/file/8211312818/%DA%A9%D9%84%D8%B4_%D8%A7%D9%81_%DA%A9%D9%84%D9%86%D8%B2_Copy.rar.html لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ اساتید کمکم کنید لطفا لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 19 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ دوستان من دره اسپم نمیدم برای این که راحتتر جواب بدین عکس از اررور میزارم همین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 19 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ اساتید جواب نمیدید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
پژمان نیکروان 6,055 ارسال شده در 19 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ توی این تکه کد Select * FROM Tbl where id = به = گیر داده ، مساوی رو بردارین تست کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ دوستان خوشحال میشم کمک کنین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 20 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ سلام متاسفانه بیسیک در دستزسم نیست تست کنم ولی خب ایراداتی رو دیدم و لازم دونستم اشازه کنم این تکه کد مربوط به سر فصل ها : Sub listView2_ItemClick (Position As Int, Value As Object) Dim cur As Cursor cur=sq.ExecQuery("Select * FROM Tbl WHERE id= " &Value) cur.Position=0 For i=0 To 3 If cur.GetString("aks"&i) <> Null Then bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width) End If fasl=Value StartActivity(N1) Next End Sub بنده دقیقا هدفتون رو از حلقه نمیدونم چیه.بعدش در ضمن مشکل دیگه آیا شما ستون هایی به اسم aks0 , aks1 , aks2 , aks3 دارید ؟ خب حالا بزارید در مورد حلقه ای که نوشتید بگم.دوستم 2 3 مشکل وجود داره.یکی اینکه اومدید i رو در کنار اسم ستون نوشتید یعنی این -----> cur.GetString("aks"&i) و اینکه اومدید متغیر fasl رو درون حلقه برابر با Value کردید که بازم منظور کدو نمیفهمم.ایراد دیگه دلیل اینکه اومدید StartActivity رو توی حلقه نوشتید چیه ؟ ایا میدونید در اولین گام ( i = 0 ) اکتیویتی استارت میشه و حلقتون دیگه اجرا نمیشه. دوستم ناراحت نشید ولی بهتره که اول یکسری از قواعد رو درست متجه بشید بعد اقدام به ساخت برنامه کنید. سعی کنید کار با حلقه ها رو قشنگ یاد بگیرید و یکسری موارد اولیه.اینجوری پیش برید هرچی برید جلو.تر باز با مشکل مواجه میشید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 19 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ ممنون بابت کمکتون ولی حالا این اررور که عکسش را گذاشتم میده ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ گمونم 12 ساعت شده میشه جواب بدین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 20 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ گمونم 12 ساعت شده میشه جواب بدین یک object از اون bitmap تعریف کردید که فراموش کردید اون رو Initialize کنید ... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ ببخشید منظورتون کجای این کدهاست :Initialize نکردم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 20 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ شما برنامه رو در حابت Debug Legecy اجرا کنید ببینید کدوم خط رو قرمز میکنه ؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ هیچ کدوم از خط ها قرمز نمیشن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ رو اون حالت امتحان کردم ولی قرمز نشد چی کار کنم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 20 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ لطفا سورس خودتون رو پیوست کنید ! لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 20 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 20 شهریور، ۱۳۹۴ کد هارا اول قرار دادم (پیوست کردم) اول تاپیک البته در اون که هست توی این تکه کد Select * FROM Tbl where id = به = گیر داده ، مساوی رو بردارین تست کنید ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 19 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ درود لطفا کد رو قرار بدید در صورتی که نیاز به سورس کد باشه خود دوستان میگن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسینh 50 ارسال شده در 19 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ این کد سرچ 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. Private ScrollView1 As ScrollView Private btn1 As Button Private EditText1 As EditText Dim id As String 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("search1") Activity.Color=Colors.White If File.Exists(File.DirInternal,"a.db")=False Then File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db") End If If Act_Matlab.sq.IsInitialized=False Then Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False) End If EditText1.Color=Colors.Transparent End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btn_click Dim b As Button b=Sender id=b.Tag StartActivity(N1) End Sub Sub btn1_Click Dim text As String = EditText1.text Dim d As String If text = "" Then d = "لطفا یک کلمه برای جستجو وارد کنید" Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png")) Return Else '\/\/\/\/\/\/\/\//\/\ Dim cur1 As Cursor cur1=Act_Matlab.sq.ExecQuery("select id* FROM Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'") If cur1.RowCount = 0 Then d = "هیچ موردی یافت نشد!" Msgbox2(d, "توجه", "تایید", "", "", LoadBitmap(File.DirAssets, "error.png")) Return End If '/\/\/\/\/\//\/\/\/\/\/\ Dim cur As Cursor cur=Act_Matlab.sq.ExecQuery("select id,fasl,FROM Tbl WHERE fasl LIKE '%"&EditText1.text&"%' OR fasl LIKE '%"&EditText1.text&"%'") Dim h As Int h=8%y For i = 0 To cur.RowCount-1 cur.Position=i '******* Dim btn As Button btn.Initialize("btn") btn.text=cur.GetString("fasl") btn.Tag=cur.GetInt("id") btn.TextSize=20 btn.TextColor=Colors.Black If cur.GetInt("fav")=0 Then Dim im As BitmapDrawable im.Initialize(LoadBitmap(File.DirAssets,"B.png")) btn.Background=im Else Dim im As BitmapDrawable im.Initialize(LoadBitmap(File.DirAssets,"B.png")) btn.Background=im End If ScrollView1.Panel.AddView(btn,0,h,100%x,13%Y) ScrollView1.Panel.Height=(cur.RowCount)*13.5%y h=h+13%Y Next End If End Sub مطلب (سر فصل) Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim fasl As String Dim sq As SQL Dim bitmap1(10) As Bitmap Dim font1 As Typeface Dim font As String 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 listview1 As ListView Dim SlidingMenu1 As SlidingMenu Dim listview2 As ListView 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("fa") If File.Exists(File.DirInternal,"a.db")= False Then File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db") End If If sq.IsInitialized=False Then sq.Initialize(File.DirInternal,"a.db",False) End If Dim cur As Cursor cur =sq.ExecQuery("Select * FROM Tbl where id Between 1 AND 3") For s =0 To cur.RowCount-1 cur.Position=s listview2.AddSingleLine2( cur.GetString("fasl"), cur.GetInt("id")) listview2.SingleLineLayout.Label.Gravity=Gravity.CENTER listview2.SingleLineLayout.Label.TextColor=Colors.White listview2.SingleLineLayout.Label.TextSize=20 listview2.SingleLineLayout.ItemHeight=15%y font1=Typeface.LoadFromAssets("font5.ttf") SlidingMenu1.Initialize("menu") listview1.Initialize("list") SlidingMenu1.BehindOffset=55%x SlidingMenu1.Mode=SlidingMenu1.LEFT SlidingMenu1.Menu.AddView(listview1,0%y,100dip,100%y,100%x) listview1.AddSingleLine2("منوی اصلی",1) listview1.AddSingleLine2("ویدوها",2) listview1.AddSingleLine2("تنطیمات",3) listview1.AddSingleLine2("درباره ما",4) Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"t96.jpg")) listview1.SingleLineLayout.Background=b listview1.SingleLineLayout.ItemHeight = 100 Dim lbl As Label lbl= listview1.SingleLineLayout.Label lbl.Gravity=Gravity.LEFT lbl.Left=lbl.Left+130dip lbl.Height =100dip lbl.Typeface =font1 lbl.TextSize= 25 lbl.Top=20dip lbl.TextColor = Colors.Black Next End Sub Sub listView2_ItemClick (Position As Int, Value As Object) Dim cur As Cursor cur=sq.ExecQuery("Select * FROM Tbl WHERE id= " &Value) cur.Position=0 For i=0 To 3 If cur.GetString("aks"&i) <> Null Then bitmap1(i).InitializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width) End If fasl=Value StartActivity(N1) Next End Sub n1 بخش 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 ScrollView1 As ScrollView 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("Layout1") Activity.LoadLayout("fa1") If File.Exists(File.DirInternal,"a.db")= False Then File.Copy(File.DirAssets,"a.db",File.DirInternal,"a.db") End If If Act_Matlab.sq.IsInitialized=False Then Act_Matlab.sq.Initialize(File.DirInternal,"a.db",False) End If Dim cur As Cursor cur =Act_Matlab.sq.ExecQuery("Select * FROM Tbl where id ="&Act_Matlab.fasl) cur.Position=0 Dim h As Int For i = 0 To 2 If cur.GetString("matn"&i) <> Null Then Dim label1 As Label label1.Initialize(label1) label1.Text=cur.GetString("matn"&i) If File.Exists(File.DirInternal,"Settings.stg")=True Then Dim list1 As List list1=File.ReadList(File.DirInternal,"Settings.stg") Tanzimat2.font=list1.Get(0) Tanzimat2.size=list1.Get(1) Tanzimat2.color=list1.Get(2) Else Tanzimat2.font="font3" Tanzimat2.size=18 label1.TextColor=Colors.Black End If Dim before, after As Float Dim Obj1 As Reflector Obj1.Target = label1 before = Obj1.RunMethod("getLineHeight") Obj1.Target = label1 Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.1, "java.lang.float") Obj1.Target = label1 after = Obj1.RunMethod("getLineHeight") ScrollView1.Panel.AddView(label1,2%x,h,96%x,0) Dim su As StringUtils label1.TextSize=Tanzimat2.size label1.Typeface=Typeface.LoadFromAssets(Tanzimat2.font & ".ttf") label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)+18 h= h + label1.Height +10%y ScrollView1.Panel.Height =h End If Select Case Tanzimat2.color Case 1 label1.TextColor=Colors.Green Case 2 label1.TextColor=Colors.red Case 3 label1.TextColor=Colors.Black End Select If cur.GetString("aks"&i)<> Null Then Dim img As ImageView img.Initialize("img") img.Tag= cur.GetString("aks"&i) ScrollView1.Panel.AddView(img,0,h,ScrollView1.Width,ScrollView1.Height) img.Bitmap=Act_Matlab.bitmap1(i) If Act_Matlab.bitmap1(i).Width > 100%x Then img.Width=100%x img.Height= (img.Width / Act_Matlab.bitmap1(i).Width)*Act_Matlab.bitmap1(i).Height img.Gravity=Gravity.FILL Else img.Width =Act_Matlab.bitmap1(i).Width img.Height=Act_Matlab.bitmap1(i).Height img.Left = (100%x -img.Width)/2 img.Gravity=Gravity.FILL End If h = h +img.Height+0%y ScrollView1 .Panel.Height=h End If Next End Sub دیتابیس رو هم گذاشتم (پیویست کردم) a.rar لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 19 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 شهریور، ۱۳۹۴ دوستم، بار دومه که اسپمتون رو پاک میکنم، دفعه بعدی تاپیکتون بسته میشه و اخطار میگیرید.... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
حسینh 50
باسلام دوستان من یک جستجو نوشتم ولی خوب کار نمی کنه سورس ان را کذاشتم دوستان نگاه کنین مشکل کجاست(وچطور میتوانم برای لیست ویو این سورس عکس بگزارم باتوجه به این سورس بگویید ممنون)
اینم لینک ان= http://s3.picofile.com/file/8211312818/%DA%A9%D9%84%D8%B4_%D8%A7%D9%81_%DA%A9%D9%84%D9%86%D8%B2_Copy.rar.html
لینک ارسال
به اشتراک گذاری در سایت های دیگر
18 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.