اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


sinam443

داده های تلفن همراه

5 ارسال در این موضوع قرار دارد

با سلام خدمت اساتید و دوستان  خب بنده یه نرم افزار میسازم سمت سرور منتهی یه باگ بزرگی که نرم افزار داره اینه که تو نت همراه کار نمیکنه ، نت موجوده ولی کار نمیکنه و باید به وای فای متصل بشیم .

علاوه بر اون بنده میخام یه چک کانکشن حرفه ای بزارم که ببینه اگه وای فای یا داده نتش تموم شده بود ارور بده یه همچین کاری میشه کرد ؟؟؟ 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

درود

ممکنه مشکل از نت همراه تو باشه

اگه رو نت همراه بقیه هم جواب نمیده میتونی با کتابخانه phone چک کنی که وای فای روشنه یا نه و همچنین داده همراه

	Dim p As Phone

	If (p.GetDataState == "CONNECTED") Then
		داده همراه
	Else If(p.GetSettings ("wifi_on") == 1) Then
		وای فای
	End If

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 38 دقیقه قبل، asheune گفته است :

درود

ممکنه مشکل از نت همراه تو باشه

اگه رو نت همراه بقیه هم جواب نمیده میتونی با کتابخانه phone چک کنی که وای فای روشنه یا نه و همچنین داده همراه


	Dim p As Phone

	If (p.GetDataState == "CONNECTED") Then
		داده همراه
	Else If(p.GetSettings ("wifi_on") == 1) Then
		وای فای
	End If

 

بله متاسفانه مشکل از نت بنده بوده ___  این کدارو نوشتم و تو هنگام لود (دریافت اطلاعات) شرط گذاشتم ولی بدون توجه به شرط لود انجام میشه مشکل از کجاست ؟؟

Sub CheckConnection As Boolean     
    Return True  
	Dim p As Phone
    
    If (p.GetDataState == "CONNECTED") Then
        Return True
    End If
    If (p.GetSettings ("wifi_on") == 1) Then
        Return True
    End If
    If (p.GetDataState == "DISCONNECTED") Then
        Return False
    End If
     If (p.GetDataState == "SUSPENDED") Then
        Return False
    End If
	
End Sub

'بررسی وصل بودن یا نبودن 
dim error as int
error=0
If CheckConnection<>True Then error=1

ارسال اطلاعات'
sub send
if error > 0 then 
toastmessageshow("کاربر گرامی لطفا اتصال خود را چک کنید .",false)
else if error =0 then
job1.download("www.google.com")
end sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مشکل اونجاس که توی تابع اولین خط نوشتی Return True  و ینی قبل از اینکه نت رو چک کنه True   بر میگردونه ! اون خط رو حذف کن

یا کد تابع رو به صورت زیر بنویس

Sub Connection As Boolean
	If (p.GetDataState == "CONNECTED") Or (p.GetSettings ("wifi_on") == 1) Then
		Return True
	Else
		Return False
	End If
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 6 ساعت قبل، asheune گفته است :

مشکل اونجاس که توی تابع اولین خط نوشتی Return True  و ینی قبل از اینکه نت رو چک کنه True   بر میگردونه ! اون خط رو حذف کن

یا کد تابع رو به صورت زیر بنویس


Sub Connection As Boolean
	If (p.GetDataState == "CONNECTED") Or (p.GetSettings ("wifi_on") == 1) Then
		Return True
	Else
		Return False
	End If
End Sub

 

مشکل حل شد ممنون 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.