Konstanta & Enum

Konstanta mengacu pada nilai tetap yang tidak dapat diubah oleh program selama eksekusinya. Nilai tetap ini juga disebut literal.

Konstanta dapat berupa salah satu dari tipe data dasar seperti konstanta integer, konstanta floating point, konstanta karakter, atau literal string. Juga terdapat konstanta enumerasi.

Konstanta diperlakukan seperti variabel biasa, kecuali bahwa nilainya tidak dapat diubah setelah didefinisikan.

Enumerasi adalah sekumpulan konstanta integer yang diberi nama.


Mendeklarasikan Konstanta

Dalam VB.Net, konstanta dideklarasikan menggunakan pernyataan Const. Pernyataan ini digunakan di level modul, kelas, struktur, prosedur, atau blok sebagai pengganti nilai literal.

Sintaks pernyataan Const adalah:

[ < attributelist > ] [ accessmodifier ] [ Shadows ]
Const constantlist

Penjelasan:

  • attributelist – daftar atribut yang diterapkan pada konstanta. Opsional.
  • accessmodifier – menentukan aksesibilitas konstanta. Bisa berupa Public, Protected, Friend, Protected Friend, atau Private. Opsional.
  • Shadows – menyembunyikan elemen pemrograman dengan nama yang sama di kelas induk. Opsional.
  • constantlist – daftar nama konstanta yang dideklarasikan. Wajib.

Setiap nama konstanta memiliki sintaks berikut:

constantname [ As datatype ] = initializer

Contoh:

 'Pernyataan berikut mendeklarasikan konstanta.'
Const maxval As Long = 4999
Public Const message As String = "HELLO"
Private Const piValue As Double = 3.1415

Contoh Penggunaan Konstanta

 Module constantsNenum
   Sub Main()
      Const PI = 3.14149
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Luas = " & Str(area))
      Console.ReadKey()
   End Sub
End Module

Output:

Luas =  153.933

Konstanta Cetak dan Tampilan dalam VB.Net

VB.Net menyediakan beberapa konstanta untuk cetak dan tampilan:

NoKonstantaDeskripsi
1vbCrLfKombinasi karakter carriage return dan linefeed.
2vbCrKarakter carriage return.
3vbLfKarakter linefeed.
4vbNewLineKarakter baris baru.
5vbNullCharKarakter null.
6vbNullStringBukan string kosong (""), digunakan untuk prosedur eksternal.
7vbObjectErrorNomor kesalahan pengguna. Digunakan seperti Err.Raise(Number) = vbObjectError + 1000.
8vbTabKarakter tab.
9vbBackKarakter backspace.

Mendeklarasikan Enumerasi

Tipe enumerasi dideklarasikan menggunakan pernyataan Enum. Enum mendefinisikan tipe enumerasi dan anggotanya.

Sintaks pernyataan Enum:

[ < attributelist > ] [ accessmodifier ] [ Shadows ]
Enum enumerationname [ As datatype ]
   memberlist
End Enum

Penjelasan:

  • attributelist – daftar atribut (opsional).
  • accessmodifier – aksesibilitas (opsional): Public, Protected, Friend, atau Private.
  • Shadows – menyembunyikan elemen dengan nama yang sama.
  • enumerationname – nama enumerasi (wajib).
  • datatype – tipe data dari anggota enumerasi (opsional).
  • memberlist – daftar konstanta anggota (wajib).

Setiap anggota memiliki sintaks:

[ < attribute list > ] membername [ = initializer ]

Contoh:

 Enum Colors
   red = 1
   orange = 2
   yellow = 3
   green = 4
   azure = 5
   blue = 6
   violet = 7
End Enum

Contoh Penggunaan Enum

 Module constantsNenum
   Enum Colors
      red = 1
      orange = 2
      yellow = 3
      green = 4
      azure = 5
      blue = 6
      violet = 7
   End Enum
   
   Sub Main()
      Console.WriteLine("Warna Merah adalah: " & Colors.red)
      Console.WriteLine("Warna Kuning adalah: " & Colors.yellow)
      Console.WriteLine("Warna Biru adalah: " & Colors.blue)
      Console.WriteLine("Warna Hijau adalah: " & Colors.green)
      Console.ReadKey()
   End Sub
End Module

Output:

Warna Merah adalah: 1
Warna Kuning adalah: 3
Warna Biru adalah: 6
Warna Hijau adalah: 4

Nah sudah bisa menerapkan Konstanta dan Enum kan? Okay… lanjuuut!