Tin K20 CTN chào đón bạn!
Vui lòng đăng kí nếu chưa có nick!
Nếu có nick vui lòng đăng nhập!
Tin K20 CTN chào đón bạn!
Vui lòng đăng kí nếu chưa có nick!
Nếu có nick vui lòng đăng nhập!
Tin K20 CTN chào đón bạn!
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Tin K20 CTN chào đón bạn!


 
Trang ChínhPortalLatest imagesĐăng kýĐăng Nhập
ngày 19/8/2010 sẽ đi học chính thức. Còn ngày tập trung chưa thấy thông báo gì. Ai có thắc mắc liên hệ cô giáo chủ nhiệm. GO TO SCHOOL
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» ảnh lớp mình...
tính toán cơ bản. Icon_minitimeWed Jun 16, 2010 12:21 am by nhok.kiss

» ảnh lớp mình.
tính toán cơ bản. Icon_minitimeMon Jun 07, 2010 9:20 pm by Love.Admin

» Giúp mình viết 1 bài sắp xếp mảng.
tính toán cơ bản. Icon_minitimeFri May 28, 2010 7:30 am by AnhCoYeuEm

» Vào đây mà xem
tính toán cơ bản. Icon_minitimeSat May 15, 2010 3:33 am by Khách viếng thăm

» Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình?
tính toán cơ bản. Icon_minitimeThu May 13, 2010 7:40 am by Khách viếng thăm

» pascal về xâu.
tính toán cơ bản. Icon_minitimeSat May 08, 2010 10:12 pm by Khách viếng thăm

» Giúp em bài excel này với.
tính toán cơ bản. Icon_minitimeSun May 02, 2010 5:20 am by Khách viếng thăm

» theo yeu cau cua Admin :))
tính toán cơ bản. Icon_minitimeSat May 01, 2010 9:22 am by Khách viếng thăm

» mình muốn nói là bài viết này là bài thử để tìm cái thùng rác.
tính toán cơ bản. Icon_minitimeSat May 01, 2010 8:46 am by Khách viếng thăm

Navigation
 Portal
 Diễn Đàn
 Thành viên
 Lý lịch
 Trợ giúp
 Tìm kiếm
Diễn Đàn
Affiliates
free forum


 

 tính toán cơ bản.

Go down 
4 posters
Tác giảThông điệp
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeSat Mar 06, 2010 3:57 am

dạo này thấy mục chuyên tin không đuợc sôi nổi cho lắm nên Minh post bài cho mọi người làm cho vui thôi. mà không biết có ai biết có ai biết vb.net hoặc C# không nữa, nếu có cao thủ thì Minh cần nhờ giúp đây.

đề: dùng vb.net hoặc C# viết 1 chương trình có chức năng tính các phép toán đơn giản +, -, x, :.
mỗi phép toán là 1 button.
Về Đầu Trang Go down
sun
Moderator
Moderator
sun


Tổng số bài gửi : 72
Points : 26147
Rep power : 26
Join date : 17/02/2010
Age : 30
Đến từ : Thái Nguyên City

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeTue Mar 09, 2010 10:12 am

hơ hơ.Bài này nghe có vẻ dễ nhưng chưa học VB.net voi C# nên đành chịu.
có thể là vào mục công cụ chọn cái button rồi đưa ra ngoài.click chuột vào đấy rồi ghi mấy cái tính toán ra (đoán thế Wink) )Mà có vẻ anh mê IT nhỉ.anh đang học truờng nào,lớp nào zậy
Về Đầu Trang Go down
_____
Member
Member
_____


Tổng số bài gửi : 12
Points : 26039
Rep power : 11
Join date : 18/02/2010
Age : 30
Đến từ : hell

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeWed Mar 10, 2010 12:16 am

DucMjnh1992 đã viết:
dạo này thấy mục chuyên tin không đuợc sôi nổi cho lắm nên Minh post bài cho mọi người làm cho vui thôi. mà không biết có ai biết có ai biết vb.net hoặc C# không nữa, nếu có cao thủ thì Minh cần nhờ giúp đây.

