r_oscar2007
جمعه 21 دی 1386, 16:53 عصر
سلام
نظر شما راجب برنامه زیر چیست
http://www.4shared.com/file/34534766/943c987/Project1.html
M8SPY_OK
جمعه 21 دی 1386, 17:01 عصر
من هنوز برنامه رو ندیدم ولی چرا EXE ؟؟؟
M8SPY_OK
جمعه 21 دی 1386, 17:05 عصر
برنامه دیدم همچین نکته ای توش نداشت - بابا ملت برنامه ملیونی می نویسن سورسشو میذارن روی سایت - اونوقت شما ...
r_oscar2007
جمعه 21 دی 1386, 17:11 عصر
این هم سورسش
Option Explicit
Public r, g, b As Long
Public bc, nc As Long
Public X, Y As Integer
Public strmasir, strwrite As String
Private Sub mnucustom_Click()
Form2.Show
End Sub
Private Sub Command1_Click()
Dim reza As String
reza = Text1.Text
Picture1.Print reza
End Sub
Private Sub Label1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width * 0.2, Picture1.Height * 0.2
End Sub
Private Sub Label2_Click()
Dim strst As String
strst = InputBox("Write Text Here")
Picture1.Print Tab(40), strst
End Sub
Private Sub mnublue_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 4000
Picture1.PSet (X, Y), RGB(0, 0, nc)
Next Y
DoEvents
Next X
End Sub
Private Sub mnucopy_Click()
Clipboard.SetData Picture1.Picture
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnugrayscale_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 8000
Picture1.PSet (X, Y), RGB(nc, nc, nc)
Next Y
DoEvents
Next X
End Sub
Private Sub mnugreen_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 8000
Picture1.PSet (X, Y), RGB(0, nc, 0)
Next Y
DoEvents
Next X
End Sub
Private Sub mnunew_Click()
Picture1.Cls
End Sub
Private Sub mnuopen_Click()
cd1.Filter = "JPEG(*.jpg)|*.jpg"
cd1.ShowOpen
strmasir = cd1.FileName
Picture1.Picture = LoadPicture(strmasir)
End Sub
Private Sub mnupaste_Click()
Picture1.Picture = Clipboard.GetData
End Sub
Private Sub mnured_Click()
For X = 0 To Picture1.ScaleWidth
For Y = 0 To Picture1.ScaleHeight
bc = Picture1.Point(X, Y)
r = bc / 179
g = bc Mod 4
b = bc / 19
nc = (r + g + b) / 4500
Picture1.PSet (X, Y), RGB(nc, 0, 0)
Next Y
DoEvents
Next X
End Sub
Private Sub mnus_Click()
On Error Resume Next
cd1.Filter = "JPEG(*.jpg)|*.jpg"
cd1.ShowSave
strmasir = cd1.FileName
SavePicture Picture1.Picture, strmasir
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Circle (X, Y), 18, RGB(255 * Rnd, 255 * Rnd, 10)
End If
End Sub
M8SPY_OK
جمعه 21 دی 1386, 17:14 عصر
این چه وضع سورس گذاشتنه ؟
ای بابا ....
درست آپلود کن سورس رو !!!!!!!!!!!!!!!!
r_oscar2007
جمعه 21 دی 1386, 17:19 عصر
بابت سورسها ببخشد
منیک سوال داشتم
چه طور می تونم یک عکس را که با سورس بالا تغییر داده را ذخیره کنم
اوبالیت به بو
جمعه 21 دی 1386, 17:49 عصر
نظری ندارم ولی اشکالاتش رو می گم.
1- عنوان برنامه زیبا نیست.
2- گزینه New تو منوی File کد نداره.
3- از PictureBox استفاده نکن چون ImageBox متدهای بیشتری نسبت به PictureBox داره و در برنامه هایه کند خیلی خیلی بهتر عمل میکنه و از همه مهمتر خاصیت Stretch داره که در برنامه شما حتماً باید اعمال بشه.
4- در هنگام ذخیره سازی زمانی که یک عکس با همان نامی که شما می خواین ذخیره کنید، وقتی تویه ادرس فعلی هست ذخیره میشه که باید جوری طراحی بشه که اگر اسمها باهم یکی بود سوال کنه که آیا میخواید نامش رو عوض کنید یا آیا می خواید که جایگزین این فایل بشه.
5- Zoom برنامه خطا میده.
6- استاندارد این رو می گه که آخرین منو باید اسمش help باشه که برای شما About هستش و بعد در زیر منوها باید بین help و About خط کشیده بشه. همچنین شما هیچ کدی درونش ننوشتی.
r_oscar2007
جمعه 21 دی 1386, 18:22 عصر
خیلی ممنون
میشه سوال من را هم جواب دهید
اوبالیت به بو
جمعه 21 دی 1386, 18:38 عصر
منظورتون رو نمی فهمم؟؟؟؟
r_oscar2007
جمعه 21 دی 1386, 18:46 عصر
چه طور می تونم یک عکس را که با سورس بالا تغییر داده را ذخیره کنم
یعنی یک عکس را چه طور با پسوند دلخواه ذخیره کنم
مبین رنجبر
جمعه 21 دی 1386, 19:24 عصر
برای ذخیره تصویر میتونید از تابع SavePicture استفاده کنید
M8SPY_OK
جمعه 21 دی 1386, 21:54 عصر
چرا در مورد کدی که خودت ننوشتی نظر می خوای ؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.