VB.Net XML version

 XML dapat digunakan untuk menyimpan data seperti layaknya database.

Pada awalnya XML adalah suatu metode digunakan untuk pertukaran dan pemindahan data

melalui internet. Kemudian berkembang menjadi suatu metode yang juga digunakan untuk pertukaran dan

pengintegrasian data di antara aplikasi dengan platform yang berbeda. Bentuk format XML yang berbasis

teks menyebabkan XML dengan mudah dapat memindahkan data antar platformdan bisa berpindah melalui

internet. Hal tersebut sulit terjadi pada aplikasi yang tidak menggunakan XML, karena aplikasi–aplikasi ini

berdiri pada platform yang berbeda.

contoh program

 buatlah program pada file xml pada windows form aplication pada vb.net

<?xml version="1.0" encoding="utf-8"?>
<!--<kumpulan data="Sistem Informasi">-->
<biodata mahasiswa= "Information System">
  <nama1>Fujiatma</nama1>
  <nim1>12s14003</nim1>
  <prodi1>Information System</prodi1>
  <hobby1>berenang</hobby1>
 
  <nama2>Ramosan</nama2>
    <nim2>12s14001</nim2>
    <prodi2>Information System</prodi2>
    <hobby2>sepakbola</hobby2>
   
</biodata>
  <!--</kumpulan>-->

 SETELAH ITU creat pada desain form 1
seperti berikut ini

KEMUDIAN creat pada form 1
Imports System.Xml
Public Class Form1
    Dim gambar As String = Application.StartupPath
    Private Sub Form1_load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Proyek Tambahan"
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim a As XmlReader = XmlReader.Create("XMLFile1.xml")
        If ComboBox1.Text = "Fujiatma" Then
            Do While a.Read
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "nama1" Then
                    TextBox1.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "nim1" Then
                    TextBox2.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "prodi1" Then
                    TextBox3.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "hobby1" Then
                    TextBox4.Text = a.ReadElementString
                End If
            Loop
            PictureBox1.BackgroundImage = System.Drawing.Image.FromFile(gambar + "\foto\fuji.png")
        End If
        If ComboBox1.Text = "Ramosan" Then
            Do While a.Read
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "nama2" Then
                    TextBox1.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "nim2" Then
                    TextBox2.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "prodi2" Then
                    TextBox3.Text = a.ReadElementString
                End If
                If a.NodeType = XmlNodeType.Element AndAlso a.Name = "hobby2" Then
                    TextBox4.Text = a.ReadElementString
                End If
            Loop
            PictureBox1.BackgroundImage = System.Drawing.Image.FromFile(gambar + "\foto\ramosan.png")
        End If
    End Sub

  
End Class


  KEMUDIAN RUN DAN AKAN MUNCUL SEPERTI BERIKUT INI