تگ های موضوع سورس دفترچه تلفن با استفاده از

سورس دفترچه تلفن با استفاده از VB.NET

دفترچه تلفن یکی از برنامه‌های کاربردی است که به کاربران این امکان را می‌دهد تا اطلاعات تماس افراد مختلف را ذخیره، مدیریت و جستجو کنند. در اینجا، ما به بررسی سورس کد یک دفترچه تلفن ساده با استفاده از VB.NET خواهیم پرداخت.

۱. معرفی پروژه

پروژه ما شامل فرم‌ها و کنترل‌های مختلفی است که به کاربر اجازه می‌دهد نام، شماره تلفن و سایر اطلاعات مربوط به مخاطبین را وارد کند. ما از یک پایگاه داده ساده برای ذخیره اطلاعات استفاده خواهیم کرد.

۲. شروع پروژه

برای شروع، Visual Studio را باز کنید و یک پروژه جدید از نوع "Windows Forms App" در VB.NET ایجاد کنید.

۳. طراحی فرم

در فرم اصلی، می‌توانید از کنترل‌های زیر استفاده کنید:
- TextBox: برای وارد کردن نام و شماره تلفن.
- Button: برای اضافه کردن، حذف و جستجوی مخاطبین.
- ListBox: برای نمایش لیست مخاطبین.

۴. کد نمونه

در ادامه، کدهایی برای عملکرد اصلی دفترچه تلفن را ارائه می‌دهیم:
```vb.net
Public Class PhoneBook
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim name As String = txtName.Text
Dim phone As String = txtPhone.Text
If name <> "" And phone <> "" Then
lstContacts.Items.Add(name & " - " & phone)
txtName.Clear()
txtPhone.Clear()
Else
MessageBox.Show("لطفاً نام و شماره تلفن را وارد کنید.")
End If
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If lstContacts.SelectedIndex <> -1 Then
lstContacts.Items.RemoveAt(lstContacts.SelectedIndex)
Else
MessageBox.Show("لطفاً یک مخاطب را انتخاب کنید.")
End If
End Sub
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim searchTerm As String = txtSearch.Text.ToLower()
Dim found As Boolean = False
For Each item As String In lstContacts.Items
If item.ToLower().Contains(searchTerm) Then
MessageBox.Show("مخاطب پیدا شد: " & item)
found = True
Exit For
End If
Next
If Not found Then
MessageBox.Show("مخاطب پیدا نشد.")
End If
End Sub
End Class
```

۵. توضیحات کد

- btnAdd_Click: این تابع برای اضافه کردن مخاطب جدید به لیست استفاده می‌شود. اگر نام و شماره تلفن وارد شده باشد، مخاطب به لیست اضافه می‌شود.
- btnDelete_Click: این تابع برای حذف مخاطب انتخاب شده از لیست کاربرد دارد. اگر هیچ مخاطبی انتخاب نشده باشد، پیام خطا نمایش داده می‌شود.
- btnSearch_Click: این تابع برای جستجوی مخاطبین در لیست استفاده می‌شود. اگر مخاطبی با نام وارد شده پیدا شود، پیام مربوطه نمایش داده می‌شود.

۶. نتیجه‌گیری

با استفاده از کد بالا، شما می‌توانید یک دفترچه تلفن ساده بسازید. این پروژه می‌تواند به عنوان یک نقطه شروع برای توسعه‌های بیشتر مانند ذخیره‌سازی اطلاعات در پایگاه داده یا اضافه کردن ویژگی‌های جدید مورد استفاده قرار گیرد.
با این حال، رعایت امنیت و مدیریت داده‌ها در پروژه‌های بزرگ‌تر اهمیت بسیاری دارد.
امیدوارم این توضیحات برای شما مفید باشد!

سورس دفترچه تلفن با VB.NET: راهنمای کامل و جامع

