Feedback

VB - Screensize berechnen

Veröffentlicht von am 02.03.2012
(1 Bewertungen)
Berechnen der Screensize in cm durch Angabe der Bildschirmdiagonalen und des Seitenverhältnisses.
GFU-Schulungen  [Anzeige]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

Aufruf:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim xw As Double
        Dim yh As Double

        Call GetScreenSize("21 4/3", xw, yh)

        MessageBox.Show(xw & "    " & yh)

End Sub


Public Sub GetScreenSize(ByVal monitor As String, ByRef xwidth As Double, ByRef yheight As Double)

        Dim aspect_ratioX As Double
        Dim aspect_ratioY As Double
        Dim oblique_line As Double
        Dim x As Double

        Select Case monitor

            Case "21 4/3"
                aspect_ratioX = 4
                aspect_ratioY = 3
                oblique_line = 21
        End Select

        x = System.Math.Sqrt((oblique_line ^ 2) / (aspect_ratioX ^ 2 + aspect_ratioY ^ 2))

        xwidth = aspect_ratioX * x * 2.54
        yheight = aspect_ratioY * x * 2.54

    End Sub
Abgelegt unter Bildschirm, Groesse, Screen, Size.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!