دفتر تلفن با VB.NET
ایجاد یک دفتر تلفن ساده با استفاده از VB.NET میتواند یک پروژه جالب و آموزشی باشد. این پروژه به شما این امکان را میدهد که با مفاهیم برنامهنویسی شیگرا، مدیریت دادهها و کار با پایگاههای داده آشنا شوید.
طراحی رابط کاربری
ابتدا نیاز به طراحی یک رابط کاربری داریم. میتوانیم از WinForms استفاده کنیم. در اینجا چند عنصر کلیدی وجود دارد:
- TextBox برای وارد کردن نام، شماره تلفن و سایر اطلاعات.
- Button برای اضافه کردن، ویرایش و حذف مخاطبین.
- ListBox برای نمایش لیست مخاطبین.
کدگذاری اصلی
در مرحله بعد، باید کدهای مربوط به عملیات مختلف را بنویسیم. برای مثال:
```vb
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim contact As String = txtName.Text & " - " & txtPhone.Text
lstContacts.Items.Add(contact)
txtName.Clear()
txtPhone.Clear()
End Sub
```
این کد به سادگی نام و شماره تلفن را از TextBox دریافت کرده و به ListBox اضافه میکند.
ذخیرهسازی دادهها
برای ذخیرهسازی دادهها میتوانیم از یک پایگاه داده ساده مانند SQLite یا یک فایل متنی استفاده کنیم. به عنوان مثال، برای استفاده از یک فایل متنی میتوانیم از کد زیر استفاده کنیم:
```vb
Dim writer As New StreamWriter("contacts.txt", True)
writer.WriteLine(contact)
writer.Close()
```
ویرایش و حذف مخاطبین
برای ویرایش و حذف مخاطبین، میتوانیم از دو دکمه دیگر استفاده کنیم. به عنوان مثال:
```vb
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If lstContacts.SelectedIndex <> -1 Then
lstContacts.Items.RemoveAt(lstContacts.SelectedIndex)
End If
End Sub
```
نتیجهگیری
در نهایت، با ایجاد یک دفتر تلفن ساده، شما میتوانید مهارتهای برنامهنویسی خود را بهبود ببخشید و با کار با دادهها و رابطهای کاربری آشنا شوید. این پروژه میتواند به عنوان پایهای برای پروژههای بزرگتر و پیچیدهتر استفاده شود.
دفتر تلفن با VB.NET: راهنمای کامل و جامع
در این مقاله، قصد داریم به صورت جامع و کامل درباره ساخت یک دفتر تلفن با استفاده از زبان برنامهنویسی VB.NET صحبت کنیم. این پروژه، نمونهای از برنامههای مدیریت تماس است که میتواند شامل افزودن، ویرایش، حذف و جستجوی شماره تماسها باشد. برای شروع، باید محیط توسعه Visual Studio را نصب کنید و سپس پروژه جدیدی با نوع Windows Forms ایجاد نمایید.
ساختار پایگاه داده:
اولین قدم، طراحی پایگاه داده است. معمولاً، یک جدول به نام Contacts ساخته میشود که شامل فیلدهای زیر است:
- ID (کلید اصلی، خود افزایش)
- Name (نام فرد)
- PhoneNumber (شماره تلفن)
- Email (ایمیل، اختیاری)
- Address (آدرس، اختیاری)
برای اتصال پایگاه داده، میتوانید از ADO.NET و SQL Server یا Access استفاده کنید. در اینجا، فرض بر این است که از SQL Server استفاده میکنید.
طراحی رابط کاربری:
در فرم اصلی، المانهای زیر را قرار میدهید:
- TextBox برای وارد کردن نام، شماره تلفن، ایمیل و آدرس
- DataGridView برای نمایش لیست تماسها
- Button برای عملیات افزودن، ویرایش، حذف، جستجو و تازهسازی
کدهای VB.NET:
در ادامه، نمونهای از کدهای پایه برای عملیاتهای مختلف آورده شده است.
- اتصال به پایگاه داده:
Dim connectionString As String = "Data Source=SERVER_NAME;Initial Catalog=DB_NAME;Integrated Security=True"
```
- افزودن تماس:
Dim query As String = "INSERT INTO Contacts (Name, PhoneNumber, Email, Address) VALUES (@Name, @PhoneNumber, @Email, @Address)"
Using conn As New SqlConnection(connectionString)
Using cmd As New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@PhoneNumber", txtPhone.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
cmd.Parameters.AddWithValue("@Address", txtAddress.Text)
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تماس اضافه شد.")
End Using
End Using
```
- نمایش دادهها در DataGridView:
Dim dt As New DataTable()
Dim adapter As New SqlDataAdapter("SELECT * FROM Contacts", connectionString)
adapter.Fill(dt)
dgvContacts.DataSource = dt
```
- ویرایش تماس:
```vb.net
Dim query As String = "UPDATE Contacts SET Name=@Name, PhoneNumber=@PhoneNumber, Email=@Email, Address=@Address WHERE ID=@ID"
Using conn As New SqlConnection(connectionString)
Using cmd As New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@PhoneNumber", txtPhone.Text)
cmd.Parameters.AddWithValue("@Email", txtEmail.Text)
cmd.Parameters.AddWithValue("@Address", txtAddress.Text)
cmd.Parameters.AddWithValue("@ID", selectedID)
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تماس ویرایش شد.")
End Using
End Using
```
- حذف تماس:
Dim query As String = "DELETE FROM Contacts WHERE ID=@ID"
Using conn As New SqlConnection(connectionString)
Using cmd As New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@ID", selectedID)
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تماس حذف شد.")
End Using
End Using
```
جمعبندی:
در این پروژه، علاوه بر عملیات پایه، میتوانید امکاناتی مانند جستجو بر اساس نام یا شماره تلفن، ذخیرهسازی در فایلهای XML یا JSON، و یا اضافه کردن ویژگیهای امنیتی را نیز پیادهسازی کنید. همچنین، توجه کنید که در برنامههای واقعی، باید موارد امنیتی مانند جلوگیری از SQL Injection و اعتبارسنجی دادهها را رعایت کنید.
در نهایت، ساخت دفتر تلفن با VB.NET یک پروژه کاربردی و مناسب برای یادگیری کار با پایگاه دادهها، رابط کاربری و عملیات CRUD است که میتواند به عنوان پایهای برای پروژههای بزرگتر مورد استفاده قرار گیرد.