Cara Membuat Angka Terbilang di VB.NET

Cara Membuat Angka Terbilang di VB.NET

Berikut ini, Saya jelaskan cara dan langkah-langkah untuk membuat angka terbilang di VB. NET (Visual Studio).

Langkah:

1. Buat Form seperti contoh di bawah ini:

Cara Membuat Angka Terbilang di VB.NET

*TextBox1 = Angka
*TextBox2 = Terbilang

2. Buat Fungsi Terbilang seperti di bawah ini:

Public Function Terbilang(ByVal nilai As Long) As String
Dim bilangan As String() = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}
If nilai < 12 Then
Return " " & bilangan(nilai)
ElseIf nilai < 20 Then
Return Terbilang(nilai - 10) & " Belas"
ElseIf nilai < 100 Then
Return (Terbilang(CInt((nilai \ 10))) & " Puluh") + Terbilang(nilai Mod 10)
ElseIf nilai < 200 Then
Return " Seratus" & Terbilang(nilai - 100)
ElseIf nilai < 1000 Then
Return (Terbilang(CInt((nilai \ 100))) & " Ratus") + Terbilang(nilai Mod 100)
ElseIf nilai < 2000 Then
Return " Seribu" & Terbilang(nilai - 1000)
ElseIf nilai < 1000000 Then
Return (Terbilang(CInt((nilai \ 1000))) & " Ribu") + Terbilang(nilai Mod 1000)
ElseIf nilai < 1000000000 Then
Return (Terbilang(CInt((nilai \ 1000000))) & " Juta") + Terbilang(nilai Mod 1000000)
ElseIf nilai < 1000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000))) & " Milyar") + Terbilang(nilai Mod 1000000000)
ElseIf nilai < 1000000000000000 Then
Return (Terbilang(CInt((nilai \ 1000000000000))) & " Trilyun") + Terbilang(nilai Mod 1000000000000)
Else
Return ""
End If
End Function

3. Klik 2x pada TexBox1 dan isikan skrip seperti di bawah ini:

If TextBox1.Text = "" Then Exit Sub
TextBox2.Text = Terbilang(TextBox1.Text)

4. Debug program dan akan menghasilkan seperti di bawah ini:

Cara Membuat Angka Terbilang di VB.NET

Baca juga: Cara Membuat Separator Angka Ribuan di Visual Studio (.NET) 2010

Cara Membatasi Jumlah Karakter pada Textbox VB .NET

Cara Membatasi Jumlah Karakter pada Textbox VB .NET

Berikut ini saya jelaskan secara singkat tentang cara membatasi jumlah karakter pada Textbox di VB Visual Studio (.NET) 2010.

Untuk membatasi jumlah karakter pada Textbox di VB Visual Studio (.NET) 2010., ikuti langkah-langkah dan contohnya di bawah ini:

1. Buat Form baru.

2. Masukkan "Textbox" dari Toolbox ke Form yang sudah dibuat, seperti contoh di bawah ini:

Cara Membatasi Jumlah Karakter pada Textbox VB .NET

3. Klik 2x Form yang sudah dibuat dan isikan kode di bawah ini (contoh batasan karakter adalah 9 karakter):

TextBox1.MaxLength = 9

menjadi seperti ini:

Cara Membatasi Jumlah Karakter pada Textbox VB .NET

4. Debug dengan tekan tombol F5 dan lihat hasilnya. Jika mengisi Textbox dengan karakter, maka akan berhenti otomatis pada karakter ke 9.

Cara Mengisi Value NumericUpDown dengan Angka di Visual Studio 2010 (VB .NET)

Cara Mengisi Value NumericUpDown dengan Angka, Tanggal, Bulan, Tahun di Visual Studio (VB .NET)

Berikut ini saya jelaskan secara singkat tentang cara mengisi Value NumericUpDown dengan angka, tanggal, bulan, maupun tahun di Visual Studio 2010 (VB .NET). 

Untuk mengisi Value NumericUpDown dengan angka, tanggal, bulan, maupun tahun di Visual Studio 2010 (VB .NET), ikuti langkah-langkah dan contohnya di bawah ini:

1. Buat Form baru.

2. Masukkan "NumericUpDown" dari Toolbox ke Form yang sudah dibuat, seperti contoh di bawah ini:

Cara Mengisi Value NumericUpDown dengan Angka di Visual Studio

3. Klik 2x Form yang sudah dibuat dan isikan kode di bawah ini:

