الرجاء المساعدة في شرح هذا الكود التعريفي لدالة

[محمد ع]

اخوتي الافاضل ارجو منكم المساعدة في شرح هذا الكود لأنه مهم جدا بالنسبة لي  علما ان الملف  ذو الامتداد .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

تم تعديل مارس 9, 2017 بواسطه محمد ع
اضافة مرفق

[محمد ع]

السلام عليكم

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

[محمد ع]

السلام عليكم

لكي تعم الفائدة على الجميع

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

 

تم تعديل مارس 10, 2017 بواسطه محمد ع