đề: dùng vb.net hoặc C# viết 1 chương trình có chức năng tính các phép toán đơn giản +, -, x, :.
mỗi phép toán là 1 button.
post chương trình vb.net lên kiểu j`?
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeThu Mar 11, 2010 1:27 am

_____ đã viết:
DucMjnh1992 đã viết:
dạo này thấy mục chuyên tin không đuợc sôi nổi cho lắm nên Minh post bài cho mọi người làm cho vui thôi. mà không biết có ai biết có ai biết vb.net hoặc C# không nữa, nếu có cao thủ thì Minh cần nhờ giúp đây.

đề: dùng vb.net hoặc C# viết 1 chương trình có chức năng tính các phép toán đơn giản +, -, x, :.
mỗi phép toán là 1 button.
post chương trình vb.net lên kiểu j`?

bạn có thể post trực tiếp code lên forum hoặc post project lên.

mình đang học 12 ở trường THPT Quang Trung An Khê - Gia Lai, mình cũng mê lập trình nên cũng thích tìm thế thôi, ai giỏi về vb.net với C# thì chỉ mình với nhé. đề này thì quá dễ rồi còn gì.
Về Đầu Trang Go down
nhok.kiss
Administrator
Administrator
nhok.kiss


Tổng số bài gửi : 68
Points : 29660
Rep power : 26
Join date : 16/02/2010
Age : 30
Đến từ : Thái Nguyên

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeSat Mar 13, 2010 9:50 am

ukm, cái này dễ, hehe mà cũng bảo ng` ta làm, bit làm rùi còn j`, hỏi , lè
Về Đầu Trang Go down
http://tink20-ctn.friendhood.net
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeSun Mar 14, 2010 5:23 am

trời thì tại diễn đàn im ắng quá nên post thế thôi, nếu cần thì Minh cho thêm 1 cái đề mà làm đề nếu không làm đuợc thì đừng có kêu nhé, nhưng đề cũng dễ thôi.
Về Đầu Trang Go down
sun
Moderator
Moderator
sun


Tổng số bài gửi : 72
Points : 26147
Rep power : 26
Join date : 17/02/2010
Age : 30
Đến từ : Thái Nguyên City

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeMon Mar 15, 2010 8:09 am

2` !
Về Đầu Trang Go down
Er4g0ntink20
Member
Member
Er4g0ntink20


Tổng số bài gửi : 85
Points : 26130
Rep power : 1
Join date : 19/02/2010
Age : 30
Đến từ : the dark hell

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeMon Apr 12, 2010 1:22 pm

hoho!!! Khó wa' em hok làm nổi đâu ák!!! A minh làm luôn đi ạk, cho e mở rộg tầm tay, ý nhầm tầm mắt nhé!!!
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeThu Apr 15, 2010 6:07 am

thích chế giễu thế à? Thích thì làm.
Về Đầu Trang Go down
Er4g0ntink20
Member
Member
Er4g0ntink20


Tổng số bài gửi : 85
Points : 26130
Rep power : 1
Join date : 19/02/2010
Age : 30
Đến từ : the dark hell

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeThu Apr 22, 2010 10:50 pm

Smile) làm j` đâu, chỉ là em muốn xem a Minh làm tie nào thoai, e dag họk VB mà, chỉ rõ chươg trình giùm em nha, hok làm đc thì ngại lém ôg anh ạk!!! haha
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeSat Apr 24, 2010 4:21 am

hjx, xin lỗi nhé mấy nay mải ôn thi nên không post lên được. Nay thì thằng bạn mượn mất con rồi nên không copy mấy cái project ra quán được nên không post lên đây được. Để hôm sau mình post luôn một thể.
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeSun Apr 25, 2010 8:30 am

nay mượn được usb của bà chị nên copy được rồi. Post lên đây, ai biết thì chỉ bảo thêm nhé.

Ct tính toán cơ bản C#.
Code:

