salahisoft
یک شنبه 29 اردیبهشت 1392, 18:59 عصر
با سلام و خسته نباشید آقا من میخوام ماشین حساب درست کنم چهار عمل اصلی رو در محیط کنسول ویژوال یاد ندارم.ممنون میشم اگه کمک کنید
h_a_m_i_d
یک شنبه 29 اردیبهشت 1392, 19:49 عصر
بفرما دوست عزیز اینم سورس
salahisoft
دوشنبه 30 اردیبهشت 1392, 20:02 عصر
سلام ممنون بابت زحمتتنون من میخوام یه ماشین حسابی درست کنم که مثل ساعت دیجیتالی عمل کنعه که فایل شکلشو که نوشتم میفرستم ببینید بعد باید با زدن مثلا 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
دوشنبه 30 اردیبهشت 1392, 20:49 عصر
تایپیکت رو بد معرفی کردی برادر من
ببخشید پس اگر سورس اشتباه بهتون دادم اینکار مستلزم الگوریتم های خاص برای اینکار هست که متاسفانه وقت فکر کردن بهشو ندارم
salahisoft
دوشنبه 30 اردیبهشت 1392, 20:57 عصر
http://uplod.ir/7yofz4xj3wvw/123.jpg.htm
ممنون از زحمتتون ولی منظورم این نبود منظورمو توی این عکس کامل توضیح دادم اگه میشه کمکم کنید ممنون بابت زحمتهایی که می کشید
salahisoft
سه شنبه 31 اردیبهشت 1392, 03:02 صبح
دادا ما منتظر شما هستیم.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.