Beste Helper,
Ik probeer onderstaande code kleiner te schrijven iemand een suggestie?UUHH ik bedoel dus niet de letterhoogte
Bij Voorbaat dank
Ik probeer onderstaande code kleiner te schrijven iemand een suggestie?UUHH ik bedoel dus niet de letterhoogte
Code:
Private Sub cmdVermogendruk_Click()
'Geluidsdruk Bepaling per afstand (vrije veld condities)
If Me.TextBox15.Value = "" Or Me.TextBox16.Value = "" Then
MsgBox "Vergeet niet Geluidsvermogensniveau of afstand in te vullen": Exit Sub
End If
If Me.TextBox15.Value = 0 Or Me.TextBox16.Value = 0 Then
MsgBox "Geluidsvermogensniveau of afstand mag geen 0 zijn": Exit Sub
End If
Me.Label259.Caption = Round(Me.TextBox15.Value - 10 * Log10(4 * (WorksheetFunction.Pi) * TextBox16 ^ 2), 0)
End Sub
Bij Voorbaat dank