EXCEL VBA, USE OF COMPID, FSO AND INPUTBOX

Option Explicit
-------------------------------------------
Sub findfileinfolder()

Call CountFiles

End Sub
---------------------------------------------
Private Function CountFiles()
Dim strDirectory As String, strDestFolder As String, strExt As String

strDirectory = InputBox("pl inter path for serch folder")

'strDestFolder = InputBox("pl inter path for output folder")

    Dim myfilesystemobject As Object
    Dim myfiles As Object
    Dim myFile As Object
    Dim Compld As Range
    Dim mystore As Variant
   
    Set myfilesystemobject = CreateObject("Scripting.FileSystemObject")
    Set myfiles = myfilesystemobject.GetFolder(strDirectory).Files
   
    For Each myFile In myfiles
           
       Range("B1").ClearContents
       Range("B1").Value = myFile.Name
       mystore = myFile.Name
       
        Set Compld = Range("A:A").Find(what:=mystore, LookIn:=xlValues, lookat:=xlWhole)
                   
            If Not Compld Is Nothing Then
            'Stop
                 With myFile
                    .Copy strDestFolder & "\" & myFile.Name
                 End With
            Else
            End If
         
    Next myFile
     
    Set myfiles = Nothing
    Set myfilesystemobject = Nothing
End Function

Metal transfer modes in GMAW

Metal transfer modes in GMAW

Globular 

Globular  मेटल ट्रांसफर के साथ GMAW को तीन प्रमुख GMAW विविधताओं में से सबसे कम वांछनीय माना जाता है, क्योंकि इसकी उच्च गर्मी, खराब वेल्ड सतह और स्पैटर का उत्पादन करने की प्रवृत्ति है। विधि को मूल रूप से GMAW का उपयोग करके स्टील को वेल्ड करने के लिए एक लागत-कुशल तरीके के रूप में विकसित किया गया था क्योंकि यह भिन्नता कार्बन डाइऑक्साइड का उपयोग करती है, जो आर्गन की तुलना में एक कम महंगा परिरक्षण गैस है। जिससे 110 मिमी / एस (250 / मिनट) तक की वेल्डिंग गति की अनुमति दी जा सकती थी। जैसा कि वेल्ड किया जाता है, इलेक्ट्रोड से पिघली हुई धातु की एक गेंद इलेक्ट्रोड के अंत में निर्मित होती है, अक्सर इलेक्ट्रोड की तुलना में एक बड़े व्यास के साथ अनियमित आकार में होती है। जब छोटी बूंद या तो गुरुत्वाकर्षण या लघु-चक्कर द्वारा समाप्त हो जाती है, तो यह असमान सतह को छोड़ कर अक्सर स्पैटर का कारण बन जाती है। बड़ी पिघली हुई छोटी बूंद के परिणामस्वरूप, प्रक्रिया आमतौर पर फ्लैट और क्षैतिज वेल्डिंग पदों तक सीमित होती है, इसके लिए मोटे वर्कपीस की आवश्यकता होती है, और एक बड़े वेल्ड पूल में परिणाम होता है।

Ultrasonic Testing of Welds on Plates

Ultrasonic Testing of Welds on Plates

For testing a weld satisfactorily, the following information should be available
(i) Material, (ii). Details of weld preparation, (iii). Welding process and probable defects expected, (iv) Applica­tion of the part and (v)Acceptance criteria.

Testing of a single 'V'butt joint welded only from one side using transverse waves.
The selection of probe frequency depends on the flaw to be detected and attenuation in the effects of the near zone and beam spread the minimum size of the material. Which varies with frequency should be considered. For mild steel welds usually, a frequency in the range of 1 MHz to 4 MHz will be satisfactory.

Ultrasonic Testing for laminations in plates

Ultrasonic Testing for laminations in plates 

Ultrasonic Testing for laminations in plates - A normal probe is brought into contact with the face of the plate through a couplant. The height of the back wall echo is kept at a fixed amplitude (50% or above F.S.H.)

Any drop  1n  back wall echo is considered to be caused by defective area.   Usually, the plate is scanned along grid lines only and wherever the back wall echo falls beyond a  set level or when a defect indication is present,  the adjacent area is also scanned to determine the area of defect.   Some­ times angle beam technique is also used to detect the presence of defects that are not oriented parallel to the surface.