'Isi Angka
NumericUpDown1.Minimum = 55
NumericUpDown1.Maximum = 60
NumericUpDown1.Text = 55

'Isi Tahun
NumericUpDown2.Minimum = DateTime.Now.Year - 5
NumericUpDown2.Maximum = DateTime.Now.Year + 5
NumericUpDown2.Text = DateTime.Now.Year

menjadi seperti ini:

Cara Mengisi Value NumericUpDown dengan Angka di Visual Studio

4. Debug dengan tekan tombol F5 dan lihat hasilnya seperti gambar dibawah ini:

Cara Mengisi Value NumericUpDown dengan Angka di Visual Studio

** Keterangan:
Isi Angka : NumericUpDown1
Isi Tahun : NumericUpDown2

Cara Membuat Isi Textbox Menjadi Parameter Crystal Report di Visual Studio VB .NET

Cara Membuat Isi Textbox Menjadi Parameter Crystal Report di Visual Studio VB .NET

Mumpung belum lupa, ini saya jelaskan tentang cara membuat isi Textbox menjadi parameter Crystal Report di Visual Studio 2010 VB .NET, sekaligus untuk catatan pribadi buat saya kalau besok lupa lagi.

Syarat:
1. Sudah menyiapkan Form yang berisi Textbox.
2. Sudah membuat design Crystal Report.
3. Sudah membuat Form untuk menampilkan laporan.
4. Sudah bisa menampilkan laporan Crystal Report di program yang dibuat.

Langkah:
1. Buka Crystal Report dan buat parameter yang diinginkan, sebagai contoh saya buat 2 parameter dengan nama "psatu" dan "pdua".
2. Buka Form yang berisi Textbox, sebagai contoh saya namai 2 Textbox yang saya buat dengan nama "txtparam1" dan "txtparam2".
3. Buka Form yang digunakan untuk menampilkan laporan, tambahkan code dibawah ini:

Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim paramField As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim paramField2 As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal2 As New CrystalDecisions.Shared.ParameterDiscreteValue()

paramField.ParameterFieldName = "psatu"
Dim str As String = txtparam1.Text.ToString
discreteVal.Value = str
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)

paramField2.ParameterFieldName = "pdua"
Dim str2 As String = txtparam2.Text.ToString
discreteVal2.Value = str2
paramField2.CurrentValues.Add(discreteVal2)
paramFields.Add(paramField2)
CrystalReportViewer1.ParameterFieldInfo = paramFields

4. Dengan code di atas, isi Textbox sudah bisa menjadi parameter di Crystal Report.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

Syarat:
1. mempunyai database dengan format tanggal / date
2. sudah membuat desain laporan / report

Langkah-langkah:
1. Buka laporan / report yang sudah dibuat.
2. Di bagian Field Explorer, klik kanan pada Formula Fields, pilih New.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

3. Isikan nama dengan "FormulaUmur" atau sesuai kebutuhan.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

4. Isikan skrip seperti di bawah ini:

If (Not(isNull({databasepegawai1.MulaiKerja}))) Then ToText(int(DateDiff('d',DateTimeValue({databasepegawai1.TanggalLahir}),CurrentDate())/365.25),0)+' th '+ ToText(int(remainder(DateDiff('d',DateTimeValue({databasepegawai1.TanggalLahir}),CurrentDate()),365.25)/30),0)+' bl '+ If day(CurrentDate()) < Day(DateTimeValue({databasepegawai1.TanggalLahir})) Then ToText(day(dateserial(year(DateTimeValue({databasepegawai1.TanggalLahir})), Month(DateTimeValue({databasepegawai1.TanggalLahir}))+1,1-1)) - Day(DateTimeValue({databasepegawai1.TanggalLahir})) + Day(CurrentDate()),0) + ' hr' Else ToText(day(CurrentDate()) - day(DateTimeValue({databasepegawai1.TanggalLahir})),0) + ' hr'

**Sesuaikan tulisan merah dengan tabel dan field di databasemu

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

5. Simpan dan keluar.
6. Di bagian Field Explorer, pada Formula Fields akan muncul FormulaUmur atau nama yang dimasukkan tadi.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

7. Drag FormulaUmur ke report yang sudah dibuat.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah

8. Hasilnya akan tampak seperti gambar di bawah.

Cara Menghitung Umur (Tahun, Bulan, Hari) di Crystal Report dengan Mudah