1

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

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

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

http://www.webchinupload.com/f/2013-09/47969b784abe13eb10bb001c120d1fc4.png

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

http://www.webchinupload.com/f/2013-09/01f9ac224a60f5af00083a51802819ff.png

http://www.webchinupload.com/f/2013-09/60d239b53e51ce9b058a5a3e21a1c958.png

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


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

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

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

http://www.webchinupload.com/f/2013-09/1ff029f776050e43fd953c99b60c4ef9.png

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

http://www.webchinupload.com/f/2013-09/09c863bd7abb8a7a1ff9c87b9624b06f.png

http://www.webchinupload.com/f/2013-09/4c80bc4ef138dea95405c661faa8022b.png

http://www.webchinupload.com/f/2013-09/19219935ae64e4225ac08ff46584241e.png

http://www.webchinupload.com/f/2013-09/0020cda59057c26325941539d5e95d53.png

http://www.webchinupload.com/f/2013-09/b2f3b2e4082a4b442faf85f8e0ac9cd9.png

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

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

Build>>Build Dictionary

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

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

http://www.webchinupload.com/f/2013-09/e44b52c527de3bf08bc68daa8173c2f0.png

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

http://www.webchinupload.com/f/2013-09/74c6e930f26a6c74a5e923421154864c.png

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

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

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

http://www.webchinupload.com/f/2013-09/e536402289dc12d6148585767e410440.png

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

http://www.webchinupload.com/f/2013-09/e2cef6a7c9baa7593be95cc5932b884f.png

وە بیخەرە شوێنێکەوە کە لە فؤرمەکەدا دەرنەکەوێت
بڕۆ بۆ 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 وشه‌كان ڕه‌سمه‌كان دابنێی


بەهیواى ئەوەى سودى هەبوو بێت و لە کەموکورتیەکانمان ببورن
Rebaz

2

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

دەستخۆش کاک محەمەد، بەسوودە.

3

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

بژی كاك ڕیباز ماندوو نه‌بیت عه‌زێتت كێشاوه‌ به‌س من هه‌ڵه‌ نه‌بم ئه‌وه‌ VBA نه‌ك Vb.net ؟

4

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

Halgurd.Hussen نووسی:

دەستخۆش کاک محەمەد، بەسوودە.

زۆر سوپاس

Dlovan نووسی:

بژی كاك ڕیباز ماندوو نه‌بیت عه‌زێتت كێشاوه‌ به‌س من هه‌ڵه‌ نه‌بم ئه‌وه‌ VBA نه‌ك Vb.net ؟

زۆر سوپاس کاک دلۆڤان گیان...نەخێر VB.NET ـه ، VBA تەنها ئەتوانی لە ئۆفیس بەکاری بێنیت وەک VB6 وایە ، بابەتێکم هەیە لەسەر ئەوە ئینشەڵا بڵاوی ئەکەمەوە
دەستخۆش

5

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

ده‌ستت خۆش بێت بۆ بابه‌ته‌كه‌ت , هیوادارم به‌رده‌وام بیت و زیاتر په‌ره‌ به‌ كاره‌كه‌ت بده‌یت

به‌رده‌وام له‌ دوای فێربوون به‌

6 (دەستکاری کراوە: Rawan 2016-02-03 06:45:01)

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

دەستخۆش، زۆر بە سوودە. پرسیارێك، ئەگەر بۆ ویندۆز دروست کرا بەلام بۆ ئایفۆن و ئەندرۆید convert بکرێن، چۆن دەبێت؟

ڕووحت شاد مامۆستای گەورە ئاسۆ نادری، تۆ هەموو شتێکت فێر کردین.
لەگەل وێبچن هەموو شتێک ئاسانترە!

7

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

ده‌ستتخۆشبێت زۆرزۆر شازه‌ ئه‌وه‌
ئه‌مه‌ش به‌ڤیدیۆ من كردوومه‌ به‌ سی شارپ

8

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

زۆر سوپاس كاك Kurdm84 ئینشه‌ڵا

كاك Rawan ناتوانی به‌ Visual studio و به‌ Vb.net پرۆگرام بۆ ئه‌ندرۆید و ئایفۆن دروست بكه‌ی به‌ڵام له‌ جێگه‌ی ئه‌وه‌ی basic4android هه‌یه‌ كه‌ به‌زمانی Vb.net ئه‌توانی پرۆگرام بۆ ئه‌ندرۆید و ئایفۆن و كۆمپیوته‌ریش دروست بكه‌ی https://www.b4x.com/

شتی تر زۆر به‌ڵام Xamarin زۆر باشتره‌ له‌ ئه‌وانی تر به‌ڵام به‌ #C فه‌رموو https://xamarin.com/studio

له‌سه‌روو هه‌موشیانه‌وه‌ هیچی وه‌ك ئه‌وه‌ ده‌رناچێت كه‌ به‌ جاڤا و Obejective-c دروستی ئه‌كه‌ی

9

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

ده‌ست خۆش كاك بیلال به‌سوده‌

10

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

mhamad.rebaz نووسی:

زۆر سوپاس كاك Kurdm84 ئینشه‌ڵا

كاك Rawan ناتوانی به‌ Visual studio و به‌ Vb.net پرۆگرام بۆ ئه‌ندرۆید و ئایفۆن دروست بكه‌ی به‌ڵام له‌ جێگه‌ی ئه‌وه‌ی basic4android هه‌یه‌ كه‌ به‌زمانی Vb.net ئه‌توانی پرۆگرام بۆ ئه‌ندرۆید و ئایفۆن و كۆمپیوته‌ریش دروست بكه‌ی https://www.b4x.com/

شتی تر زۆر به‌ڵام Xamarin زۆر باشتره‌ له‌ ئه‌وانی تر به‌ڵام به‌ #C فه‌رموو https://xamarin.com/studio

له‌سه‌روو هه‌موشیانه‌وه‌ هیچی وه‌ك ئه‌وه‌ ده‌رناچێت كه‌ به‌ جاڤا و Obejective-c دروستی ئه‌كه‌ی


كاكه‌ محمد ئێستا ڤیژوه‌ل ستۆدیۆی 2015 به‌شی ئه‌ندرۆید  و ios ی بۆ زیادكراوه‌ ئه‌گه‌ر ئه‌ویش دابه‌زێنیت له‌ناو ئه‌ویش تیایه‌تی و بێ كیشه‌ ئیش ئه‌كات
به‌ڵام له‌سه‌ر ڤیژوه‌ل سی شارپ ئیش ئه‌كات واته‌ پێویست به‌وه‌ ناكات برۆیت خه‌مارین ستۆدیۆ دابه‌زێنیت چونكه‌ هه‌ر له‌ ڤیژوه‌ل ستۆدیۆی 2015 خۆی زیادكراوه‌ و بێ كێشه‌یه‌

11

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

کاک بیلال ئەوەی زیادی ئەکەی xamarin ە جا ئەوەی خۆی دابەزێنیت باشترە لە extension

12

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

دەست خۆش کاک محمد و کاک بیلال.

ڕووحت شاد مامۆستای گەورە ئاسۆ نادری، تۆ هەموو شتێکت فێر کردین.
لەگەل وێبچن هەموو شتێک ئاسانترە!