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

[sinam443 108]

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

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

[asheune 70]

درود

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

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

	Dim p As Phone

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

 

[sinam443 108]

در 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

 

[asheune 70]

مشکل اونجاس که توی تابع اولین خط نوشتی 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

 

[sinam443 108]

در 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

 

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