Fungsi Bagian IV Formatting fungsi

---

Fungsi Format dalam Visual Basic 2010 adalah fungsi format yang sangat kuat yang dapat menampilkan nilai-nilai numerik dalam berbagai bentuk. Ada dua jenis fungsi Format dalam Visual Basic 2010, salah satunya adalah built-in atau format yang telah ditetapkan, sementara yang lain dapat didefinisikan oleh pengguna.

(i) Sintaks dari fungsi yang telah ditetapkan Format adalah

Format (n, “style argument”)


di mana n adalah jumlah dan daftar jenis argumen diberikan dalam Tabel 15.1.

Tabel 15.1 Daftar jenis argumen

Argumen Style	Penjelasan	Contoh
Jumlah Umum	Untuk menampilkan nomor tanpa pemisah antara ribuan.	Format (8972.234, "Umum Nomor") = 8972.234
Tetap	Untuk menampilkan nomor tanpa pemisah antara ribuan dan putaran itu sampai dua tempat desimal.	Format (8972,2, "Tetap") = 8.972,23
Standard	Untuk menampilkan nomor dengan pemisah atau pemisah antara ribuan dan putaran itu sampai dua tempat desimal.	Format (6648972.265, "Standard") = 6,648,972.27
Mata Uang	Untuk menampilkan nomor dengan tanda dolar di depan, memiliki pemisah antara ribuan serta pembulatan itu sampai dua tempat desimal.	Format (6648972.265, "Mata") = $ 6,648,972.27
Persen	Converts the number to the percentage form and displays a % sign and rounds it up to two decimal places.	Format (0,56324, "Persen") = 56,32%

Contoh 15.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, “General Number”)
Label2.Text = Format(8972.2, “Fixed”)
Label3.Text = Format(6648972.265, “Standard”)
Label4.Text = Format(6648972.265, “Currency”)
Label5.Text = Format(0.56324, “Percent”)
End Sub

Jendela Output ditunjukkan berikut ini:

(ii) Sintaks dari fungsi user-defined Format adalah

Format (n, "Format pengguna")

Meskipun diketahui sebagai format yang ditetapkan pengguna, kita masih perlu mengikuti gaya format tertentu. Contoh gaya format yang ditetapkan pengguna tercantum dalam Tabel 15.2

Contoh 15.2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, “0.0”)
Label2.Text = Format(8972.2345, “0.00”)
Label3.Text = Format(6648972.265, “#,##0.00”)
Label4.Text = Format(6648972.265, “$#,##0.00”)
Label5.Text = Format(0.56324, “0%”)
End Sub


Jendela Output ditunjukkan berikut ini:

Code Project Contoh 15.1 open source Vb.Net 

Download

Code Project Contoh 15.2 open source Vb.Net 

Download