+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] فكره مشروع (/showthread.php?tid=48131)
فكره مشروع - سلام و محبه - 30-03-24
السلام عليكم و رحمه الله و بركاته
كل عام و حضراتكم بخير
ماهو الكود الذى يقسم الكلمه الى حروف باستخدام vb.net
مثلا كلمه احمد يقسمها الكود الى حروف ( 1 , ح , م , د )
RE: فكره مشروع - Taha Okla - 31-03-24
وعليكم السلام ورحمة الله وبركاته
كود :
ListBox1.Items.Clear()
Dim str As String = "أحمد"
Dim t() As Char = str.ToCharArray
For Each c As Char In t
ListBox1.Items.Add(c)
NextRE: فكره مشروع - أبووسم - 31-03-24
منقول من موضوع سابق ساعدوني فيه الاخوان جزاهم الله خير
TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
http://vb4arb.com/vb/showthread.php?tid=47480
RE: فكره مشروع - سلام و محبه - 01-04-24
شكرا اخى Taha Okla
استبدلت ال listbox ب richtextbox
و اضفت فثءفلاخء لكتابه الكلام المطلوب تجزئته
عدلت الكود
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = ""
Dim str As String = TextBox1.Text
Dim t() As Char = str.ToCharArray
For Each c As Char In t
RichTextBox1.Text = c
Next
End Sub
End Classما الحل؟
RE: فكره مشروع - Taha Okla - 01-04-24
كود :
For Each c As Char In t
RichTextBox1.Text &= c & vbNewLine
NextRE: فكره مشروع - سلام و محبه - 01-04-24
شكرا اخى Taha Okla استبلت ال button ب timer و ضبط الخاصيه enabeled الى true لينفذ الاجراء بمجرد الكتابه فى ال textbox و تم الحمد لله
اريد عمل برنامج يحسب الوقت المستغرق لكتابه الكلمه و يحسب عدد الكلمات مثل المواقع التى تحسب سرعه الكتابه على الكيبورد