bu programın çıktı vereceğini pek

Temel ödev 1 diye konu var, program yazmam gerekiyordu. Yazdım çalışmıyor. Bu konuda acemiyim, lütfen yardım edin. Private Sub Command1_Click Dim X1, Y1, AB, S, X2, Y2 As Double X1 = Val(Text1. Text) Y1 = Val(Text2. Text) AB = Val(Text3. Text) S = Val(Text4. Text) X2 = X1 + S Cos(AB / 63.66197724) Y2 = Y1 + S Sin(AB / 63.66197724) X2 = Val(Text5. Text) Y2 = Val(Text6. Text) End Sub

X1= Y1= Kenar= Semt= Command butona tıkladığımda bu işlemi yapacak X2=X1+Kenar Cos(Semt/63.66197724) Y2=Y1+Kenar sin(Semt/63.66197724) Cevap olarak X2 de Y2 de ayrı ayrı gösterecek Nasıl yapacağım bir türlü çalıştıramadım yardımcı olursanız sevinirim

Private Sub Command1_Click Dim X1, Y1, AB, S, X2, Y2 As integer X1 = Val(Text1. Text) Y1 = Val(Text2. Text) AB = Val(Text3. Text) S = Val(Text4. Text) X2 = X1 + S Cos(AB / 63.66197724) Y2 = Y1 + S Sin(AB / 63.66197724) text5. text = x2 text6. text = y2 End Sub Sonucu bu şekilde text 5 ve text 6 ya alabilirsin ama senin bu X2 ve Y2 Formüllerinin doğru olduğuna eminmisin ben denedim hep sıfır çıkıo Değişkeni integer olarak tanımla çalıştı. Kolay gelsin

X2 ve Y2 değerlerini sonuç olarak görmek istiyorsun sanırım. Label 1 ve Label 2 oluşturup değerleri onlar üzerinde tanımlayabilirsin