دروست كردنی فه‌رهه‌نگ به‌زمانی VB.Net بۆ ویندۆز

لەم بابەتەدا باس لە دروست کردنى فەرهەنگێکى ئینگلیزی بۆ كوردی و چۆنیه‌تی دانانی وێنه‌ بۆ وشه‌كان دەکەین بە ڤیژەڵ بەیسک
پێداویستیەکان :-
مایکرۆسۆفت ئەکسس
ڤیژوەڵ بەیسک

سەرەتا بۆ ئەوەى فەرهەنگێک دروست بکەین پێویستمان بە داتابەیسێکە کە زانیاریەکانى تێدا هەڵبگرین بۆئەمەش مایکرسۆفت ئەکسس بەکاردەهێنین
بەرنامەکە بکەرەوە و پاشان وەک ئەم وێنەیە بکە

پاشان کلیک لە Save بکە و ناوى Table دەستکارى مەکە
وەک وێنەکان بکە

بڕۆ بۆ View >>DataSheet View و وشەکانى تیا تۆمار بکە

ئێستا داتابەیسەکە پاشکەوت بکە و بەرنامەى ڤیژوەڵ بەیسک بکەرەوە
برۆ بۆ File>>New Project>> ناوێک بنێ لە پرۆژەکەو پاشان خەزنى بکە

سەرەتا فۆڕمێک دروست بکە بە قەبارەى 281, 349 پاشان ئەمانە زیاد دەکەین بۆ ناو فۆڕمەکە
یەک دانە لە ListBox
چوار دانە لە TextBox
سێ دانە لە Label
یەک دانە لە PictureBox
یەک دانە لە GroupBox
شەش دانە لە Button

سەیرى ئەم وێنەیە بکە و بەم شێوەیە ڕێکى بخە و ناوى هەریەکە لە Button …. بگۆرە وەک ئەوەى لە وێنەکەدایە

ئێستا پێویستە داتابەیسەکە بهێنینە ناو بەرنامەکەمانەوە بەم شێوەیە دەیکەین
دەچینە سەر مێنوى Data پاشان Add New Data Source دەکەین

پاشان Browse بکە و فایلى داتابەیسەکە دیارى بکە پاشان Ok

پاشان Next >>Yes>>Next>>
پاشان نیشانەى ڕاست بدە لە Tables و Finish دەکەین

Build>>Build Dictionary

لە ToolBox هەریەکە لەمانە بهێنە ناو فۆڕمەکەوە
WordDataSet
Table1TableAdapter
BindingSource

کلیک لە BindingSource1 بکەو لە بەشى Properties دا وەک ئەوەى منى لێ بکە

ده‌چینه‌ سه‌ر Solution Explorer و تیایدا ده‌چینه‌ سه‌ر داتا سێته‌كه‌ كه‌ ئه‌وه‌ی من ناوی WordDataset ‌و View Designer ده‌كه‌ین و پاشان ئه‌م هه‌نگاوانه‌ جێبه‌جێ ده‌كه‌ین :
هه‌نگاوی یه‌كه‌م و دووه‌م Next ده‌كه‌ین و هه‌نگاوی سێیه‌م Query Builder ده‌كه‌ین

پاشان OK و Next ده‌كه‌ین و له‌ بۆكسی Method Name ده‌نوسین FillByEnglish ده‌نوسین و Finish

بۆ هه‌ریه‌كه‌ له‌ Arabic و Kurdish هه‌مان ڕێگه‌ به‌كارده‌هێنین وه‌ك ئه‌م وێنه‌یه‌

لە ئەنجامدا بەم شێوەیە دەبێت

ئێستا بڕۆ بۆ TextBox4
وە Name بکە بە TxtID
وەک ئەم وێنەیە بکە

وە بیخەرە شوێنێکەوە کە لە فؤرمەکەدا دەرنەکەوێت
بڕۆ بۆ Project>>Add Refrence بکە و پاشان System.Speech ئەد بکە

تەواو بوین تەنها کۆدەکەمان ماوە
ئەم کۆدە کۆپى بکە پاشان هەموو کۆدەکانى ناو فۆڕمەکە بسڕەوە و پەیستى بکە

Imports System.Speech.Synthesis
Public Class Form1

Dim TypeSearch As String = “En”

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Table1TableAdapter.Fill(Me.WordDataSet.Table1)
WordList.DataSource = Me.Table1BindingSource
WordList.DisplayMember = “English”
TypeSearch = “En”
TxtSearch.Font = New Font(“Calibri”, 13, FontStyle.Regular)
WordList.Font = New Font(“Calibri”, 13, FontStyle.Regular)
LabResult1.Text = “كوردى”
LabResult2.Text = “عةرةبى”
TxtResult1.Font = New Font(“Ali_K_Hasan”, 13, FontStyle.Regular)
TxtResult2.Font = New Font(“Ali-A-Hasan”, 13, FontStyle.Regular)
CleaeBinding()
Me.TxtResult1.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Kurdish”, True))
Me.TxtResult2.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Arabic”, True))
End Sub

Sub CleaeBinding()
Me.TxtResult1.DataBindings.Clear()
Me.TxtResult2.DataBindings.Clear()
End Sub

Private Sub BtnKu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKu.Click
WordList.DataSource = Me.Table1BindingSource
WordList.DisplayMember = “Kurdish”
TypeSearch = “Ku”
TxtSearch.Font = New Font(“Ali_K_Hasan”, 13, FontStyle.Regular)
WordList.Font = New Font(“Ali_K_Hasan”, 13, FontStyle.Regular)
LabResult1.Text = “ئينطليزى”
LabResult2.Text = “عةرةبى”
TxtResult1.Font = New Font(“Calibri”, 13, FontStyle.Regular)
TxtResult2.Font = New Font(“Ali-A-Hasan”, 13, FontStyle.Regular)
CleaeBinding()
TxtResult1.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “English”, True))
TxtResult2.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Arabic”, True))
End Sub

Private Sub BtnEn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEn.Click
WordList.DataSource = Me.Table1BindingSource
WordList.DisplayMember = “English”
TypeSearch = “En”
TxtSearch.Font = New Font(“Calibri”, 13, FontStyle.Regular)
WordList.Font = New Font(“Calibri”, 13, FontStyle.Regular)
LabResult1.Text = “كوردى”
LabResult2.Text = “عةرةبى”
TxtResult1.Font = New Font(“Ali_K_Hasan”, 13, FontStyle.Regular)
TxtResult2.Font = New Font(“Ali-A-Hasan”, 13, FontStyle.Regular)
CleaeBinding()
Me.TxtResult1.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Kurdish”, True))
Me.TxtResult2.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Arabic”, True))
End Sub

Private Sub BtnAr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAr.Click
WordList.DataSource = Me.Table1BindingSource
WordList.DisplayMember = “Arabic”
TypeSearch = “Ar”
TxtSearch.Font = New Font(“Ali-A-Hasan”, 13, FontStyle.Regular)
WordList.Font = New Font(“Ali-A-Hasan”, 13, FontStyle.Regular)
LabResult1.Text = “ئينطليزى”
LabResult2.Text = “كوردى”
TxtResult1.Font = New Font(“Calibri”, 13, FontStyle.Regular)
TxtResult2.Font = New Font(“Ali_K_Hasan”, 13, FontStyle.Regular)
CleaeBinding()
Me.TxtResult1.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “English”, True))
Me.TxtResult2.DataBindings.Add(New System.Windows.Forms.Binding(“Text”, Me.Table1BindingSource, “Kurdish”, True))
End Sub

Private Sub TxtSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtSearch.KeyDown
If e.KeyCode = Keys.Enter Then
Try
Dim path = My.Application.Info.DirectoryPath & “\Image\” & TxtID.Text & “.jpeg”
PicWord.BackgroundImage = Image.FromFile(path)
PicWord.Refresh()
Catch ex As Exception
Dim g As Graphics = PicWord.CreateGraphics
g.Clear(Color.Tan)
g.DrawString(“No Image”, New Font(“Calibri”, 13, FontStyle.Bold), Brushes.Red, PicWord.Width / 2, PicWord.Height / 2)
End Try

End If
End Sub

Private Sub TxtSearch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtSearch.TextChanged
If TypeSearch = “Ku” Then
Me.Table1TableAdapter.FillByKurdish(Me.WordDataSet.Table1, TxtSearch.Text)
ElseIf TypeSearch = “En” Then
Me.Table1TableAdapter.FillByEnglish(Me.WordDataSet.Table1, TxtSearch.Text)
Else
Me.Table1TableAdapter.FillByArabic(Me.WordDataSet.Table1, TxtSearch.Text)
End If
End Sub

Private Sub WordList_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles WordList.MouseClick
TxtSearch.Text = WordList.DataBindings.Control.Text : TxtSearch.Focus()
Try
Dim path = My.Application.Info.DirectoryPath & “\Image\” & TxtID.Text & “.jpeg”
PicWord.BackgroundImage = Image.FromFile(path)
PicWord.Refresh()
Catch ex As Exception
Dim g As Graphics = PicWord.CreateGraphics
g.Clear(Color.Tan)
g.DrawString(“No Image”, New Font(“Calibri”, 13, FontStyle.Bold), Brushes.Red, PicWord.Width / 2, PicWord.Height / 2)
End Try
End Sub

Private Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.Click
Try
If TypeSearch = “En” Then
If TxtSearch.Text = “” Then Exit Sub
Dim synth = New SpeechSynthesizer
synth.Speak(TxtSearch.Text)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)
End Try
End Sub

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Try
If PicWord.BackgroundImage Is Nothing Then Exit Sub
PicWord.BackgroundImage.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & “\” & TxtID.Text & “.jpeg”, System.Drawing.Imaging.ImageFormat.Jpeg)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)
End Try
End Sub

Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
End
End Sub
End Class

تێبینی بۆ ئه‌وه‌ی ڕه‌سمه‌كان پیشان بدات پێویسته‌ له‌و شوێنه‌وه‌ی پرۆگرامه‌كه‌ت داناوه‌ فۆڵده‌رێك دروست بكه‌ی به‌ناوی Image و به‌ پێی ID وشه‌كان ڕه‌سمه‌كان دابنێی
بەهیواى ئەوەى سودى هەبوو بێت و لە کەموکورتیەکانمان ببورن

ڕێباز ڕەئوف

هەموو ماڵپەر و دەزگایەكی ڕاگەیاندن ئازادە لە بڵاو كردنەوەی بابەتەكانی ماڵپەری تێك ئای، بەمەرجێك ئاماژەی بە سەرچاوەكە بكات