evet sn. muridler an itibariyle visual basic ile yazdıgım ilk proram bitmiştir ) hiç bir kaynağa başvurmadan sadece asp deki vbscript bilgimle ve biraz da kurcalayarak windows ta ki hesap makinesinin bi benzerini yaptım eleştiri ve onerilerinizi bekliyorum :)link http://www.myrize.com/upload/dosyalar/228238hesap_kitap. rarClasslar =Public Class Form1 Dim gosterge, islemPrivate Sub Button2_Click Handles b2. Click goster. Text = Val 10 + 2End SubPrivate Sub Form1_Load Handles MyBase. LoadDim islem, gosterge gosterge = goster. Textgoster. Text = 0End SubPrivate Sub b1_Click Handles b1. Click goster. Text = Val 10 + 1End SubPrivate Sub b3_Click Handles b3. Click goster. Text = Val 10 + 3End SubPrivate Sub b4_Click Handles b4. Click goster. Text = Val 10 + 4End SubPrivate Sub b5_Click Handles b5. Click goster. Text = Val 10 + 5End SubPrivate Sub b6_Click Handles b6. Click goster. Text = Val 10 + 6End SubPrivate Sub b7_Click Handles b7. Click goster. Text = Val 10 + 7End SubPrivate Sub b8_Click Handles b8. Click goster. Text = Val 10 + 8End SubPrivate Sub b9_Click Handles b9. Click goster. Text = Val 10 + 9End SubPrivate Sub b0_Click Handles b0. Click goster. Text = Val 10End SubPrivate Sub topla_Click Handles topla. Click gosterge = goster. Textislem = "topla"goster. Text = 0currprc. Text = currprc. Text & " " & "Toplama"End SubPrivate Sub sil_Click Handles sil. Click goster. Text = 0islem = ""currprc. Text = "Geçerli İşlem :"End Sub Private Sub esit_Click Handles esit. Click Select Case islemCase "topla"goster. Text = Val + Val Case "cikar"goster. Text = Val - Val Case "bol"If goster. Text = 0 ThenMsgBox goster. Text = 0End Ifgoster. Text = Val / Val Case "carp"goster. Text = Val Val Case ElseMsgBox End SelectEnd SubPrivate Sub cikar_Click Handles cikar. Click gosterge = goster. Textislem = "cikar"goster. Text = 0currprc. Text = currprc. Text & " " & "Çıkarma"End SubPrivate Sub bol_Click Handles bol. Click gosterge = goster. Textislem = "bol"goster. Text = 0currprc. Text = currprc. Text & " " & "Blme"End SubPrivate Sub carp_Click Handles carp. Click gosterge = goster. Textislem = "carp"goster. Text = 0currprc. Text = currprc. Text & " " & "Çarpma"End SubPrivate Sub TreeView1_AfterSelect End SubPrivate Sub ToolStripLabel1_Click MsgBox("Codded by: Blitz... Msn : ")End SubPrivate Sub Process1_Exited End Sub Private Sub Label1_Click Handles Label1. Click MsgBox MsgBox("bu arada Şuan:" & " " & Now & " :p") End SubEnd Class validen

hatta clss da goruluyo: Private Sub sil_Click Handles sil. Click goster. Text = 0islem = ""currprc. Text = "Geçerli İşlem :"End Sub validen

çalışmıyor:S hata veriyo Yapay zeka, zeka değildir.

HAYIRLI OLSUN :)yalnız geçerli işlemi niye şu şekilde yaptın anlmadım. Her seferinde arka arkaya geliyor currprc. Text = currprc. Text & " " & "Toplama"Geçerli işlem: Toplama Çıkarma Toplam Çarpma vs gibi uzuyor her işlemde instagram.com/yks. rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)

: çalışmıyor:S hata veriyo net framework kurulumu hoca? validen

yuklu olsaydı calısırdı herhalde :D validen

hayırlı olsun :D ins bende bakacam bu yaz visual basic e hşşşt.. instagram.com/m. cebecioglu

artistlik olsun diye yaptım onu CE ye basınca düzelmesi lazım ama olmuyo nedense :S classıda gorduysen bi yanlıslık oldugunu sende fark etmissindir.. validen

: ExcellencE bunu yazdı: çalışmıyor:S hata veriyo net framework kurulumu hoca? bilmem yüklü mü :) Yapay zeka, zeka değildir.

Bİ sürü işlem yapınca alttaki ilk başta kalıyo :R!!!!

: Bİ sürü işlem yapınca alttaki ilk başta kalıyo :R ya ben onu halletttim ama ne kadar kaydetsem de degişmedi aq stili bile farklı aslında ama exesi hiç degişmedi bi noktadan sonra :S validen