Music MP3
IMPLEMENTASI MESIN PENETAS TELUR AYAM OTOMATIS DENGAN FUZZY VISUAL BASIC 2012
1. Tampilan Program
2. Program VB 2012
NB : Jika ingin file MENTAH ? Silahkan kirim email
Ym: Setiawan_alik@yahoo.com
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