Code:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace tinh_toan
{
    public partial class frmtinhtoan : Form
    {
        public frmtinhtoan()
        {
            InitializeComponent();
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
        }

        //private void nhapso_KeyPress(object sender, KeyPressEventArgs e)
        //{
        //    if ((e.KeyChar >= '0') && (e.KeyChar <= '9') || (e.KeyChar == '.'))
        //        e.Handled = false;
        //    else
        //        e.Handled = true;
        //}

        private void Form1_Load(object sender, EventArgs e)
        {
            this.MaximizeBox = false;
            this.TopMost = true;//chương trình luôn luôn nằm trên các chương trình khác nhưng không nằm trên Task Manager được.
            this.Text = "Chương Trình tính toán đơn giản.";
            txtketqua.Multiline = true;
            txtketquagt.Multiline = true;
            txtketquahpt.Multiline = true;
            txtketquant.Multiline = true;
            txtketquapt.Multiline = true;         
            txtketqua.ReadOnly = true;//TextBox kết quả chỉ cho xem không sửa được.
            txtketquagt.ReadOnly = true;
            txtketquapt.ReadOnly = true;
            txtketquant.ReadOnly = true;
            txtketquahpt.ReadOnly = true;
            cmdcong.Text = " a + b = ";
            cmdchia.Text = " a : b = ";
            cmdtru.Text = " a - b = ";
            cmdnhan.Text = " a x b = ";
            cmdmu.Text = " a ^ b = ";
            cmdthoat.Text = " Thoát ";
            cmdtinh.Text = "Tính Giai Thừa.";
            cmdtinhpt.Text = "Tính Nghiệm phương trình.";
            cmdkiemtrant.Text = "Kiểm tra số Nguyên Tố.";
            cmdtinhhpt.Text = "Tính nghiệm hệ phương trình.";
            MessageBox.Show(
@"Bạn đang dùng chương trình tính toán đơn
giản được viết bằng ngôn ngữ C# của DucMjnh1992.","thông báo.");
        }       
       
        private void cmdthoat_Click(object sender, EventArgs e)
        {         
            if(MessageBox.Show("bạn có muốn thoát khỏi chương trình không?","Thông báo.",MessageBoxButtons.YesNo ) == DialogResult.Yes)
            {           
            Application.Exit();
            }                   
        }

        private void cmdtinh_Click(object sender, EventArgs e)
        {
            try
            {
                double ketqua = 1;
                double giaithua = double.Parse(txtgiaithua.Text);
                if (giaithua % 1 != 0)
                {
                    MessageBox.Show("bạn nhập sai xin nhập lại.", "thông báo lỗi.", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    txtgiaithua.Text = "";
                }
                else if (giaithua < 0)
                {
                    MessageBox.Show("bạn nhập sai xin nhập lại.", "thông báo lỗi.", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    txtgiaithua.Text = "";
                }
                else
                {
                    for (int i = 1; i <= giaithua; i++)
                    {
                        ketqua = ketqua * i;
                    }
                    txtketquagt.Text = giaithua + "! = " + ketqua;
                }
            }
            catch (Exception loi)
            {
                txtketquagt.Text = loi.Message;
            }
        }

        private void cmdtinhpt_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, c, delta, x1, x2;
                a = double.Parse(txtsoa.Text);
                b = double.Parse(txtsob.Text);
                c = double.Parse(txtsoc.Text);
                delta = 0;
                if (a != 0)
                {
                    delta = Math.Pow(b, 2) - 4 * a * c;
                    if (delta < 0)
                    {
                        txtketquapt.Text = "vì delta = " + delta + " < 0 nên phương trình trên vô nghiêm.(giành cho lớp 11 trở xuống, đối với 12 thì sẽ là có 2 nghiệm phức.)";                    }
                    else if (delta == 0)
                    {
                        x1 = -b / 2 * a;
                        txtketquapt.Text = "vì delta = 0 nên phương trình có 1 nghiệm kép: x1 = x2 = " + x1;
                    }
                    else
                    {
                        x1 = (-b + Math.Sqrt(delta)) / (2 * a);
                        x2 = (-b + Math.Sqrt(delta)) / (2 * a);
                        txtketquapt.Text = "vì delta = " + delta + " > 0 nên phương trình có 2 nghiệm phân biệt: x1 = " + x1 + " ; x2 = " + x2;
                    }
                }
                else
                {
                    txtsoa.Text = "";
                    MessageBox.Show("số a phải khác 0.", "Thông báo Lỗi.", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }
            }
            catch (Exception loi)
            {
                txtketquapt.Text = loi.Message;
            }
        }

        private void cmdkiemtrant_Click(object sender, EventArgs e)
        {
            try
            {
                double n, i, dem;
                dem = 0;
                n = double.Parse(txtsont.Text);
                if (n % 1 != 0 || n < 0)
                {
                    txtsont.Text = "";
                    MessageBox.Show("bạn nhập sai, xin nhập lại.", "thông báo lỗi.", MessageBoxButtons.OK, MessageBoxIcon.Error);
                }
                else
                {
                    for (i = 0; i <= n; i++)
                    {
                        if (n % i == 0)
                        {
                            dem = dem + 1;
                        }
                    }
                    if (dem == 2)
                    {
                        txtketquant.Text = "số " + n + " là số nguyên tố.";
                    }
                    else
                    {
                        txtketquant.Text = "số " + n + " không phải là số nguyên tố.";
                    }
                }
            }
            catch (Exception loi)
            {
                txtketquant.Text = loi.Message;
            }
        }

        private void cmdtinhhpt_Click(object sender, EventArgs e)
        {           
            try
            {
                double a, b, c, a1, b1, c1, d, dx, dy, x, y;
                a = double.Parse(txtsoahpt.Text);
                b = double.Parse(txtsobhpt.Text);
                c = double.Parse(txtsochpt.Text);
                a1 = double.Parse(txtsodhpt.Text);
                b1 = double.Parse(txtsoehpt.Text);
                c1 = double.Parse(txtsofhpt.Text);
                d = (a * b1) - (a1 * b);
                dx = (c * b1) - (c1 * b);
                dy = (a * c1) - (a1 * c);
                if (d != 0)
                {
                    x = dx / d;
                    y = dy / d;
                    txtketquahpt.Text = "x = " + x + " ; " + " y = " + y;
                }
                else if (d == 0 && (dx != 0 || dy != 0))
                {
                    txtketquahpt.Text = "Hệ phương trình vô nghiệm.";
                }
                else if (d == 0 && dx == 0 && dy == 0)
                {
                    txtketquahpt.Text = "Hệ phương trình có nghiệm đúng với mọi x, y thuộc R.";
                }
            }
            catch (Exception loi)
            {
                txtketquahpt.Text = loi.Message;
            }
        }

        private void cmdcong_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, ketqua;
                a = double.Parse(txta.Text);
                b = double.Parse(txtb.Text);
                ketqua = a + b;
                txtketqua.Text = a + " + " + b + " = " + ketqua;
            }
            catch (Exception loi)
            {
                txtketqua.Text = loi.Message;
            }
        }

        private void cmdtru_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, ketqua;
                a = double.Parse(txta.Text);
                b = double.Parse(txtb.Text);
                ketqua = a - b;
                txtketqua.Text = a + " - " + b + " = " + ketqua;
            }
            catch (Exception loi)
            {
                txtketqua.Text = loi.Message;
            }
        }

        private void cmdnhan_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, ketqua;
                a = double.Parse(txta.Text);
                b = double.Parse(txtb.Text);
                ketqua = a * b;
                txtketqua.Text = a + " x " + b + " = " + ketqua;
            }
            catch (Exception loi)
            {
                txtketqua.Text = loi.Message;
            }
        }

        private void cmdchia_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, ketqua;
                a = double.Parse(txta.Text);
                b = double.Parse(txtb.Text);
                if (b == 0)
                {
                    MessageBox.Show("bạn nhập sai, xin nhập lại.", "thông báo lỗi.",MessageBoxButtons.OK,MessageBoxIcon.Error);
                    txtb.Text = "";
                }
                else
                {
                    ketqua = Math.Round(a / b, 5);//kết quả làm tròn đến chữ số thập phân thứ  5.
                    txtketqua.Text = a + " : " + b + " = " + ketqua;
                }
            }
            catch (Exception loi)
            {
                txtketqua.Text = loi.Message;
            }
        }

        private void cmdmu_Click(object sender, EventArgs e)
        {
            try
            {
                double a, b, ketqua;
                a = double.Parse(txta.Text);
                b = double.Parse(txtb.Text);
                if (b == 0 && a == 0)
                {
                    MessageBox.Show("bạn nhập sai, xin nhập lại.", "thông báo lỗi.", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    txtb.Text = "";
                    txta.Text = "";
                }
                else
                {
                    ketqua = Math.Pow(a, b);
                    txtketqua.Text = a + " ^ " + b + " = " + ketqua;
                }
            }
            catch (Exception loi)
            {
                txtketqua.Text = loi.Message;
            }
        }       
    }
}


