ایحاد ماشین حساب در محیط کنسول

[salahisoft]

با سلام و خسته نباشید آقا من میخوام ماشین حساب درست کنم چهار عمل اصلی رو در محیط کنسول ویژوال یاد ندارم.ممنون میشم اگه کمک کنید

[h_a_m_i_d]

بفرما دوست عزیز اینم سورس

[salahisoft]

سلام ممنون بابت زحمتتنون من میخوام یه ماشین حسابی درست کنم که مثل ساعت دیجیتالی عمل کنعه که فایل شکلشو که نوشتم میفرستم ببینید بعد باید با زدن مثلا 2 از روی کیبورد تابعی بنویسیم که شکل 2 را با * دربیاره اگه م\کمک کنید ممنون میشم


Module Module1

Sub Main()
Console.BackgroundColor = ConsoleColor.Cyan
Console.Clear()
Console.ForegroundColor = ConsoleColor.Blue
Console.SetCursorPosition(35, 15)
Console.WriteLine("Mini Calculator")
badaneh1(25, 5, 35)
badaneh1(25, 16, 35)
badaneh2(25, 5, 11)
badaneh2(59, 5, 11)
Console.ForegroundColor = ConsoleColor.Red
sefr1(27, 7, 5)
sefr1(27, 12, 5)
sefr12(27, 8, 5)
sefr12(32, 8, 5)
sefr2(34, 7, 5)
sefr2(34, 12, 5)
sefr21(34, 7, 5)
sefr21(39, 7, 5)
sefr3(41, 7, 5)
sefr3(41, 12, 5)
sefr31(41, 7, 5)
sefr31(46, 7, 5)
sefr4(48, 7, 5)
sefr4(48, 12, 5)
sefr42(48, 7, 5)
sefr42(53, 7, 5)
Console.ForegroundColor = ConsoleColor.Black
Console.SetCursorPosition(57, 7)
Console.WriteLine("*")
Console.SetCursorPosition(57, 9)
Console.WriteLine("+")
Console.SetCursorPosition(57, 11)
Console.WriteLine("-")
Console.SetCursorPosition(57, 13)
Console.WriteLine("/")
Dim x As Integer
Dim y As Integer
x = Console.ReadLine
y = Console.ReadLine
End Sub

Sub badaneh1(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x + i, y)

Next
End Sub
Sub badaneh2(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t

Console.WriteLine("*")
Console.SetCursorPosition(x, y + i)
Next

End Sub
Sub sefr1(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x + i, y)

Next
End Sub
Sub sefr12(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x, y + i)
Next
End Sub
Sub sefr2(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x + i, y)
Next
End Sub
Sub sefr21(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x, y + i)
Next
End Sub
Sub sefr3(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x + i, y)
Next
End Sub
Sub sefr31(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x, y + i)
Next
End Sub
Sub sefr4(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x + i, y)
Next
End Sub
Sub sefr42(ByVal x As Integer, ByVal y As Integer, ByVal t As Integer)
Console.SetCursorPosition(x, y)
For i As Integer = 1 To t
Console.WriteLine("*")
Console.SetCursorPosition(x, y + i)
Next
End Sub

End Module

[h_a_m_i_d]

تایپیکت رو بد معرفی کردی برادر من
ببخشید پس اگر سورس اشتباه بهتون دادم اینکار مستلزم الگوریتم های خاص برای اینکار هست که متاسفانه وقت فکر کردن بهشو ندارم

[salahisoft]

http://uplod.ir/7yofz4xj3wvw/123.jpg.htm
ممنون از زحمتتون ولی منظورم این نبود منظورمو توی این عکس کامل توضیح دادم اگه میشه کمکم کنید ممنون بابت زحمتهایی که می کشید

[salahisoft]

دادا ما منتظر شما هستیم.