mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ سلام میخوام از طریق وایفا یا بلوتوس , گوشی به گوشی دیگه وصل بشم چطوریه؟ یچی شبیه چت ولی فقط یه متن ساده ارسال کنه وایفا باشه بهتره ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
AMiN.M7892 1,029 ارسال شده در 28 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 28 مهر، ۱۳۹۴ مشکلم حل شد میگن جونیده یابندس واقعا راسته انقدر سرچ کرد خلاصه پیداش کردم ( سایت اصلی ) کد میزارم اینجا اگر کسی مشکل منو داشت حل بشه *همینه* این کدو یکم اصلاح کردم ، کد خالصه ( سوکت ) قابلیت دریافت و ارسال متنو داره ( فقط متن ) Sub Process_Globals Dim TcpStreams As AsyncStreams Dim Socket1 As Socket Dim ServerSocket1 As ServerSocket Dim MyIP As String Dim ServerIp As String Dim port As Int End Sub Sub Globals Private Label1 As Label Private EditText2 As EditText Private EditText1 As EditText Private Button1 As Button Private Button2 As Button Dim MyIP As String Private Label2 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") MyIP = ServerSocket1.GetMyIP Label1.Text=MyIP End Sub Sub Button1_Click SendData(EditText1.Text) End Sub Sub Button2_Click Socket1.Initialize("Socket1") Socket1.Connect("192.168.1.102",1234,5000) End Sub Sub SendData(Msg As String) Dim Buffer() As Byte Msg = EditText1.Text If Socket1.Connected = True Then Try Buffer = Msg.GetBytes("UTF8") TcpStreams.Write(Buffer) Catch Log("TcpStreams.Write Error") End Try Else Log("Connection lost") End If End Sub Sub Socket1_Connected(Connected As Boolean)As Boolean If Connected = True Then ToastMessageShow("Connected",True) TcpStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"tcpStreams") Else 'ToastMessageShow("Server not available",True) End If End Sub Sub TcpStreams_NewData (Buffer() As Byte) Dim Msg As String Msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") Label2.Text = Msg End Sub میشه کد اصلاح شده اش رو بدی؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
AMiN.M7892 1,029 ارسال شده در 29 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 مهر، ۱۳۹۴ یا اگه میشه سورس اش رو بده که لایوت ها رو داشته باشه و بدونیم کدوم دکمه مال چیه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mohammad-alone 564 ارسال شده در 29 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 مهر، ۱۳۹۴ به نظر من بهترین سورس برای اینکار برنامه Bridge خود بیسیکه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
AMiN.M7892 1,029 ارسال شده در 29 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 مهر، ۱۳۹۴ نمیدونم، شایدم خوب باشه من سورسش رو ندارم اگه میشه آپ کنید البته این کدی که گذاشتن درست کار میکنه (به احتمال زیاد) من تونستم وصل کنم ولی نتونستم هنوز پیام جابجا کنم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
AMiN.M7892 1,029 ارسال شده در 29 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 مهر، ۱۳۹۴ کاش سورس رو میزاشتی یا لااقل لینک اون صفحه ای که کد بالا را توی سایت اصلی پیدا کردی میدادی واقعا نیاز دارم بهش @mahdi-a لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ali@ali 10 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ سلام ) شاید این آموزش به دردت بخوره http://www.answercenter.org/content/software/basic4android/tutorial/163 موفق باشی*همینه* لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
نیما قبادی 246 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ یه سورس جالب هست ببین بدرت میخوره ولی متاسفانه با بلوتث هست پسورد:basic4android.org Bluetooth Chat(basic4android.org).rar لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ اینو دانلود کردم تست هم کردم ولی این اتصالش شانسکیه دو سه بار خطا داد بار چهارم اوکی شد یچی باشه این گرفتاریا رو نداشته باشه یادش بخیر تو ویژوال بیسیک سوکت میزدیم پورت میدادیم لوکال وصل میشدیم ( کلاینت سرور ) تروجان نویسی تو بیسیک اندروید نمیشه همچین چیزی ؟ مثلا هات اسپا روشن باشه یه ایپی با پورت خاصی باز کنیم گوشی دوم به اون وایفا وصل باشه ( اتصال لوکال ) به پورت وصل بشیم و ارسال متن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
نیما قبادی 246 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ من هنوز اون چیزی که شما میخواید رو ننوشتم ولی اینکه شما میگید که بعد سه چهار بار عجیبه چون واسه من این جوری نشده. ویژال یه تفاوت کوچیکی با بیسیک داره و واسه ترجان نویسی هم میشه از بیسیک استفاده کرد خیلی جالب هم هست*خنده شیطان*همینه* ولی اینجا جاش نیست لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ از تبلت به گوشی خطا داد از گوشی به تبلت اوکی شد خب پس مشکلی نداره ؟! از همین بلوتوس استفاده میکنم. اره تروجان نویسی اندروید خیلی بهترو دست باز تره تو این بیسیک نمیشه اتصال لوکال وایفا ؟؟ اگه میشد عالی بودا ( یه پورت باز بشه ) البته شدن فک کنم بشه قبلا یه پورت با وی بی باز کرده بودم تو پیسی , با شبیه ساز داس اندروید تلنت کردم به پورت وصل شد لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
نیما قبادی 246 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ بهتره راجب تروجان بحث نکنیم تا هردومونو بیرون نکردن*خنده* لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ اهم موافقم *خنده* لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ خب پیداش کردم لوکال ایپی واسه ارتباط با هات اسپات (وایفا) فقط کتاب خونشو ندارم ServerSocket شما دارین؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
نیما قبادی 246 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ دوست عزیز واسه اینکه بتونی ار ServerSocket استفاده کنی باید کتابخونه Network رو تیک بزنی همین و بسه که خود بیسیک به صورت پیش فرز داره لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ سلام.بنده زیاد با سوکت پروگرمینگ آشنایتی ندارم اما قبلا در حال ساخت یک نمونه کد برای چت کردن بودم.الانم چیزی نمونده کامل میکنم توی فروشگاه قرار میدم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ دقیقا اونچیزی که می خوام پیداش کردم هرچی تشکر کنم کمه*ناز* فقط یه مسئله ایی برای دریافت دیتا ( تکست ) باید تبدیل بشه ؟؟؟ بایتو اینا !!! NewSocket.InputStream این جریانش چیه؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ این میاد دریافت میکنه اطلاعاتی که از سوکت دیگه ای واسه شما ارسال میشه به نوبه ای از طرف کلاینت دریافت میشه. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ اره درسته حالا چطوری باید اینو نمایش داد تو لیبل یا تکست باکسی ؟ انگار برای نمایش چیزی که دریافت شده باید تبدیلی چیزی بشه درست؟ چیزی در این مورد پیدا نکردم! چطوریه؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 22 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ خب باید از AsyncStream که مربوط به کتابخانه RandomAccessFile هستش استفاده کنیم. برای مثال این کد بنده مربوط به رویداد NewConnection مربوط به ServerSocket هست. خب اینجا AStream همون AsyncStream بندس : Client_Socket = NewSocket InS = Client_Socket.InputStream OUTS = Client_Socket.OutputStream AStream.InitializePrefix(InS,False,OUTS,"AStream") خوب اینجا اومدم ورودی و حروجی رو دادم به AStream. و یک رویداد داره AStream به اسم NewData مربوط اطلاعات ورودی هستش و من میام این کد رو توی همین رویداد می نویسم : Dim GetMessageOfClient As String GetMessageOfClient = BytesToString(Buffer , 0 , Buffer.Length ,"UTF8") Get_Txt.Text = GetMessageOfClient متن توی ادیت تکست ریخته میشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahdi-a 17 ارسال شده در 22 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 22 اسفند، ۱۳۹۳ دستت درد نکنه این الان اوکی شد ولی چیزی تو تکست باکس نشون نمیده تو دیباگم تست گرفتم اصلا بخش اون newdata و کدای زیرش خونده نمیشه Sub Process_Globals Dim ss As ServerSocket Dim socket1 As Socket Dim ins As InputStream Dim OUTS As OutputStream Dim AStream As AsyncStreams End Sub Sub Globals Dim data() As Byte Private Button1 As Button Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("port") ss.Initialize(1234, "ss") ss.Listen End Sub Sub ss_NewConnection (Successful As Boolean, NewSocket As Socket) socket1 = NewSocket ins = socket1.InputStream OUTS = socket1.OutputStream AStream.InitializePrefix(ins,False,OUTS,"AStream") ss.Listen End Sub Sub AStream_NewData (Buffer() As Byte) Dim GetMessageOfClient As String GetMessageOfClient = BytesToString(Buffer , 0 , Buffer.Length ,"UTF8") EditText1.Text = GetMessageOfClient End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
mahdi-a 17
سلام
میخوام از طریق وایفا یا بلوتوس , گوشی به گوشی دیگه وصل بشم
چطوریه؟
یچی شبیه چت ولی فقط یه متن ساده ارسال کنه
وایفا باشه بهتره
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
28 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.