Hi, i have a Problem with my Sourcecode.
The Code calculate Decimal to floating Hex Value.
Jabaco say when i run the Application;
Compile Error. Class 'Applet1' line: 23
Expected: End Statement
Here my Source:
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Private Type UDT1
Z1 As Single
End Type
Private Type UDT2
Z1 As Long
End Type
Public Sub Command1_Click()
Dim Value1 As UDT1, Value2 As UDT2
Wert1.Z1 = Text1.Text
Lset Value2 = Value1 <--- This line make a problem ;(
Text2.Text = Hex$(Value2.Z1)
Label2.Caption = Value1.Z1 + Value2.Z1
End Sub
|
Can you help me please?