برنامه نویسا ***کمک***

[omid sadeghy]

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

 

[saalek110]

visual basic 6 write to file

را سرچ کن.

مثل:
http://stackoverflow.com/questions/1404758/how-to-read-a-file-and-write-into-a-text-file

http://stackoverflow.com/questions/21108664/how-to-create-txt-file

http://www.vbforums.com/showthread.php?342619-Classic-VB-How-can-I-read-write-a-text-file

 

[omid sadeghy]

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

Private Sub Command_Click()
Dim x As Double
x = 10
Do
List1.AddItem x
x = x + 1
If x > 30 Then x = -1
Loop Until x < 0
End Sub

حالا میخوام جواب رو تو یه فایل بهم بده باید چیکار کنم

 

[the_king]

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

Private Sub Command_Click()
Dim x As Double
x = 10
Do
List1.AddItem x
x = x + 1
If x > 30 Then x = -1
Loop Until x < 0
End Sub

حالا میخوام جواب رو تو یه فایل بهم بده باید چیکار کنم

به کدتون این سطر ها رو اضافه کنید تا محتویات List1 رو تو فایل متنی C:\output.txt ذخیره کنه :

    Dim i As Integer, s As String
    For i = 0 To [B][COLOR="#0000FF"]List1[/COLOR][/B].ListCount - 1
        s = s & [B][COLOR="#0000FF"]List1[/COLOR][/B].List(i) & vbNewLine
    Next
    Open "[B][COLOR="#0000FF"]C:\output.txt[/COLOR][/B]" For Output As #1
    Print #1, s
    Close #1

یعنی کدی شبیه به این :

Private Sub Command_Click()
    Dim x As Double
    x = 10
    Do
        List1.AddItem x
        x = x + 1
        If x > 30 Then x = -1
    Loop Until x < 0
    
    Dim i As Integer, s As String
    For i = 0 To List1.ListCount - 1
        s = s & List1.List(i) & vbNewLine
    Next
    Open "C:\output.txt" For Output As #1
    Print #1, s
    Close #1
End Sub