رفتن به مطلب

alijafari

کاربر عادی
  • تعداد ارسال ها

    14
  • تاریخ عضویت

  • آخرین بازدید

درباره alijafari

  • تاریخ تولد ۱۵ اردیبهشت ۱۳۶۴

آخرین بازدید کنندگان نمایه

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمی شود.

دستاورد های alijafari

کارآموز

کارآموز (3/14)

  • First Post
  • Collaborator
  • Conversation Starter
  • Week One Done
  • One Month Later

نشان‌های اخیر

11

اعتبار در سایت

  1. بنده می خوام عکس مورد نطر را که از طریق file dialog انتخاب کرده ام را در شاخه file.dirassets ذخیره کنم.کسی از دوستان می تونه یه راهنمایی کنه. Sub Button1_Click Dim fd As FileDialog fd.FileFilter = ".png,.bmp,.jpg,.jpeg,.gif" fd.Show("عکس را انتخاب کنید","نمایش","انصراف","",Null) If fd.Response = DialogResponse.POSITIVE Then Dim bitmap1 As Bitmap 'fd.FilePath="image/*" bitmap1.Initialize(fd.FilePath,fd.ChosenName) ImageView1.Bitmap = bitmap1 End If End Sub
  2. آقا من تابع فراخوانی کردم و متن از طریق تابع به یک شماره خاص ارسال کردم ولی جواب نداد ولی بازم خوشبختانه دیگه با خطا قید شده مواجه نشدم.در ضمن بنده دستور فوق را مستقیم در برنامه قرار دادم بازم sms ارسال نشد. که کد آن به شرح فوق است Sub btnsend_Click Dim d1 As InputDialog d1.InputType = d1.INPUT_TYPE_PHONE d1.Hint = "فرمت 09000000000" d1.HintColor = Colors.LightGray d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif")) If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then Dim ps As PhoneSms Dim r As Reflector r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null) Dim parts As Object parts = r.RunMethod2("divideMessage",txttrick.Text, "java.lang.String") r.RunMethod4("sendMultipartTextMessage", _ Array As Object(d1.Input, Null, parts, Null, Null), _ Array As String("java.lang.String", "java.lang.String", _ "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList")) 'myCode.SendLargeSms(d1.Input,loadData2(sID)) myCode.playBeep ' ToastMessageShow("لینک گزینه انتخاب شده ارسال شد",False) End If End Sub
  3. alijafari

    مشکل در ارسال sms

    بنده اطلاعات پایگاه داده فراخوانی کرده و در edittext قرار داده و از یک دکمه برای ارسال متن از طریق sms استفاده کرده ام که برای دریافت شماره از inputdialog استفاده کردم ولی وقتی شماره را وارد می کنم وروی گزینه قبول کلیک می کنم با خطای An error has occured in sub:java.lang.SecurityExceptionending SMS message :user 10119 dosenot have android.SEND_SMS. واقعا این مشکل بزرگ شده برام هر چی سرچ میکنم نمی تونم مشکل حل کند .از دوستان اگر کسی میتونه لطفا یه کمکی بکنه درضمن کدهای مورد استفاده به شرح فوق می باشد Sub btnsend_Click Dim d1 As InputDialog d1.InputType = d1.INPUT_TYPE_PHONE d1.Hint = "فرمت 09000000000" d1.HintColor = Colors.LightGray d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif")) If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then myCode.SendLargeSms(d1.Input,txttrick.Text) myCode.playBeep End If End Sub Sub SendLargeSms(Destination As String, Message As String) Dim r As Reflector r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null) Dim parts As Object parts = r.RunMethod2("divideMessage", Message, "java.lang.String") r.RunMethod4("sendMultipartTextMessage", _ Array As Object(Destination, Null, parts, Null, Null), _ Array As String("java.lang.String", "java.lang.String", _ "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList")) End Sub
  4. نه فقط محتویات editextفراخوانی شده از پایگاه داده را به شماره مشخصی که از طریقinputdialog وارد کردم از طریق پیام کوتاه ارسال کنم
  5. دقیقا بله ولی با خطا قید شده مواجه شدم Sub SendLargeSms(Destination As String, Message As String) Dim r As Reflector r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null) Dim parts As Object parts = r.RunMethod2("divideMessage", Message, "java.lang.String") r.RunMethod4("sendMultipartTextMessage", _ Array As Object(Destination, Null, parts, Null, Null), _ Array As String("java.lang.String", "java.lang.String", _ "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList")) End Sub Sub btnsend_Click Dim d1 As InputDialog d1.InputType = d1.INPUT_TYPE_PHONE d1.Hint = "فرمت 09000000000" d1.HintColor = Colors.LightGray d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif")) If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then myCode.SendLargeSms(d1.Input,txttrick.Text) myCode.playBeep End If End Sub خطا هم به شرح فوق است An error has occured in sub:java.lang.SecurityExceptionending SMS message :user 10119 dosenot have android.SEND_SMS.
  6. بنده اطلاعات پایگاه داده فراخوانی کرده و در edittext قرار داده و از یک دکمه برای ارسال متن از طریق sms استفاده کرده ام که برای دریافت شماره از inputdialog استفاده کردم ولی وقتی شماره را وارد می کنم وروی گزینه قبول کلیک می کنم با خطای An error has occured in sub:java.lang.SecurityExceptionending SMS message :user 10119 dosenot have android.SEND_SMS. مواجه می شوم در ضمن کده ها به شرح زیر است Sub btnsend_Click Dim d1 As InputDialog d1.InputType = d1.INPUT_TYPE_PHONE d1.Hint = "فرمت 09000000000" d1.HintColor = Colors.LightGray d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif")) If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then myCode.SendLargeSms(d1.Input,txttrick.Text) myCode.playBeep End If End Sub Sub SendLargeSms(Destination As String, Message As String) Dim r As Reflector r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null) Dim parts As Object parts = r.RunMethod2("divideMessage", Message, "java.lang.String") r.RunMethod4("sendMultipartTextMessage", _ Array As Object(Destination, Null, parts, Null, Null), _ Array As String("java.lang.String", "java.lang.String", _ "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList")) End Sub از کلیه دوستان خواهشمندم بنده در را راهنمایی کنند
  7. بنده می خوام یه سری عکس از image gallery درون یک database ذخیره کرده و سپس عکس ها را از دیتابیس بازیابی کرده و در برنامه خود نمایش دهم .لطفا اگر کسی میتونه یه کمکی در مورد نحوه ایجاد image picker و ذخیره و بازیابی از دیتابیس مرا راهنمایی کنه در ضمن بنده یه سرچ کردم و کدهای زیر را پیدا کردم Dim ImageChooser As ContentChooser ImageChooser.Initialize("imgChooser") ImageChooser.show("image/*", "Choose image") Sub imgChooser_Result(Success As Boolean, Dir As String, FileName As String) if Success then 'do whatever end if end sub ولی نیاز به کتابخانه contentchooser دارم کسی هست که این کتابخانه داشته باشه
  8. طریقه تعیین عنوان -نام پروزه -و نام اپلیکیشن قابل اجرا بر روی سیستم عامل اندریود (فایل با پسوند apk)در بیسیک 4 اندریود.از کلیه دوستان خواهشمندم مرا راهنمایی کنند
  9. بنده می خواهم از طریق یک صفحه ورود که شامل نام وکلمه عبور است امکان خرید کالا را برای کاربران فراهم آورم بنابراین از دو textbox و یک button استفاده کرده ام که اطلاعات را نام کلمه عبور از دیتابیس جستجو کرده و در صورت وجود id کاربر را در متغییر iduserlist ذخیره می کند که کد آن را به شرح زیر می باشد. Sub vorod_Click cursor1=SQL1.ExecQuery("SELECT tblUsers.IDuser FROM tblUsers WHERE tblUsers.Username = " & txtUsername.text & " AND tblUsers.Password = " & txtPassword.Text & "") iduserlist=cursor1.GetString("tblUsers.IDuser") If cursor1.RowCount>1 Then Activity.LoadLayout("kharid") DBload4 End If End Sub ولی با خطای زیر روبرو شدم android.database.sqlite.sqliteexception :no such column ali:while compiling ("SELECT tblUsers.IDuser FROM tblUsers WHERE tblUsers.Username = " & txtUsername.text & " AND tblUsers.Password = " & txtPassword.Text & "") دوستانه در صورت امکان یه راه حل مناسب برا اینجانب ارائه دهند در ضمن روال کار این طور است فیلد iduser مشخصات کابران در متغییر iduserlistقرار می گیرد و همچنین این متغییر با id کالای انتخاب شده ( در صفحه kharid و در لیست ویو kharidkalalstview)در جدول سومی به نام connectiontable (که شامل ای دی کاربر و ای دی کالا)با دستور insert اضافه می شود و در نهایت با تابع load3 نتایج خرید کاربردر لیست ویو listkharidkalalstview (شامل مشخصات کاربر خریدار جنس و کالاهای خریداری شده توسط آن )نمایش داده می شود کدها به شرح فوق است Sub listkalalstview_ItemClick(Position As Int, Value As Object)' click on the entry in the list Dim idvalue As String Dim countIt As Int idvalue = Value countIt = idvalue.IndexOf("|") 'find location of sperator idvalue = idvalue.SubString2(0,countIt) 'find first part of label text id = idvalue SQL1.ExecNonQuery("INSERT INTO connectiontable VALUES('" & id & "','" & iduserlist & "')") DBload3 End Sub Sub DBload3 listkharidlstview.Clear'need to clear the list cursor1 = SQL1.ExecQuery("SELECT DISTINCT tblUsers.Username,tblUsers.Password,kala.tedad,kala.namekala FROM kala ,tblUsers INNER JOIN connectiontable ON kala.idkala = connectiontable.idkala AND tblUsers.IDuser = connectiontable.IDuser WHERE tblUsers.IDuser = connectiontable.IDuser") For i = 0 To cursor1.RowCount - 1 cursor1.Position = i listkharidlstview.AddSingleLine(cursor1.GetString("tblUsers.Username")& "|" &cursor1.GetString("tblUsers.Password")& " | " & cursor1.GetString("kala.tedad")& " | " & cursor1.GetString("kala.namekala")) listkharidlstview.SingleLineLayout.ItemHeight = 20 listkharidlstview.SingleLineLayout.Label.TextSize = 10 listkharidlstview.SingleLineLayout.Label.TextColor = Colors.Black listkharidlstview.SingleLineLayout.Label.Color = Colors.White Next End Sub (جدول connectiontable با دو جدول کالا و کاربر ارتباط دارد که کد sql آن به شرح فوق است SELECT DISTINCT tblUsers.Username,tblUsers.Password,kala.tedad,kala.namekala FROM kala ,tblUsers INNER JOIN connectiontable ON kala.idkala = connectiontable.idkala AND tblUsers.IDuser = connectiontable.IDuser WHERE tblUsers.IDuser = connectiontable.IDuser) .
  10. دوستان در مورد ایجاد پایگاه داده رابطه ای( به عنوان مثال سیستم فروشگاهی که اطلاعات کاربران و کالاها را در جداول مختلف قرار داده و بین انها ارتباط ایجاد می کند)بنده را کمک کنید.از کلیه دوستانی که تجربه در این زمینه دارند خواهشمند است بنده از طریق سورس کد - آموزش تصویری راهنمایی نمایید
×
×
  • اضافه کردن...