نحوه ایجاد اعداد در جدول

[hosein3000]

سلام دوستان
من یه جدول دارم دوتا ستون داره بصورت زیر البته طولش زیاده میخوام تو وی بی مقدار یه تکست باکس تو تک تک اعداد ستون B ضرب بشه و در یه ستون دیگه نوشته بشه چطور باید اینکارو انجام بدم. سوال دیگه اینکه چون لازم نیست اینا رو تو دینابیس ذخیره کنم چطور میتونم این سه تا ستون رو تو فرم بصورت جدول نشون بدم و کاربرهم بتونه براحتی اونا رو ببینه و یا به یه فایل متنی اکسپورت کنه
ممنون میشم راهنمایی بفرمایین



Period
B


0
1.3


0.02
1.56


0.04
1.82


0.06
2.08


0.08
2.34


0.1
2.6


0.12
2.86


0.14
3.12


0.16
3.25


0.18
3.25


0.2
3.25


0.22
3.25


0.24
3.25


0.26
3.25


0.28
3.25


0.3
3.25


0.32
3.25


0.34
3.25


0.36
3.25


0.38
3.25


0.4
3.25


0.42
3.25


0.44
3.25


0.46
3.25


0.48
3.25


0.5
3.25


0.52
3.25


0.54
3.25

[hosein3000]

دوستان راه حلی برای مشکل من ندارین؟ ممنون میشم

[isaac23]

سلام دوست عزیز این چیزی که شما میگید با کامونت VSFlexGrid خیلی راحت امکان پذیر هست و خروجی هم می تونی بدی به فایل اکسل ..

یه پروژه جدید ایجاد کن کامپونت رو بهش اضافه کن و در رویداد فروم لود فرمت اینو بنویس:

Private Sub Form_Load()
For i = 1 To 24
VSFlexGrid1.TextMatrix(i, 1) = i
Next

For ii = 1 To 24
VSFlexGrid1.TextMatrix(ii, 2) = ii + 1
Next

End Sub





بعد یه باتن بذار و اینو توش کپی کن


Private Sub Command1_Click()
For i = 1 To VSFlexGrid1.Rows - 1
VSFlexGrid1.TextMatrix(i, 3) = Val(VSFlexGrid1.TextMatrix(i, 1)) * 3
Next
End Sub





میاد از جدول ستون اول اعداد رو میگیره بر 3 ضرب میکنه و داخل ستون سوم نوش میده .


فکر کنم چیزی که میخاستی این باشه..

ریختن اعداد داخل VS هم که توی دستورات هست.

موفق باشید.

[isaac23]

اینم سورس چیزی که برات نوشتم گفتم بزارم راحتر هستی.

[hosein3000]

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

[isaac23]

یکی از بهترین گزینه های که نسبت به سوالت بود رو گفتم این استفاده بشه هم خیلی بهتره هم خیلی راحت تر.

اگه برنامه شما فایل نصبی داشته باشه یعنی یک فای ستاپ بخای درست کنی برای نرم افزارت که نه هیچ مشکلی با هیچ ویندوزی نداری و من تست کردم خیلی راحت جواب میده . . یا اگه فایل نصبی نداره نرم افزارت می تونی با یه دستور ساده قبل از اجرای نرم افزار اونو ریجستر کنی.

در ضمن خود امکانات وی بی که محدوده و بخای فقط از خودش استفاده کنی که نمیشه ...

و راه حل هم چیزی دیگه به ذهنم نمیاد . بستگی داره به شما که اطلاعات رو چجوری به برنامه می دید.؟ که از بانک می خونید یا جایی ذخیره هست .

[hosein3000]

با تشکر و ممنون به خاطر راهنمایی ارزشمندتون
فقط موند یه مشکل اونم استخراج به فایل متنی یا فایل اکسل . البته فایل متنی باشه که خوبتره . که من تونستم خروجی به فایل متنی بگیرم ولی بصورت 2 ستونه ذخیره نکرد همشو بصورت یک سطر ذخیره کرد در حالی که من میخوام به صورت دو ستونه ذخیره بشه عینه پست اول . البته من با کد زیر تونستم تبدیلش کنم فقط میاد فایل رو تو پوشه سیستم 32 ذخیره می کنه میشه بفرمایین چطور میشه کاربر خودش محل ذخیره فایل رو خودش انتخاب کنه
flexgrid1.SaveGrid "book1.xls", flexFileExcel
چطور میشه تو فایل متنی بصورت دوستونه ذخیره کرد و. محلشو هم خود کاربر تعیین کنه ممنون میشم راهنماییم بفرمایین

[isaac23]

برای اینکه کاربر هر مسیری که دوست داشت بتونه فایل رو ذخیره کنه باید از CommonDialog استفاده کنی از قسمت کامپونت ها می تونی به پروژه اضافه کنی.

CommonDialog1.ShowSave
Label1.Caption = CommonDialog1.FileName

[vbhamed]

با تشکر و ممنون به خاطر راهنمایی ارزشمندتون
فقط موند یه مشکل اونم استخراج به فایل متنی یا فایل اکسل . البته فایل متنی باشه که خوبتره . که من تونستم خروجی به فایل متنی بگیرم ولی بصورت 2 ستونه ذخیره نکرد همشو بصورت یک سطر ذخیره کرد در حالی که من میخوام به صورت دو ستونه ذخیره بشه عینه پست اول . البته من با کد زیر تونستم تبدیلش کنم فقط میاد فایل رو تو پوشه سیستم 32 ذخیره می کنه میشه بفرمایین چطور میشه کاربر خودش محل ذخیره فایل رو خودش انتخاب کنه
flexgrid1.SaveGrid "book1.xls", flexFileExcel
چطور میشه تو فایل متنی بصورت دوستونه ذخیره کرد و. محلشو هم خود کاربر تعیین کنه ممنون میشم راهنماییم بفرمایین

سلام
برای اینکه دو ستونه بشه بین عبارتهاتون تو فایل متنی کاراکتر Tab بزارید که میشه vbTab یا از کاما برای درج استفاده کنید چیزی مشابه دستور زیر
Print #1,a,b

[hosein3000]

خیلی ممنون ولی من میخوام 2, تا ستون رو که تو جدول هست عین خودش تو فایل متنی ذخیره کنم کجا باید vbtab رو بنویسم?چون که اعداد تو جدول هستند