محمد ع

السلام عليكم لكي تعم الفائدة على الجميع الحمد لله لقد تمكنت أخيرا و بعد جهد جهيد من فتح الملف بواسطة ملف مصنوع ببرنامج QBASIC ومن خلال تنفيذه يطلب التعديل على ملف DAT وبالتالي تمكنت من قراءة البيانات الموجودة وذلك باستخدام تطبيق QBASIC

السلام عليكم ارجو المساعدة منكم واتمنى ان يستطيع احدكم فتح ملف الداتا ( وهي عبارة عن بيانات لمستويات مادة في خزان وما تقابله من حجم ) اي CALIBRATION خزان

اخوتي الافاضل ارجو منكم المساعدة في شرح هذا الكود لأنه مهم جدا بالنسبة لي علما ان الملف ذو الامتداد .DAT موجود ولم استطيع فتحه فالرجاء المساعدة في فتحه لقراءته ( وحاولت فتحه بكل الطرق ولم استطيع وقد وضعته بالمرفقات ) ارجو منكم المساعدة وهذا هو كود التعريف بالدالة Function HSCOwt(level!) As Single Dim ftb As wcrude_STRUCT, stb As wcrude_STRUCT Dim fp%, exsist As Boolean Dim lngPose As Long exsist = False If Dir$("C:\macro\wcrude\T" + Format$(100, "000") + ".DAT") = "" Then Exit Function End If ()fp% = FreeFile Open "C:\macro\wcrude\T" + Format$(100, "000") + ".DAT" For Random As fp% Len = 12 For lngPose = 1 To LOF(fp%) \ 12 Get #fp%, lngPose, ftb If ftb.FACT = level! Then FACT! = ftb.FACT Diff! = ftb.Diff res! = Diff! HSCOwt = Round(res!, 2) exsist = True Exit For Else If lngPose >= LOF(fp%) \ 12 Then Exit For Get #fp%, lngPose + 1, stb If level! > ftb.FACT And level! < stb.FACT And _ stb.FACT <> level! Then FACT! = ftb.FACT Diff! = ftb.Diff Fact1! = stb.FACT diff1! = stb.Diff res! = Diff! + (level! - FACT!) * (diff1! - Diff!) / (Fact1! - FACT!) HSCOwt = Round(res!, 2) exsist = True Exit For End If End If Next Close #fp% If Not exsist Then Beep HSCOwt = 0 End If End Function WinRAR archive جديد.rar

أخي العزيز حمادة عمر جزاك الله كل خير ========== تقبل تحياتي

بارك الله بجهودك أخي الفاضل

السلام عليكم مبروك للاساتذة الكبار مواقعهم الجديدة وهذا يزيد المنتدى غنى و فائدة و نبارك للأخوة عبد الله المجرب بترقيته الي مراقب دغيدي لترقيته الى مدير أحمد فضيله لترقيته الى مدير

أخي الفاضل هل من الممكن شرح خطوات الوثوق بمشروع Visual Basic لانني لم اتمكن من ذلك ولك جزيل الشكر

مبروك لنا جميعا ترقية هذا المنتدى الرائد و بارك الله بجميع الاخوة المشرفين على هذا المنتدى