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]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

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!