all about VB.net php dan coding2an ya

DATAGRIDVIEW   

DataGridView adalah sebuah kontrol di VB .net yang digunakan untuk menampilkan data dalam bentuk grid. Control ini dapat dikoneksikan dengan berbagai jenis database, dan menampilkan isi dari tabel atau query melalui perintah SQL.  

Menampilkan Data dari database Ke Datagridview 

Langkah-langkahnya sebagai berikut :  Pilih Datagridview pada toolbox   

 Kemudian klik add project data source   

 Pilih New Connection  

 Pilih server name sesuai dengan nama servernya. Pilih nama database yang akan dikoneksikan. Kemudian klik Test Connection untuk memastikan koneksi sudah berhasil.  

Jalankan! dan hasilnya adalah sebagai berikut.    

Membuat Data Grid View Sebagai Lembar Kerja  

 Menghitung Total pada GridView dengan LINQ 

LINQ ( Language Integrated Query ) adalah sebuah Query yang terintegrasi dengan IDE Visual Studio, sehingga para programmer mempunyai opsi lain untuk melakukan sebuah query tanpa harus membuat command sql dalam bentuk string. 

Banyak jenis LINQ yang dapat dipakai, LINQ to SQL, LINQ to XML, LINQ to Dataset dan lain – lain.  Salah satu kegunaan LINQ yang sering sekali  dipakai adalah untuk melakukan penjumlahan pada GridView, biasanya ini sering digunakan pada aplikasi seperti POS dan aplikasi sejenis.    

Fungsi untuk menjumlahkan grid dengan looping pada tombol total : 

Dim Total As Double = 0   

For Each row As DataGridViewRow In DataGridView1.Rows   

'Index no 1 kolom jumlah   

Total += Convert.ToDouble(row.Cells(1).Value)   

Next   

txtTotal.Text = Total   

Atau, bandingkan apabila kita memakai LINQ…. 

Dim Total = Aggregate row As DataGridViewRow In DataGridView1.Rows _   

Into Sum(Convert.ToDouble(row.Cells(1).Value))   

txtTotal.Text = Total    

Hasilnya :  

  

 Memasukan Data Dari DataGridView Ke Database  Buat database terlebih dahulu, misalnya kita ambil database DataMhs dengan tabel mhs. Kemudian buat form dibawah ini.    

Data sebelum diubah :    

Data sesudah diubah :    

Masukan coding ke form dibawah ini :  

Imports System.Data.SqlClient Imports System.Data  

Public Class Form1     Dim sCommand As SqlCommand     Dim sAdapter As SqlDataAdapter     Dim sBuilder As SqlCommandBuilder     Dim sDs As DataSet 

    Dim sTable As DataTable     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim connectionString As String = "Data Source=(LOCAL); Initial Catalog=DataMhs; Integrated Security=True"  

        Using connection As New SqlConnection(connectionString)  

            Dim cmdText As String = "INSERT INTO mhs (nim, nama, jenis_kelamin) VALUES (@Column1, @Column2, @Column3)"             Dim command As New SqlCommand(cmdText, connection)             command.Parameters.Add(New SqlParameter("@Column1", SqlDbType.VarChar))             command.Parameters.Add(New SqlParameter("@Column2", SqlDbType.VarChar))             command.Parameters.Add(New SqlParameter("@Column3", SqlDbType.VarChar))             connection.Open()             Dim transaction As SqlTransaction = connection.BeginTransaction()             command.Transaction = transaction  

            Try  

                For i As Integer = 0 To DataGridView1.Rows.Count - 2                     command.Parameters("@Column1").Value = DataGridView1.Rows(i).Cells(0).FormattedValue                     command.Parameters("@Column2").Value = DataGridView1.Rows(i).Cells(1).FormattedValue                     command.Parameters("@Column3").Value = DataGridView1.Rows(i).Cells(2).FormattedValue                     command.ExecuteNonQuery()                 Next i  

                transaction.Commit()                 MessageBox.Show("Data Berhasil Disimpan")             Catch ex As Exception  

                Try                     transaction.Rollback()  

                Catch rollBackEx As Exception                     MessageBox.Show(rollBackEx.Message)                 End Try  

            End Try  

        End Using  

    End Sub End Class     

   

  Pencarian Kata Dengan Textbox Di Datagridview 

