ذخیره کردن اطلاعات [بایگانی]

sa1378

چهارشنبه 24 اردیبهشت 1393, 10:12 صبح

سلام
میشه یه نفر یه برنامه قرار بده که کنار برنامه یه txt باشه و متغیرهامون تو برنامه بعد از بیرون اومدن ذخیره بشن و وقتی دوباره وارد شدیم از فایل خونده بشن
یه برنامه ساده و روون باشه برای اینکه یاد بگیرم
با تشکر

Mori Bone

چهارشنبه 24 اردیبهشت 1393, 10:36 صبح

بعد از اینکه فرم باز شد دو تا عدد تو اون تکس باکس ها بنویس و بعد برنامرو ببند و دوباره اجرا کن. ببین چی میشه!:چشمک:
118995

sa1378

چهارشنبه 24 اردیبهشت 1393, 12:04 عصر

بعد از اینکه فرم باز شد دو تا عدد تو اون تکس باکس ها بنویس و بعد برنامرو ببند و دوباره اجرا کن. ببین چی میشه!:چشمک:
118995
F5 رو میزنم run time eror میده

Mori Bone

چهارشنبه 24 اردیبهشت 1393, 12:51 عصر

فایل data.txt رو پاک کن بعد اجرا کن

ایلیا آخوندزاده

چهارشنبه 24 اردیبهشت 1393, 18:21 عصر

سلام کار فایل data.txt چیه؟

Mori Bone

چهارشنبه 24 اردیبهشت 1393, 21:42 عصر

سلام کار فایل data.txt چیه؟

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

sa1378

شنبه 27 اردیبهشت 1393, 17:25 عصر

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

ببخشید باز میپرسم
یه مشکلی برام پیش اومد
از کد شما اومدم تو برنامم استفاده کنم
6 تا متغیر گذاشتم
3 تا رشته و 3 تا عدد
عدد هام از byte بزرگترن و مجبور شدم عوضش کنم
ولی تا اونا رو integer کردم روی دستور get که شما نوشته بودین ارور داد
چیکار باید کنم؟
اگه میشه عدد های جلوی دستور get رو هم توضیح بدین

راستی ارور میده :
Bad record lengh

Mori Bone

دوشنبه 29 اردیبهشت 1393, 15:13 عصر

چطور من Integer کردم درس بود؟
فایل زیر رو دان کن
119228

sa1378

دوشنبه 29 اردیبهشت 1393, 17:44 عصر

اینتیجر تا 32000 هست دیگه؟
من هر دو تا تسکت رو نوشتم 30000 پیغام over flow داد

Mori Bone

دوشنبه 29 اردیبهشت 1393, 18:00 عصر

Private Type variables
num1 As Integer
num2 As Integer
num3 As Integer
End Type
Dim Vars As variables

Private Sub Form_Load()
Dim Sum2, n1, n2, n3
Open "data.txt" For Random As #1
Get #1, 1, Vars
Close #1
n1 = Vars.num1
n2 = Vars.num2
n3 = Vars.num2
Label1.Caption = CStr(n1) & " + " & CStr(n2) & " + " & CStr(n3) & " = " & CStr(n1 + n2 + n3)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "data.txt" For Random As #1
Vars.num1 = Val(Text1)
Vars.num2 = Val(Text2)
Vars.num3 = Val(Text2)
Put #1, 1, Vars
'Label1.Caption = CStr(Vars.num1) & " + " & CStr(Vars.num2) & " = " & CStr(Vars.num1 + Vars.num2)
Close #1
End Sub