سلام من یه برنامه ساده ای میخوام در ویژوال بیسیک که وقتی در تکست 1 مثلا نوشتیم مصطفی در تکست 2 به صورت زیر بنویسه !
م
ص
ط
ف
ی
یه سوال دیگه ای که دارم فاکتوریل یه عدد رو چطوری میشه به دست آورد کدش رو اگر دارید بزارید ممنون ...
Printable View
سلام من یه برنامه ساده ای میخوام در ویژوال بیسیک که وقتی در تکست 1 مثلا نوشتیم مصطفی در تکست 2 به صورت زیر بنویسه !
م
ص
ط
ف
ی
یه سوال دیگه ای که دارم فاکتوریل یه عدد رو چطوری میشه به دست آورد کدش رو اگر دارید بزارید ممنون ...
به زیان دات نت نوشتم. چون خیلی وقته با Vb6 کار نکردم. خودت تبدیلش کن.کد:
For Each c As Char In TextBox1.Text
If c <> " " Then
TextBox2.Text &= c & " "
End If
Next
من بلد نیستم دوست عزیز اگر ممکنه مال وی بیش رو میخوام ...
فاکتوریل:نقل قول:
!n>>>
input n
k=1
for i=1 to n
k=k*i
print k
خیلی ممنون اون یکی برنامه چی به نظرتون منظورش چیه ؟ یعنی چطوری میشه به صورت عمودی نوشته بشه تو تکست باکس !
ویرایش : برنامه ای هم که نوشتی کار نمیکنه ...
میتونی تک تک ، حرفها رو بخونی بعد در تکسباکس بریزی و با کد یه اینتر بزنی
ممنون از کمکت ولی زیاد متوجه نشدم ! چطوری میشه با کد اینتر زد ؟نقل قول:
فاکتوریل:
کد:dim a as string
dim b as string
a = text1.text
b = 1
for i = 1 to a
b = b * i
next i
label1.caption = b
ممنون ولی یعنی واقعا هیچ کس اون برنامه اولی که گفتم بلد نیست ؟
دوست عزیز اون کدی که واست گذاشتم دقیقا همین کار رو می کنه. اما به زبان دات نت.نقل قول:
هر چند خیلی وقته با وی بی 6 کار نمیکنم اما کدش یه چیزی شبیه زیر میشه. کم و کاستی رو خودت درستش کن:
کد:Text2="'
dim i as integer
for i =1 to len(text1)
text2=text2 & mid(text1,i,1) & VBCRLF
next i