Pencarian dimana user mengetikan kata dalam sebuah textbox, sementara kursor didatagrid akan mencari kata yang sama sesuai dengan kata dalam textbox.   

proses pencarian gambar diatas adalah pencarian Nomor Akun. ketika kita mengetikan nim yang kita inginkan, kursor yang berwarna biru di dalam grid akan menunjukkannya. Listing Programnya adalah sebagai berikut :  

Public Class Form1      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.MhsTableAdapter.Fill(Me.DataMhsDataSet.mhs) End Sub     Private Sub txtFind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFind.TextChanged         Dim xloop1 As Integer         Dim sPola As String         Dim sbuka As String         Dim SBetul As Boolean  

        sPola = txtFind.Text + "*"  

        For xloop1 = 1 To Gridme.RowCount - 1             sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value             SBetul = UCase(sbuka) Like UCase(sPola)  

            If SBetul = True Then                 Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)                 Exit Sub             End If         Next  

End Sub  

End Class 

LIST VIEW  

ListView dalam Visual Basic biasanya digunakan untuk menampilkan data, baik dari database maupun bukan, ke dalam tabel dalam bentuk list atau grid. Dengan listview, data yang ada dapat diurutkan, ditambahkan maupun dihapus dengan mudah dari list.  

Menambah, Mengedit dan Menghapus Isi List View    

   

Jawaban : Public Class FrmListView     Dim Baris As Integer = 0     Dim BarisEdit As Integer = 0  

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         'Mengatur ListView         ListView1.View = View.Details         ListView1.FullRowSelect = True         ListView1.GridLines = True  

        ListView1.Columns.Add("Nama Lengkap", 150)         ListView1.Columns.Add("Alamat", 200) End Sub  

Button Tambah  

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click         ListView1.Items.Add(TextBox1.Text)         ListView1.Items(Baris).SubItems.Add(TextBox2.Text)  

        Baris += 1 End Sub  

Button Edit      Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click         ListView1.Items(BarisEdit).Text = TextBox1.Text         ListView1.Items(BarisEdit).SubItems(1).Text = TextBox2.Text  

    End Sub  

ListView      Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged         BarisEdit = ListView1.FocusedItem.Index     End Sub  

Button Hapus      Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click         ListView1.Items(BarisEdit).Remove() End Sub  

End Class    

Tugas Prktikum!  

Buat aplikasi transakasi untuk entry surat pesanan dibawah ini!   

Dibawah ini contoh coding dengan obyek koneksi OleDbConnection :  

Imports System.Data.OleDb Imports System.Data Public Class frmEntrySP Dim cnn As OleDbConnection Dim cmmd, cmmd1, cmmd2 As OleDbCommand Dim dReader As OleDbDataReader Private index As Integer = 0 Private Total As Double = 0.0 Private Sub frmEntrySP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Buka koneksi cnn = New OleDbConnection(strConn) If cnn.State <> ConnectionState.Closed Then cnn.Close() cnn.Open() 'Buat AutoNumber u Surat Pesanan Dim strTemp As String = "" Dim strValue As String = "" Dim sql As String sql = "SELECT * FROM SP ORDER BY NOSP DESC" cmmd = New OleDbCommand(sql, cnn) dReader = cmmd.ExecuteReader If dReader.Read Then strTemp = Mid(dReader.Item("NOSP"), 3, 5) Else txtNoSP.Text = "SP00001" Exit Sub End If 'MsgBox(strTemp) strValue = Val(strTemp) + 1 txtNoSP.Text = "SP" & Mid("00000", 1, 5 - strValue.Length) & strValue End Sub  

Untuk Textboxt kode supplier : Private Sub txtNoSP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNoSP.KeyPress If Asc(e.KeyChar) = 13 Then btnCariSup.Focus() End If End Sub  

Tombol Cari : Private Sub btnCariSup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCariSup.Click Dim popupsup As New PopSup popupsup.ShowDialog() If popupsup.retKdSup <> "" Then txtkdsup.Text = popupsup.retKdSup txtNmSup.Text = popupsup.retNmSup txtNmSup.Focus() End If End Sub  

