منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد كود خاص ProgressBar يعني لما اشغل امر من موجه الاوامر (cmd)

يشتغل ProgressBar تلقائي وعند انتها عمل من موجه الاوامر يصل ProgressBar الى 100

محتاجه الكود بالله عليكم

البروجرس بار يحتاج الي عداد
ثم و بناء علي هذا العداد يتم تشغيل البروجرس بار
في حالتك هنا لا يوجد هذا العداد
والحل يكمن في استخدام Stopwatch Class بحيث تستخدمه كعداد للبروجرس بار
و من خلال ذلك يتم تنفيذ أمر معين

أما لو كان لديك أكثر من أمر تريد تنفيذه هنا الأمر يصبخ مختلف قليلا
حيث هنا تبني مصفوفة تنفذ من خلالها الأوامر
ثم تستخدم عدد الأوامر في المصفوفة كعداد للبروجرس بار

الكود التالي سيوضح لك كيف تقرأ مصفوفة باستخدام البروجرس بار
ولتنفيذ الكود
افتح مشروع تجريبي
ضع علي الفورم تكست بوكس و باتون و بروجرس بار
واكتب الكود بالشكل التالي
الكود مثال توضيحي فقط

PHP كود :

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

        Dim bytes As Byte() = New Byte() {100, 200, 220, 230, 240, 250, 110, 11, 15, 200, 220, 230, 10, 200, 220, 210, 230, 110, 111, 112, 113, 114, 13, 15}
        Dim Values As Byte() = New Byte(bytes.Length - 1) {}
        Dim value As Byte = Nothing
        Dim s As String = ""
        Dim i As Integer = 0

        Me.ProgressBar1.Maximum = bytes.Length
        Me.ProgressBar1.Minimum = 1
        Me.ProgressBar1.Value = 1

        While i < bytes.Length
            ' Synchronization read data
            value = bytes(i)
            Values(i) = value
            ' Synchronization write data
            If Values IsNot Nothing Then
                s += Values(i).ToString
                s += Environment.NewLine
            End If
            Me.ProgressBar1.PerformStep()
            ListBox1.Items.Add(value)
            i += 1
        End While
    End Sub 

عموما في حالتك هنا غالبا تنفيذ الكود قد لا يأحذ ثانية او ثواني أو أجزاء من الثانية
وبالتالي انت لا تحتاج بروجورس بار
بلاش تعقد برامجك بما لا تحتاجه هذه البرامج

يا اخي انا اعمل في برمجة بموجه الاوامر cmd دائما اعتمد عليه
وانا احتاج بروجراس بار لاستخدامه في انتظار عمل cmd
مثلا لدي برنامج ياأخد امر من textbox ويضعها ف cmd
ويبداء الامر يشتغل على cmd مشكلتي لا اعرف امتا ينتهي على حسب الامر الذي عطيته لي cmd
فكرت في Process عندما يتم غلق Process واسمه cmd يخبرني انا تم الانتهاء وهكذا
اذا عندك الكود انا بدي ياه

(11-11-17, 12:05 AM)mohammedvego كتب : [ -> ]يا اخي انا اعمل في برمجة بموجه الاوامر cmd دائما اعتمد عليه
وانا احتاج بروجراس بار لاستخدامه في انتظار عمل cmd
مثلا لدي برنامج ياأخد امر من textbox ويضعها ف cmd
ويبداء الامر يشتغل على cmd مشكلتي لا اعرف امتا ينتهي على حسب الامر الذي عطيته لي cmd
فكرت في Process عندما يتم غلق Process واسمه cmd يخبرني انا تم الانتهاء وهكذا
اذا عندك الكود انا بدي ياه

Process.Start("Pc_Tl.exe", AppWinStyle.Hide)
writeIni(File, Section, Author, HexTextBox1.Text)
writeIni(File, Section, org, HexTextBox2.Text)
ProgressBar1.Visible = True
ProgressBar1.Value = 10
Timer1.Start()
Dim pro As New System.Diagnostics.ProcessStartInfo("Pc_Tl.exe", AppWinStyle.Hide)
pro.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
Dim myProcess As Process = System.Diagnostics.Process.Start(pro)
myProcess.WaitForExit()
ProgressBar1.Value = 100
MsgBox("تم فك تشفير", MsgBoxStyle.Information, "Completed")

استخدمت هذا الكود لاكن يحتاج تعديل علما بأن (Pc_Tl) هو موجه اوامر cmd جاهز بصيغة exe

PHP كود :

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

    writeIni(File, Section, Author, HexTextBox1.Text)
    writeIni(File, Section, org, HexTextBox2.Text)

    Threading.
    Tasks.
    Task.
    Factory.
    StartNew(
        Sub()
            '--------------------------------'
            Button1.Invoke(Sub() Button1.Enabled = False)
            ProgressBar1.Invoke(Sub()
                                    ProgressBar1.Value = 0
                                    ProgressBar1.Style = ProgressBarStyle.Marquee
                                End Sub)


            Dim fn As String = "Pc_Tl.exe"
            Dim proc As New Process() With {.StartInfo = New ProcessStartInfo() With {.FileName = fn}}
            'proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden'

            proc.Start()
            proc.WaitForExit()


            ProgressBar1.Invoke(Sub()
                                    ProgressBar1.Value = 100
                                    ProgressBar1.Style = ProgressBarStyle.Continuous
                                End Sub)
            Button1.Invoke(Sub() Button1.Enabled = True)
            MsgBox("تم فك تشفير", MsgBoxStyle.Information, "Completed")
            '--------------------------------'
        End Sub)

End Sub 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mohammedvego

silverlight

mohammedvego

a.ahmed