ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

لطفا من رو راهنمایی کنید

 
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET
View previous topic :: View next topic  
Author Message
asal
مهمون يكي دو روزه


Joined: 09 Jul 2005
Posts: 2

PostPosted: Mon Jul 11, 2005 4:44 pm    Post subject: لطفا من رو راهنمایی کنید Reply with quote

سلام
من تازه یادگیری vbرا شروع کردم و نمیدونم که چطوری میشه یک رشته یا یک عدد رو از طریق text boxگرفت و آنها را در یک آرایه ذخیره کرد و بعد آنها را searchکرد لطفا من رو راهنمایی کنید.
مرسی از کمکتون و سایت بسیار بسیار عالیتون. :roll: :D
Back to top
asal
مهمون يكي دو روزه


Joined: 09 Jul 2005
Posts: 2

PostPosted: Mon Jul 11, 2005 4:45 pm    Post subject: Reply with quote

سلام
من تازه یادگیری vbرا شروع کردم و نمیدونم که چطوری میشه یک رشته یا یک عدد رو از طریق text boxگرفت و آنها را در یک آرایه ذخیره کرد و بعد آنها را searchکرد لطفا من رو راهنمایی کنید.
مرسی از کمکتون و سایت بسیار بسیار عالیتون.
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Mon Jul 11, 2005 4:59 pm    Post subject: Reply with quote

امشب برات کدش رو می نویسم
please wait....
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Mon Jul 11, 2005 7:03 pm    Post subject: Reply with quote

سلام
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

PostPosted: Wed Jul 13, 2005 10:08 pm    Post subject: Reply with quote

به این می گن این کاره ...
ته قابل حمل ...
یا moveable program
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Thu Jul 14, 2005 1:12 pm    Post subject: Reply with quote

البته بگما نمیشه همه برنامه ها رو به این صورت نوشت
Back to top
itjavad
مهمون يكي دو روزه


Joined: 10 Jul 2005
Posts: 2

PostPosted: Tue Jul 19, 2005 1:02 am    Post subject: Reply with quote

چطور میشه از اجرا و پاک کردن یک فایل در داخل ویندوز جلوگیری کرد
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Tue Jul 19, 2005 1:32 pm    Post subject: Reply with quote

عزیزان برای چندمین بار می گم سوال جدید را در پست جدیدی بنویسید
Back to top
vahid_ve
دوست آشناي سايت


Joined: 05 Feb 2006
Posts: 85

PostPosted: Sun Feb 05, 2006 5:01 pm    Post subject: Reply with quote

چطور میشه از اجرا و پاک کردن یک فایل در داخل ویندوز جلوگیری کرد
--------------------------------------------------------------------------------
با استفاده از فرمان
Attrib
برای این کار از منوی
Start>run
را برگزینید و
cmd.exe
را تایپ کنید و در صفحه ای که باز شد

Attrib +R FileName

را تایپ کنید

Vahid
Laughing Wink
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Sun Feb 05, 2006 6:23 pm    Post subject: Reply with quote

روي فايل كليك راست كن ! گزينه Read رو انتخاب كن . فكر كنم بشه همين attribي كه گفتي .
Back to top
vahid_ve
دوست آشناي سايت


Joined: 05 Feb 2006
Posts: 85

PostPosted: Thu Feb 09, 2006 7:16 am    Post subject: Reply with quote

عزیزم خودم اینو میدونستم

برای اینکه یک کمی کار تخصصی تر بشه اینو گفتم.

Evil or Very Mad Evil or Very Mad
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Thu Feb 09, 2006 9:27 am    Post subject: Reply with quote

Wink
Back to top
javid
مهمون يكي دو روزه


Joined: 29 Jun 2005
Posts: 16
Location: Tehran

PostPosted: Fri Feb 17, 2006 10:19 am    Post subject: Reply with quote

البته یه راه دیگه هم داره :
می شه یه فایل رو به عنوان یک سرویس وینوز معرفی کرد و هرچه دیتا می خواهیم به اون اضافه یا کم کنیم
این فایل غیر قابل پاک شدن می شه تا وقتی که ...
اگه کسی تونست کد این جوری ارائه بده
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum