Membuat Diamond, Segitiga dan Kotak dengan pengulangan FOR Next di VB.Net

Hai.

Sekarang ini makin banyak orang - orang yang belajar pemrograman, ada yang kuliah ambil jurusan pemrograman, ada yang sekedar kursus, bahkan ada yang nekad belajar otodidak.
dalam pemrograman sebenarnya yang terpenting buat dipelajari adalah logika, bagaimana kita berfikir, bagaimana kita mau program, aplikasi, software yang kita buat berfikir.


ini adalah sample sederhana, dalam sample ini kita akan menggunakan Statement For .. Next, apa sih Statement For .. Next, disini kita engga akan bahas panjang lebar intinya Statement For..Next ini digunakan untuk proses pengulangan. 
Kalo mau lebih lengkap baca disini.

Bahasa yang digunakan adalah VB.NET dibuat dengan menggunakan IDE Visual Studio 2010

Dengan Statement For..Next ini kita akan membuat beberapa bentuk sederhana, seperti

• Kotak Penuh:

kode program untuk membuat bentuk kotak penuh

 
 Private Sub bentuk_kotak_penuh(ByVal dimensi As Integer)
        'buat variable buat nampung simbol yang mau ditampilkan
        Dim simbol As String = String.Empty
        'lakukang pengulangan mulai dari 1 sebanyak nilai dimensi
        For baris = 1 To dimensi
            'kosongkan variable penampung simbol
            simbol = String.Empty
            'lakukang pengulangan mulai dari 1 sebanyak nilai dimensi untuk mengisi variable simbol
            For kolom = 1 To dimensi
                'isi variable simbol
                simbol = simbol & "#"
            Next
            'tampilkan variable simbol di console
            Console.WriteLine(simbol)
        Next
    End Sub

• Kotak dengan tengah kosong

kode program untuk membuat bentuk kotak kosong ditengah

 
  Private Sub bentuk_kotak_kosong(ByVal dimensi As Integer)
        'buat variable buat nampung simbol yang mau ditampilkan
        Dim simbol As String = String.Empty
        'lakukang pengulangan mulai dari 1 sebanyak nilai dimensi
        For baris = 1 To dimensi
            'kosongkan variable penampung simbol
            simbol = String.Empty
            'lakukan seleksi, jika baris adalah baris pertama atau terakhir
            If baris = 1 Or baris = dimensi Then
                'lakukan pengsisian variable simbol sebanyak nilai dimensi
                For kolom = 1 To dimensi
                    simbol = simbol & "#"
                Next
                'tampilkan variable simbol di console
                Console.WriteLine(simbol)
            Else
                'jika baris bukan baris pertama atau terakhir, tambahkan simbol spasi
                simbol = "#"
                'tampilkan variable simbol di console untuk kolom 1
                Console.Write(simbol)
                For spasi = 2 To dimensi - 1
                    'tampilkan variable simbol spasi
                    Console.Write("-")
                Next
                'tampilkan variable simbol di console dikolom terakhir dimensi
                Console.WriteLine(simbol)
            End If
        Next
    End Sub

• Segitiga penuh

kode program untuk membuat bentuk segitiga penuh.

 
    Private Sub bentuk_segitiga_penuh(ByVal dimensi As Integer)
        'variable untuk simbol
        Dim simbol As String = String.Empty
        'variable untuk spasi
        Dim spasi As String = String.Empty
        'lakukang pengulangan mulai dari 1 sebanyak nilai dimensi
        For i = 1 To dimensi
            'awalnya isi simbol dan spasi dengan kosong atau boleh pake string.empty
            simbol = ""
            spasi = ""
            'lakukan pengulangan untuk mendefinisikan jumlah spasi yang dibutuhkan
            For x = i To dimensi - 1
                'isi variable spasi dengan jumlah spasi yang dibutuhkan
                spasi = spasi & "-"
            Next
            'lakukan pengulangan untuk mendefinisikan jumlah simbol yang dibutuhkan.
            '(i+i)-1 adalah untuk memulai simbol dari 1 digit dan menambahkan simbol melebihi nilai dimensi
            'jika tidak pake -1 baris pertama akan terisi 2 simbol
            For y = 1 To (i + i) - 1
                simbol = simbol & "#"
            Next
            'gunakan write bukan writeline karena kita mau melakukan penulisan spasi dilanjutkan penulisan simbolnya
            Console.Write(spasi)
            Console.WriteLine(simbol)
        Next
    End Sub

• Full Diamond

kode program untuk membuat bentuk diamond penuh.

Private Sub bentuk_diamon_full(ByVal dimensi As Integer)
        'variable untuk simbol
        Dim simbol As String = String.Empty
        'variable untuk spasi
        Dim spasi As String = String.Empty
        'lakukang pengulangan mulai dari 1 sebanyak nilai dimensi
        For i = 1 To dimensi
            'awalnya isi simbol dan spasi dengan kosong atau boleh pake string.empty
            simbol = ""
            spasi = ""
            'lakukan pengulangan untuk mendefinisikan jumlah spasi yang dibutuhkan
            For x = i To dimensi - 1
                'isi variable spasi dengan jumlah spasi yang dibutuhkan
                spasi = spasi & "-"
            Next
            'lakukan pengulangan untuk mendefinisikan jumlah simbol yang dibutuhkan.
            '(i+i)-1 adalah untuk memulai simbol dari 1 digit dan menambahkan simbol melebihi nilai dimensi
            'jika tidak pake -1 baris pertama akan terisi 2 simbol
            For y = 1 To (i + i) - 1
                simbol = simbol & "*"
            Next
            'gunakan write bukan writeline karena kita mau melakukan penulisan spasi dilanjutkan penulisan simbolnya
            Console.Write(spasi)
            Console.WriteLine(simbol)
        Next
        For i = 1 To dimensi - 1
            spasi = ""
            simbol = ""
            For x = 1 To dimensi - (dimensi - i)
                spasi = spasi & "-"
            Next
            Console.Write(spasi)
            If i = dimensi - 1 Then
                For y = i + 1 To dimensi
                    simbol = simbol & "*"
                Next
                Console.WriteLine(simbol)
            Else
                For y = i + 1 To dimensi + (dimensi - i) - 1
                    simbol = simbol & "*"
                Next
                Console.WriteLine(simbol)
            End If
        Next
    End Sub

untuk memanggil perintah - perintah yang dibuat diatas, cukup menambahkan kode program seperti dibawah ini.

Sub Main()
        Console.WriteLine("1. Full Diamond")
        Console.Write("dimensi ?")
        bentuk = Console.ReadLine()
        Console.WriteLine(" ")
        bentuk_diamon_full(bentuk)
        Console.ReadLine()
    End Sub

Bahasa : VB.NET
IDE : Visual Studio 2010
.net Framework : .net 2 cukup
statement : For..Next

Jangan lupa untuk, Like, Comment, Share, Subscribe hahahaha.
jangan lupa sertakan link blog ini sebagai sumber kalo kalian mau paste tutorial ini di blog kalian.

hepi koding.