درخواست كد برنامه درخواستي

دوستان يه برنامه مي خوام كه اين كارو انجام بده:(با زبان ++c يا هر زبان ديگري نوشته شده باشه)
با دريافت يك متن بلند فارسي قادر باشه فراواني حروف در آن متن را مشخص كند مثلا اگر جمله "سلام خوبي محمد؟" رو وارد كنيم نتيجه خروجي اين باشه كه
س:1
ل:1
الف:2
م:3
خ:1
و:1
ب:1
ح:1
د:1
و ساير حروف 0 بار تكرار شده اند.
مي خوام اين برنامه براي حروف فارسي كار كنه.
اگه از دوستان كسي مي تونه برنامه اي بنويسه ( با زبان سي ++ يا هر زبان ديگري) كه اين كارو انجام بده .ممنون مي شم.

سلام دوست عزیز خسته نباشید...
متد زیر دقیقاً همون کاری رو میکنه که میخوای منتها چون کار منه، ایراد نداره ولی ممکنه که یه سری کدها اضافه هم باشه....

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی شارپ(#C) کد:

کد:

---

private string STRCompile(string TXT)
        {
            string RET = "";
            ArrayList ArrayListMain = new ArrayList();
            bool TFADD = true;
            int C = 0, Q = 0;
            for (int i = 0; i < TXT.Length; i++)
            {
                TFADD = true;
                Q = 0;
                foreach (object M in ArrayListMain)
                {
                    if (M.ToString().Substring(0,1) == TXT.Substring(i, 1))
                    {
                        TFADD = false;
                        C = Convert.ToInt32(M.ToString().Substring(2));
                        C++;
                        ArrayListMain[Q] = M.ToString().Substring(0, 2) + C.ToString();
                        break;
                    }
                    Q++;
                }
                if (TFADD)
                {
                    ArrayListMain.Add(TXT.Substring(i, 1) + ":1");
                }
            }

            foreach (object M in ArrayListMain)
            {
                RET += M.ToString() + System.Environment.NewLine;
            }
            return RET;
        }

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ویژوال بیسیک(Visual Basic)کد:

کد:

---

        Private Function STRCompile(ByVal TXT As String) As String
            Dim RET As String = ""
            Dim ArrayListMain As New ArrayList()
            Dim TFADD As Boolean = True
            Dim C As Integer = 0, Q As Integer = 0
            For i As Integer = 0 To TXT.Length - 1
                TFADD = True
                Q = 0
                For Each M As Object In ArrayListMain
                    If M.ToString().Substring(0,1) = TXT.Substring(i, 1) Then
                        TFADD = False
                        C = Convert.ToInt32(M.ToString().Substring(2))
                        C += 1
                        ArrayListMain(Q) = M.ToString().Substring(0, 2) + C.ToString()
                        Exit For
                    End If
                    Q += 1
                Next M
                If TFADD Then
                    ArrayListMain.Add(TXT.Substring(i, 1) & ":1")
                End If
            Next i

            For Each M As Object In ArrayListMain
                RET &= M.ToString() & System.Environment.NewLine
            Next M
            Return RET
        End Function

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی پلاس پلاس(++C) کد:

کد:

---

        System::String ^STRCompile(System::String ^TXT)
        {
            System::String ^RET = "";
            ArrayList ^ArrayListMain = gcnew ArrayList();
            bool TFADD = true;
            int C = 0, Q = 0;
            for (int i = 0; i < TXT->Length; i++)
            {
                TFADD = true;
                Q = 0;
                for each (System::Object ^M in ArrayListMain)
                {
                    if (M->ToString()->Substring(0,1) == TXT->Substring(i, 1))
                    {
                        TFADD = false;
                        C = Convert::ToInt32(M->ToString()->Substring(2));
                        C++;
                        ArrayListMain[Q] = M->ToString()->Substring(0, 2) + C.ToString();
                        break;
                    }
                    Q++;
                }
                if (TFADD)
                {
                    ArrayListMain->Add(TXT->Substring(i, 1) + ":1");
                }
            }

            for each (System::Object ^M in ArrayListMain)
            {
                RET += M->ToString() + System::Environment::NewLine;
            }
            return RET;
        }

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] سی شارپ(#C) توضیح کد:
متد زیر همونطور که شما خواستین عمل مکینه..این متد یه String میگیره که این متن همون متنیه که میخواهید امتحان بشه:

کد:

---

private string STRCompile(string TXT)
        {

---

یک متغیر از نوع متن (String) تعریف کردیم که بعد از انجام تغییرات این متغیر به متد برگردانده میشود:

کد:

---

string RET = "";

---

یک ArrayList تعریف کردیم.کاری که در حال حاضر این کلاس برای ما میکنه اینه که ما متن ها رو یکی یکی شمارش و در این کلاس قرار میدیم:

کد:

---

ArrayList ArrayListMain = new ArrayList();

---

یک متغیر از نوع درست و غلط (Boolean) تعریف کردیم.کار این متغیر تشخیص تکراری بودن حروفه:

کد:

---

bool TFADD = true;

---

دو متغیر از نوع عدد صحیح (Integer) تعریف کردیم.کار متغیر C اینه که مثلاً کاراکتر "س" رو بررسی میکنه و تعداد اونو در C میریزه و کار Q اینه که نشون میده C برای کدوم لیست از ArrayList هست، مثلاً "س" رو مشخص میکنه.

کد:

---

int C = 0, Q = 0;

---

یک حلقه که به تعداد حروف های متن میچرخه:

کد:

---

for (int i = 0; i < TXT.Length; i++)
            {

---

مقدار دو متغیر زیر رو همیشه بعد یک بار چرخیدن حالت پیشفرض مکنیم:

کد:

---

                TFADD = true;
                Q = 0;

---

حلقه زیر هم به تعداد لیست های موجود در ArrayList میچرخه و نشون میده که مثلاً "س" رو شمارش کردیم یا نه:

کد:

---

foreach (object M in ArrayListMain)
                {

---

این شرط برای اینه که آیا ما "س" رو شمارش کردیم یا نه:

کد:

---

if (M.ToString().Substring(0,1) == TXT.Substring(i, 1))
                    {

---

کد زیر در داخل شرط بالاست و نشون میده که اگه مثلاً کاراکتر "س" شمارش شده باشد:
متغیر TFADD رو False میکنیم برای اینکه به لیست ما دوباره اضافه نشده،متغیر C میشه عدد پیشفرضی که در لیست هست مثلاً الان "س" یک بار تکرار شده،حالا به C یکی اضافه مکنیم،ArrayList مورد نظر رو تغییر میدیم مثلاً الان "س" دوبار تکرار شده است.
[CODE]
TFADD = false;
C = Convert.ToInt32(M.ToString().Substring(2));
C++;
ArrayListMain[Q] = M.ToString().Substring(0, 2) + C.ToString();
break;[/CODE]

به Q یکی اضافه میکنیم.

کد:

---

}
                    Q++;
                }

---

گفته بودیم که متغیرTFADD وجود کاراکتر ها رو مشخص میکنه پس الان اگه برابر True باشه یعنی کاراکتر مورد نظر در لیست موجود نیست و کاراکتر رو به لیست اضافه کنه و مقدار رو 1 قرار میده:

کد:

---

                if (TFADD)
                {
                    ArrayListMain.Add(TXT.Substring(i, 1) + ":1");
                }

---

حلقه زیر هم برای اینه که ما لیست ها رو در متغیر RET بریزیم و در خط آخر هم اونا رو بر میگردونیم:

کد:

---

            foreach (object M in ArrayListMain)
            {
                RET += M.ToString() + System.Environment.NewLine;
            }
            return RET;

---

سوالی بود در خدمتیم:46:.

موفق باشید و سربلند.

سلام من کد دکمه update اکس کیو ال سرور وقتی اتصالش میدن به سی شارپ رو میخوام درواقع کد updateبه زبان سی شارپ اگه ممکنه ممنون میشم نمی دونم متوجه منظورم شدید مثلا این کده select هست به زبان سی شارپ

SqlConnection con;
string strcon;
strcon = "Data Source=.;Initial Catalog=Ajans;Integrated Security=True";
con = new SqlConnection(strcon);
SqlDataAdapter da;
string strsel;
con.Open();
strsel = "select * from moshteri where SH_Eshterak='" + textBox1.Text + "'";

da = new SqlDataAdapter(strsel, con);
DataSet ds = new DataSet();
da.Fill(ds,"Moshteri");
dataGridView1.DataBindings.Add(new Binding("DataSource", ds, "moshteri"));
con.Close();

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

سلام امکانش بود به من کمک کنید

سلام امکانش بود برام این کدو بزارید؟

میشه بگین اگه نمزارین دیگه منتظرنمونم

سلام دوباره مشکل داشتم بالاخره کد update پیداکردم اما درهنگام اجرا خطایی دارد این کد update

SqlConnection con;
string strcon;
strcon = "Data Source=.;Initial Catalog=Ajans;Integrated Security=True";
con = new SqlConnection(strcon);
SqlCommand cmd;
cmd = new SqlCommand();
cmd.Connection = con;
cmd.CommandText = "update moshteri Nam=@Nam,Family=@Family,Tel=@Tel,Adress=@Adress where SH_Eshterak=@SH_Eshterak";
cmd.Parameters.AddWithValue("@Nam", textBox1.Text);
cmd.Parameters.AddWithValue("@Family", textBox2.Text);
cmd.Parameters.AddWithValue("@SH_Eshterak", textBox3.Text);
cmd.Parameters.AddWithValue("@Tel", textBox4.Text);
cmd.Parameters.AddWithValue("@Adress", textBox5.Text);
con.Open();
cmd.ExecuteNonQuery();
con.Close();

دراین خط هنگام اجرا برایم پیغام زرد رنگ میاید

cmd.ExecuteNonQuery();

پیغام Line 1: Incorrect syntax near 'Nam'.

توروخدا لطف کنید مشکلمو بهم بگید ممنون.