درخواست یک نرم افزار ساده ...

[orache]

سلام من یک سورس نرم افزار ساده میخواستم البته میدونم که درخواست سورس ممنوعه ولی باور کنین خیلی نیاز دارم
یک نرم افزار که توش یک صفحه باشه و 3 تا تکس باکس که RGB هستن باشه و یک دکمه
وقتی 3 تا تکس باکس رو توش عدد گذاشتیم تو صفحه ای که ایجاد کردیم کد رو به رنگ تبدیل کنه مثلا اگه وارد کردیم 0 0 0 صفحه ی کوچیک ساخته شده سیاه بشه یا اگه زدیم 256 256 256 صفحه سفید بشه و یه نکته ی مهم هم هست اینه که اگه هر 3 تا عدد رو منفی زدیم پیام بده بالاتر از سیاهی رنگی نیست
لطفا باگ گیری هم بشه یعنی اگه یک تکس باکس رو پر نکردیم خطا بگیره و بگه همه رو پر کنین یا اگه یکدوم از 255 بالاتر بود بگه پایین تر انتخاب کنین و....
لطفا سورسش رو بدین یعنی کد ندین
ممنون از کسی که انجام بده
فقط بگم خیلی خیلی نیازش دارم مدیر های محترم لطفا حذف نکنن این تاپیکو
مـــــــــــــــمنون :چشمک:

[mmssoft]

دوست عزیز برای این کار کافیه از تابع RGB استفاده کنید. خطاگیریش هم خیلی ساده هست، برای نمونه :

سه تا textbox و یک command button رو فرم بذارید و این کد ها رو اضافه کنید :

Private Sub Command1_Click()

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then
MsgBox "ERROR [1]!", vbExclamation, "Error"
ElseIf IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Or IsNumeric(Text3.Text) = False Then
MsgBox "ERROR [2]!", vbExclamation, "Error"
ElseIf Val(Text1.Text) > 255 Or Val(Text2.Text) > 255 Or Val(Text3.Text) > 255 Then
MsgBox "ERROR [3]!", vbExclamation, "Error"
ElseIf Val(Text1.Text) < 0 Or Val(Text2.Text) < 0 Or Val(Text3.Text) < 0 Then
MsgBox "ERROR [4]!", vbExclamation, "Error"
Else

Form1.BackColor = RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))

End If

End Sub

Private Sub Form_Load()

Dim a As Object

For Each a In Controls
If TypeOf a Is TextBox Then
a.Text = ""
a.MaxLength = 3
End If
Next

Command1.Caption = "Go!"

End Sub

[orache]

ممنون داداش یه زحمت ناقابل بکش و یک سورس به من بده چون من 6 ماهه که با وی بی کار نکردم همون موقش هم کار نکرده بودم چیزی بلد نیستم و یادم رفته لطف کن برام سورس بده
ممنون

[orache]

ممنون اره درست کردم ولی یک چیز دیگه هم میخام
میخام یک اسلایدر هم باشه میدونی منظورم چیه که ؟؟ مینیمومش -1 و مکس 255 باشه چجوری درست کنم ؟؟

[mmssoft]

کنار هر TextBox یه HScrollBar بذارید. کدها به این شکل ویرایش میشن :

Private Sub Command1_Click()

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then
MsgBox "ERROR [1]!", vbExclamation, "Error"
ElseIf IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Or IsNumeric(Text3.Text) = False Then
MsgBox "ERROR [2]!", vbExclamation, "Error"
ElseIf Val(Text1.Text) > 255 Or Val(Text2.Text) > 255 Or Val(Text3.Text) > 255 Then
MsgBox "ERROR [3]!", vbExclamation, "Error"
ElseIf Val(Text1.Text) < 0 Or Val(Text2.Text) < 0 Or Val(Text3.Text) < 0 Then
MsgBox "ERROR [4]!", vbExclamation, "Error"
Else

Form1.BackColor = RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))

End If

End Sub

Private Sub Form_Load()

Dim a As Object

For Each a In Controls
If TypeOf a Is TextBox Then
a.Text = "0"
a.MaxLength = 3
End If

If TypeOf a Is HScrollBar Then
a.Value = 0
a.Min = -1
a.Max = 255
a.LargeChange = 1
End If
Next

Command1.Caption = "Go!"

End Sub

Private Sub HScroll1_Change()
Text1.Text = Trim(Str(HScroll1.Value))
End Sub

Private Sub HScroll2_Change()
Text2.Text = Trim(Str(HScroll2.Value))
End Sub

Private Sub HScroll3_Change()
Text3.Text = Trim(Str(HScroll3.Value))
End Sub