VB.NET: Fjalor dygjuhësh me bazë XML

[esatiu]

Pershendetje per te gjithe.

Ktu kam paraqitur nje menyr se si te lidhemi me xml bazen dhe te krijojm ne fjalor Shqip Anglisht.
--
Fillojme. Se pari krijojm nje xml file me keto te dhena.

1
Libër
Book


2
Po
Yes


3
Jo
No


4
Bregdet
Seaside


5
Deti
Sea


6
Fund
End


7
Fillimi
Beginning


9
Djathtas
Right


10
Majtas
Left


11
Lart
Top


12
Poshtë
Bottom


13
Provim
Examination


14
Avokat
Lawyer


15
Leter
Paper


16
Laps
Pencil


17
Përkthyes
Translator


18
Shpejt
Fast


19
Posht
Down


20
Qumshti
Milky


21
Njeri
Man


22
Mashkull
Male


23
Femer
Female


24
Djalosh
Boy


25
Vajzë
Girl

Ja kshtu kemi nje fjalor me 25 fjal.

Tash fillojm programimin ne vb.net 2005.

'fushat private-vetanake qe perdoren brenda Class-es momentale
    Private _dataTable As DataTable
    Private _languages As Languages

    Enum Languages As Integer
        Shqip = 0
        English = 1
    End Enum

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'gjate hapjes se forms kryesore lexohen fjalet nga XML fajlli
        Dim da As New DataSet
        da.ReadXml(Application.StartupPath & "\Fjalet.xml")'qitu e caktoni vendim se ku ndodhet baza

        'te dhenat e lexuara ruhen rezidente ne nje objekt privat
        _dataTable = da.Tables("Fjalet")

        'vihet gjuha fillestare -psh ne anglishte
        _languages = Languages.English

        'thirre sub proceduren e poshte shkruar
        ChangeApplicationLanguage()
    End Sub



    Private Sub btnLanguage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLanguage1.Click
        'thirre sub proceduren e poshte shkruar
        ChangeApplicationLanguage()
    End Sub

    Private Sub btnLanguage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLanguage2.Click
        'thirre sub proceduren e poshte shkruar
        ChangeApplicationLanguage()
    End Sub

    Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
        'thirre sub proceduren e poshte shkruar
        ChangeApplicationLanguage()
    End Sub

    Private Sub ChangeApplicationLanguage()
        'bene ndrrimin e gjuhes (nese eshte shqip e bene anglisht  dhe  anasjelltas)
        If _languages = Languages.Shqip Then
            _languages = Languages.English
        ElseIf _languages = Languages.English Then
            _languages = Languages.Shqip
        End If
        '
        'ndrysho fotot e butonave per gjuhen e zgjedhur
        If _languages = Languages.Shqip Then
            Me.btnLanguage1.Image = Me.picAlb.Image
            Me.btnLanguage2.Image = Me.picEnu.Image
            labSelectedLanguage.Text = "Ju keni selektuar gjuhen shqipe"
        ElseIf _languages = Languages.English Then
            Me.btnLanguage1.Image = Me.picEnu.Image
            Me.btnLanguage2.Image = Me.picAlb.Image
            labSelectedLanguage.Text = "You have selected english language"
        End If

        'pastro te gjtha vlerat ekzistuese ne listbox-in e gjuhes momentale
        lstLanguage1.Items.Clear()
        lstLanguage2.Items.Clear()
        'shto te gjitha fjalet e gjuhes se zgjedhur ne listbox-in e pare
        For Each dr As DataRow In _dataTable.Rows
            If _languages = Languages.Shqip Then
                'lexoj vlerat nga rreshti i dyte ne dataTable objekt
                lstLanguage1.Items.Add(dr.Item(1))
            ElseIf _languages = Languages.English Then
                'lexoj vlerat nga rreshti i trete ne dataTable objekt
                lstLanguage1.Items.Add(dr.Item(2))
            End If
        Next
    End Sub

    Private Sub MainForm_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        'gjate mbylljes se programit mbylli te gjitha instancat e
        ' hapura gjere me tani
        Application.Exit()
    End Sub

    Private Sub lstLanguage1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstLanguage1.SelectedIndexChanged
        'MsgBox(CType(lstLanguage1.SelectedItem, String))
        Dim selectedMember As String = CType(lstLanguage1.SelectedItem, String)

        'Dim tmpDatatable = Me._dataTable.Columns

        lstLanguage2.Items.Clear()
        For Each dr As DataRow In _dataTable.Rows
            If _languages = Languages.Shqip Then
                'lstLanguage1.Items.Add(dr.Item(1))
                If selectedMember = CType(dr.Item(1), String) Then
                    lstLanguage2.Items.Add(dr.Item(2))
                End If
            ElseIf _languages = Languages.English Then
                'lstLanguage1.Items.Add(dr.Item(2))
                If selectedMember = CType(dr.Item(2), String) Then
                    lstLanguage2.Items.Add(dr.Item(1))
                End If
            End If
        Next
    End Sub

    Private Sub cboWords_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboWords.KeyUp
        ' nese ne Listbox-in e gjuhes se zgjedhur ekziston fjala e shkruar atehere
        ' antari i listbox-it te selektohet ne baze te vleres se shkruar ne Combobox
        If lstLanguage1.Items.Contains(Me.cboWords.Text) Then
            lstLanguage1.SelectedItem = Me.cboWords.Text
        End If

        ' nese tasti i shtypur eshte Return=Enter atehere shtoje kete vlere ne Combobox
        If e.KeyCode = Keys.Return Then
            Me.cboWords.Items.Add(Me.cboWords.Text)
        End If
    End Sub

