C#, Asp.Net, .Net Core
Asp.Net Vb Calculator, Web Formunda Hesap Makinesi .. Yardım Edin Lütfen
Asp.Net Vb Calculator, Web Formunda Hesap Makinesi .. Yardım Edin Lütfen
-
asp.netde hesap makinesi yapmam gerekiyor cok uğrastım ama olmadı :S
aynı kodları birkaç ufak düzenlemeyle vb6.0 da çalıştırıyorum ama
.netde olmuyo bilen biri yardım edebilirmi ?
-
kodlarınıda yayınlarsan takıldıgın yeri söyleriz
-
bacım kodlar yokmu
-
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sayi As Integer
sonuc.Text = ""
sc.Text = ""
End Sub
Protected Sub arti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles arti.Click
sayi = Val(sc.Text) + Val(sayi)
sonuc.Text = Val(sayi)
End Sub
Protected Sub eksi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles eksi.Click
sayi = Val(sc.Text) - Val(sayi)
sonuc.Text = Val(sayi)
End Sub
Protected Sub carpi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles carpi.Click
sayi = Val(sc.Text) * Val(sayi)
sonuc.Text = Val(sayi)
End Sub
Protected Sub bolu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bolu.Click
sayi = Val(sc.Text) / Val(sayi)
sonuc.Text = Val(sayi)
End Sub
End Class
böle yaptım :S olmadı .... :s -
bilen yokmuki :S
-
http://rapidshare.com/files/106851376/WebSite1.rar.html
indir bak bakalım olmuşmu
-
Protected Sub topla_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles topla.Click
Dim sonuc As Integer
sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
Label1.Text = sonuc
End Sub
Protected Sub cıkarma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cıkarma.ClickDim sonuc As Integer
sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)
Label1.Text = sonuc
End Sub
Protected Sub carpma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles carpma.ClickDim sonuc As Integer
sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)
Label1.Text = sonuc
End Sub
Protected Sub bolme_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bolme.ClickDim sonuc As Integer
sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)
Label1.Text = sonuc
End Sub
-
sandman birseyden de anlama abi :D
-
ComputerWolf bunu yazdı:
-----------------------------
sandman birseyden de anlama abi :D
-----------------------------al bendende o akdar
sana hayranım muck:|