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]

Angular mit ASP.NET Core für .NET-Entwickler

.NET ist Ihnen vertraut, als Entwickler verfügen Sie über einschlägige Kenntnisse. In diesem Kurs lernen Sie nun, Angular in .NET-Umgebungen einzusetzen. Sie verstehen das Konzept von Angular und integrieren das clientseitige JS-Framework sicher in.NET-Anwendungen.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

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!