Untuk textboxt nama supplier : Private Sub txtNmsup_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNmSup.KeyPress If Asc(e.KeyChar) = 13 Then BtnCariBrg.Focus() End If 

End Sub  

Untuk Textboxt Jumlah barang : Private Sub txtJmlbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJmlBeli.KeyPress If Asc(e.KeyChar) = 13 Then SetTotal() txtTotal.Focus() End If End Sub  

Untuk Textbox Total : Private Sub txtTotal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTotal.KeyPress If Asc(e.KeyChar) = 13 Then btnTambah.Focus() End If End Sub Sub SetTotal() Dim a As Integer a = CInt(txtJmlBeli.Text) * CInt(txtSatuan.Text) txtTotal.Text = Format(CDbl(CStr(a)), "##,####,####,###") 'txt.Text = Format(CDbl(txt.Text), "##,####,####,###") End Sub  

Untuk tombol cari barang : Private Sub BtnCariBrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCariBrg.Click Dim popupbrg As New PopBrg popupbrg.ShowDialog() If popupbrg.retKdBrg <> "" Then txtKdBrg.Text = popupbrg.retKdBrg txtNmBrg.Text = popupbrg.retNmBrg txtSatuan.Text = Format(CDbl(popupbrg.retSatuan), "##,####,####,###") txtJmlBeli.Focus() End If End Sub  

Untuk Tombol tambah : Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click Dim Value() As String = {txtKdBrg.Text, txtNmBrg.Text, txtSatuan.Text, txtJmlBeli.Text, txtTotal.Text} AddList(Value) Total += CDbl(txtTotal.Text) : txtGrandTotal.Text = Format(CDbl(CStr(Total)), "##,####,####,###") txtKdBrg.Text = "" : txtNmBrg.Text = "" : txtSatuan.Text = "" : txtJmlBeli.Text = "" txtTotal.Text = "" txtKdBrg.Focus() End Sub Sub AddList(ByVal Value() As String) Dim subIndex As Integer ListView1.Items.Add("") For subIndex = 0 To 4 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subIndex).Text = Value(subIndex) Next 

index = index + 1 End Sub  

Untuk Tombol Simpan : Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click Dim counter As Integer Dim sql1, sql2 As String Try sql1 = "INSERT INTO SP(NOSP, TGLSP, KDSUP) " & _ "VALUES('" & txtNoSP.Text & "','" & _ DateTimePicker3.Text & "','" & _ txtkdsup.Text & "')" cmmd1 = New OleDbCommand(sql1, cnn) Dim x As Integer = cmmd1.ExecuteNonQuery For counter = 0 To index - 1 sql2 = "INSERT INTO PESAN(TKDBRG,NOSP, JML, HRG) " & _ "VALUES('" & _ ListView1.Items(counter).SubItems(0).Text & "','" & _ txtNoSP.Text & "','" & _ ListView1.Items(counter).SubItems(3).Text & "','" & _ ListView1.Items(counter).SubItems(2).Text & "')" cmmd2 = New OleDbCommand(sql2, cnn) cmmd2.ExecuteNonQuery() Next If x = 1 Then MessageBox.Show("DATA SP BERHASIL DISIMPAN") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub  

Untuk tombol Batal : Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click ListView1.Items.Clear() index = 0 : Total = 0 txtGrandTotal.Text = "" End Sub  

Untuk Tombol keluar : Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click Me.Close() End Sub End Class

 1Membuat Form LOGIN (Menggunakan VB.net / visual basic 2010)

Buka Visual Basic 2010

Save dengan Nama LOGIN

Tentukan Lokasi Penyimpanan (contoh D:\)

Buat form 2 form (Form Login dan Form Kosong)

NB: Guna dari Form kosong adalah untuk mengetest apabila form login berhasil masuk akan tampil form kosong tersebut .

ini adalah contoh form login buatan saya :D

sebenernya ga musti harus seperti itu .

anda cukup membuatnya sederhana

1 buah groupbox ~> beri nama pada text (Masukan Nama Dan Password)

di dalam groupbox anda beri :

2 buah Label = Nama dan Password

2 buah textbox = textbox1 dan textbox2

2 buah button = Login dan Batal

Nama control Propertis Nilai

Groupbox1 Name Masukan Nama Dan Password

Textbox1 Name TxtNama

TextBox2 Name TxtPassword

