الة حاسبة

هل تريدينها على التيربو سي

؟؟؟

اذا visual .net بكون احسن

بس ما في مشكلة

الله يكرمكم

يا ريت الله يرضى عنك

او انسخي الكود واعطيني اياها ما في مشكلة

الله يكرمك

أعذرينـــي ما أعرف أرفق البرنآمج :blush: ,,,,

Public Class Form1
	Dim temps As String = ""
	Dim tempd As Double
	Dim ope As String

	Private Sub one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles one.Click
		temps = temps + "1"
		t.Text = temps
	End Sub

	Private Sub two_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles two.Click
		temps = temps + "2"
		t.Text = temps
	End Sub

	Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
		tempd = Val(t.Text)
		temps = ""
		t.Text = ""
		ope = "+"
	End Sub

	Private Sub equal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equal.Click
		If ope = "+" Then
			tempd = tempd + Val(temps)
			t.Text = tempd
			temps = ""
		End If
		If ope = "-" Then
			tempd = tempd - Val(temps)
			t.Text = tempd
			temps = ""
		End If
		If ope = "*" Then
			tempd = tempd * Val(temps)
			t.Text = tempd
			temps = ""
		End If
		If ope = "/" Then
			If Val(temps) = 0 Then
				t.Text = "error"
				temps = ""
			Else
				tempd = tempd / Val(temps)
				t.Text = tempd
				temps = ""
			End If
		End If
	End Sub

	Private Sub three_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles three.Click
		temps = temps + "3"
		t.Text = temps
	End Sub

	Private Sub four_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles four.Click
		temps = temps + "4"
		t.Text = temps
	End Sub

	Private Sub five_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles five.Click
		temps = temps + "5"
		t.Text = temps
	End Sub

	Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
		temps = temps + "6"
		t.Text = temps
	End Sub

	Private Sub seven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seven.Click
		temps = temps + "7"
		t.Text = temps
	End Sub

	Private Sub eight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eight.Click
		temps = temps + "8"
		t.Text = temps
	End Sub

	Private Sub nine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nine.Click
		temps = temps + "9"
		t.Text = temps
	End Sub

	Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click
		temps = temps + "0"
		t.Text = temps
	End Sub

	Private Sub dot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dot.Click
		temps = temps + "."
		t.Text = temps
	End Sub

	Private Sub munse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles munse.Click
		tempd = Val(t.Text)
		temps = ""
		t.Text = ""
		ope = "-"
	End Sub

	Private Sub mult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mult.Click
		tempd = Val(t.Text)
		temps = ""
		t.Text = ""
		ope = "*"
	End Sub

	Private Sub divide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles divide.Click
		tempd = Val(t.Text)
		temps = ""
		t.Text = ""
		ope = "/"
	End Sub
End Class

بالتـــوفيق أختـــــي ,,

إذا فيه شي غامض بالنسبه لك ,, أسألينـــي .. !!

,,,,

السلام عليكم

مشروع الألة الحاسبة - المشروع سهل وبسيط للغاية وحبيت افيد المبتدئين في السي++ لغتي المفضلة

السورس كود

	#include"iostream"
	void main()
	{
	float num1;
	float num2;
	char type;
	cout << "\t\t\t Coded By zAx.. \n";
	cout << "\t\t\t Yee7.Com - Yee7 Team \t\n";
	cout << "\t\t\t Full Calculater \n";
	cout << "Enter The First Number : \n";
	cin >> num1;
	cout << "Enter The Second Number : \n";
	cin >> num2;
	cout << "Please Enter The Type (+,-,*,/) : ";
	cin >> type;
	switch(type)
	{
	case '+':
	cout <<>
	break;
	case '-':
	cout <<>
	break;
	case '*':
	cout <<>
	break;
	case '/':
	cout <<>
	break;
	}}

تحياتي ببرمجة سهلة وبسيطة

والسلام عليكم ورحمة الله وبركاته ! وشكراً

منقول من الرابط التالي :

http://zax1.blogspot.com/2008/12/blog-post_20.html

باقي مشاريع في نفس المدونة

ملحوظة : المشروع بالسي++ في بيئية الدوس

بالتوفيق