در این مقاله، به طور کامل و جامع درباره ساختن یک دفترچه تلفن با استفاده از زبان برنامه‌نویسی VB.NET صحبت می‌کنیم. این پروژه، نمونه‌ای ساده اما مفید است که می‌تواند برای آشنایی با مفاهیم پایه برنامه‌نویسی ویژوال بیسیک و کار با پایگاه‌های داده بسیار مناسب باشد. پس، بیایید شروع کنیم و هر بخش را به دقت بررسی کنیم.
۱. معرفی پروژه و اهداف آن
در این پروژه، هدف اصلی ایجاد یک برنامه است که بتواند اطلاعات تماس افراد را ذخیره، ویرایش، حذف و جستجو کند. این اطلاعات معمولاً شامل نام، شماره تلفن، آدرس و ایمیل هستند. برای این کار، از پایگاه داده SQL Server یا فایل‌های XML یا حتی فایل‌های متنی ساده می‌توان استفاده کرد، اما در اینجا، بهتر است از پایگاه داده SQL استفاده کنیم، چرا که امکانات بیشتری برای مدیریت داده‌ها دارد.
۲. طراحی فرم‌های برنامه
در ویژوال بیسیک، ابتدا باید فرم‌های مورد نیاز را طراحی کنیم:
- فرم اصلی (Main Form): شامل لیست تماس‌ها، و دکمه‌هایی برای افزودن، ویرایش، حذف و جستجو.
- فرم جزئیات تماس (Details Form): برای وارد کردن یا ویرایش اطلاعات تماس.
در طراحی، باید از کنترل‌هایی مانند DataGridView، TextBox، Button و Label بهره بگیرید. به عنوان مثال، DataGridView برای نمایش لیست تماس‌ها و TextBox برای وارد کردن یا ویرایش اطلاعات.
۳. ساخت پایگاه داده و جداول
برای ذخیره‌سازی داده‌ها، می‌توانید یک پایگاه داده SQL Server ایجاد کنید و جدول زیر را تعریف کنید:
```sql
CREATE TABLE Contacts (
ID INT PRIMARY KEY IDENTITY(1,1),
Name NVARCHAR(100),
Phone NVARCHAR(20),
Address NVARCHAR(255),
Email NVARCHAR(100)
)
```
این جدول، اطلاعات تماس را نگه می‌دارد. ستون ID به صورت خودکار افزایش می‌یابد و نقش کلید اصلی را دارد.
۴. اتصال برنامه به پایگاه داده
در VB.NET، باید از کلاس‌های `SqlConnection`، `SqlCommand` و `SqlDataAdapter` برای ارتباط با پایگاه داده استفاده کنید. نمونه کد برای اتصال و بازیابی داده‌ها:
```vb.net
Dim conString As String = "Data Source=YOUR_SERVER;Initial Catalog=YourDatabase;Integrated Security=True"
Dim con As New SqlConnection(conString)
Sub LoadContacts()
Dim query As String = "SELECT * FROM Contacts"
Dim adapter As New SqlDataAdapter(query, con)
Dim dt As New DataTable()
adapter.Fill(dt)
DataGridView

1. DataSource = dt
   

End Sub
```
در اینجا، باید مسیر اتصال (`conString`) را مطابق با سرور و پایگاه داده خود تنظیم کنید.
۵. عملیات‌های CRUD (ایجاد، خواندن، بروزرسانی، حذف)
برای افزودن تماس جدید، ویرایش و حذف، باید از دستورات SQL و رویدادهای Button بهره برد:
- افزودن تماس:
```vb.net
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim query As String = "INSERT INTO Contacts (Name, Phone, Address, Email) VALUES (@Name, @Phone, @Address, @Email)"
Using cmd As New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Phone", txtPhone.Text)
cmd.Parameters.AddWithValue("@Address", txtAddress.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
LoadContacts()
End Sub
```
- حذف تماس:
```vb.net
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
Dim id As Integer = Convert.ToInt32(DataGridView

1. CurrentRow.Cells("ID").Value)
   

Dim query As String = "DELETE FROM Contacts WHERE ID = @ID"
Using cmd As New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@ID", id)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
LoadContacts()
End Sub
```
- ویرایش تماس:
```vb.net
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
Dim id As Integer = Convert.ToInt32(DataGridView

1. CurrentRow.Cells("ID").Value)
   

Dim query As String = "UPDATE Contacts SET Name=@Name, Phone=@Phone, Address=@Address, Email=@Email WHERE ID=@ID"
Using cmd As New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Phone", txtPhone.Text)
cmd.Parameters.AddWithValue("@Address", txtAddress.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
cmd.Parameters.AddWithValue("@ID", id)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
LoadContacts()
End Sub
```
۶. جستجو و فیلتر کردن تماس‌ها
برای جستجو، می‌توانید یک TextBox دیگر در فرم قرار دهید و هنگام نوشتن، لیست تماس‌ها را فیلتر کنید:
```vb.net
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
Dim filter As String = txtSearch.Text
Dim dt As DataTable = CType(DataGridView

1. DataSource, DataTable)
   

Dim dv As New DataView(dt)
dv.RowFilter = $"Name LIKE '%{filter}%' OR Phone LIKE '%{filter}%'"
DataGridView

1. DataSource = dv
   

End Sub
```
در این صورت، هر بار کاربر متن جدید وارد می‌کند، لیست به‌روز می‌شود.
۷. نکات مهم و نکات پیشرفته
- حتماً از مدیریت استثنا برای جلوگیری از خطاهای احتمالی در عملیات پایگاه داده استفاده کنید.
- برای بهبود UI، از کنترل‌های پیشرفته و طراحی کاربر پسند بهره ببرید.
- می‌توانید امکاناتی مانند صادر کردن به فایل اکسل یا ایمیل کردن تماس‌ها را نیز اضافه کنید.
- اگر قصد دارید برنامه را برای چند کاربر همزمان توسعه دهید، حتماً نکات امنیتی و قفل‌گذاری را رعایت کنید.
---
در نتیجه، ساختن یک دفترچه تلفن در VB.NET، پروژه‌ ای است که نه تنها مهارت‌های برنامه‌نویسی شما را تقویت می‌کند، بلکه درک عمیق‌تری نسبت به کار با پایگاه داده‌ها و کنترل‌های ویژوال به شما می‌دهد. با تمرین و توسعه بیشتر، می‌توانید این پروژه را به برنامه‌ای کامل و کاربردی تبدیل کنید. اگر سوال دارید یا نیاز به نمونه پروژه دارید، حتما بگویید.