ESHVEL
چهارشنبه 10 فروردین 1390, 12:57 عصر
1-کاربربتواندباکلیک روی دکمه های green,blue.redرنگ قلم رادرنام گاربری روی رنگ قرمزیاسبزیاآبی تنظیم کند
2-ریشه های معادله درجه 2رابدست آورد
ممنون ازسایتتون
mansourii
چهارشنبه 10 فروردین 1390, 16:01 عصر
کاربربتواندباکلیک روی دکمه های green,blue.redرنگ قلم رادرنام گاربری روی رنگ قرمزیاسبزیاآبی تنظیم کندیعنی چی ؟ یعنی 3 تا دکمه بنام های سبز و قرمز و آبی رنگ یک لیبل رو تغییر بده؟ یا نه یک فونت کالر باز بشه تا کاستوم انتخاب بشه؟
سوال دوم
Dim a, b, c As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
Dim d As Integer = b * b - 4 * a * c
Try
If d < 0 Then
MsgBox("معادله جواب ندارد")
End If
If d > 0 Then
Dim _template1, _template2 As String
_template1 = -b + Math.Sqrt(d) / 2 * a
_template2 = -b - Math.Sqrt(d) / 2 * a
MsgBox(_template1 + vbCrLf + _template2)
End If
Catch ex As Exception
MsgBox(ex)
End Try
ESHVEL
جمعه 12 فروردین 1390, 11:44 صبح
لیبلش عوض بشه ممنون
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.