Perulangan For - Next pada VB.NET

assalamualaikum.....
     Kali ini saya akan berbagi kepada para ilmuan sekalian mengenai perulangan khususnya perulangan For - Next. Sedikit saya ceritakan mengenai perulangan yang saya ketahui, perulangan dalam VB.Net digunakan untuk membantu para programer untuk mempermudah mereka dalam membuat programnya. Misalnya kita ingin menghitung banyaknya baris dalam suatu listview, tidak mungkin kita menuliskan skrip/koding sebanyak jumlah baris dalam listview tersebut. Dalam kondisi itu lah kita gunakan perulangan berdasarkan keperluan dan logika kita masing-masing.
     Baiklah langsung saja saya berikan contoh program perulangan dalam VB.Net yang akan ditampilkan di Listwiew yang juga menjadi tugas saya diperkuliahan ^_^. Sebelumnya persiapkan beberapa tool yang akan kita pergunakan.

• 3 buah Textbox
• 4 buah Groupbox
• 1 buah Picturebox
• 3 buah Button
• 6 buah Label
• 1 buah Listbox (atur propertiesnya : GridLines = true; view = Detail; Columns = add/tambah 2 Header )

untuk source codenya :

    Dim n, j, h1, h2, h3, hasil, tot, tot1, a As Double

    Dim baris, col, col1 As Integer

    Public Sub bersihLv()

        lsDetail.Items.Clear()

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim hitung As Double

      

            n = txtN.Text

            j = txtJ.Text

            'REM koding perulangan untuk hitung dan tampilan detail ke Listview 

            For Me.baris = j To n Step +1

                hasil = Val(2 * baris - 3) ^ 2

                lsDetail.Items.Add(baris)

                For Me.col = 0 To lsDetail.Items.Count - 1

                    hitung = Val(2 * baris - 3) ^ 2

                    lsDetail.Items(col).SubItems.Add(hitung)

                Next

                tot = tot + hitung

                tot1 = tot1 + hasil

            Next

            txtDetail.Text = tot

            txtHasil.Text = tot1

            txtN.Focus()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        txtN.Text = 0

        txtJ.Text = 0

        txtHasil.Text = 0

        txtDetail.Text = 0

        tot = 0

        tot1 = 0

        lsDetail.Items.Clear()

        txtN.Focus()

        txtN.SelectAll()

    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

Cukup copy dan paste ke listcode tampat anda, seharunya sampai disini program sudah bisa jalan.

Selamat mencoba.... ^_^

Menambahkan Partisi Swap pada Ubuntu yang Telah Terinstal Menggunakan "GParted"

Swap adalah ruang kosong pada Hardisk yang digunakan oleh Linux untuk menyimpan berkas sementara yang akan diproses oleh Processor. Swap berfungsi untuk membackup RAM jika RAM mulai kehabisan ruang. Sebenarnya Swap sekarang sudah tidak terlalu dibutuhkan jika Linux hanya digunakan secara normal karena RAM dari laptop/komputer rata - rata sudah lebih dari 2 GB. Akan tetapi jika kita menggunakan Linux untuk menjalankan program - program berat seperti Virtualbox atau Android studio, RAM 2GB belum cukup sehingga kita tetap membutuhkab Swap.
Swap biasanya kita buat bersama - sama saat kita menginstall Linux, tapi terkadang kita lupa untuk membuatnya atau Swap terpaksa kita hapus saat kita memperbaiki partisi, seperti yang saya alami saat ini. Berikut adalah langkah - langkah yang bisa kita lakukan :

#1 Buka GParted, atau jika belum ada install dengan mengetikkan :

        
            sudo apt-get install gparted
        
    

#2 Buat partisi swap di ruang kosong yang ada. Kemudian pada form Sistem Berkas pilih 'linux-swap'. untuk ukuran, terserah.

#3 Cek UUID swap yang telah kita buat dengan cara klik kanan partisi Swap, lalu klik menu Informasi.

#4 Aktifkan swap dengan mengetikkan :

        
            sudo swapon -U 4d1cf3a2-0bb6-4dd6-bff4-11df978c2e55
        
    

#5 Kemudian bind Swap yang telah kita buat tadi dengan mengetikkan :

        
            gksu gedit /etc/fstab
        
    

lalu ubah/tambahkan line ini :

        
            UUID=4d1cf3a2-0bb6-4dd6-bff4-11df978c2e55 none            swap    sw              0       0
        
    

lalu kita simpan dan selesai.

berikut screenshot hasil dari yang kita kerjakan, dapat dilihat dari system Monitor linux.

Semoga tutorial ini bisa menambah ilmu kita semua.. ^_^

Software Menghitung Indeks Prestasi (IP)

Hai sobat, kali ini saya akan membagi sebuah software kecil buatan saya sendiri....
Menentukan Indeks Prestasi (IP) terkadang menjadi masalah susah susah gampang. Kenapa saya bilang begitu ? karena bagi sebagian mahasiswa/i khususnya mahasiswa/i baru bingung bagaimana cara menentukan IP yang kita dapatkan berapa, setelah kita mengetahui nilai/Bobot Prestasi kita dimasing-masing mata kuliah.

Bisanya tiap mata kuliah kita diberi nilai A, B+, B, C+, C, D, dan E. Munkin masih ada yang belum tau berapa sih nilainya kalau di konversihkan ke angka. Baik ini dia jika kita konversikan ke angka.
A   = 4
B+ = 3.5
B   = 3
C+ = 2.5
C   = 2
D   = 1
E   = 0

Oke langsung saja link untuk software menghitung IP kita... >download disini<
Cara menggunakannya cukup dengan memasukkan nilai yang kita dapat, kita bisa memasukkan nilai yang telah kita konversi berupa angka ataupun kita bisa memsukkan nilai berupa huruf.

Semoga software yang saya bagi kali ini dapat bermanfaat bagi teman-teman ilmuan. ^_^

>download disini<    atau  disini (Ziddu.com)