Beberapa Contoh program String menggunakan VB.net

Ini tugas vb.net yang di berikan oleh Bapak Dodit, yang membuat saya bingung tetapi alhamdulilah sudah di presentasikan walaupun ada beberapa project yang masih belum selesai karena keerroran terjadi .. :O


PROJECT 5.1

 Dim workText As New System.Text.StringBuilder  à 1

         ‘----- Build a basic text block.
        workText.Append("The important")à2
        workText.Append(vbNewLine) à 3
        workText.Append("thing is not") à 4
        workText.AppendLine() à 5
        workText.AppendLine("to stop questioning.") à 6

        workText.Append("--Albert Einstein") à 7
        MsgBox(workText.ToString()) à 8

        ' ----- Delete the trailing text.
        Dim endSize As Integer = "--Albert Einstein".Length à9
        workText.Remove(workText.Length - endSize, endSize) à 10
        MsgBox(workText.ToString()) à11

        ' ----- Modify text in the middle.
        workText.Insert(4, "very ") à 12
        MsgBox(workText.ToString()) à13

        ' ----- Perform a search and replace.
        workText.Replace("not", "never") à14
        MsgBox(workText.ToString()) à 15

        ' ----- Truncate the existing text.
        workText.Length = 3 à16
        MsgBox(workText.ToString()) à17

Keterangan :
1.      Mendefinikan workText sebagai text/string
2.     Menampilkan text ‘the important’
3.     Memberikan spasi / garis baru  setelah tampilan nomer 2 yang tujuannya sama dengan AppendLine
4.     Menampilkan text ‘thing is not’
5.     Memberikan spasi / garis baru setelah nomor 2 yang tujuannya sama seperti workText.Append(vbNewLine)
6.      Menamplkan nilai konstanta
7.     Menampilkan text ‘--Albert Einstein’
8.     Menampilkan  dalam bentuk message box

 
9.     Mendefinisikan endSize ke dalam tipe data integer yang isinya “--Albert Einstein”
10.  Menghapus endSize
11.  Menampilkan dalam bentuk message box
12.  Menyisipkan text ‘very’ setelah kata “The”
13.  Menampilkan dalam bentuk message box
14.  Mengganti text “Not” dengan text “never”
15.  Menampilkan dalam bentuk message box.
16.  Menampilkan hanya 3 karakter .
17.  Menampilkan pada message box


PROJECT 5.3
Dim fancyString As New System.Text.StringBuilder à 1
      For counter As Integer = 1 To 35 à 2
          fancyString.Append("+~") à 3
      Next counter à 4
MsgBox(fancyString.ToString()) à 5


Keterangan :
1.     Mendefinisikan fancyString sebagai text / String
2.     Mengulang  “ +~” sebanyak 35 masing – masing
3.     Menampilkan “+~”
4.     Kembali ke looping jika belum memenuhi syaratnya looping
5.     Menampilkan dalam message box






PROJECT 5.6

Dim quote As String = "The important thing is not to " & "stop questioning. --Albert Einstein" à 1

        ' ----- Left(quote, 3) … "The"
        MsgBox(quote.Substring(0, 3)) à2

        ' ----- Mid(quote, 5, 9) … "important"
        MsgBox(quote.Substring(4, 9)) à 3

        ' ----- Mid(quote, 58) … "Einstein"
        MsgBox(quote.Substring(57)) à 4

        ' ----- Right(quote, 8) … "Einstein"
        MsgBox(quote.Substring(quote.Length - 8)) à5

Keterangan :
1.  Mendeklarasikan quote yang isinya The important thing is not to " & "stop questioning. --Albert Einstein
2.  Menampilkan pada message box hasil dari quote yang dihitung dari sebelah kiri dan berhenti pada 3 nilai paling kiri
3.  Menampilkan pada message box hasil dari quote yang dihitung dari tengah kata dan yang di mulai pada nilai ke 4 dan berhenti pada nilai ke 9
4.  Menampilkan pada message box hasil dari quote yang dihitung dari tengah kalimat dan pada nilai ke 57 pada kalimat
5.  Menampilkan pada message box hasil dari quote yang dihitung dari bagian kanan kalimat dan berhenti pada nilai ke 5



PROJECT 5.8

Dim content1 As String
      Dim content2 As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        content1 = "apples"
        content2 = "Apples"
        Select Case String.Compare(content1, content2, False) à4
            Case Is < 0
                MsgBox(content1 & "  " & "Less Than" & "  " & content2) à1
            Case Is > 0
                MsgBox(content1 & "  " & "More Than" & "  " & content2) à2
            Case Is = 0
                MsgBox(content1 & "  " & "Same With" & "  " & content2)à3
        End Select
    End Sub

Keterangan :
1. 1.   Menampilkan dalam message box jika nilai content1 huruf awalnya kecil dan nilai content2 huruf awalnya kecil maka akan keluar case is < 0
2. 2.  Menampilkan dalam message box jika nilai content1 huruf awalnya besar dan content2  huruf awalnya kecil maka akan keluar case is > 0

  
3. 3.  Menampilkan dalam message box jika content1 dan content2 huruf awalnya sama (kecil atau besar)  maka akan keluar case is = 0

4.  Membandingkan dua string antara content1 dan content2 jika nilai nya false

PROJECT 5.9
Dim content1 As String
      Dim content2 As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        content1 = "apples"
        content2 = "Apples"
        Select Case String.Compare(content1, content2, True)
            Case Is < 0
                MsgBox(content1 & "  " & "Less Than" & "  " & content2)
            Case Is > 0
                MsgBox(content1 & "  " & "More Than" & "  " & content2)
            Case Is = 0
                MsgBox(content1 & "  " & "Same With" & "  " & content2)
   End Select

Keterangan :
Penjelasan sama dengan 5.8 tetapi nilai content1 dan content2 true sehingga apapun yang di di tuliskan pada content1 dan content2 hasilnya tetap sama case is = 0

PROJECT 5.10


Dim quote As String = "The important thing is not to " & "stop questioning. --Albert Einstein" à 1
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       
  Dim charArray() As Char = CType(quote, Char()) à2
        charArray(46) = "!"c à 3
        Dim result As String = New String(charArray) à 4
        MsgBox(result)à 5

End Sub

Keterangan :
1.  Mendklarasikan quote
2.  Mendeklarasikan chararray dengan tipe data char
3.  Menampilkan index 46 dari charArray yang isinya tanda “!” yang kemudian di tambahkan pada isi dari quote.
4.  Mendeklarasikan result dengan tipe data String yang isinya di ambil dari charArray
5.  Menampilkan hasil result pada message box


Mungkin anda bertanya - tanya mengapa nomor project tidak urut ? karena letak errornya pada project yang tidak di sebutkan di atas .
Gomawo sudah mau membaca :D

0 komentar:

Poskan Komentar