Cara membuat Bubble short di Visual basic
- Masukkan Dim(panggil variabel) pada awal kalian buat





6. Dan ini salinannya scrip yang saya buat.
Main(args As String())
Console.WriteLine(“+=========================================+”)
Console.WriteLine(” | Selamat datang diaplikasi bubble short |”)
Console.WriteLine(” | Software pengurutan data menggunakan Bubble Sort |”)
Console.WriteLine(“+=========================================+”)
1
| Dim angka(4), o, n, m, sementara As Integer n = 0 m = 0 o = 0 Console.WriteLine("Masukkan 5 bilangan untuk dibubble sort") While n < 5 Console.Write("Masukan Bilangan yang diinginkan {0} : ", n + 1) angka(n) = Console.ReadLine() n = n + 1 End While While o < 5 For a As Integer = 1 To angka.Length - 1 If angka(a - 1) > angka(a) Then sementara = angka(a) angka(a) = angka(a - 1) angka(a - 1) = sementara End If Next o = o + 1 End While Console.WriteLine("Data yang anda masukan sudah diurutkan") While m < 5 Console.WriteLine(angka(m)) m = m + 1 End While Console.WriteLine(" STMIK YADIKA BANGIL ") Console.WriteLine(" Nama : Rizal Akrom ") Console.WriteLine(" Nim : 119229036 ")End Sub |
Terimakasih telah berkeliling-keliling di artikel saya heheheh semoga bermanfaat mohon maaf bila ada kesalahan karena semua tiada yang sempurna. see you late