عبدالفتاح حسن

تفضل Me.List1 = Me.Text1 If Me.List1.ListIndex <> -1 Then MsgBox "Text In line No : " & Me.List1.ListIndex + 1, vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation

بالإضافة الى الردود التى ذكرها الأخوة الأفاضل يمكن استخدام الدالة Sendplaysound وهى من دوال Api الشهيرة وهذه الطريقة تغنى عن استخدام اى ادوات ولكن ... يعاب عليها انها لا تتعامل الا مع ملفات الت Wav والمعروفة بكبر حجمها لذا يفضل استخدامها إلا فى المؤثرات الصوتي…

تفضل MsgBox Format(Date, "ddd") MsgBox Format(Date, "mmm")

تفضل DataBase.rar

اخى الفاضل اذا كنت تريد تشغيل برنامج اعداد عند الضغط على زر يمكنك استخدام الأمر Shell أما اذا كنت تقصد شئ أخر فيرجى التوضيح Private Sub Command1_Click() Shell "Program Name" End Sub

تفضل help_my.rar

الأخ الفاضل الكود المرفق بنقصه كود الحفظ تفضل الكود بعد التعديل Private Sub cmdSave_Click() Data1.Recordset.Update Me.List1.AddItem Me.Text1 End Sub Private Sub Command1_Click() On Error Resume Next Data1.Refresh Data1.Recordset.AddNew End Sub Private Sub Comm…

من بعض ما عندكم استاذ MMA_EG_Cairo... لا داعى للأسف فكلها اجتهادات قابلة للتصحيح والتعديل وذلك للوصول للأفضل ..... شكرا اخى الكريم على هذا الكود .... وكذلك يمكن تقسيمه الى كودين بهدف التبسيط : 'الكود الأول لتحويل الحروف Function TransToBinary(Text As String) A…

تفضلى Function TransToBinary(Text As String) As String Dim TXTAsc TXTAsc = Asc(Text) Do While TXTAsc >= 1 r = TXTAsc - (TXTAsc \ 2) * 2 TXTAsc = TXTAsc \ 2 TransToBinary = r & TransToBinary Loop End Function هذا الكود خاص بتحويل حرف واحد ... وبالطبع يمكن تعديل…

تفضل Private Sub Command1_Click() Dim StLog As Double StLog = 1 / Log(10) Text2.Text = Math.Log(Val(Text1.Text) ^ StLog) End Sub

اخى الفاضل الفكرة جميلة ولكن هناك عيب كبير لا اعرف ان كانت هناك طريقة لتفاديه ام وهى ان ملف الأكسيس يمكن تداوله مباشرة عن طريق التحميل المباشر اضغط على الرابط اسفله //m.domaindlx.com/prowael/db.mdb ولكن قد يكون هناك حل لهذه المشكلة لدى الموقع نفسه

الأخ الفاضل افضل اداه يمكنك استخدامها لطباعة كروت أو اى نمازج اخرى هى Picture Box ويمكنك التحكم فى الشكل الذى تريده ويمكنك ايضا اضافة صور لأشخاص او بادج لشركة وغيرها اليك مثال بسيط للتوضيح Print_Image.rar

تفضل : Dim LL(1 To 5) Dim M As Integer Dim Word As String Dim MinQty As Integer Dim MaxQty As Integer Dim WordQty As Integer MinQty = 2 MaxQty = 4 LL(1) = "B" LL(2) = "A" LL(3) = "S" LL(4) = "I" LL(5) = "C" 4: Randomize WordQty = Int(Rnd() * 5) + 1 If WordQty …

اخى الفاضل : MMA_EG_Cairo أنا الأن بصد انشاء برنامج لإدارة الموارد البشرية وقد وضعت به افكار جديدة .. وسوف بإرسالها لك بإذن الله بعد الإنتهاء الكامل من البرنامج ولكن عموما من اهم هذه الأفكار امكانية عمل كارنيهات للموظفين من خلال البرنامج وهذه الكارنيهات تحمل ب…

الأخ الفاضل بخصوص السؤال الأول والثانى فهناك العديد والعديد من الأمثلة فى المنتدى سواء فى قسم الفيجوال بيسك او قواعد البيانات اما السؤال الثالث والخاص بالأمر Execute فهذا الأمر لايستخدم مع كل انواع قواهد البيانات فمثلا لايمكنك اضافة جدول من خلال هذا الأمر فى ق…

تفضل : Private Sub Form_Load() VScroll1.Max = (picMain.Height - Frame1.Height) / 10 End Sub Private Sub VScroll1_Change() picMain.Top = -VScroll1.Value * 10 End Sub

معذرة يرجى التوضيح اكثر .. اغلب الكلمات الناتجة ليس لها معنى ولا تمثل شئ ومن ثم الجمل ايضا فكيف ستستخدمها ؟؟؟!!!! اذا لم يكن لديك تحفظ على توضيح ماتنوى عمله بالتفصيل فيجب توضيحة حتى يمكن مساعدتك للوصول الى ماتريد .

الأخ الفاضل يرجى توضيح النقاط التالية حتى يمكن مساعدتك : - كيف ستستخدم الكلمات الناتجة .. اى ما الهدف من توليد هذا الكم الهائل من الكلمات . - هل ستسخدم الكلمات العشوائية الناتجة اثناء توليدها - كمحاولة ايجاد كلمة سر مثلا - ام ستقوم بتخزينها اولا والرجوع اليها …

تفضل Dim LL(1 To 5) Dim M As Integer Dim Word As String 'الكلمة العشوائية ' انشاءمصفوفة بالحروف المكونة للكلمات العشوائية LL(1) = "B" LL(2) = "A" LL(3) = "S" LL(4) = "I" LL(5) = "C" Randomize WordQty = Int(Rnd() * 5) + 1 'عدد الحروف المكونة للكلمة العشوائية Do…

مشكور أخى اكواد جميلة وقوية ... وفقك الله للمزيد والمزيد