Ct tính toán cơ bản C# ko dùng button.
Code:

Code:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace tinh_ko_dung_button
{
    public partial class frmtinh : Form
    {
        public frmtinh()
        {
            InitializeComponent();
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
            [You must be registered and logged in to see this link.] += new KeyPressEventHandler(nhapso_KeyPress);
        }       

        //private void nhapso_KeyPress(object sender, KeyPressEventArgs e)
        //{
        //    if ((e.KeyChar >= '0') && (e.KeyChar <= '9') || (e.KeyChar == '.'))
        //        e.Handled = false;
        //    else
        //        e.Handled = true;
        //}

        private void frmtinh_Load(object sender, EventArgs e)
        {
            this.MaximizeBox = false;
            this.TopMost = true;//chương trình luôn luôn nằm trên các chương trình khác nhưng không nằm trên Task Manager được.
            tmrkiemtra.Enabled = true;
            this.Text = "Chương Trình tính toán đơn giản.";
            cbopheptoan.Text = "+";
            cbopheptoan.Items.Add("+");
            cbopheptoan.Items.Add("-");
            cbopheptoan.Items.Add("x");
            cbopheptoan.Items.Add(":");
            cbopheptoan.Items.Add("^");
            cmdthoat.Text = " Thoát ";
            txtketqua.Multiline = true;
            txtketquagt.Multiline = true;
            txtketquahpt.Multiline = true;
            txtketquant.Multiline = true;
            txtketquapt.Multiline = true;
            tmrkiemtra.Interval = 100;
            txtketqua.ReadOnly = true;//TextBox kết quả chỉ cho xem không sửa được.
            txtketquagt.ReadOnly = true;
            txtketquapt.ReadOnly = true;
            txtketquant.ReadOnly = true;
            txtketquahpt.ReadOnly = true;         
        }     

        private void tmrkiemtra_Tick(object sender, EventArgs e)
        {
            try 
            {
                double a = double.Parse(txta.Text);
                double b = double.Parse(txtb.Text);
                double ketqua;                 
           
                if (cbopheptoan.Text == "+")
                {
                    ketqua = a + b;
                    txtketqua.Text = a + " + " + b + " = " + ketqua; 
                }
                else if (cbopheptoan.Text == "-")
                {
                    ketqua = a - b;
                    txtketqua.Text = a + " - " + b + " = " + ketqua;
                }
                else if (cbopheptoan.Text == "x")
                {
                    ketqua = a * b;
                    txtketqua.Text = a + " x " + b + " = " + ketqua;
                }
                else if (cbopheptoan.Text == ":")
                {
                    if (b == 0)
                    {
                        txtketqua.Text="bạn nhập sai, xin nhập lại.";
                        txtb.Text = "";
                    }
                    else
                    {
                        ketqua = Math.Round(a / b, 5);//kết quả làm tròn đến chữ số thập phân thứ  5.
                        txtketqua.Text = a + " : " + b + " = " + ketqua;
                    }
                }
                else if (cbopheptoan.Text == "^")
                {
                    if (b == 0 && a == 0)
                    {
                        txtketqua.Text = "bạn nhập sai, xin nhập lại.";
                        txtb.Text = "";
                        txta.Text = "";
                    }
                    else
                    {
                        ketqua = Math.Pow(a, b);
                        txtketqua.Text = a + " ^ " + b + " = " + ketqua;
                    }
                }               
            }
            catch (System.Exception loi)
            {
                txtketqua.Text = loi.Message;
            }

            try           
            {
                double ketquagt = 1;
                double giaithua = double.Parse(txtgiaithua.Text);
                if (giaithua % 1 != 0)
                {
                    txtketquagt.Text = "bạn nhập sai xin nhập lại.";
                    txtgiaithua.Text = "";
                }
                else if(giaithua < 0)
                {
                    txtketquagt.Text = "bạn nhập sai xin nhập lại.";
                    txtgiaithua.Text = "";
                }             
                else
                {
                    for (int i = 1; i <= giaithua; i++)
                    {
                        ketquagt = ketquagt * i;
                    }
                    txtketquagt.Text = giaithua + "! = " + ketquagt;
                }
            }
            catch (System.Exception loi)
            {
                txtketquagt.Text = loi.Message;
            }
         
            try           
            {
                double a, b, c, delta, x1, x2;
                a = double.Parse(txtsoa.Text);
                b = double.Parse(txtsob.Text);
                c = double.Parse(txtsoc.Text);
                delta = 0;
                if (a != 0)
                {
                    delta = Math.Pow(b, 2) - 4 * a * c;
                    if (delta < 0)
                    {
                        txtketquapt.Text = "vì delta = " + delta + " < 0 nên phương trình trên vô nghiêm.";
                    }
                    else if (delta == 0)
                    {
                        x1 = -b / 2 * a;
                        txtketquapt.Text = "vì delta = 0 nên phương trình có 1 nghiệm kép: x1 = x2 = " + x1;
                    }
                    else
                    {
                        x1 = (-b + Math.Sqrt(delta)) / (2 * a);
                        x2 = (-b + Math.Sqrt(delta)) / (2 * a);
                        txtketquapt.Text = "vì delta = " + delta + " > 0 nên phương trình có 2 nghiệm phân biệt: x1 = " + x1 + " ; x2 = " + x2;
                    }
                }
                else
                {
                    txtsoa.Text = "";
                    txtketquahpt.Text = "số a phải khác 0.";
                }
            }
            catch (System.Exception loi)
            {
                txtketquapt.Text = loi.Message;
            }

            try
            {
                double n, i, dem;
                dem = 0;
                n = double.Parse(txtsont.Text);
                if (n % 1 != 0 || n < 0)
                {
                    txtsont.Text = "";
                    txtketquant.Text = "bạn nhập sai, xin nhập lại.";
                }
                else
                {
                    for (i = 0; i <= n; i++)
                    {
                        if (n % i == 0)
                        {
                            dem = dem + 1;
                        }
                    }
                    if (dem == 2)
                    {
                        txtketquant.Text = "số " + n + " là số nguyên tố.";
                    }
                    else
                    {
                        txtketquant.Text = "số " + n + " không phải là số nguyên tố.";
                    }                 
                }
            }
            catch (System.Exception loi)
            {
                txtketquant.Text = loi.Message;
            }

          try
            {
                double a, b, c, a1, b1, c1, d, dx, dy, x, y;
                a = double.Parse(txtsoahpt.Text);
                b = double.Parse(txtsobhpt.Text);
                c = double.Parse(txtsochpt.Text);
                a1 = double.Parse(txtsodhpt.Text);
                b1 = double.Parse(txtsoehpt.Text);
                c1 = double.Parse(txtsofhpt.Text);
                d = (a * b1) - (a1 * b);
                dx = (c * b1) - (c1 * b);
                dy = (a * c1) - (a1 * c);
                if (d != 0)
                {
                    x = dx / d;
                    y = dy / d;
                    txtketquahpt.Text = "x = " + x + " ; " + " y = " + y;
                }
                else if (d == 0 && (dx != 0 || dy != 0))
                {
                    txtketquahpt.Text = "Hệ phương trình vô nghiệm.";
                }
                else if (d == 0 && dx == 0 && dy == 0)
                {
                    txtketquahpt.Text = "Hệ phương trình có nghiệm đúng với mọi x, y thuộc R.";
                }
            }
          catch (System.Exception loi)
          {
              txtketquahpt.Text = loi.Message;
          }
        }


        private void cmdthoat_Click(object sender, EventArgs e)
        {
            if (MessageBox.Show("bạn có muốn thoát khỏi chương trình không?", "Thông báo.", MessageBoxButtons.YesNo) == DialogResult.Yes)
            {
                Application.Exit();
            } 
        }       
    }
}

