• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Mr Wolf

اعضاء جدد
  • عدد المشاركات

    11
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن Mr Wolf

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : العراق
  1. انا افضل هذه الطريقة  Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged TextBox1.MaxLength = 14 End Sub
  2. التشفير: 1خوارزمية قيصر

    احسنت اخي الغالي وجزاك الله الف خير       في المرحلة الاولى لي بالجامعة قمت بعمل برنامج بلغة فجول بيسك 6 لتشفير النصوص يتضمن طريقتين القيصر والـــ Revers واكثر طريقة تشفير كنت احبها هي vernam cipher     احسنت وبأنتظار جديدك
  3. مساعدة في فهم كود

    ولا واحد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
  4. dim i as integer for i=0 to 100 i=i+1 next i msgbox(i) :OUTPUT i=100
  5. السلام عليكم اخي حاول أستخدام ComboBox فهي افضل بنظري وستغنيك عن الكثير   تقوم بأدراج الدول والمفتاح الخاص لكل دولة فعندما يختار المستخدم دولة العراق مباشرتا سيتم سيتم دمج مفتاح العراق مع رقم المستخدم   انا بنظري هذه الطريقة افضل   عملت لك مثال بسيط وقمت بتبسيط الكودات لكي يسهل عليك فهمها والتعديل عليها     Public Class Form1 Dim y As String Dim X As String Dim z As String Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Dim X As String = TextBox1.Text X = X.TrimStart("0"c) TextBox1.Text = X End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ComboBox1.SelectedItem = "IRAQ" Then y = "+964" End If X = TextBox1.Text z = String.Concat(y, X) MsgBox(z) End SubEnd Classفهنا قمت بأستخدام طريقة الاخ محمد وعملية دمج لمتسلسلتين   بأمكانك استخدام case بدل عن if في حالة الشرط فهي افضل لك   وايضا هذه رابط لعدد من functions على المتغيرات اتمنى ان تفيدك   http://msdn.microsoft.com/en-us/library/aa903372(v=vs.71).aspx     وايضاً تجد المثال كاملاً في المرفقات   تحياتي WindowsApplication11.rar
  6. السلام عليكم ورحمة الله وبركاته     اخوتي الاعزاء في اول توجه لي لبرمجة الانظمة الصوتية بحثت عن عدد من المصادر في الانترنت وبعض من معلوماتي وبمساعدة من بعض الاشخاص والمدونات استطعت ان اصل الى هذا الكود   لكن بعض الكودات قمت بتركيبها بدون فهم و الحمد لله عملت بشكل صحيح ولكن لم افهم هذه الكودات وياريت الخبراء في المنتدى يقدرون يساعدوني على فهم الكود لأني ماحب اعمل بدون ما افهم وايضاً يساعدني الفهم على التعديل والاضافة بسهولة   وهذا الكود هو لبرنامج بسيط يقوم بأخذ الاوامر الصوتية وتنفيذ بعض الايعازات   اتمنى ان تشرحولي الكود الذي حصلت عليه     Option Strict On Imports System.Speech Imports System.Speech.Recognition Imports System.Speech.Recognition.SrgsGrammar Public Class Form1 Dim WithEvents reco As New SpeechRecognitionEngine Dim synth As New Synthesis.SpeechSynthesizer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim gram As New SrgsDocument Dim colorRule As New SrgsRule("color") Dim colorsList As New SrgsOneOf("red", "green") colorRule.Add(colorsList) gram.Rules.Add(colorRule) gram.Root = colorRule reco.LoadGrammarAsync(New Recognition.Grammar(gram)) reco.SetInputToDefaultAudioDevice() reco.RecognizeAsync(RecognizeMode.Multiple) Catch s As Exception MessageBox.Show(s.Message) End Try End Sub Private Sub reco_SpeechDetected(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechDetectedEventArgs) Handles reco.SpeechDetected Label1.Text = "Speech Detected" End Sub Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognitionEventArgs) Handles reco.SpeechRecognized Select Case e.Result.Text Case "red" SetColor(Color.Red) Case "green" SetColor(Color.Lime) End Select End Sub Private Sub SetColor(ByVal color As System.Drawing.Color) reco.RecognizeAsyncCancel() reco.RecognizeAsyncStop() synth.Speak("setting the back color to " & color.ToString) Me.BackColor = color reco.RecognizeAsync(RecognizeMode.Multiple) End Sub   End Class   تحياتي للجميع ورمضان كريم عليكم
  7. إختراق

    استمرررررررررررر فلقد شوقتنا الى النهاية
  8. شكرا اخي الغالي جزاك الله الف خير وجاري التحميل