هنگ کردن نرم افزار به هنگام کار در بک گرند

[ILYA20]

با سلام و درود خدمت دوستان عزیز

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

                    TextBox1.AppendText(Environment.NewLine & Fastboot.ExecuteFastbootCommand(Fastboot.FormFastb  ootCommand("flash boot", textboxboot.Text)))

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

چطور میتونیم کاری کنیم وقتی که نرم افزار در حین کار هست هنگ نباشه و عملیات کار را روی TEXTBOX چاپ کنه ؟

من این سوال رو از دوست هندیم پرسیدم گفت این رو توی گوگل جستجو کن :

Kpstv, [۱۵.۱۰.۱۷ ۱۵:۲۹]
Umm add an event handler to capture real time output


Kpstv, [۱۵.۱۰.۱۷ ۱۵:۲۹]
Searvj on google


ILYA20, [۱۵.۱۰.۱۷ ۱۵:۳۰]
excuse me
I really did not understand


Kpstv, [۱۵.۱۰.۱۷ ۱۵:۳۱]
Search on Google 'how to capture real time output of process using event handler VB'

راهنمایی لطفا

[hamidrezax1]

اگر شما در محیط ویژوال استادیو کار میکنید میتونید این دستور رو درون BackgroundWorker بنویسید یا با Threading این کار رو انجام بدین.البته نظرات دوستان قطعا بهتر خواهد بود

[ILYA20]

اگر شما در محیط ویژوال استادیو کار میکنید میتونید این دستور رو درون BackgroundWorker بنویسید یا با Threading این کار رو انجام بدین.البته نظرات دوستان قطعا بهتر خواهد بود

ممنون عزیز
بله بنده ویژوال استادیو کار میکنم
میتونید یک مثال بزنید

[hamidrezax1]

دوست عزیز در فرمت دو عدد باتن قرار بده و دو لیبل به مقدارشون تکست اونها صفر باشه اونوقت این دستورات کپی کن

Public Class Form1    Dim a As New Threading.Thread(AddressOf H1)

    Dim i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        CheckForIllegalCrossThreadCalls = False

        a.Start()

    End Sub

    Private Sub H1()









        For i = Me.Label1.Text To 100000

            Me.Label1.Text = i

            If Me.Label2.Text = 2 Then

                MsgBox("سلام")

                Me.Label2.Text = 0

            End If





            Application.DoEvents()

        Next









    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Label2.Text = 2





    End Sub

End Class

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

[ILYA20]

ببخشید دوست عزیز موضوع کمی برام گنگ شد (ما که تازه کاریم )

تو پروژه ما نیازی به لیبل نیست شما فرض کنید یک دکمه هست که آدرس فایل را از تکست باکس میگیره و عملیات رایت فایل را روی دستگاه انجام میده از دستور شما سر در نیاوردم و نتونستم به عنوان مثال هم ازش بهره ببرم

[336699]

ببخشید دوست عزیز موضوع کمی برام گنگ شد (ما که تازه کاریم )

تو پروژه ما نیازی به لیبل نیست شما فرض کنید یک دکمه هست که آدرس فایل را از تکست باکس میگیره و عملیات رایت فایل را روی دستگاه انجام میده از دستور شما سر در نیاوردم و نتونستم به عنوان مثال هم ازش بهره ببرم

سلام
شما سورس پروژه رو ارسال کن ، تا راحت تر بشه راهنمایی کرد.

اگه ما با فرضیات خودمون بخواهیم مثال بزنیم ، موضوع گنگ میشه

[ILYA20]

سلام
شما سورس پروژه رو ارسال کن ، تا راحت تر بشه راهنمایی کرد.

اگه ما با فرضیات خودمون بخواهیم مثال بزنیم ، موضوع گنگ میشه