Ct tính toán cơ bản VB.Net.
Code:
Cộng trừ nhân chia:


Code:
Public Class frmtoancoban
    Public a, b As Single
    Public ketqua
    Private Sub cmdacb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdacb.Click
        a = Val(txta.Text)
        b = Val(txtb.Text)
        ketqua = a + b
        txtketqua.Text = a & " + " & b & " = " & ketqua
    End Sub

    Private Sub cmdatb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdatb.Click
        a = Val(txta.Text)
        b = Val(txtb.Text)
        ketqua = a - b
        txtketqua.Text = a & " - " & b & " = " & ketqua
    End Sub

    Private Sub cmdanb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdanb.Click
        a = Val(txta.Text)
        b = Val(txtb.Text)
        ketqua = a * b
        txtketqua.Text = a & " x " & b & " = " & ketqua
    End Sub

    Private Sub cmdachb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdachb.Click
        a = Val(txta.Text)
        b = Val(txtb.Text)
        If b <> 0 Then
            ketqua = a / b
            txtketqua.Text = a & " : " & b & " = " & ketqua
        Else
            txtb.Text = ""
            MsgBox(" bạn đã nhập sai xin nhập lại!", vbCritical, "Thông báo lỗi.")
        End If
    End Sub

    Private Sub cmdamb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdamb.Click
        a = Val(txta.Text)
        b = Val(txtb.Text)
        If a = 0 And b = 0 Then
            MsgBox("bạn nhập sai xin nhập lại!", vbCritical, "thông báo lỗi")
            txta.Text = ""
            txtb.Text = ""
        ElseIf b < 170 Then
            ketqua = a ^ b
            txtketqua.Text = a & " ^ " & b & " = " & ketqua
        Else
            txta.Text = ""
            txtb.Text = ""
            MsgBox("bạn đã nhập số quá lớn, xin nhập lại!", vbCritical, "Thông báo lỗi.")
        End If
    End Sub
