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

Read More

Traffic Light Simulator Created with Visual Basic 2012

PEMOGRAMAN TRAFFIC LIGTH DENGAN VISUAL BASIC 2012

1. Desain Tampilan Awal

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 CobaVisual01

{

    public partial class Form1 : Form

    {

        int A, B, C, start , start1, start2, pertama ,z=180 ,x=100 , coba ;

        public Form1()

        {

            InitializeComponent();

        }

        private void trackBar1_Scroll(object sender, EventArgs e)

        {

            A = trackBar1.Value;

            box1.Text = Convert.ToString(A);

        }

        private void button1_Click(object sender, EventArgs e)

        {

            start = 180 - 180 * (100 - A) / 100;

            start1 = 180 - 180 * (100 - B) / 100;

            start2 = 180 - 180 * (100 - C) / 100;

            box2.Text = Convert.ToString(start);

            timer1.Start ();

        }

        private void timer1_Tick(object sender, EventArgs e)

        {

            start = start - 1;

            box2.Text = Convert.ToString (start);

            if (start == 5)

            {

                oval2.Visible = true;

                oval3.Visible = false;

            }

            if (start == 0)

            {

                oval1.Visible = true;

                oval2.Visible = false;

                timer1.Stop ();

                timer3.Start();

            }}

    //###############################################################################//

        private void trackBar2_Scroll(object sender, EventArgs e)

        {

            B = trackBar2.Value;

            box3.Text = Convert.ToString(B);

         }

        private void timer2_Tick(object sender, EventArgs e)

        {

            start1 = 180 - 180 * (100 - B) / 100;

            box4.Text = Convert.ToString(start1);

            timer3.Start(); 

        }

        private void timer3_Tick(object sender, EventArgs e)

        {

             start1 = start1-1;

             box4.Text = Convert.ToString(start1);

             oval6.Visible = true;

             oval4.Visible = false;

             if (start1 <= 5)

             {

                 oval6.Visible = false;

                 oval5 .Visible = true;

             }

             if (start1 == 0)

             {

                 oval6.Visible = false;

                 oval4 .Visible = true;

                 oval5 .Visible = false;

                 timer3 .Stop();

                 timer5 .Start();

             } }

//###############################################################################//

        private void trackBar3_Scroll(object sender, EventArgs e)

        {

            C = trackBar3.Value;

            box5.Text = Convert.ToString(C);

        }

        private void timer4_Tick(object sender, EventArgs e)

        {

            start2 = 180 - 180 * (100 - C) / 100;

            box6.Text = Convert.ToString(start2);

            timer5.Start();

        }

        private void timer5_Tick(object sender, EventArgs e)

        {

            start2 = start2 - 1;

            box6.Text = Convert.ToString(start2);

            oval9.Visible = true;

            oval7.Visible = false;

            if (start2 <= 5)

            {

                oval9.Visible = false;

                oval8.Visible = true;

            }

            if (start2 == 0)

            {

                oval7.Visible = true;

                oval8.Visible = false;

                oval9.Visible = false;

                timer5.Stop();

                start = 180 - 180 * (100 - A) / 100;

                start1 = 180 - 180 * (100 - B) / 100;

                start2 = 180 - 180 * (100 - C) / 100;

                box2.Text = Convert.ToString(start);

                oval3.Visible = true;

                oval1.Visible = false;

                timer1.Start();

              

            }

        }

    }

}

Read More