IMPACT TEST SAMPLE INSPECTION BY USE OF PROFILE PROJECTOR MACHINE

IMPACT TEST SAMPLE INSPECTION BY USE OF PROFILE PROJECTOR MACHINE

read more

IMPACT TESTING OF MATERIAL

IMPACT TESTING OF MATERIAL

History of impact testing- in 1896 russell introduced this idea ( residual fracture energy with the use of pendulum )

CALCULATE WELDING CONSUMABLE FOR A ITEM

HOW TO CALCULATE WELDING CONSUMABLE FOR Any  ITEM

FORMULA FOR CALCULATION OF WELDING CONSUMABLE -

W = A x e x L X 1/E

A = cross-sectional area of weld metal deposited
e = density (7.8gr/cm3)
L = length of welding (cm)
E = deposition efficiency (n)           for SMAW- 0.55 to 0.80
                                                              MIG- 0.95
                                                           FCAW- 0.90
                                                             SAW-  1.0

FOR EXAMPLE A WELD OF L= 100 CM AND SINGLE V GROOVE AND ROOT FACE F= 3MM, ROOT GAP R= 2MM, BEVEL ANGLE 60 DEGRE, PLATE THICKNESS T=10MM
PROCESS = SMAW

WELDING POSITION EN ISO

WELDING POSITION AS PER EN ISO- 6947:2011

KEY:

PA          flat position

PB          horizontal vertical position horizontal position

PC          horizontal position

PD          horizontal overhead position

PE          overhead position

PF          vertical up position

PG         vertical down position

PH         pipe position for welding upwards    
PJ           pipe position for welding downwards

                                                                                                                                 

 

                                                                                                                     

                                                                                                                         

                                                             

MY HERO 2020

MY HERO

MADE ME ENGINEER

MADE ME MANAGER

TO

HANDLE

FROM 4L TO 400CR PROJECT

EARN

FROM 750 TO 1.25L/M

Grouping system for steels

Group system for steel  

Group 1:

              Steels with a specified minimum yield strength ReH ≤ 461 N/mm²  a and with analysis in %: C ≤   0.24, Si ≤ 0.60, Mn ≤1.70, Mo ≤ 0.70b, S ≤ 0.045, Cu ≤ 0.40b, Ni ≤ 0.5b, Cr ≤ 0.3 (0.4 for castings) b, Nb ≤ 0.05, V ≤ 0.12b, Ti ≤ 0.05.

PROCEDURE FOR STORAGE OF WELDING CONSUMABLE

COATED ELECTRODE

Store electrodes always in original reclosable cans and re-close the can after taking out the electrodes. Ultra Dry III vacuum packed electrodes can be used for approximately 6.1 hours after opening the packaging without re-drying; the atmospheric conditions must be ≤36°C and ≤91%RH.

When electrodes out of the original packaging are exposed for more than 8 hours to an atmosphere with a relative humidity of ≥61%, re-drying is recommended.

For electrodes with a yield ≥461MPa, the recommendation is a maximum of 2.5 times re-drying.

Developer Tab in Excel

ACTIVATE DEVELOPER TAB IN EXCEL

if developer tab in your excel is not activated then here is the steps to activate it

CE MARKED ELECTRODES

CE MARKING AND APPROVAL FOR WELDING CONSUMABLES

CE marking gives you the warranty that the goods are delivered within traceability and quality system that is witnessed by a notified body and confirms to the latest European standards (EN 13479). The CPD / CPR number enables the notified bodies to trace the final source of the product to make sure that the whole supply chain is controlled and full fills the latest EN rules.

ISO 3834 MANUAL PREPARATION GUIDE LINE

ISO:3834 MANUAL PREPARATION GUIDE LINE

LOGO	YOUR FIRM’S NAME	M
	WELDING MANAGEMENT     SYSTEM MANUAL	Issue No. 1 ISO: 3834-2005

    YOUR FIRM’S NAME

ISO 3834 -Welding Manual For Quality Requirements For Fusion Welding

of Metallic Materials

सहस्त्रवार सैंथवार मल्ल छत्रिय समाज

पारिवारिक  मिलन  समारोह   सहस्त्रवार  (सैंथवार - मल्ल ) छत्रिय  समाज

ईएन नं 15085 2 के अनुसार वेल्डिंग

Procedure for certification of a manufacturer for welding railway vehicle and component according to 15085-2

ISO 15085-2  ऑडिट,

ईएन नं - 15085-2 के अनुसार वेल्डिंग, रेलवे वाहनों और उसके पार्ट्स  के लिए एक निर्माता के प्रमाणीकरण की प्रक्रिया है। 

परिचय