End Class

Giải pt bậc hai:

Code:
Public Class frmgiaiptbac2
    Private Sub cmdacb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdacb.Click
        Dim a, b, c, delta As Decimal
        Dim x1, x2 As Decimal
        a = CDec(txta.Text)
        b = CDec(txtb.Text)
        c = CDec(txtc.Text)
        If a <> 0 Then
            delta = b ^ 2 - 4 * a * c
            If delta = 0 Then
                x1 = -b / 2 * a
                txtketqua.Text = "vì delta = 0 nên phương trình có 1 nghiệm kép: x1 = x2 = " & x1
            ElseIf delta < 0 Then
                txtketqua.Text = "vì delta = " & delta & " < 0 nên phương trình vô nghiệm."
            Else
                x1 = (-b + Math.Sqrt(delta)) / (2 * a)
                x2 = (-b + Math.Sqrt(delta)) / (2 * a)
                txtketqua.Text = "vì delta = " & delta & " > 0 nên phương trình có 2 nghiệm phân biệt: x1 = " & x1 & " ; x2 = " & x2
            End If
        Else
            MsgBox("bạn nhập sai, xin nhập lại.", vbCritical, "Thông báo lỗi.")
            txta.Text = ""
        End If
    End Sub   
End Class

Tính Giai thừa:

