PDA

View Full Version : سوال: اسم به Abjad


HAMRAHSOFT.IR
یک شنبه 01 شهریور 1388, 14:56 عصر
دوستان ميشه كمك كنيد و بگيد چطوري متونم برنامه مثل اين برنامه بنويسن مثل برنامه ضميمه Abjad

البته قسمت اوليه طراحي كردم

اگه ميشه بهم بگيد چطور بايد اعداد جمع كنم
butterfly8528
یک شنبه 01 شهریور 1388, 16:53 عصر
سلام پروژتون رو کامل کردم .
HAMRAHSOFT.IR
دوشنبه 02 شهریور 1388, 13:35 عصر
دوست خوب تشكر ولي فكنم نمونه نديد چطوري
butterfly8528
دوشنبه 02 شهریور 1388, 20:26 عصر
دوست خوب تشكر ولي فكنم نمونه نديد چطوري

چرا دیدم . مگه اون چه امکانی داره که این نداره ؟
MBG73
سه شنبه 03 شهریور 1388, 08:12 صبح
دوستان ميشه كمك كنيد و بگيد چطوري متونم برنامه مثل اين برنامه بنويسن مثل برنامه ضميمه Abjad

البته قسمت اوليه طراحي كردم

اگه ميشه بهم بگيد چطور بايد اعداد جمع كنم

منظورتون چیه ؟

یعنی نمیتونین بگین وقتی مثلا تایپ کرد "ص" عدد داخل تکس جمع بشه با مقدار عددی حرف "ص" در حروف ابجد ؟

شما ارزش عددی هر حرف در حروف ابجد رو میدونید یا نه؟
HAMRAHSOFT.IR
سه شنبه 03 شهریور 1388, 23:05 عصر
دوستان من مخوام با استفاده ار کلید های زیر تایپ کنم نه خودم کلمه یا اسم بنویسم
MBG73
چهارشنبه 04 شهریور 1388, 00:33 صبح
دوستان من مخوام با استفاده ار کلید های زیر تایپ کنم نه خودم کلمه یا اسم بنویسم

منظورتون اینه که می خواهین کیبورد بسازین ؟
MBG73
چهارشنبه 04 شهریور 1388, 01:17 صبح
ببینید من این برنامه رو نوشتم .

کلا شد این :


Private Sub Command1_Click(Index As Integer)
Text1 = Text1 + Command1(Index).Caption
If Index <= 1000 Then Label1 = Val(Label1) + Index
If Index = 0 Then Label1 = Val(Label1) + 1
End Sub

Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1(Index).SetFocus
End Sub

Private Sub Command2_Click()
Label1 = "0"
Text1 = ""
End Sub


قسمت command1_mousemove رو فقط برای اینکه برنامه مثل برنامه ی شما بشه گذاشتم و چیز مهمی نیست .

http://farm3.static.flickr.com/2593/3857310654_8fd57f54cf.jpg

اگه نیاز بود بگین توضیح بدم .

در ضمن برای دیدن اعداد ابجد به این لینک برین . http://fa.wikipedia.org/wiki/ابجد