EN  नं -15085-2 "रेलवे एप्लिकेशन - रेलवे वाहनों और उसके पुर्जो की वेल्डिंग - भाग 2: वेल्डिंग निर्माता की गुणवत्ता की आवश्यकताएं और प्रमाणन" वेल्डिंग निर्माताओं का प्रमाणन प्रौद्योगिकी के आम तौर पर स्वीकृत नियमों पर आधारित है। EN  15085-1 से EN  15085-5 मानकों की श्रृंखला का उपयोग होता है. कई प्रकार के वेल्डिंग सुविधाओं वाले एक वेल्डिंग निर्माता को प्रत्येक सुविधा के लिए एक अलग प्रमाण पत्र की आवश्यकता होती है जब महत्वपूर्ण आवश्यक शर्तें जिस पर यह दी गई थी, अब मौजूद नहीं है तो प्रमाण पत्र अमान्य हो जाता है. 

NEW YEAR 2020 QA-QC BYUNS

EVENTS

26-01-2020

QA-QC BYUNS

😄

May this year bring new happiness, new goals, new achievements and a lot of new inspirations in your life. Wishing you a year fully loaded with happiness.

😄

2021

you are most welcome to my page, here you will find every day something new as I always keep on updating this, I need your support in the form of your valuable comments in the comment box...

vba videos, excel-vba based videos

VBA videos

UNDER RECORDING, COMING SOON

EXCEL TRICK

want to lock logo in excel see the video here- VIDEO

Welding and NDT

WELDING AND NDT

WHY WE NEED NDT IN WELDING INSPECTION?
To find out welding defects in welding without destroying it is an NDT technique.

WELDING DEFECTS AND DISCONTINUITIES-
During the welding operation, many unavoidable volume changes occur that may cause
distortion, residual stresses or even cracking in the weldment. These changes are due largely to thermal expansion or contraction of the metal. If the rigidity of the structure Is high because of the stiffness of the members themselves, or support of previous welding or the use of fixtures, the amount of warping will be small. The forces set up by the weld contraction, however, will reach high levels by the time room temperature is reached. Cracking may result while the metal Is still hot or during cooling. Thus, the more highly con-strained the joint to be welded, the more plastic must be the weld metal that is used to complete the joint.

PauseAmacro

Pause A macro

TIME YOU CAN CHANGE TO YOUR REQUIREMENTS

Sub PauseAmacroFor3sec()
Application.Wait (Now + TimeValue("0:00:05"))
 Application.SendKeys "{ENTER}" 'you can use any in place of enter
End Sub

ADVANCE VBA

SOME USEFUL VBA

learn how to use IsFileOpen or similar codes

   ---------------------------------------------------------

Sub MARK_NO_COPY()
'correction required program not ok
Dim ret
ret = IsWorkBookOpen("D:\6571 PETRO\hot case\inspection call 9-09-2019.xlsm")
If ret = True Then
    
   Dim answer As VbMsgBoxResult
answer = MsgBox("insp call file is not opened", vbYesNo + vbQuestion + vbDefaultButton2, "may I open ?")
If answer = vbYes Then
    'Workbooks.Open ("D:\6571 PETRO\hot case\inspection call 9-09-2019.xlsm")
    Windows("inspection call 9-09-2019.xlsm").Activate
    Range("B9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Copy Petrofac0001.xlsm").Activate
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("D4").Select
'Workbooks("inspection call 9-07-2019 (Repaired).xlsm").Close (True)
Else
    MsgBox " file is closed"
Exit Sub
End If
Else
    MsgBox " file NOT found"
End If
End Sub

USEFUL VBA

SOME RANDOM VBA CODES CAN BE USED AS NEEDED

NOTE: Use, only if you have a good VBA coding experience.

 -------------------------------------------------------
Sub BOM_ASFAR() 'THIS MACRO COPY'S "PROFILE" TO FIND FILE WORKBOOK
     

        'Application.ScreenUpdating = False

     

        Dim myFile As String, myPath As String, 
        myExtension As String

        Dim wb As Workbook

        Dim i As Long, k As Long

        Dim iLastRow As Long, kLastRow As Long

        Dim myValue As Variant

        Const StartRow As Byte = 10

        Dim mystore As Double

 

        myPath = "E:\Redirect\un.singh\Desktop\BOM\"

        myExtension = "*.xls*"

        myFile = Dir(myPath & myExtension)

    Dim xRet As Boolean

    xRet = IsWorkBookOpen(myFile)

    If xRet = False Then

    Do While myFile <> ""

 

    On Error Resume Next

   

    Set wb = Workbooks.Open(Filename:=myPath & myFile)

    wb.Worksheets("ASSEMBLY_LIST").Select

