- #1
B
Black Panter
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 20.07.2005
- Beiträge
- 138
- Reaktionspunkte
- 0
Hi
ich habe folgenden Code:
und ich hab ien formular in dem:
und das funzt net...
ich hab keine ahnung wiese.
wir amchen das grad ind er shcule und der lehrer hat davon auch net wirklich enn plan.
ich habe folgenden Code:
Code:
Option Explicit
Dim zustand, speed As Single
Dim text As Integer
End Sub
Private Sub form_load()
output.Caption =
End Sub
Private Sub but_calc_onclick()
speed = CInt(txt_speed.text)
If komb_zustand = trocken Then
zustand = 1
ElseIf komb_zustand = nass Then
zustand = 0.5
ElseIf komb_zustand = schneebedeckt Then
zustand = 0.35
ElseIf komb_zustand = eisig Then
zustand = 0.15
End If
text = ((speed / 3.6) ^ 2) / (2 * 12)
output.Caption = text
End Subund ich hab ien formular in dem:
[li]ein Eingabefeld mit dem namen txt_speed[/li]
[li]ein kombinationsfeld mit dem namen komb_zustand[/li]
[li]ein button mit dem namen but_calc[/li]
[li]und ein Bezeichnungsfeld mit dem namen output[/li]
und das funzt net...
ich hab keine ahnung wiese.
wir amchen das grad ind er shcule und der lehrer hat davon auch net wirklich enn plan.
