كيف أربط قاعدة البيانات مع الشكل الثلاثي الابعاد؟

10 أشخاص حمّلوا الملف

طمنونا .. هل وجدتم حلا؟

للرفع .. رفع الله قدركم في الدنيا و الاخرة

للتسهيل عليكم .. التغيير يكون على ما اظن هنا:

من frmWaves

  'Save 20 positions of grid(net) as images
    For num = 1 To 20
        Dim count As Integer
        count = (20 - num) \ 2
        lblCounter.Caption = vbCrLf & "Loading ... "
        txtCounter.Text = count
       Set ThePicture = New objPicture
        Set TheGrid = New ObjGrid3D
  TheGrid.SetBounds xmin, dx, NumX, Zmin, dz, NumZ
        ThePicture.objects.Add TheGrid
        
        offset = num * PI_10
        x = xmin
        For i = 1 To NumX
            z = Zmin
            For j = 1 To NumZ
                D = Sqr(x * x + z * z)
                
                'This is a Function that can be modified , You can test various
                'formulas and even ,( I think it is possible ) to get data from Db and
                'set the function to show graphical ( 3D ) report.
                'If you perform testing , take care about OVERFLOW error
 y = Amp * (3 * D - offset)
                
                TheGrid.SetValue x, y, z
                z = z + dz
                
            Next j
                        
            x = x + dx
        Next i
   
        ' Display the data.
        DrawData Pict
        
        ' Save the bitmap for later.
        SurfaceImage(num).Picture = Pict.Image
        DoEvents

طرحت هذا الموضوع أمس لكن للاسف ذهب مع الخلل الذي أصاب المنتدى و الله المستعان

نرجوان يكون هناك اسلوب حسن لطلب المساعده

السلام عليكم ورحمة الله وبركاته

اسأل الله ان لا يكون جميع الاعضاء قد قرأوا (فقط) الجملة التي قرأتها أخي الكريم.. وعلى كل فلا أجد فيها أي نوع من الاساءة .. لاني وضعت الموضوع ثم جئت في اليوم التالي لأجده غير موجود وتفهمت أن مجموعة من المواضيع حُذفت ذلك اليوم من المنتدى لخلل أصابه.. وكنت حينها أحتاج الى المساعدة وبأقرب وقت (ولازلت)

فإذا أحس أي شخص ان تلك الجملة قد ضايقته ... فأعتذر وأرجو منكم السماح

و السلام عليكم