Welcome!

I am a passionate and ambitious chess player who loves improving, competing, and analyzing games. I play actively and always try to become stronger.

I am also an admin in several large and active chess clubs. These clubs focus on teamwork, daily matches, tournaments, and continuous improvement. Being part of their management helps me gain experience and contribute to strong chess communities.

WE ARE THE CHAMPIONS
Chess Bombers
Team Istanbul
SAARC - South Asian Association for Regional Cooperation
Chess Elite Players
Team Kyrgyzstan
Top Chess Official Club 2026
AU- Asian Union

Thank you for reading!

Welcome to my profile!

I like cup

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

GMAkifTe