بفرمایید

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        TextBox1.Clear()

        If PictureBox1.BackColor = Color.GreenYellow Then

            If Trim(TextBoxsideload.Text).Length > 0 Then

                TextBox1.AppendText(Environment.NewLine & Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload  ", TextBoxsideload.Text)))

[336699]

بفرمایید

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        TextBox1.Clear()

        If PictureBox1.BackColor = Color.GreenYellow Then

            If Trim(TextBoxsideload.Text).Length > 0 Then

                TextBox1.AppendText(Environment.NewLine & Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload  ", TextBoxsideload.Text)))

یعنی کل برنامه شما همین سه خطه

کل پروژه رو zip کنید بفرستید .

در ضمن بسته به اینکه ورژن دانت نت مورد استفاده چند هستش ، کدها متفاوت خواهد بود.

[ILYA20]

یعنی کل برنامه شما همین سه خطه

کل پروژه رو zip کنید بفرستید .

در ضمن بسته به اینکه ورژن دانت نت مورد استفاده چند هستش ، کدها متفاوت خواهد بود.

به عنوان نمونه کاملش رو جدا ایجاد کردم
خدمت شما

Imports System.IO

Imports System.IO.Path

Imports System.Threading.Tasks

Imports System.Diagnostics

Imports System.Net

Imports System.ComponentModel

Imports RegawMOD.Android

Public Class Form1

    Dim android As AndroidController

    Dim device As Device

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        OpenFileDialog1.FileName = "Select flashable.zip File"

        OpenFileDialog1.Filter = "Zip File|*.zip"

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            TextBox2.Text = OpenFileDialog1.FileName

            'Me.TextBoxsideload.Text = Me.TextBoxsideload.Text.Replace(" ", "")

            TextBox2.Enabled = True

        End If

    End Sub





    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox1.Clear()

        If Trim(TextBox2.Text).Length > 0 Then

            TextBox1.AppendText(Environment.NewLine & Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload  ", TextBox2.Text)))

        Else

            TextBox1.AppendText(Environment.NewLine & "You have not selected a file. Please select a file then try again")

        End If

    End Sub

End Class

متاسفانه نمیتونیم بسته رو اپلود کنیم برای تست و راه اندازی الگوریتم هامون روی دستگاه خیلی وقت گذاشتیم

[hamidrezax1]

 Dim a As New Threading.Thread(AddressOf H1)    Dim i As Integer

  Private Sub H1()

 TextBox1.AppendText(Environment.NewLine & Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload  ", TextBox2.Text)))

    End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox1.Clear()

        If Trim(TextBox2.Text).Length > 0 Then





 CheckForIllegalCrossThreadCalls = False

        a.Start()

        Else

            TextBox1.AppendText(Environment.NewLine & "You have not selected a file. Please select a file then try again")

        End If

    End Sub

[ILYA20]

 Dim a As New Threading.Thread(AddressOf H1)    Dim i As Integer

  Private Sub H1()

 TextBox1.AppendText(Environment.NewLine & Adb.ExecuteAdbCommand(Adb.FormAdbCommand("sideload  ", TextBox2.Text)))

    End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox1.Clear()

        If Trim(TextBox2.Text).Length > 0 Then





 CheckForIllegalCrossThreadCalls = False

        a.Start()

        Else

            TextBox1.AppendText(Environment.NewLine & "You have not selected a file. Please select a file then try again")

        End If

    End Sub

با تشکر از شما عزیز


مشکل حل شد

[ILYA20]

دوستان عزیز این دستور یک مشکلی داره

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

بعد از اتمام پروسه Thread اگر بخوابم دوباره دستور را با استفاده از دکمه اجرا کنیم برای پروسه خطا میگیره

من فکر میکنم بعد از استارت Thread اجرا باقی میمونه به همین خاطر برای استارت آن خطا میگیره ... چطوری میشه بعد از اتمام پروسه thread اون رو بست ؟

[hamidrezax1]

سلام دوست عزیز در خصوص پروسه کاری برنامه تون یکم توضیح میدین
منظورم اینه که یه پروسه از اول تا آخر اجرا میشه و نیاز هست مجددا اجرا بشه یا بایستی یه وقفه در برنامه صورت بگیره؟
لطفا توضیح بدین تا بشه راهنمایی کرد

[ILYA20]

سلام دوست عزیز در خصوص پروسه کاری برنامه تون یکم توضیح میدین
منظورم اینه که یه پروسه از اول تا آخر اجرا میشه و نیاز هست مجددا اجرا بشه یا بایستی یه وقفه در برنامه صورت بگیره؟
لطفا توضیح بدین تا بشه راهنمایی کرد

ممنون از شما .

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

برای بار اول که کلیک کردیم هیچ مشکلی نداره thread اجرا میشه و کارشو میکنه

اما بعد از اتمام پروسه thread ... بخوایم دوباره کلیک کنیم تا thread دوباره کاری که تعریف کردیم را انجام بده خط thread1.start() خطا میگیره و کار نمیکنه و باید نرم افزار را ببندیم و دوباره باز کنیم تا بتونیم ازش استفاده کنیم

[hamidrezax1]

منظور من اینه که این کلیک زمانش مشخصه یا نه؟؟؟

[ILYA20]

منظور من اینه که این کلیک زمانش مشخصه یا نه؟؟؟

خیر
مثلا کاربر به دلخواه میخواد بعد از انجام اولین کار دوباره اینکارو انجام بده خب اونوقت به مشکل برمیخوره

[hamidrezax1]

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

[ILYA20]

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

ابزار ما یک ابزار عمومی هست و همتای ابزار ما تو اینترنت زیاده این واقعا کمی مسخره میشه برای تکرار یک کاری دوباره نرم افزار نیاز به باز و بسته شدن داشته باشه ...

هنگی نرم افزار مهم نیست از backgroundworker استفاده میکنم و چون بکگرند ورکر خروجی کار رو روی تکست باکس چاپ نمیکنه برای بک گرند ورکر از thread استفاده کردم این thread هم این مشکل رو داره

جز thread از گزینه دیگری میتونیم استفاده کنیم؟