تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 3 از 4 اولاول 1234 آخرآخر
نمايش نتايج 21 به 30 از 32

نام تاپيک: یک عالمه سوال . فوریه کمکم کنید

  1. #21
    پروفشنال shadmehrshadow1's Avatar
    تاريخ عضويت
    Oct 2009
    پست ها
    842

    پيش فرض

    کسی نیست جواب بده؟؟؟؟؟؟؟؟


    ما سه تا کمبوباکس داریم که با انتخاب یکی از موارد کمبوی اول چند مقدار درون کمبوباکس دوم قرار میگیره که اطلاعاتی توی این
    کمبوباکس دوک قرار میگیره میخوام از توی یه فایل باشه . وقتی که یکی از گزینه های کمبوی دوم رو که انتخاب میکنیم باز هم اطلاعاتی
    از توی یک فایل درون کمبوی سوم قرار میگیره. و وقتی که یکی از گزینه های کمبوی سوم رو انتخاب میکنیم به ما دو مقدار از توی یک فایل
    میده. به نظر شما بهترین راه حل برای این کار چیه ؟ البته میخوام بتونم که اطلاعات اون فایل ها رو حذف یا ویرایش کنم و اضافه.
    یه مثال :
    توی کمبو باکس اول نام استان هاست . که با انتخاب یک استان نام شهر های استان درون کمبوی دوم قرار میگیره و با انتخاب یکی از
    شهر ها روستا های اون شهر در کمبوی سوم قرار می گیره و با انتخاب یکی از روستا ها دومقدار مثل طول و عرض جغرافیایی
    مربوط به اون روستا به ما داده میشه.
    Last edited by shadmehrshadow1; 27-06-2010 at 19:41.

  2. #22
    پروفشنال shadmehrshadow1's Avatar
    تاريخ عضويت
    Oct 2009
    پست ها
    842

    پيش فرض

    یه مشکل دیگه هم برام پیش اومده.
    توی ویبی 2008 در منوی Tools گزینه ای به نام این وجود داره : Upgrade Visual Basic 6 Code...
    که وقتی من کلیک روش میکنم ارور زیر رو میده. چرا؟
    ---------------------------
    Microsoft Visual Basic 2008 Express Edition
    ---------------------------
    The operation could not be completed
    ---------------------------
    OK
    ---------------------------


    و معادل این کد در ویبی 2008 چیه ؟


    picture1.PaintPicture(PicPlay.Picture, 0, 0, XStep, YStep, x, Y, XStep, YStep, vbSrcCopy)
    و اگه معادل این کد رو هم بگید خیلی خوب میشه:

    Option Explicit
    Private mDx7 As DirectX7
    Private mDrw As DirectDraw7
    Private mDrm As Direct3DRM3
    Private mFrS As Direct3DRMFrame3
    Private mFrC As Direct3DRMFrame3
    Private mFrO As Direct3DRMFrame3
    Private mFrL As Direct3DRMFrame3
    Private mDev As Direct3DRMDevice3
    Private mVpt As Direct3DRMViewport2
    Private mDownX As Single
    Private mDownY As Single
    Private mStopFlag As Boolean
    Private mMouseDown As Boolean
    Private Type dxPTM
    dX As Single
    dY As Single
    Distance As Single
    End Type
    Private Sub LoadMesh()
    Dim DxMeshB As Direct3DRMMeshBuilder3
    mDrm.SetSearchPath App.Path
    Set DxMeshB = mDrm.CreateMeshBuilder()
    With DxMeshB
    .LoadFromFile "sphere.x", 0, D3DRMLOAD_FROMFILE, Nothing, Nothing
    .SetTexture mDrm.LoadTexture("8ball.bmp")
    End With

    mFrO.AddVisual DxMeshB

    Me.Show: DoEvents

    End Sub
    Private Sub Rotate(X As Single, Y As Single, Optional Button As Integer)
    Dim PTM As dxPTM
    Dim Theta As Single

    PointToMouse PTM, X, Y

    With PTM
    Theta = .Distance / 10000
    mFrO.SetRotation Nothing, .dY, .dX, 0, Theta
    End With

    End Sub
    Private Sub RefreshLoop()
    Do While mStopFlag = False
    mFrS.Move 1
    With mVpt
    .Clear D3DRMCLEAR_ALL
    .Render mFrS
    End With
    mDev.Update
    DoEvents
    Loop

    End Sub
    Private Sub PointToMouse(PTM As dxPTM, X As Single, Y As Single)
    Dim sX As Single, sY As Single

    With PTM
    .dX = mDownX - X
    .dY = mDownY - Y
    sX = (.dX * .dX)
    sY = (.dY * .dY)
    .Distance = Sqr(sX + sY)
    End With

    With Line1
    .X1 = mDownX
    .Y1 = mDownY
    .X2 = X
    .Y2 = Y
    End With

    End Sub

    Private Sub Initialise()
    Set mDx7 = New DirectX7
    Set mDrm = mDx7.Direct3DRMCreate
    Set mDrw = mDx7.DirectDrawCreate("")
    End Sub
    Private Sub CreateSceneGraph()
    Dim DxL1 As Direct3DRMLight
    Dim DxL2 As Direct3DRMLight
    With mDrm
    Set mFrS = .CreateFrame(Nothing)
    Set mFrC = .CreateFrame(mFrS)
    Set mFrO = .CreateFrame(mFrS)
    Set mFrL = .CreateFrame(mFrS)
    Set DxL1 = .CreateLightRGB(D3DRMLIGHT_DIRECTIONAL, 0.8, 0.8, 0.8)
    Set DxL2 = .CreateLightRGB(D3DRMLIGHT_AMBIENT, 0.5, 0.5, 0.5)
    End With
    mFrL.AddLight DxL1
    mFrL.AddLight DxL2
    mFrC.SetPosition Nothing, 0, 0, -3
    End Sub
    Private Sub CreateDisplay()
    Dim DxClipper As DirectDrawClipper
    Set mVpt = Nothing
    Set mDev = Nothing
    Set DxClipper = mDrw.CreateClipper(0)

    ScaleMode = vbPixels
    DxClipper.SetHWnd hWnd
    Set mDev = mDrm.CreateDeviceFromClipper(DxClipper, "", ScaleWidth, ScaleHeight)
    Set mVpt = mDrm.CreateViewport(mDev, mFrC, 0, 0, ScaleWidth, ScaleHeight)
    End Sub
    Private Sub Form_Load()

    Initialise
    CreateSceneGraph
    CreateDisplay
    LoadMesh
    RefreshLoop
    Cleanup
    End
    End Sub
    Private Sub HitTest(X As Single, Y As Single)
    Dim PickArray As Direct3DRMPickArray
    Dim Desc As D3DRMPICKDESC
    Set PickArray = mVpt.Pick(CLng(X), CLng(Y))
    If PickArray.GetSize() = 0 Then
    Caption = "Drag the ball"
    Else
    Caption = "Drag !"
    End If

    End Sub
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mMouseDown = True
    mDownX = X
    mDownY = Y
    HitTest X, Y
    End Sub
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not mMouseDown = True Then Exit Sub
    Rotate X, Y
    Line1.Visible = True
    End Sub
    Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mMouseDown = False
    Line1.Visible = False
    End Sub
    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mStopFlag = True
    End Sub
    Private Sub Form_Resize()
    CreateDisplay
    End Sub
    Private Sub mnuExit_Click()
    mStopFlag = True
    End Sub
    Public Sub Cleanup()
    Set mVpt = Nothing
    Set mDev = Nothing
    Set mFrL = Nothing
    Set mFrO = Nothing
    Set mFrC = Nothing
    Set mFrS = Nothing
    Set mDrm = Nothing
    Set mDx7 = Nothing
    End Sub
    Private Sub SetQuality(Quality As CONST_D3DRMRENDERQUALITY)
    mDev.SetQuality Quality
    mnuFlat.Checked = False
    mnuWireframe.Checked = False
    Select Case Quality
    Case D3DRMRENDER_FLAT
    mnuFlat.Checked = True
    Case D3DRMRENDER_WIREFRAME
    mnuWireframe.Checked = True
    End Select

    End Sub
    Private Sub mnuFlat_Click()
    SetQuality D3DRMRENDER_FLAT
    End Sub
    Private Sub mnuWireframe_Click()
    SetQuality D3DRMRENDER_WIREFRAME
    End Sub
    ممنون میشم اگه بقیه سوالات رو هم جواب بدید. فوریه
    Last edited by shadmehrshadow1; 28-06-2010 at 11:23.

  3. #23
    اگه نباشه جاش خالی می مونه L u K e !'s Avatar
    تاريخ عضويت
    Mar 2009
    محل سكونت
    Qazvin
    پست ها
    441

    پيش فرض

    عزیز سوالاتو دونه دونه بپرس
    ما که کانورتور نیستیم !
    PaintPicture کارش چیه ؟

  4. #24
    پروفشنال mahdi7s's Avatar
    تاريخ عضويت
    Sep 2007
    محل سكونت
    هر جایی می تونه باشه
    پست ها
    757

    پيش فرض

    می تونید از VBto converter استفاده کنید:
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  5. #25
    پروفشنال shadmehrshadow1's Avatar
    تاريخ عضويت
    Oct 2009
    پست ها
    842

    پيش فرض

    خیلی ممنون.
    اما من اینترنتم کم سرعته نمیشد لینک مستقیم بذاریدو یا جواب رو خودتون بگید.
    ولی بهتر بود که جواب سوالات پست 21 و 20 رو هم می دادید.

    ---------- Post added at 06:44 PM ---------- Previous post was at 06:41 PM ----------

    عزیز سوالاتو دونه دونه بپرس
    ما که کانورتور نیستیم !
    PaintPicture کارش چیه ؟
    یه چیزی مثل خاصیت Picture یک PictureBox در ویبی 6 هست ولی میشه تعیین کرد که چه مقدار از تصویر درون پیکچرباکس قرار بگیره ویا در چه اندازه ای باشه و ...

  6. #26
    پروفشنال mahdi7s's Avatar
    تاريخ عضويت
    Sep 2007
    محل سكونت
    هر جایی می تونه باشه
    پست ها
    757

    پيش فرض

    خیلی ممنون.
    اما من اینترنتم کم سرعته نمیشد لینک مستقیم بذاریدو یا جواب رو خودتون بگید.
    برنامه حجم زیادی ندارد

    1)
    شما باید از متدهای شی Graphics استفاده کنید
    مثلا نمونه کد شما اینطوری می شود
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    می توانید(و بهتر است) شی گرافیک رو از متغییر e در رویداد Paint بدست آورید


    2)
    کدی که برنامه برای من تبدیل کرده:

    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  7. #27
    ناظر انجمن .NET Framework _H2_'s Avatar
    تاريخ عضويت
    Feb 2007
    محل سكونت
    یک جایی بین Framework و نارمک!
    پست ها
    4,746

    پيش فرض

    سلام
    دو لیست باکس در فرم قرار دهید ، دو لیبل و همچنین دو دکمه.
    مقدار های زیر را برای لیست باکس دوم برای تعیین اولویت قرار قرار دهید :
    5
    3
    4
    2
    1
    5
    5
    1
    3
    2
    5
    3
    5
    4
    و در لیست باکس اول به همین تعداد به مقدار دلخواه داده وارد کنید.
    چون اولویت های مختلف و متعدد دارید، بهترین راه، تلفیق دو روشی است که قبلا گفتم.
    یعنی ...
    اعداد را به تعداد اولویت هایش به یک List اضافه کنید و سپس از عناصر List رندوم کنید.
    (
    یک لیست برای اعداد است و یک برای اولویت ... درست متوجه شدم؟
    هر عدد را به تعداد اولویتش به یک List اضافه کنید.
    منظورم (System.Collections.Generic.List(Of Integer است.
    )
    اگر هم خواستید اعداد تکراری نباشند، کافی است پس از انتخاب، هر عدد را کلا از List حذف کنید.

    و اینکه من یه کد می خوام . یه کره زمین سه بعدی که بتونم تکونش بدم. البته من یه چنین کدی رو برای ویبی 6 دارم ولی توی ویبی 2008 نمی دونم چه جوریه؟
    الف) اگر خیلی ساده باشد میتوان با کلک های گرافیکی دو بعدی انجامش داد.
    (مثلا با داشتن 30 با 40 تصویر دو بعدی کره زمین و سوبیچ بین آنها)

    ب) در دات نت و به کمک XNA پشتیبانی کاملی از گرافیک سه بعدی داریم.
    شما میتوانید کره ای سه بعدی در 3DSMax طراحی یا تهیه کنید و پس ازتبدیل فرمت آن به fbx از آن در پروژه XNA خود استفاده کنید.
    (
    لازم به ذکر است که XNA3.1 روی VS2010 نصب نمیشود و قرار است نسخه XNA4.0 در آینده روی آن نصب شود، پس فعلا برای XNA باید از VS2008 استفاده کرد که به راحتی در کنار VS2010 کار میکند.
    )
    جهت اطلاعات بیشتر به تاپیک زیر مراجعه کنید:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    واینکه نحوه Exe کردن یک پروزه و ساخت ستاپ برای پروزه با خود ویبی 2008 چگونه است . مثل Package & Deployment Wizard
    در ویبی 6

    ساخت exe:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    و ...

    ساخت فایل نصب:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    و ...



    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


    توی اون کد فاصله بین این دو تاریخ نمیشه فهمید که چند هفته و یا چند سال فاصله بینشون هست ؟
    برای هفته که کافی است تعداد روز را بر 7 تقسیم کنید.
    ولی اختلاف سال کمی مسایل مفهومی پیدا میکند که محاسبه از روی تعداد روزها را با محاسبه از روی عدد سال مختلف میکند.
    اما به صورت معمول و عادی میتوانید به همان سادگی تعداد روزها را تقسیم بر 365 بکنید.

    ودر کل فایل XML جستجو کنم و نتیجه جستجو توی لیست ویو بره . مثلا اگه حرف "ع" را نوشتم . از توی فایل XML هرکدام از سطرهایی
    که توش حرف "ع" وجود داره مثلا توش کلمه عید باشه توی لیست ویو نشون بده و جستجو هم بر اساس XDate , XEvent , Xmonth باشه .
    و یه حالت جستجوی دیگه که با جستجو بر اساس XDate باشه و اطلاعات به دست اومده رو توی یک تکست باکس داشته باشم. البته
    بازهم جستجوی انجام شده بین اطلاعات موجود در <Miladi> تا </Miladi> باشه.
    در مورد XML روش ها همان هستند که بیان شدند.
    اول کل XML را یکجا بخوانید و بعد شی بارگذاری شده آن را در کد استفاده کنید.
    یا جستجو معمولی با for ساده و یا با کمک LINQ و...


    موفق باشید.

  8. #28
    پروفشنال mahdi7s's Avatar
    تاريخ عضويت
    Sep 2007
    محل سكونت
    هر جایی می تونه باشه
    پست ها
    757

    پيش فرض

    در ادامه پاسخ دوست عزیز _H2_ می خواستم بگم که برای سه بعدی سازی از WPF هم می توانید استفاده کنید و مثلا می توانید شی سه بعدی خود را با 3D Max یا maya طراحی و سپس بوسیله کانورتر آن را به XAML تبدیل کنید و این XAML رو مستقیما در پنجره یا کنترلر WPF ای خود کپی کنید که اگر این XAML رو به یه کنترلر بدید و این کنترلر رو با کامپایل کردن به یک dll تبدیل کنید می تونید از این کنترلر در برنامه ویندوز فرم ویبی(دات نت) خودتون با استفاده از کنترلر ElementHost استفاده کنید!(دیگر چه می خواهید؟!)
    لینک دانلود کانورتر البته trial هست و بعد از مدتی دیگر قابل استفاده نیست (امروز هم همش کانورتر بود!):
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    در ضمن با کمی گشتن شاید بشود ک---ر---ک هم برایش پیدا کرد.

    موفق باشید

  9. #29
    پروفشنال shadmehrshadow1's Avatar
    تاريخ عضويت
    Oct 2009
    پست ها
    842

    14

    و اما در مورد اولویت بذارید بهتر براتون توضیح بدم و کامل :
    من یه لیست ویو دارم که لیست ویو یک ستون توش داره که آدرس تصویری توش هست و ستون دیگه رو میذاریم برای تعیین اولویت
    من میخوام هربار به طور تصادفی یکی از سطر های لیست ویو انتخاب بشه و ولی این انتخاب بر اساس اولویت که در ستون دوم
    هر سطر وجود داره باشه . و بعد از انتخاب با اولویت ، آدرس اون تصویر که در سطر انتخاب شده است به درون یک پیکچر باکس بره
    و عکس پیکچر باکس بشه . و منظورم از این که تکراری نباشه این نیست که مقدار از درون لیست ویو حذف بشه . بلکه منظورم اینه که
    وقتی مثلا سطر دوم به طور رندوم انتخاب شد در مرحله بعد دوباره سطر دوم انتخاب نشه ولی اگه در مرحله سوم سطر دوم انتخاب شد
    مشکلی نیست . در واقع نمیخوام که یک سطر دوبار به صورت پیاپی انتخاب بشه .
    که مشک اصلی اینجاست که وقتی یک عدد رندوم ایجاد میشه بر اساس اولویت باشه و سطری انتخاب بشه که در ستون دومش اولویت
    بالاتری داره . مثل اولوین 5 . البته اینم بگم که اولویت رو کاربر تععین میکنه و قابل تغییر هست .
    ممنون که این قدر وقت میذارید و پاسخ میدید . حالا که این قدر زحمت می کشید خیلی بهتره که جواب رو به صورت کد برام بذارید .
    درمورد Xml که من اصلا ازش سر در نمیارم خیلی هم کد این ور و اونور گیر آوردم ولی من کدی میخوام که بشه کار هایی رو که درپست
    فکر کنم 20 رو توش انجام بدم. همون طور که گفتم کدی هایی رو که به دست آوردم هر کدومش شامل یک بخش بود و کامل نبود و مشکل
    اصلیشون هم اینجا بود که هر کدوم از یه روش خاص خودشون استفاده می کردند و من هم که نمیتونستم اونا رو باهم یکی کنم.
    ممنون میشم اگه یه کدی قرار بدید که شامل همه ی اون بخش ها باشه .
    و اینکه تو لینک هایی که راجع به سه بعدی گذاشته بودید یه کد سی شارپ بود . می خواستم بدونم که میشه ازش در ویبی 2008
    استفاده کرد .
    البته اگه به سوال پست 21 هست پاسخ بدید خیلی خوب میشه.
    و همچنین سوال پست 22 در مورد Upgrade Visual Basic 6 Code و اینکه معادل vbSrcCopy در ویبی 2008 چیه؟

    ما یک پیکچر باکس رو فرم داریم که Sizemode اون برابر با Stretch هست . و یک پیکچر باکس دیگه داریم که اندازه ی اون 72 در 72 است .
    من میخوام بتونم فقط قسمتی از عکس پیکچر باکس اول به اندازه 72 در 72 رو از گوشه ی بالا سمت راستش بریزم توی پیکچر باکس دوم
    این کار رو چه طوری میشه انجام داد.
    Last edited by shadmehrshadow1; 30-06-2010 at 18:40.

  10. #30
    پروفشنال shadmehrshadow1's Avatar
    تاريخ عضويت
    Oct 2009
    پست ها
    842

    پيش فرض

    چند تا سوال دارم که جواب این ها خیلی برام مهمه و حتما میخوامشون . حالا اگه بقیه سوالارو فعلا جواب ندادید موردی نداره.
    1- اینو خیلی وقته دنبالشم ولی نه پیدا کردم و نه کسی درست جواب داد. اینه که من میخوام یه بالن داشته باشم که بشه توش عکس گذاشت
    که میشه گفت یه کنترل دارم که چنین قابلیتی داره.ولی فقط روی کنترل های روی فرم کار میکنه . در حالی که من میخوام این بالن رو از توی
    آیکون کنار ساعت یا همون NotifyIcon بیرون بیارم. ممنون میشم اگه یه جواب کامل بدید.
    2- میخوام یه چیزی داشته باشم شاید مثل فانکشن . که چهار مقدار توش باشه . و وقتی ما یکی از اون مقدار ها رو مینویسیم بقیه مقدار ها هم نمایش
    داده بشه و به دست بیاد . و همین طور وقتی ترکیبی رو از مثلا مقدار اول و سوم می نویسیم جواب کلی به دست بیاد و یا اینکه وقتی ما یک کلمه مینویسیم تمام داده هایی که اون یک کلمه رو دارن نمایش داده بشه . می خوام جواب ها توی لیست ویو نمایش داده بشه.
    مثلا :
    چهار مقدار : 1 ، فروردین ، عید نوروز ، A
    البته بیش از 200 تا از این چهار تا مقدار ها رو توش میریزیم .
    و وقتی نوشتیم "1 فروردین " جواب کلی و هر چهار مقدار نشون داده بشه.
    و یا وقتی نوشتیم " فروردین " تمام داده هایی که فروردین داره توی لیست ویو لیست بشن.

    3- و اون قضیه اولویت که فکر کنم توی پست قبلی گفتمش .

    4- و اینکه چه جوری میشه یه کاری کرد که انگار برنامه دوباره از نو اجرا شده . مثل اینکه برنامه بسته شده و دوباره اجرا بشه.
    Last edited by shadmehrshadow1; 03-07-2010 at 10:56.

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •