View previous topic :: View next topic |
Author |
Message |
asal مهمون يكي دو روزه
Joined: 09 Jul 2005 Posts: 2
|
Posted: Mon Jul 11, 2005 4:44 pm Post subject: لطفا من رو راهنمایی کنید |
|
|
سلام
من تازه یادگیری vbرا شروع کردم و نمیدونم که چطوری میشه یک رشته یا یک عدد رو از طریق text boxگرفت و آنها را در یک آرایه ذخیره کرد و بعد آنها را searchکرد لطفا من رو راهنمایی کنید.
مرسی از کمکتون و سایت بسیار بسیار عالیتون. :roll: :D |
|
Back to top |
|
|
asal مهمون يكي دو روزه
Joined: 09 Jul 2005 Posts: 2
|
Posted: Mon Jul 11, 2005 4:45 pm Post subject: |
|
|
سلام
من تازه یادگیری vbرا شروع کردم و نمیدونم که چطوری میشه یک رشته یا یک عدد رو از طریق text boxگرفت و آنها را در یک آرایه ذخیره کرد و بعد آنها را searchکرد لطفا من رو راهنمایی کنید.
مرسی از کمکتون و سایت بسیار بسیار عالیتون. |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Mon Jul 11, 2005 4:59 pm Post subject: |
|
|
امشب برات کدش رو می نویسم
please wait.... |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Mon Jul 11, 2005 7:03 pm Post subject: |
|
|
سلام
Asal به قسمت ویژوال بیسیک خوش آمدید
کدی که خواسته بودید رو براتون نوشتم
این تکه برنامه 5 عدد از ورودی دریافت می کند و آنها را درون یک آرایه می ریزد و سپس اجازه جستجو درون آرایه را به شما می دهد. اگر عدد در آرایه پیدا شود آن عدد به همراه اندیسش در لیستی به کاربر نمایش داده می شود. البته شما این برنامه را با textbox خواسته بودید ولی من آن را با InputBox نوشتم که آن را هم یاد بگیرید.(می توانید به راحتی آنرا با textbox بنویسید)
البته پیشنهاد می کنم تمام مطالب آموزشی این بخش رو بخونی که خیلی کمکت می کنه.
نکته مهم:
سعی می شود ازاین به بعد تا حد امکان رابط گرافیکی کاربر (Graphical User Interface) را نیز در مثال ها پیاده کنم. برای این منظور کدها به صورتی که در زیر آمده است مشاهده می شود. نترسید!
به سادگی کد زیر را در برنامهء notepad کپی کنید و آن را با پسوند frm ذخیره کنید. این کار باعث می شود تمام کنترل ها و سایز و خواص آنها به همان صورتی باشد که من قرار دادم پس با این کار دیگر احتیاج به قرار دادن هیچ کنترلی به صورت دستی نمی باشید و این امکان خطا را کم می کند.
برای مثال کد زیر را در برنامهء notepad با اسم و پسوند زیر ذخیره کنید و سپس آن فایل ایجاد شده را اجرا کنید که اگر vb را نصب داشته باشید به راحتی در ویژوال بیسیک بارگزاری می شود
Search.frm
اگر سوالی بود بپرسید...
| VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Fill & Search"
ClientHeight = 3030
ClientLeft = 5280
ClientTop = 3825
ClientWidth = 5625
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3030
ScaleWidth = 5625
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox List2
Height = 1230
Left = 3000
TabIndex = 4
Top = 1200
Width = 2415
End
Begin VB.CommandButton CmdSearch
Caption = "Search"
Enabled = 0 'False
Height = 375
Left = 3000
TabIndex = 2
Top = 240
Width = 2415
End
Begin VB.ListBox List1
Height = 1230
Left = 240
TabIndex = 1
Top = 1200
Width = 2415
End
Begin VB.CommandButton CmdEnter
Caption = "Enter"
Default = -1 'True
Height = 375
Left = 240
TabIndex = 0
Top = 240
Width = 2415
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Ordered by asal"
Height = 195
Left = 2257
TabIndex = 6
Top = 2640
Width = 1110
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Data found by your search"
Height = 195
Left = 3120
TabIndex = 5
Top = 960
Width = 1875
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Data in array"
Height = 195
Left = 240
TabIndex = 3
Top = 960
Width = 900
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Code Generated by Amir Moradabadi
'All codes in this forum provided by me are for learning purposes only
'Code begins here
Option Explicit
Dim DigitArray(1 To 5) As Integer
Dim i As Integer
Dim Temp As String
Private Sub CmdEnter_Click()
For i = 1 To 5
Temp = InputBox("Please Input number " & i & " from 5 to fill the array", "Entering data", , 0, 0)
If Temp = vbNullString Then
' User pressed the cancel button
List1.Clear
Exit Sub
Else
DigitArray(i) = Val(Temp)
List1.AddItem i & " : " & Val(Temp)
End If
Next i
MsgBox "All 5 numbers were added to array. Now for search the array click the button 'search'"
CmdSearch.Enabled = True
Temp = vbNullString
End Sub
Private Sub CmdSearch_Click()
List2.Clear
Temp = InputBox("Please Input a number to search in the array", "Searching data", "0", 0, 0)
If Temp = vbNullString Then
' User pressed the cancel button
Exit Sub
Else
For i = 1 To 5
If DigitArray(i) = Temp Then
'Number found
List2.AddItem i & " : " & Temp
End If
Next i
If List2.ListCount = 0 Then
MsgBox "Number not found in the array", vbCritical, "Error"
End If
End If
End Sub |
|
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Wed Jul 13, 2005 10:08 pm Post subject: |
|
|
به این می گن این کاره ...
ته قابل حمل ...
یا moveable program |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Thu Jul 14, 2005 1:12 pm Post subject: |
|
|
البته بگما نمیشه همه برنامه ها رو به این صورت نوشت |
|
Back to top |
|
|
itjavad مهمون يكي دو روزه
Joined: 10 Jul 2005 Posts: 2
|
Posted: Tue Jul 19, 2005 1:02 am Post subject: |
|
|
چطور میشه از اجرا و پاک کردن یک فایل در داخل ویندوز جلوگیری کرد |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Tue Jul 19, 2005 1:32 pm Post subject: |
|
|
عزیزان برای چندمین بار می گم سوال جدید را در پست جدیدی بنویسید |
|
Back to top |
|
|
vahid_ve دوست آشناي سايت
Joined: 05 Feb 2006 Posts: 85
|
Posted: Sun Feb 05, 2006 5:01 pm Post subject: |
|
|
چطور میشه از اجرا و پاک کردن یک فایل در داخل ویندوز جلوگیری کرد
--------------------------------------------------------------------------------
با استفاده از فرمان
Attrib
برای این کار از منوی
Start>run
را برگزینید و
cmd.exe
را تایپ کنید و در صفحه ای که باز شد
Attrib +R FileName
را تایپ کنید
Vahid
|
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Sun Feb 05, 2006 6:23 pm Post subject: |
|
|
روي فايل كليك راست كن ! گزينه Read رو انتخاب كن . فكر كنم بشه همين attribي كه گفتي . |
|
Back to top |
|
|
vahid_ve دوست آشناي سايت
Joined: 05 Feb 2006 Posts: 85
|
Posted: Thu Feb 09, 2006 7:16 am Post subject: |
|
|
عزیزم خودم اینو میدونستم
برای اینکه یک کمی کار تخصصی تر بشه اینو گفتم.
|
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Thu Feb 09, 2006 9:27 am Post subject: |
|
|
|
|
Back to top |
|
|
javid مهمون يكي دو روزه
Joined: 29 Jun 2005 Posts: 16 Location: Tehran
|
Posted: Fri Feb 17, 2006 10:19 am Post subject: |
|
|
البته یه راه دیگه هم داره :
می شه یه فایل رو به عنوان یک سرویس وینوز معرفی کرد و هرچه دیتا می خواهیم به اون اضافه یا کم کنیم
این فایل غیر قابل پاک شدن می شه تا وقتی که ...
اگه کسی تونست کد این جوری ارائه بده |
|
Back to top |
|
|
|