سلام می خواستم بدونم کسی هست که بتونه در ویژوال بیسیک 6 این برنامه را بنویسه ؟
برنامه ای که 10 عدد را بگیرد و ذخیره کند و سپس عدد دیگری را بگیرد و در آن جستجو کند اگر عدد بود پیغام دهد "ok" در غیر این صورت "not found " ؟؟؟؟
اگه میتونید کمکم کنید
برنامتو برات نوشتم
Dim x As String, y As Integer, m As String, t As Boolean
Private Sub Command1_Click()
Open "c:\ragam.txt" For Output As #1
For i = 1 To 10
x = InputBox("ÚÏÏ ÑÇ æÇÑÏ ˜ä")
Print #1, x
Next i
Close #1
End Sub
Private Sub Command2_Click()
y = InputBox("ÚÏÏ ÈÑÇí ÌÓÊÌæ ÑÇ æÇÑÏ ˜äíÏ")
Open "c:\ragam.txt" For Input As #1ظDo While Not (EOF(1))
Line Input #1, x
If x = y Then
t = True
Exit Do
End If
Loop
Close #1
If t = True Then
MsgBox "ok"
t = False
Else
MsgBox "not found"
End If
End Sub
Private Sub Form_Load()
t = False
End Sub
امیدوارم بدردت بخوره