Sunday, September 23, 2018

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();

              
            }
        }
    }
}



1 comments:

  1. Bagi anda yang hobby bermain judi online seperti :
    Bandar Ceme, Ceme Keliling, Capsa Susun, Domino, Bandar Poker dan Live Poker.
    Mari segera bergabung bersama kami di www,s1288poker,com
    Kami agen penyediaan jasa judi online terbaik dan terpercaya.
    Kami hadir untuk anda para pecinta judi online di tanah air.
    Kami juga akan memudahkan anda untuk pembuatan ID dengan registrasi secara gratis.
    Dan untuk proses DEPO & WITHDRAW langsung ditangani oleh
    customer service kami yang profesional dan ramah. (PIN BBM : 7AC8D76B)

    ReplyDelete