السلام عليكم
أخواني أريد طلب صغير وهو كيف يمكنني من خلال الأسكي أخذ أسكي معين ولنفترض ??
عند الضغط على command معين تكتب قيمة الأسكي في text
يعني بالمختصر وكأني أعمل مفكرة كاملة وأزرار الكيبورد تحتها تكون الكتابة من خلال الأزاري التي وضعتها أنا دون الأعتماد على الكيبورد الحقيقي
سلامي
اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........
اللهم هب لنا علما من لدنك....
.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم
وقل ربي زدني علما .........
اللهم أجعل علمنا حجة لنا لا حجة علبنا .......
سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........
هل توضح لنا اكثر لان الكلام غير مفهوم
انا فهمت انك تريد عمل برنامج مبسط للكتابة وتريد ان تضع ازرار الكتابة داخل برنامجك اى تتم الكتابة عن طريق الضغط على الحرف فى البرنامج فهل هذا صحيح؟
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
نعم يا أخي هذا هو طلبي
جزاك الله كل خيرررررررررر
سلامي
اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........
اللهم هب لنا علما من لدنك....
.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم
وقل ربي زدني علما .........
اللهم أجعل علمنا حجة لنا لا حجة علبنا .......
سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........
اذا كان هذا هو المطلوب فلن تحتاج للاسكى كود
فقط سيكون الكود بهذه الطريقة
Private Sub Command1_Click() Text1.Text =Text1.Text & "A" End Sub
Private Sub Command2_Click() Text1.Text =Text1.Text & "B" End Sub
وهكذا مع باقى الازرار
ان لم تستطع التعديل يمكنك ان تضع البرنامج هنا :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخي الكريم
مشكوووووووور أعرف هذه الطريقة ولكن أريدها عن طريق الأسكي
لوووووووووووو سمحت
سلامي
اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........
اللهم هب لنا علما من لدنك....
.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم
وقل ربي زدني علما .........
اللهم أجعل علمنا حجة لنا لا حجة علبنا .......
سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........
يااخى العزيز كيف تريدها عن طريق الاسكى , اشرح هذه النقطة , الازرار فى برنامجك فما فائدة الاسكى؟
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخي الكريم
أقصد أنه عند الضغط فرضا على command1يعطيني نتيجة الأسكي الذي قيمته سبع وتسعون مثلا وبالطبع سيكون الناتج حرف سيطبع في text1 وهكذا في كل commandأرجو أن أكون وفقت لشرح ما أريد
سلامي
اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........
اللهم هب لنا علما من لدنك....
.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم
وقل ربي زدني علما .........
اللهم أجعل علمنا حجة لنا لا حجة علبنا .......
سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........
حسبما فهمت.. تريد عمل برنامج فيه ازرار تحمل هذه الازرار الرموز (حروف + ارقام + محارف خاصة) التي تريد طباعة قيمتها بالاسكي في text صح؟
الكود سيكون كالتالي:
Private Sub cmdA_Click() Text1.Text = Asc(cmdA.Caption) End Sub
اما في حال اردت ان تكون الازرار تحمل قيم الاسكي وتريد الرمز.. في هذه الحالة استبدل Asc بـ Chr
وعذرا على التدخل :rolleyes:
بالتوفيق
تم تعديل هذه المشاركة بواسطة Xacker في 20 أغسطس 2005 في 19:26
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ،،
استخدم الكود التالي :
Private Sub Command1_Click() Text1.Text =Text1.Text & Chr(97) End Sub
سبحان الله وبحمده ... سبحان الله العظيم
جزاكم الله كل خير سأقوم بتجريب الأكواد وأخباركم
سلامي
اللهم علمنا ماينفعنا وانفعنا بما علمتنا.........
اللهم هب لنا علما من لدنك....
.........اللهم لا علم لي الا ما علمتني انك انت العليم الحكيم
وقل ربي زدني علما .........
اللهم أجعل علمنا حجة لنا لا حجة علبنا .......
سبحانك اللهم وبحمدك أشهد ألا أله ألا آنت أستغفرك وأتوب أليك .........
هذا الموضوع مغلق.