Kodet jan me komente perkatese. Nese ka ndonje problem, ktu do jem.

Kalofshit mire.

[Uke Topalli]

Ndoshta do te ishte me lehte te krijosh koleksion te objekteve dhe pastaj te perdoresh serialize/deserialize per krijim/lexim te objekteve ne/nga XML

[esatiu]

me fal nuk kuptova edhe shum mire a ki mundesi ti me paraqit mendimin tend ju lutem

[Uke Topalli]

Ne programin tend ti e perdor dataset per ta ngarkuar XML. Kjo nuk eshte gabim, por ne programim gjithnje ka me shum menyra per ta arritur qellimin e deshiruar. Nje prej alternativave eshte qe ne vend te dataset, data adapter etj te krijosh nje klase me vetite : fjala angleze dhe fjala shqipe dhe me atributin Serializable si dhe e implementon metoden per comparable interface, pastaj krijon nje koleksion te objekteve ku mund te kryesh sortimin duke u bazuar ne interface-in e krijuar. Perparesite jane : ngarkimi dhe shkarkimi i XML behete me lehte dhe me shpejt, sortimi behete me shpejte, intellisense i VS ndihmon ne rast se kjo behet pjese e nje projekti me te madh.

[esatiu]

Deri dikun te kuptova por jo edhe shume jom 15 vjet dhe ka gati tre vite qe kam fillu me u marr me programim dhe ende skam filluar te hy ne klasa, module e kto sene vazhdmisht jom u i msu kto sene kllasat etj.
Nese ke koh ti, nese kishe pasur mundesi me paraqit mendimin tend ne kod se si e kishe krijuar ti klasen si me lidh e kshtu me radh.
Faleminderit per mirkuptim. Mirmbetshim

[Uke Topalli]

Nuk e shoh se si do te te ndihmonte kodi kur sapo ke filluar te mesosh per klasat ... kjo eshte fushe mjaft e gjere edhe pa hyre ne koleksione dhe interface. Nese ke ndonje pyetje konkrete

[esatiu]

A kishe pasur mundesi me me tregu se per cfar perdoren klasat dhe modulet per cka na sherbejne?

[Uke Topalli]

A kishe pasur mundesi me me tregu se per cfar perdoren klasat dhe modulet per cka na sherbejne?

Kur ekziston nje "send" i definuar me disa veti (properties) dhe funksione qe mund ti kryen qofte mbi sende te jashtme qofte mbi vetit e veta atehere perdorimi i klasave eshte me se i qelluar. Shembul i klases eshte dataset te cilin ti e perdor ne kodin tend, ai i ka vetit e veta si emrin, strukturen etj dhe funskionet si sort, find etj. Dataset poashtu mund te permban koleksion te datatable. Forma eshte gjithashtu klase.

Kur krijon nje program ne vb.net, ai mud te ket shum pjese te ndryshme: forma, dataset, module (ku mund te definosh ca klasa), resources, etj.