cetaklah nilai PULUHAN RIBU, RIBUAN, RATUSAN, PULUHAN, dan SATUAN.
2. Masukkan 3 (tiga) buah bilangan melalui keyboard, kemudian tampilkan urutan ketiga bilangan tersebut mulai dari yang terkecil sampai yang terbesar (ascending order).
3. Mencetak deret bilangan berikut: 100, 95, 90, 85, ………. , -140, -145, -150.
4. Cetaklah deret angka 0…n, kemudia deteksi bilangan tersebut genap atau ganjil kecuali bilangan. 0 (nol)
5. Buatlah Validasi Pengisian bilangan n, apabila n bukan bilang o (nol) , maka input ulang.
Jawab:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'======================= Terbilang ==================================
Label1.Text = TerbilangBulat(TextBox1.Text)
If Len(TextBox1.Text) = 1 Then
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = ""
Label6.Text = ""
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Satuan"
ElseIf Len(TextBox1.Text) = 2 Then
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = ""
Label6.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Puluhan"
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1) & "= Satuan"
ElseIf Len(TextBox1.Text) = 3 Then
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Ratusan"
Label6.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1) & "= Puluhan"
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 1) & "= Satuan"
ElseIf Len(TextBox1.Text) = 4 Then
Label2.Text = ""
Label3.Text = ""
Label4.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Ribuan"
Label5.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1) & "= Ratusan"
Label6.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 1) & "= Puluhan"
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 1) & "= Satuan"
ElseIf Len(TextBox1.Text) = 5 Then
Label2.Text = ""
Label3.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Puluhan Ribu"
Label4.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1) & "= Ribuan"
Label5.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 1) & "= Ratusan"
Label6.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 1) & "= Puluhan"
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 5, 1) & "= Satuan"
ElseIf Len(TextBox1.Text) = 6 Then
Label2.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, 1) & "= Ratusan Ribu"
Label3.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1) & "= Puluhan Ribu"
Label4.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 1) & "= Ribuan"
Label5.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 1) & "= Ratusan"
Label6.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 5, 1) & "= Puluhan"
Label7.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 6, 1) & "= Satuan"
Else
MessageBox.Show("Maaf, Anda Belum Mengisikan Data...!!!")
End If
End Sub
Public Function TerbilangBulat(ByVal strAngka As String, _
Optional ByVal MataUang As String = "rupiah") As String
Dim strJmlHuruf As String
Dim intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X As Integer, Y As Integer, Z As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String '* 1
Dim i As Integer
'Periksa setiap karakter yg diketikkan ke kotak UserID
strValid = "1234567890"
For i% = 1 To Len(strAngka)
huruf = Chr(Asc(Mid(strAngka, i%, 1)))
If InStr(strValid, huruf) = 0 Then
'MsgBox "Harus karakter angka!", vbCritical, "Karakter Tidak Valid"
TerbilangBulat = "-"
Exit Function
End If
Next i%
If strAngka = "" Then Exit Function
If Len(Trim(strAngka)) > 15 Then GoTo Pesan
strJmlHuruf = LTrim(strAngka)
'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
If (intPecahan = 0) Then
strPecahan = ""
Else
'strPecahan = LTrim(Str(intPecahan)) + "/100 "
strPecahan = ""
End If
X = 0
Y = 0
Urai = ""
While (X < Len(strJmlHuruf))
X = X + 1
strTot = Mid(strJmlHuruf, X, 1)
Y = Y + Val(strTot)
Z = Len(strJmlHuruf) - X + 1
Select Case Val(strTot)
Case 1
If (Z = 1 Or Z = 7 Or Z = 10 Or Z = 13) Then
Bil1 = "satu "
ElseIf (Z = 4) Then
If (X = 1) Then
Bil1 = "se"
Else
Bil1 = "satu "
End If
ElseIf (Z = 2 Or Z = 5 Or Z = 8 Or Z = 11 Or Z = 14) Then
X = X + 1
strTot = Mid(strJmlHuruf, X, 1)
Z = Len(strJmlHuruf) - X + 1
Bil2 = ""
Select Case Val(strTot)
Case 0 : Bil1 = "sepuluh "
Case 1 : Bil1 = "sebelas "
Case 2 : Bil1 = "dua belas "
Case 3 : Bil1 = "tiga belas "
Case 4 : Bil1 = "empat belas "
Case 5 : Bil1 = "lima belas "
Case 6 : Bil1 = "enam belas "
Case 7 : Bil1 = "tujuh belas "
Case 8 : Bil1 = "delapan belas "
Case 9 : Bil1 = "sembilan belas "
End Select
Else
Bil1 = "se"
End If
Case 2 : Bil1 = "dua "
Case 3 : Bil1 = "tiga "
Case 4 : Bil1 = "empat "
Case 5 : Bil1 = "lima "
Case 6 : Bil1 = "enam "
Case 7 : Bil1 = "tujuh "
Case 8 : Bil1 = "delapan "
Case 9 : Bil1 = "sembilan "
Case Else : Bil1 = ""
End Select
If (Val(strTot) > 0) Then
If (Z = 2 Or Z = 5 Or Z = 8 Or Z = 11 Or Z = 14) Then
Bil2 = "puluh "
ElseIf (Z = 3 Or Z = 6 Or Z = 9 Or Z = 12 Or Z = 15) Then
Bil2 = "ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If
If (Y > 0) Then
Select Case Z
Case 4 : Bil2 = Bil2 + "ribu "
Y = 0
Case 7 : Bil2 = Bil2 + "juta "
Y = 0
Case 10 : Bil2 = Bil2 + "milyar "
Y = 0
Case 13 : Bil2 = Bil2 + "trilyun "
Y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
End While
Urai = Urai + strPecahan
TerbilangBulat = (Urai & MataUang)
Exit Function
Pesan:
TerbilangBulat = "-"
'TerbilangBulat = "(maksimal 15 digit)"
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'============================== Ascending ==========================
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'============================== Ganjil - Genap ==========================
Dim Awal As String
Dim Akhir As String
Dim Hasil As String
Dim Hasil2 As String
Awal = TextBox3.Text
Akhir = TextBox4.Text
If Awal = 0 Then
Awal = Awal + 1
If Awal <= Akhir Then
For A As Integer = Awal To Akhir
If (A Mod 2) = 1 Then
Hasil &= A & " "
End If
Next
TextBox5.Text = Hasil
For B As Integer = Awal To Akhir
If (B Mod 2) <> 1 Then
Hasil2 &= B & " "
End If
Next
TextBox6.Text = Hasil2
End If
Else
Awal = TextBox3.Text
If Awal <= Akhir Then
For A As Integer = Awal To Akhir
If (A Mod 2) = 1 Then
Hasil &= A & " "
End If
Next
TextBox5.Text = Hasil
For B As Integer = Awal To Akhir
If (B Mod 2) <> 1 Then
Hasil2 &= B & " "
End If
Next
TextBox6.Text = Hasil2
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'============================== Deret Bilangan ==========================
Dim N As Integer = 0
Dim Hasil As String = ""
For N = 100 To -150 Step -5
Hasil &= N & ", "
Next
TextBox2.Text = Hasil
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'============================== Bersih Ganjil Genap ==========================
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox3.Select()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'============================== Validasi Nol ==========================
If TextBox7.Text <> 0 Then
TextBox7.Text = ""
Label11.Text = "Maaf, Inputkan Angka NOL (0)...!!!"
TextBox7.Select()
Else
Label11.Text = "Selamat, Anda Mendapat Angka NOL (0)...!!!"
End If
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
'============================== Bersih Validasi Nol ==========================
Label11.Text = ""
End Sub
End Class
Flowchart:
1.
3.
4.