Code:
Public Class frmgiaithua
    Private Sub cmdtinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtinh.Click
        Dim n, i As Integer
        Dim ketqua
        ketqua = 1
        n = Val(txtn.Text)
        If n <= 170 And n >= 0 Then
            For i = 1 To n
                ketqua = ketqua * i
            Next
            txtketqua.Text = n & " ! = " & ketqua
        Else
            txtn.Text = ""
            MsgBox("số bạn nhập vào không đúng, xin nhập lại.", vbCritical, "Thông báo lỗi.")
        End If
    End Sub
End Class

Kiểm Tra số nguyên tố:

Code:
Public Class frmsonguyento
    Private Sub cmdtinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtinh.Click
        Dim n, i, dem As Integer
        n = Val(txtn.Text)
        If n >= 0 Then
            For i = 1 To n
                If n Mod i = 0 Then
                    dem = dem + 1
                End If
            Next
            If dem = 2 Then
                txtketqua.Text = "số " & n & " là số nguyên tố."
            Else
                txtketqua.Text = "số " & n & " không phải số nguyên tố."
            End If
        Else
            txtn.Text = ""
            MsgBox("bạn nhập sai, xin nhập lại.", vbCritical, "Thông báo lỗi.")
        End If
    End Sub   
End Class



[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
Er4g0ntink20
Member
Member
Er4g0ntink20


Tổng số bài gửi : 85
Points : 26130
Rep power : 1
Join date : 19/02/2010
Age : 30
Đến từ : the dark hell

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeMon Apr 26, 2010 3:25 am

Oai mẹ cha ơi, dài tie này mà ổg kêu đơn giản lém, đọk kòn chẳg kóa hứg nữa là, em thua, e thua
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeMon Apr 26, 2010 3:39 am

Er4g0ntink20 đã viết:
Oai mẹ cha ơi, dài tie này mà ổg kêu đơn giản lém, đọk kòn chẳg kóa hứg nữa là, em thua, e thua

trời thế là đơn giản còn gì. Dài là tại ở trên đấy có tới 3 project 1 cái là tính toán dùng button = C# 1 cái là tính toán không dùng button = C# còn mấy cái kia là của VB.Net. Thế là còn ngắn chứ mấy cái code đấy tính ra có gần 1k dòng chứ mấy đâu.
Về Đầu Trang Go down
Er4g0ntink20
Member
Member
Er4g0ntink20


Tổng số bài gửi : 85
Points : 26130
Rep power : 1
Join date : 19/02/2010
Age : 30
Đến từ : the dark hell

tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeTue Apr 27, 2010 12:53 pm

gần 1k dòg, ýt ý mà!! giờ mà pảo KT 15' trên giấy viết chươg trình này ra, chép hok khéo hok xog ý chứ!!! Nói thiệt là tụi tui hok đc họk C#, kòn VB thì vừa mới biết, viết sao đc kái trg trình dài lòag ngòag này, mà chắk j` nó đúg cơ chứ?? kóa ai bít mà kiểm tra đâu, ý, quên, lớp mình ai biết VB kiểm định ùi fat' biểu cho dân tình hỉu thêm nhé!!!
Về Đầu Trang Go down
Khách vi
Khách viếng thăm




tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitimeWed Apr 28, 2010 2:51 am

oáp! cần gì mà chép ra giấy? download cái project về mà kiểm tra. Nhớ là VB.Net nhé không phải VBA ( VB 6.0 ) đâu đấy. Cái C# thì chắc không sai nhưng cái VB.Net thì kiểm tra hộ nhé.
Về Đầu Trang Go down
Sponsored content





tính toán cơ bản. Empty
Bài gửiTiêu đề: Re: tính toán cơ bản.   tính toán cơ bản. Icon_minitime

Về Đầu Trang Go down
 
tính toán cơ bản.
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Tin K20 CTN chào đón bạn! :: Học tập :: Môn Chuyên (Tin)-
Chuyển đến