Algo1
- 1. ALGORITMA DAN PEMROGRAMAN PROGRAM ANAK AYAM MENGGUNAKAN VISUAL BASIC Algoritmaprogramnya: AlgoritmadalamProgramStudi TeknikInformatika merupakan Jantung dari Teknik Informatika itu sendiri. Mengapa demikian, jelas saja karena Algoritma merupakan konsep struktural penyusunal langkah-langkah secara logis. Langkah-langkah logis melalui bahasa pemrograman yang nantinya diterjemahkan oleh komputer sehingga menjadi suatu program yang nantinya layak kita gunakan. Penyusunan script pemrograman mesti logis dan sistematis. Seperti halnya kita membuat kopi yaitu : siapkan gelas, masukkan kopi kedalam gelas, masukkan, gula, tuangkan air panas, baru kopi siap dinikmati. Disini kami menyusun algoritma untuk program anak ayam sebagai berikut : Nama Program_Anak_Ayam Deklarasi jumlah_ayam , sisa_ayam = Integer Algoritma Lakukan pengulangan jumlah_ayam >= 1 sisa_ayam = jumlah_ayam jumlah_ayam = jumlah_ayam – 1 Jika sisa_ayam = 1 maka Cetak(Anak ayam ada 1 mati satu tinggal induknya) Kecuali Cetak(Anak Ayam Ada sisa_ayam mati satu tinggal jumlah_ayam) Ulang Langkah – Langkah Membuat Programnya : Disini kami membuatprogramanakayam menggunakansebuahsoftware bernamaVisual Studio 2008/Visual Basic dengan langkah – langkah sebagai berikut : 1. Buka aplikasi Visual Studio 2008/Visual Basic nya. 2. Buat New Project dengan memilih menu File > New Project > Pilih Windows Form Application. 3. Setelah jendela form design terbuka, masukan sebuah Textbox, Listbox, dan Button dari menu toolbox. Fungsi dari Textbox adalah untuk memasukan jumlah anak ayam yang di inginkan, fungsi dari Listbox untuk menampilkan output si program, fungsi button untuk meng esekusi perintah. 4. Lalu klik button 2x dan isi kan sintaks nya.
- 2. Sintaks programnya : Program Anak Ayam Private Sub Button1_click Dim i as integer = textbox1.text Dim a as integer Do while i >=1 a = i i = i – 1 if a = 1 then listbox1.items.add(“anak ayam ada : “ & a & “mati satu tinggal induknya”) else : listbox1.items.add(“anak ayam ada : “ & a & “mati satu tinggal : “ & i) end if loop end sub Created by : Bagas Dwi Rany Septiadji Hafizh Muhammad R Haitsam Mu’taz Riyan Nurdiansyah Yanuar Ramadhan