Results 1 to 4 of 4
Thread: Ïîìîù çà Visual Basic .Net 2008
Hybrid View
-
8th June 2012 00:18 #1Registered User
Join Date: May:2008
Location: Sofia
Posts: 288
Ïîìîù çà Visual Basic .Net 2008
Çàïî÷âàì ñ âàæíîòî óòî÷íåíèå, ÷å ñúì íàïúëíî íà÷èíàåù â îáëàòòà íà êàêâîòî è äà å ïðîãðàìèðàíå.
Îïèòâàì ñå äà íàïðàâÿ ãðàôè÷åí èíòåðôåéñ íà åäíà ïðîãðàìà, êîÿòî extract-âà ðàçëè÷íè track-îâå îò mkv ôàéë. Ïðîãðàìêàòà ñàìà ïî ñåáå ñè å ìíîãî ïîëåçíà, íî íÿìà gui è òî÷íî òîâà ñå îïèòâàì äà íàïðàâÿ àç.
Âúïðîñúò ìè å: Êàê äà ÷åòà output-à íà êîíçîëàòà â ðåàëíî âðåìå?  ìîìåíòà ìîãà äà ãî ÷åòà ñàìî íàêðàÿ. Ñëåä ìíîãî ÷åòåíå â íåòà íàïèñàõ ñëåäíîòî:
Private Sub btnExtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExtract.Click
Dim Extract As New Process()
Dim Executable As String = "mkvextract.exe"
Dim Arguments As String = "tracks " & txtInputFile.Text & " " & txtTrackID.Text & ":" & "output.ac3"
Extract.StartInfo.UseShellExecute = False
Extract.StartInfo.RedirectStandardOutput = True
Extract.StartInfo.RedirectStandardError = True
Extract.StartInfo.CreateNoWindow = False
Extract.StartInfo.FileName = Executable
Extract.StartInfo.Arguments = Arguments
Extract.StartInfo.WorkingDirectory = "C:\Users\icefire\Desktop\movie tools"
Extract.Start()
txtConsoleInput.Text = Arguments
txtConsoleOutput.Text = Extract.StandardOutput.ReadToEnd()
End Sub
Òîâà ñå ñëó÷âà êàòî íàòèñíà áóòîíà btnExtract. Òîâà, êîåòî êîíçîëàòà ïîêàçâà ñå çàïèñâà â textbox-a txtConsoleOutput. Ïðîáëåìúò å, ÷å òîâà ñå ñëó÷âà ñàìî íàé-íàêðàÿ, â ðåçóëòàò íà êîåòî, ñëåä 5 ìèíóòè ÷àêàíå, â êîèòî âñåêè íîðìàëåí ïîòðåáèòåë ùå ïîìèñëè, ÷å ïðîãðàìàòà å çàáèëà, ñå ïîÿâÿâà ñëåäíèÿ ðåçóëòàò:
Êàê äà íàïðàâÿ òàêà, ÷å äà èçáåãíà òîçè åôåêò? Èñêàì â ðåàëíî âðåìå äà ìè ñå èçïèñâà Progress: xx% è òîâà äà ñå ïðîìåíÿ ñ âðåìåòî. Îùå ïî-ÿêî áè áèëî àêî óñïåÿ äà íàïðàâÿ progress bar, êîéòî äà ñå ïúëíè..
Äàéòå ìè íÿêàêâà èäåÿ (íî ìîëÿ èçðàçÿâàéòå ñå êàòî çà íà÷èíàåùè...)
Òîâà, êîåòî àç ñè ìèñëåõ, áåøå åâåíòóàëíî íÿêàêúâ öèêúë, êîéòî äà ïðîâåðÿâà ïðåç íÿêàêúâ èíòåðâàë îò âðåìå (ïðèìåðíî åäíà ñåêóíäà) äàëè èìà íîâ output è ñúîòâåòíî äà ãî ïðîìåíÿ. Íî êàê äà ãî ðåàëèçèðàì?Last edited by icu; 8th June 2012 at 01:52.
-
8th June 2012 09:11 #2
òðÿáâà äà ïóñíåø îòäåëíà íèøêà êîÿòî äà åêñòðàêòâà, ò.å. òàÿ ÷àñò îò êîäà:
çà äà íå çàáèâà íèøêàòà íà GUI. Âèæ òàì îãëåäàé âèäèìîñòòà íà ïðîìåíëèâèòå è ïðîöåäóðèòå çà äà ìîæå îò åäíàòà íèøêà äà úïäåéòâàø äðóãàòà. Ïðèìåðà îò õåëïà áåøå ùî ãîäå ñíîñåí.Code:Extract.StartInfo.UseShellExecute = False Extract.StartInfo.RedirectStandardOutput = True Extract.StartInfo.RedirectStandardError = True Extract.StartInfo.CreateNoWindow = False Extract.StartInfo.FileName = Executable Extract.StartInfo.Arguments = Arguments Extract.StartInfo.WorkingDirectory = "C:\Users\icefire\Desktop\movie tools" Extract.Start()
Ìåæäó äðóãîòî òè ïðåïîðú÷âàì äà ñå ïðåõâúðëèø íà C#. Èìà ìíîãî ïîâå÷å ïðèìåðè çà íåãî è íå å òðóäíî äà ñìåíèø VB íà #. Èìà òðàíñëàòîðè è àêî ïóñíåø íÿêîÿ òâîÿ ìàëêà ïðîãðàìà ëåñíî ùå ñå îðèåíòèðàø."Arbeit macht frei" -òîëóïà òèêâåí
Èäèîò - Òîâà å ÷îâåê ñ èäåè. Àêî ñúì ïðîïóñíàë ïðåïèíàòåëíè çíàöè, òóê èìà ðåçåðâíè:..,,--?!
OgiDogi: Çàìåðâà ñå ñ ÿéöà, ÿáúëêè, êàìúíè è ò.í., à åëåêòðè÷åñêèòå âåëè÷èíè ñå èçìåðâàò
-
8th June 2012 09:26 #3
Capture console and output in realtime
 ìíåíèå ¹5 èìà ãîòîâ VB êîä. Íî àêî íàèñòèíà íå äúðæèø íà VB-òî å ïî-äîáðå äà ìèíåø íà C#Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
8th June 2012 13:49 #4Registered User
Join Date: May:2008
Location: Sofia
Posts: 288
Áëàãîäàðÿ âè çà ñúâåòèòå! Ñ ïîìîùòà íà êîäà îò ãîðíèÿ ëèíê ïðîðàáîòè è ñòàíà òî÷íî êàêòî ãî èñêàõ




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè