+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود محول من c# الى vb (/showthread.php?tid=38084)
تعديل كود محول من c# الى vb - nabil.1710 - 19-03-21
السلام عليكم اخوتي
اريد تعديل كود محول من c# الى vb و يعطيني خطاء
الكود يقوم بتحويل الصوت الى نصوص و اضافة النص على textbox
اليكم الصورة و شكرا لكم
RE: تعديل كود محول من c# الى vb - Ronald - 19-03-21
(19-03-21, 11:27 PM)nabil.1710 كتب : السلام عليكم اخوتي
اريد تعديل كود محول من c# الى vb و يعطيني خطاء
الكود يقوم بتحويل الصوت الى نصوص و اضافة النص على textbox
اليكم الصورة و شكرا لكم
ضع addhandler في اول السطر واستبدل += ب فاصله ,
RE: تعديل كود محول من c# الى vb - nabil.1710 - 20-03-21
(19-03-21, 11:40 PM)Ronald كتب :تم بنجاح شكرا لك و الكود يعمل الان(19-03-21, 11:27 PM)nabil.1710 كتب : السلام عليكم اخوتي
اريد تعديل كود محول من c# الى vb و يعطيني خطاء
الكود يقوم بتحويل الصوت الى نصوص و اضافة النص على textbox
اليكم الصورة و شكرا لكم
ضع addhandler في اول السطر واستبدل += ب فاصله ,
RE: تعديل كود محول من c# الى vb - nabil.1710 - 20-03-21
(20-03-21, 12:18 AM)Ronald كتب :(19-03-21, 11:57 PM)nabil.1710 كتب :(19-03-21, 11:40 PM)Ronald كتب :(19-03-21, 11:27 PM)nabil.1710 كتب : السلام عليكم اخوتي
اريد تعديل كود محول من c# الى vb و يعطيني خطاء
الكود يقوم بتحويل الصوت الى نصوص و اضافة النص على textbox
اليكم الصورة و شكرا لكم
ضع addhandler في اول السطر واستبدل += ب فاصله ,
نعم ذال الخطاء ولكن لم يعمل البرنامج . وكان يعمل اثناء ما كان c#
ده الكود الاصلي لل c#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Speech;
using System.Speech.Synthesis;
using System.Speech.Recognition;
using System.Threading;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
private SpeechSynthesizer a = new SpeechSynthesizer();
SpeechSynthesizer ss = new SpeechSynthesizer();
PromptBuilder pd = new PromptBuilder();
SpeechRecognitionEngine sre = new SpeechRecognitionEngine();
Choices clist = new Choices();
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
btnstart.Enabled = false;
btnstop.Enabled = true;
clist.Add(new string[] { "Hello", "Good morning", "Welcome", "Thank you" });
Grammar gr = new Grammar(new GrammarBuilder(clist));
// Grammar gr = new DictationGrammar();
try
{
sre.RequestRecognizerUpdate();
sre.LoadGrammar(gr);
sre.SpeechRecognized += sre_SpeechRecognized;
sre.SetInputToDefaultAudioDevice();
sre.RecognizeAsync(RecognizeMode.Multiple);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error");
}
}
private void btnstart_Click(object sender, EventArgs e)
{
btnstart.Enabled = false;
btnstop.Enabled = true;
clist.Add(new string[] { "Hello", "Good morning", "Welcome", "Thank you" });
Grammar gr = new Grammar(new GrammarBuilder(clist));
// Grammar gr = new DictationGrammar();
try
{
sre.RequestRecognizerUpdate();
sre.LoadGrammar(gr);
sre.SpeechRecognized +=sre_SpeechRecognized;
sre.SetInputToDefaultAudioDevice();
sre.RecognizeAsync(RecognizeMode.Multiple);
}
catch (Exception ex) {MessageBox.Show(ex.Message, "Error");
}
}
private void sre_SpeechRecognized(object sender, SpeechRecognizedEventArgs e)
{
textBox1.Text = textBox1.Text + e.Result.Text.ToString() + Environment.NewLine;
}
private void btnstop_Click(object sender, EventArgs e)
{
sre.RecognizeAsyncStop();
btnstart.Enabled = true;
btnstop.Enabled = false;
}
}
}
ضع في نهاية السطر private sub btnstart_click الكود handles btnstart.click
ضع في نهاية السطر private sub btnstop_click الكود handles btnstop.click
اخي كل شئ على ما يرام و جزاك الله خيرا . تفضلا منك لدي سؤال اخر اريد وضع هذه الجمل داخل textbox {"robot Hello", "robot Good morning", "robot Welcome", "robot Thank you"} حاولت وضعها داخل التكست ولاكن لم يتم ظهورها الى اذا تم نطقها بالكامل
RE: تعديل كود محول من c# الى vb - nabil.1710 - 25-03-21
(20-03-21, 12:18 AM)Ronald كتب :(19-03-21, 11:57 PM)nabil.1710 كتب :(19-03-21, 11:40 PM)Ronald كتب :(19-03-21, 11:27 PM)nabil.1710 كتب : السلام عليكم اخوتي
اريد تعديل كود محول من c# الى vb و يعطيني خطاء
الكود يقوم بتحويل الصوت الى نصوص و اضافة النص على textbox
اليكم الصورة و شكرا لكم
ضع addhandler في اول السطر واستبدل += ب فاصله ,
نعم ذال الخطاء ولكن لم يعمل البرنامج . وكان يعمل اثناء ما كان c#
ده الكود الاصلي لل c#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Speech;
using System.Speech.Synthesis;
using System.Speech.Recognition;
using System.Threading;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
private SpeechSynthesizer a = new SpeechSynthesizer();
SpeechSynthesizer ss = new SpeechSynthesizer();
PromptBuilder pd = new PromptBuilder();
SpeechRecognitionEngine sre = new SpeechRecognitionEngine();
Choices clist = new Choices();
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
btnstart.Enabled = false;
btnstop.Enabled = true;
clist.Add(new string[] { "Hello", "Good morning", "Welcome", "Thank you" });
Grammar gr = new Grammar(new GrammarBuilder(clist));
// Grammar gr = new DictationGrammar();
try
{
sre.RequestRecognizerUpdate();
sre.LoadGrammar(gr);
sre.SpeechRecognized += sre_SpeechRecognized;
sre.SetInputToDefaultAudioDevice();
sre.RecognizeAsync(RecognizeMode.Multiple);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error");
}
}
private void btnstart_Click(object sender, EventArgs e)
{
btnstart.Enabled = false;
btnstop.Enabled = true;
clist.Add(new string[] { "Hello", "Good morning", "Welcome", "Thank you" });
Grammar gr = new Grammar(new GrammarBuilder(clist));
// Grammar gr = new DictationGrammar();
try
{
sre.RequestRecognizerUpdate();
sre.LoadGrammar(gr);
sre.SpeechRecognized +=sre_SpeechRecognized;
sre.SetInputToDefaultAudioDevice();
sre.RecognizeAsync(RecognizeMode.Multiple);
}
catch (Exception ex) {MessageBox.Show(ex.Message, "Error");
}
}
private void sre_SpeechRecognized(object sender, SpeechRecognizedEventArgs e)
{
textBox1.Text = textBox1.Text + e.Result.Text.ToString() + Environment.NewLine;
}
private void btnstop_Click(object sender, EventArgs e)
{
sre.RecognizeAsyncStop();
btnstart.Enabled = true;
btnstop.Enabled = false;
}
}
}
ضع في نهاية السطر private sub btnstart_click الكود handles btnstart.click
ضع في نهاية السطر private sub btnstop_click الكود handles btnstop.click
السلام عليكم رجاء الرد على هذا السؤال اخي الفاضل انا وضعل الكلمات داخل textbox4 ولكن لا يظهر الكلام الا اذا نطقت جميع الكلمات داخل التكيست . و انا اريد نتق كلمة او جملة من داخل التكست
هذا هو الكود بعد التعديل
clist.Add(New String() {TextBox4.Text})
Dim gr As Grammar = New Grammar(New GrammarBuilder(clist))