TRANSFORMASI STAR <> DELTA DENGAN VISUAL BASIC

Struktur navigasi program untuk mentransformasikan nilai star <> delta menggunakan visual basic :

Coding visual basic :


Private Sub Command1_Click()
        Label1 = (((X * Y) + (X * Z) + (Y * Z)) / Y)

        Label2 = (((X * Y) + (X * Z) + (Y * Z)) / X)

        Label3 = (((X * Y) + (X * Z) + (Y * Z)) / Z)
     
        Label4 = (Int(Label1) * Int(Label3)) / (Int(Label1) + Int(Label2) + Int(Label3))

        Label5 = (Int(Label2) * Int(Label3)) / (Int(Label1) + Int(Label2) + Int(Label3))

        Label6 = (Int(Label1) * Int(Label2)) / (Int(Label1) + Int(Label2) + Int(Label3))
End Sub

Private Sub Command2_Click()
        Label1 = (Int(X) * Int(Z)) / (Int(X) + Int(Y) + Int(Z))

        Label2 = (Int(Y) * Int(Z)) / (Int(X) + Int(Y) + Int(Z))

        Label3 = (Int(X) * Int(Y)) / (Int(X) + Int(Y) + Int(Z))

        Label4 = ((Int(Label1) * Int(Label2) + Int(Label1) * Int(Label3) + Int(Label2) * Int(Label3)) / Int(Label2))

        Label5 = ((Int(Label1) * Int(Label2) + Int(Label1) * Int(Label3) + Int(Label2) * Int(Label3)) / Int(Label1))

        Label6 = ((Int(Label1) * Int(Label2) + Int(Label1) * Int(Label3) + Int(Label2) * Int(Label3)) / Int(Label3))
End Sub

Private Sub Command3_Click()
        X = ""

        Y = ""

        Z = ""

        Label1 = ""

        Label2 = ""

        Label3 = ""

        Label4 = ""

        Label5 = ""

        Label6 = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Contoh aplikasi :