Label1 Text Nama

Label2 Text Password

button1 Name CmdLogin

Text Login

button2 Name CmdBatal

Text Batal

Atur Propertis seperti contoh di atas .

sehingga mengubah form seperti

setelah selesai membuat form di atas . kita akan membuat database :D

2. Membuat Database (Access 2003/2007)

buka ms.access

pilih penyimpanan di lokasi folder anda membuat program form di dalam folder 

(D:\LOGIN\Bin \Debug)

buat table dengan nama TUSER

buat 2 Field (Nama [tetx]  dan Password [text] )

isi Field Nama sesuka anda

isi Field Password sesuka anda

save

3. Mengkoneksikan VB.net/ visual basic 2010 ke Access

Sudah saya jelaskan pada blog saya sebelumnya klik untuk anda mempelajari cara melihat link koneksi database

Nb: apabila anda merasa sulit anda bisa mengetik manual . apabila anda menggunakan access 2003 dan database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEST.mdb;Persist Security Info=False

apabila anda menggunakan access 2007 dengan lokasi penyimpanan Database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LOGIN\bin\Debug\TEST.accdb;Persist Security Info=False

(di PASTE di Connection syntax lihat contoh syntax di bawah ~>  Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False" )

4. Membuat syntax

untuk tahap ini anda tidak perlu menggunakan Modul atau Class (untuk para pemula)

anda hanya perlu memahami logic nya

dan anda jg bisa membuat Modul / Class setelah memahami Logic dari syntax tersebut

Tulis Syntax berikut :

Imports System.Data.OleDb

Public Class LOGIN

    Dim Con As New OleDbConnection

    Sub clear()

        TxtNama.Text = ""

        TxtPassword.Text = ""

    End Sub

    Private Sub LOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

----------------------------------------------------------------------------------------------------------------------------------------

'***PASTE LINK KONEKSI DATABASE DI BAWAH ( DI DALAM TANDA " " )***

----------------------------------------------------------------------------------------------------------------------------------------'

   Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False"

    End Sub

    Private Sub CmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBatal.Click

        Call clear()

    End Sub

    Public Function ask()

        Dim dt As New DataTable

        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter(" select * from TEXT", Con)

        ds.Tables.Add(dt)

        Con.Open()

        da.Fill(dt)

        For Each datarow In dt.Rows

            If TxtNama.Text = datarow.item(0) And TxtPassword.Text = datarow(1) Then

                Con.Close()

                Return True

            End If

        Next

        Con.Close()

        Return False

    End Function

    Sub Proses()

        If ask() = True Then

            Me.Hide()

----------------------------------------------------------------------------------------------------------------------------------------

            'form2 adalah form kosong yang anda buat guna apabila berhasil login akan tampil form 2'

 ----------------------------------------------------------------------------------------------------------------------------------------        

            Form2.ShowDialog()

        Else

            MessageBox.Show("Username atau password salah. periksa kembali", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Call clear()

        End If

    End Sub

    Private Sub CmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click

        TxtNama.Focus()

        Proses()

    End Sub

------------------------------------------------------------------------------------------------------------

    'di bawah ini adalah untuk enter = CmdLogin'

atau

'apabila enter di keyboard = login '

------------------------------------------------------------------------------------------------------------

    Private Sub TxtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtPassword.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

    Private Sub TxtNama_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNama.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

End Class

all about VB.net PHP dan codinganya

Cara membuat laporan dengan crystal report pada vb.net

Salah satu kelebihan menggunakan vb.net 2008 adalah tersedianya crystal report yang terintegrasi dengan vb.net. Hal ini membuat report jauh lebih mudah  di samping crystal report sendiri kaya akan fitur. Kali ini akan kita bahas bagaimana cara membuat laporan dengan crystal report pada vb.net.

1. Pertama, persiapkan sebuah form dengan design berikut :

Kontrol	Properti	Value
CrystalReportViewer1	Name	CrystalReportViewer1
Label1	Text	Tampilkan Nama :
TextBox1	name	TextBox1
Button	Name	Btdisplay
	Text	Display

2. Setelah form nya selesai, selanjutnya yang kita buat adalah dataset yang akan digunakan untuk memanggil table. Caranya : add- new item – pilih data – klik dataset – klik tombol add.

3. Nah, setelah datasetnya sudah dibuat kemudian buat koneksi ke database caranya buka Server Explorer – add connection – pilih data source: MySQL Database – Data provider : .NET Framework Data Provider for MySQL – klik OK.

4. Server name:localhost – user name: root – Password: root – Database name: db_latihan – Klik OK.

5. Buka DataSet1 – Drag table tb_latihan dari database connection yang ada pada Server Explorer – klik Yes.

6. Sekarang Buat lembar Crystalreport1 dengan add new item – Reporting – Crystal Report. Tambahkan field dengan cara : Klik kanan pada database field – pilih project data – ADO .NET datasets – pilih table tb_latihan – Klik Ok.

7. Drag field dari tb_latihan ke Section3 (Details) crystal report1 lalu design seperti ini

 8. Sebelum menuliskan kode ke dalam form, karena saya menggunakan database MySQL maka terlebih dahulu menambahkan referensi mysql ke form. Caranya : Project – add reference – pada tab .Net pilih Mysql.Data.

Kemudian tuliskan kode berikut ke dalam form :

Imports MySql.Data.MySqlClient

Public Class Form3
‘Membuat koneksi ke database
Private kon As New MySqlConnection(“server=localhost;database=db_latihan;uid=root;password=root;”)

Private Sub btdisplay_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btdisplay.Click
Dim cmd As MySqlCommand
Dim adp As New MySqlDataAdapter
Dim dt As New DataSet
Dim sql As String

sql = “select id,nama,alamat from tb_latihan where nama like @nama”
Try
kon.Open()
cmd = New MySqlCommand(sql, kon)
cmd.Parameters.Add(“@nama”, MySqlDbType.VarChar).Value =”%” & TextBox1.Text & “%”
adp.SelectCommand = cmd
adp.Fill(dt, “tb_latihan”)

Dim report As New CrystalReport1
report.SetDataSource(dt)
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()

cmd.Dispose()
adp.Dispose()
dt.Dispose()
kon.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, “Error cetak laporan”)
End Try
End Sub
End Class

CARA MEMBUAT COMBO DAN LIST BOX

Membuat ComboBox dan ListBox pada visual basic 2008

Pada tutorial kali ini saya akan menjelaskan bagaimana cara mengetahui informasi ukuran hardisk yang ada di komputer kita dengan vb.net seperti gambar berikut :

Langkah – Langkahnya adalah sebagai berilut :

1. Pertama Buka Microsoft Visual Basic 2008 dengan cara klik start-Microsoft Visual Basic 2008
2. File-New-Project-Windows Form Application
3. Pada Name beri nama project misalnya “PRAK33 A″ kemudian Ok

4. Pada Form diatas terdiri dari 3 buah Label 1 buah ComboBox dan 1 buah ListBox

5. Atur propertiesnya seperti berikut :

Form1	Text	ComboBox dan ListBox
	Name	Form1
Label1	Text	ComboBox dan ListBox RUMAHMANDIRI.COM
	Name	Label1
Label2	Text	Drive
	Name	Label2
Label3	Text	Keterangan
	Name	Label3
ComboBox	Text	-
	Name	Cmb_Drive
ListBox	Name	LstInfo

6. Kemudian klik kanan pada Form1-View Code masukkan program berikut :

Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
End Sub

Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
LstInfo.Items.Clear()
LstInfo.Items.Add(“Nama Drive :” & Dir(“” & _
Cmb_Drive.Text & “”, FileAttribute.Volume) & “”)
LstInfo.Items.Add(“System :” & Dir(“” & _
Cmb_Drive.Text & “”, FileAttribute.System) & “”)
Dim dvr As New DriveInfo(Cmb_Drive.Text)
Dim kapasitas = CStr(dvr.TotalSize / 1000000) & “MB”
Dim Sisa = CStr(dvr.TotalFreeSpace / 1000000) & “MB”
Dim Terpakai = CStr(Val(kapasitas) – Val(Sisa)) & “MB”
LstInfo.Items.Add(“Kapasitas : ” & kapasitas)
LstInfo.Items.Add(“Terpakai : ” & Terpakai)
LstInfo.Items.Add(“Sisa : ” & Sisa)
End Sub
End Class