اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی 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

 

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

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری