رفتن به مطلب
  • 0

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


sinam443

سوال

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

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

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

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

درود

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

اگه رو نت همراه بقیه هم جواب نمیده میتونی با کتابخانه 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

 

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...