Untitled

Imports System.Math

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim kisauzun As Double


        Module1.kuvvet = CInt(TextBox1.Text)
        Module1.u = CInt(TextBox2.Text)
        Module1.h = CInt(TextBox3.Text)
        Module1.g = CInt(TextBox4.Text)
        Module1.boy = CInt(TextBox5.Text)

        If RadioButton1.Checked = True Then
            Module1.e = 207000
            Module1.sigma = 180
        End If
        If RadioButton2.Checked = True Then
            Module1.e = 105000
            Module1.sigma = 275
        End If
        If RadioButton3.Checked = True Then
            Module1.e = 69000
            Module1.sigma = 35
        End If
        If RadioButton4.Checked = True Then
            Module1.e = 97000
            Module1.sigma = 75
        End If
        If RadioButton5.Checked = True Then
            Module1.e = 97000
            Module1.sigma = 69
        End If
        If RadioButton6.Checked = True Then
            Module1.e = 45000
            Module1.sigma = 175
        End If


        If ComboBox2.Text = "U Profil" Then
            Call ataletU(Module1.h, Module1.u, Module1.g)
        End If
        If ComboBox2.Text = "I Profil" Then
            Call ataletI(1, 2, 3)
        End If
        If ComboBox2.Text = "L Profil" Then
            Call ataletL(Module1.h, Module1.u, Module1.g)
        End If
        If ComboBox2.Text = "T Profil" Then
            Call ataletT(1, 2, 3, 4)
        End If


        Module1.rj = Sqrt(atalet / alan)

        kisauzun = Sqrt((2 * Module1.k * 3.14 ^ 2 * Module1.e) / (Module1.sigma))

        If boy / rj < kisauzun Then
            TextBox7.Text = "KISA ÇUBUK"
            Module1.fkr = Module1.sigma * Module1.alan * (1 - (Module1.sigma * kisauzun ^ 2 / 4 * Module1.k * PI ^ 2 * Module1.e))
        End If
        If boy / rj > kisauzun Then
            TextBox7.Text = "UZUN ÇUBUK"
            Module1.fkr = Module1.k * PI ^ 2 * Module1.e * Module1.atalet / Module1.boy ^ 2
        End If

        Module1.ek = Module1.fkr / Module1.kuvvet
        TextBox6.Text = Module1.ek

        If kuvvet > fkr Then
            TextBox8.Text = "FLAMBAJA UĞRAR"
        End If
        If kuvvet < fkr Then
            TextBox8.Text = "FLAMBAJA UĞRAMAZ"
        End If
    End Sub

    Function ataletI(ByVal h, ByVal u, ByVal g)
        'Module1.atalet = (u * g ^ 3 - u * g ^ 3) / 12 + (g * u) * d1 ^ 2 + (g * u) * d2 ^ 2 + (g * h)
        Module1.alan = (2 * g * u) + (g * h)
    End Function
    Function ataletU(ByVal h As Integer, ByVal u As Integer, ByVal g As Integer)
        Dim a As Double
        a = (((h / 2) * ((h - g) * g)) + ((h / 2) * ((h - g) * g)) + ((g / 2) * (u * g))) / (2 * ((h - g) * g)) + (u * g)
        Module1.atalet = (2 * ((g * ((h - g) ^ 2) / 12) + ((h - g) * g) * (((h / 2) - a) ^ 2))) + ((g * (u ^ 2)) / 12) + ((u * g) * (((g / 2) - a) ^ 2))
        Module1.alan = (2 * g * (h - g)) + (g * u)
    End Function
    Function ataletT(ByVal b, ByVal u, ByVal g, ByVal h)
        'Module1.atalet = (b * h ^ 3 - b * h ^ 3) / 12 + A1 * d1 ^ 2
        Module1.alan = (g * u) + (g * h)
    End Function
    Function ataletL(ByVal h As Integer, ByVal u As Integer, ByVal g As Integer)
        Dim a As Double
        a = ((h / 2) * ((h - g) * g) + (g / 2) * (u * g)) / (((h - g) * g) + (u * g))
        Module1.atalet = (((g * ((h - g) ^ 2)) / 12) + ((h - g) * g) * (((h / 2) - a) ^ 2)) + ((u * g ^ 2) / 12) + ((u * g) * (((g / 2) - a) ^ 2))
        Module1.alan = (g * (h - g)) + (g * u)
    End Function
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        PictureBox1.Visible = True
        If ComboBox1.Text = "İki ucu mafsal" Then
            PictureBox1.Image = Image.FromFile("C:\Flambaj\1.jpg")
            Module1.k = 1
        End If
        If ComboBox1.Text = "Bir ucu ankastre bir ucu serbest" Then
            PictureBox1.Image = Image.FromFile("C:\Flambaj\4.jpg")
            Module1.k = 0.25
        End If
        If ComboBox1.Text = "Bir ucu ankastre bir ucu mafsal" Then
            PictureBox1.Image = Image.FromFile("C:\Flambaj\3.jpg")
            Module1.k = 1.5
        End If
        If ComboBox1.Text = "İki ucu ankastre" Then
            PictureBox1.Image = Image.FromFile("C:\Flambaj\2.jpg")
            Module1.k = 2
        End If
        If ComboBox1.Text = "" Then
            PictureBox1.Visible = False
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        PictureBox2.Visible = True
        If ComboBox2.Text = "I Profil" Then
            PictureBox2.Image = Image.FromFile("C:\Flambaj\5.jpg")
            Module1.k = 1
        End If
        If ComboBox2.Text = "T Profil" Then
            PictureBox2.Image = Image.FromFile("C:\Flambaj\6.jpg")
            Module1.k = 0.25
        End If
        If ComboBox2.Text = "U Profil" Then
            PictureBox2.Image = Image.FromFile("C:\Flambaj\7.jpg")
            Module1.k = 1.5
        End If
        If ComboBox2.Text = "L Profil" Then
            PictureBox2.Image = Image.FromFile("C:\Flambaj\8.jpg")
            Module1.k = 2
        End If
        If ComboBox2.Text = "" Then
            PictureBox2.Visible = False
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Visible = False
        PictureBox2.Visible = False
        ComboBox1.Items.Add("İki ucu mafsal")
        ComboBox1.Items.Add("Bir ucu ankastre bir ucu serbest")
        ComboBox1.Items.Add("Bir ucu ankastre bir ucu mafsal")
        ComboBox1.Items.Add("İki ucu ankastre")


        ComboBox2.Items.Add("I Profil")
        ComboBox2.Items.Add("T Profil")
        ComboBox2.Items.Add("U Profil")
        ComboBox2.Items.Add("L Profil")

    End Sub
End Class