IMPLEMENTASI MESIN PENETAS TELUR AYAM OTOMATIS DENGAN FUZZY VISUAL BASIC 2012

IMPLEMENTASI MESIN PENETAS TELUR AYAM OTOMATIS DENGAN FUZZY VISUAL BASIC 2012

1. Tampilan Program

2. Program VB 2012

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

    public partial class Form1 : Form

    {

        float su, tu, teg,teg1, tegTotal, lum, hari,  ay,  be, pu, ang ,rol1,rol2,rol3,rol4, dmin=16, dmax=56;

        float miuturun, miunaik, miuturun1, miunaik1,  miu1, miu2, miu3, miu4, s1, s2, s3, s4, bs = 50, ah = 20, bt = 4000, at = 2000;

        public Form1()

        {

            InitializeComponent();

        }

        private void trackBar1_Scroll(object sender, EventArgs e)

        {

            su = trackBar1.Value;

            box1.Text = Convert.ToString(su);

        }

        private void trackBar2_Scroll(object sender, EventArgs e)

        {

            tu = trackBar2.Value;

            box2.Text = Convert.ToString(tu);

        }

        private void button1_Click(object sender, EventArgs e) //Masukan Ayam Proses

        {

            ay = 21; //SUHU

            box5.Text = Convert.ToString(ay);

            miuturun = (bs - su) / (bs - ah);

            box6.Text = Convert.ToString(miuturun);

            miunaik = (su - ah) / (bs - ah);

            box7.Text = Convert.ToString(miunaik);

            // Telur

            miuturun1 = (bt - tu) / (bt - at);

            box8.Text = Convert.ToString(miuturun1);

            miunaik1 = (tu - at) / (bt - at);

            box9.Text = Convert.ToString(miunaik1);

            rol1 = Math.Min(miuturun, miuturun1);

            rol2 = Math.Min(miuturun, miunaik1);

            rol3 = Math.Min(miunaik, miuturun1);

            rol4 = Math.Min(miunaik, miunaik1);

            box10.Text = Convert.ToString(rol1);

            box11.Text = Convert.ToString(rol2);

            box12.Text = Convert.ToString(rol3);

            box13.Text = Convert.ToString(rol4);

            s1 = dmax - ((dmax - dmin) * rol1);

            s2 = dmax - ((dmax - dmin) * rol2);

            s3 = dmax - ((dmax - dmin) * rol3);

            s4 = dmax - ((dmax - dmin) * rol4);

            box14.Text = Convert.ToString(s1);

            box15.Text = Convert.ToString(s2);

            box16.Text = Convert.ToString(s3);

            box17.Text = Convert.ToString(s4);

            teg = (rol1 * s1) + (rol2 * s2) + (rol3 * s3) + (rol4 * s4);

            teg1 = (rol4 + rol3 + rol2 + rol1);

            tegTotal = (teg / teg1);

            box3.Text = Convert.ToString(tegTotal);

            lum = tegTotal * 75;

            box4.Text = Convert.ToString(lum);

            if (  lum > 3000) ;

            {

                oval1.Visible = true;

                oval2.Visible = false;

                oval3.Visible = false;

                if (lum >= 2300) ;

                {

                    oval1.Visible = false;

                    oval2.Visible = true;

                    oval3.Visible = false;

                }

                if (lum < 1800) ;

                {

                    oval1.Visible = false;

                    oval2.Visible = false;

                    oval3.Visible = true;

                }

            }}

        private void button2_Click(object sender, EventArgs e) //Masukan bebek Proses

        {

            be = 28;

            box5.Text = Convert.ToString(be);

            miuturun = (bs - su) / (bs - ah);

            box6.Text = Convert.ToString(miuturun);

            miunaik = (su - ah) / (bs - ah);

            box7.Text = Convert.ToString(miunaik);

            // Telur

            miuturun1 = (bt - tu) / (bt - at);

            box8.Text = Convert.ToString(miuturun1);

            miunaik1 = (tu - at) / (bt - at);

            box9.Text = Convert.ToString(miunaik1);

            rol1 = Math.Min(miuturun, miuturun1);

            rol2 = Math.Min(miuturun, miunaik1);

            rol3 = Math.Min(miunaik, miuturun1);

            rol4 = Math.Min(miunaik, miunaik1);

            box10.Text = Convert.ToString(rol1);

            box11.Text = Convert.ToString(rol2);

            box12.Text = Convert.ToString(rol3);

            box13.Text = Convert.ToString(rol4);

            s1 = dmax - ((dmax - dmin) * rol1);

            s2 = dmax - ((dmax - dmin) * rol2);

            s3 = dmax - ((dmax - dmin) * rol3);

            s4 = dmax - ((dmax - dmin) * rol4);

            box14.Text = Convert.ToString(s1);

            box15.Text = Convert.ToString(s2);

            box16.Text = Convert.ToString(s3);

            box17.Text = Convert.ToString(s4);

            teg = (rol1 * s1) + (rol2 * s2) + (rol3 * s3) + (rol4 * s4);

            teg1 = (rol4 + rol3 + rol2 + rol1);

            tegTotal = (teg / teg1);

            box3.Text = Convert.ToString(tegTotal);

        }

        private void button3_Click(object sender, EventArgs e) //Masukan puyuh Proses

         {

            pu = 17;

            box5.Text = Convert.ToString(pu);

            miuturun = (bs - su) / (bs - ah);

            box6.Text = Convert.ToString(miuturun);

            miunaik = (su - ah) / (bs - ah);

            box7.Text = Convert.ToString(miunaik);

            // Telur

            miuturun1 = (bt - tu) / (bt - at);

            box8.Text = Convert.ToString(miuturun1);

            miunaik1 = (tu - at) / (bt - at);

            box9.Text = Convert.ToString(miunaik1);

            rol1 = Math.Min(miuturun, miuturun1);

            rol2 = Math.Min(miuturun, miunaik1);

            rol3 = Math.Min(miunaik, miuturun1);

            rol4 = Math.Min(miunaik, miunaik1);

            box10.Text = Convert.ToString(rol1);

            box11.Text = Convert.ToString(rol2);

            box12.Text = Convert.ToString(rol3);

            box13.Text = Convert.ToString(rol4);

            s1 = dmax - ((dmax - dmin) * rol1);

            s2 = dmax - ((dmax - dmin) * rol2);

            s3 = dmax - ((dmax - dmin) * rol3);

            s4 = dmax - ((dmax - dmin) * rol4);

            box14.Text = Convert.ToString(s1);

            box15.Text = Convert.ToString(s2);

            box16.Text = Convert.ToString(s3);

            box17.Text = Convert.ToString(s4);

            teg = (rol1 * s1) + (rol2 * s2) + (rol3 * s3) + (rol4 * s4);

            teg1 = (rol4 + rol3 + rol2 + rol1);

            tegTotal = (teg / teg1);

            box3.Text = Convert.ToString(tegTotal);

        }

        private void button6_Click(object sender, EventArgs e) //Masukan angsa Proses

        {

            ang = 31;

            box5.Text = Convert.ToString(ang);

            miuturun = (bs - su) / (bs - ah);

            box6.Text = Convert.ToString(miuturun);

            miunaik = (su - ah) / (bs - ah);

            box7.Text = Convert.ToString(miunaik);

            // Telur

            miuturun1 = (bt - tu) / (bt - at);

            box8.Text = Convert.ToString(miuturun1);

            miunaik1 = (tu - at) / (bt - at);

            box9.Text = Convert.ToString(miunaik1);

            rol1 = Math.Min(miuturun, miuturun1);

            rol2 = Math.Min(miuturun, miunaik1);

            rol3 = Math.Min(miunaik, miuturun1);

            rol4 = Math.Min(miunaik, miunaik1);

            box10.Text = Convert.ToString(rol1);

            box11.Text = Convert.ToString(rol2);

            box12.Text = Convert.ToString(rol3);

            box13.Text = Convert.ToString(rol4);

            s1 = dmax - ((dmax - dmin) * rol1);

            s2 = dmax - ((dmax - dmin) * rol2);

            s3 = dmax - ((dmax - dmin) * rol3);

            s4 = dmax - ((dmax - dmin) * rol4);

            box14.Text = Convert.ToString(s1);

            box15.Text = Convert.ToString(s2);

            box16.Text = Convert.ToString(s3);

            box17.Text = Convert.ToString(s4);

            teg = (rol1 * s1) + (rol2 * s2) + (rol3 * s3) + (rol4 * s4);

            teg1 = (rol4 + rol3 + rol2 + rol1);

            tegTotal = (teg / teg1);

            box3.Text = Convert.ToString(tegTotal);

         

        }

    }

}

NB : Jika ingin file MENTAH ? Silahkan kirim email
Ym: Setiawan_alik@yahoo.com