GraphicsWindow.Title = "Hesap Makinesi"

GraphicsWindow.Width = 300

GraphicsWindow.Height = 300

' --- Textbox ---

txtSayi1 = Controls.AddTextBox(20, 20)

txtSayi2 = Controls.AddTextBox(20, 60)

' --- İşlem butonları ---

btnTopla = Controls.AddButton("+", 20, 110)

btnCikar = Controls.AddButton("-", 80, 110)

btnCarp = Controls.AddButton("*", 140, 110)

btnBol = Controls.AddButton("/", 200, 110)

' --- Sonuç kutusu ---

txtSonuc = Controls.AddTextBox(20, 170)

Controls.SetTextBoxText(txtSonuc, "Sonuç burada")

' --- Event handler ---

Controls.ButtonClicked = OnClick

Sub OnClick

b = Controls.LastClickedButton

s1 = Controls.GetTextBoxText(txtSayi1)

s2 = Controls.GetTextBoxText(txtSayi2)

' String → sayı dönüşümü otomatik olur

sayi1 = s1

sayi2 = s2

If (b = btnTopla) Then

sonuc = sayi1 + sayi2

ElseIf (b = btnCikar) Then

sonuc = sayi1 - sayi2

ElseIf (b = btnCarp) Then

sonuc = sayi1 * sayi2

ElseIf (b = btnBol) Then

If (sayi2 = 0) Then

sonuc = "0'a bölünmez!"

Else

sonuc = sayi1 / sayi2

EndIf

EndIf

Controls.SetTextBoxText(txtSonuc, sonuc)

EndSub

https://www.canva.com/design/DAG5iXS82cI/dbkZPljWRWyXb-H9POpMXQ/edit?utm_content=DAG5iXS82cI&utm_campaign=designshare&utm_medium=link2&utm_source=sharebutton

Hello, do you want to join my club? We need someone strong like you. We are open to your requests every day. We have tournaments with prizes. We do not neglect daily matches. We name those who participate in the matches a lot and are successful. Thanks for reading. Write me if you want to join.

https://www.chess.com/club/we-are-the-champions-7/join

Welcome to my profile

I like cup

AAkifSanli