'Start:

        iLastRow = Range("A" & StartRow).End(xlDown).Row

        kLastRow = Range("K" & StartRow).End(xlDown).Row

        For k = StartRow To kLastRow

        For i = StartRow To iLastRow

     

        myValue = Range("C" & i).Value

                If myValue = Range("K" & k).Value Then

                mystore = mystore + Range("H" & i).Value

                Else

                End If

        Next i

        Range("P" & k).Value = mystore

           

        mystore = 0

        Next k

                   

         Call Macro14

             

        Application.CutCopyMode = False

       ' If myFile <> "DP16004-CS-PBOM-1137A_R0_20190603 (VBA Platform).xlsm" Then    'NEW

        wb.Close savechanges:=True

       ' Else      'NEW

       ' End If    'NEW

             

    myFile = Dir()

    Loop

 

    Call Macro13

Else

    'Worksheets("ASSEMBLY_LIST").Select

    'GoTo Start

    MsgBox "pl close file BOM"

End If

 

   'Application.ScreenUpdating = True

End Sub

Sub Macro13() ' SHALL BE USED WITH MACRO "myFileopen1" SEE ABOVE

' Macro13 Macro

'1)REMOVE DUPLICATE PROFILES

    Sheets("Sheet2").Select

    Range("A3").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Copy

    ActiveWindow.SmallScroll Down:=-78

    Range("H3").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("H3").Select

    ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes

'2)CONSOLIDATE WT OF "F" AND WRITE IN COLOUMN "I"

    Dim myFile As String

    Dim i As Long, h As Long

    Dim iLastRow As Long, hLastRow As Long

    Dim myValue As Variant

    Const StartRow As Byte = 3

    Dim mystore As Double

    iLastRow = Range("A" & StartRow).End(xlDown).Row

    hLastRow = Range("H" & StartRow).End(xlDown).Row

 

For h = StartRow To hLastRow

        For i = StartRow To iLastRow

                myValue = Range("A" & i).Value

                If myValue = Range("H" & h).Value Then

                    mystore = mystore + Range("A" & i).Offset(, 5).Value

                Else

                End If

        Next i

     

        Range("I" & h).Value = mystore

        mystore = 0

Next h

End Sub

Sub Macro14() ' SHALL BE USED WITH MACRO "myFileopen1" SEE ABOVE

' Macro13 Macro

    Range("K8").Select

    Selection.End(xlDown).Select

    Range(Selection, Selection.End(xlDown)).Select

    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy

 

    Windows("FINDFILE.xlsm").Activate

   

    Range("A1").Select

    Selection.End(xlDown).Select

    Selection.Offset(1, 0).Select

 

    ActiveSheet.Paste

 

End Sub

ADD PASSWORD

ADD PASSWORD TO EXCEL WORKBOOK

The below code will ask you to enter the password, as you try to open it. after putting the password it will show a message welcome. you can put your password in place of 123
Simply copy below code and paste in excel module.

Private Sub Workbook_Open()

a = InputBox("Enter the Password")

If a = 123 Then
 MsgBox " Welcome"
Else
 MsgBox "Incorrect Password"
 ThisWorkbook.Save
 ThisWorkbook.Close
End If

End Sub

Password Breaker

Remove password from your excel workbook sheet, not a workbook. please remember.

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

Exit Sub

'MsgBox “One usable password is” & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Else: End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

 ----------------------------------------------------------------------------------------

TOP VBA

EXCEL-VBA FOR QC ENGINEERS

GET FILE NAME IN EXCEL BY VBA

If you have several files in a folder and you want
 to write each file name in excel worksheet 

then below is the code.  

 --------------------------------------------

Private Sub Workbook_Open()

 Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

Dim FLD As Office.FileDialog
Set FLD = Application.FileDialog(msoFileDialogFolderPicker)

FLD.Show

Dim P As String
P = FLD.SelectedItems(1)

Dim FSO As Scripting.FileSystemObject
Set FSO = New FileSystemObject

Dim FOL As Scripting.Folder
Set FOL = FSO.GetFolder(P)

Dim F As Scripting.File
Dim r As Long

r = 2

For Each F In FOL.Files

    Cells(r, 1).Value = F.Name
    r = r + 1
 
Next F

End Sub

SAW WELDING

WHAT IS SAW WELDING, TYPES, USES, AND ITS ADVANTAGE AND DISADVANTAGE

In this process, an arc is maintained between a continuously fed bare wire electrode and the workpiece underneath a mass of fusible granular flux. The flux is dispensed over the joint area and the wire is fed into it.  The arc which forms melts a proportion of the flux, which protects the weld pool from atmospheric contamination, shields the remaining unmelted flux acts as a shield for the arc itself.  The power source may provide either alternating or direct current.   Highest deposition. rates are obtained with electrode negative, but control of bead shape and penetration is better with electrode positive.