[ hesaplama ] /
Makaleler-Article(s)
hesaplama ile ilgili toplam 10 makale bulundu ! (A total of 10 article(s) about hesaplama was(were) found in all of articles!)
| Article |
|---|
GridView da Compute Islemleri
Merhaba arkadaslar bu makalemizde seçtigimiz iki Id no arasindaki satirlarin degerini hesaplayacagiz. Ayrica bu araliktaki satirlarin arka plan rengini degistirecegiz. Bu islemin yapilmasini GridView in OnRowDataBound = "OnRowDataBound" kismina yazilacak bir kod ile saglayacagiz. Ayrica GridView nesnesinin AutoGenerateColumns="False" yapiniz. | Geçme Notu Hesaplama
1 Vize ve Final Notuna göre harfli sisteme göre hangi notu aldığınızı, 60 geçiş notuna göre geçilip geçilmediğini gösteren program. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN | Faktoriyel Hesaplama
Bu örnekte textbox a girilen sayının faktoriyelini hesaplayacağız.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private static long faktoriyel(int sayi)
{
if (sayi <= 1)
return 1;
else
return sayi * faktoriyel(sayi - 1);
}
private void button1_Click(object sender, EventArgs e)
{
string sonuc = "";
int sayi = Convert.ToInt32(textBox1.Text);
for (int i = 1; i <= sayi; i++)
sonuc += i + "!= \t" + faktoriyel(i).ToString() + "\n";
MessageBox.Show(sonuc.ToString(), "Faktoriyel Hesabı");
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN | İki Tarih Arasındaki Günü Hesaplama
VisualBasic teki DateDiff () fonksiyonunu biraz farklı bir şeklini C# de kullanacağız.
Bugünkü tarih ile girilen ilk tarih arasındaki gün sayısını bulacağız.
private void button1_Click(object sender, EventArgs e)
{
DateTime ilkTarih = new DateTime(2008,06,18);
DateTime BugunkuTarih = DateTime.Now;
TimeSpan ts = BugunkuTarih - ilkTarih;
MessageBox.Show(Convert.ToString(ts.Days));
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | Faktoriyel Hesaplama
Bu örnekte faktoriyel hesaplamaya bakacağız. InputBox tan girilen sayı aralığında faktoriyel hesabı yapacağız.
InputBox için; İlk önce Solution Explorer a sağ tıklayıp Add Reference kısmından Microsoft.VisualBasic i ekleyin. Aşağıdaki şekilleri inceleyin.
private void Form1_Load(object sender, EventArgs e)
{
label1.Text = "Faktoriyel Hesaplama";
}
private void button1_Click(object sender, EventArgs e)
{
int i, j, faktoriyel;
Int32 XPos = ((SystemInformation.WorkingArea.Width / 2) - 200);
Int32 YPos = ((SystemInformation.WorkingArea.Height / 2) - 100);
string sayi1 = Microsoft.VisualBasic.Interaction.InputBox("1.Sayıyı Giriniz...", "Faktoriyel Hesaplama ", "0", XPos, YPos);
string sayi2 = Microsoft.VisualBasic.Interaction.InputBox("2.Sayıyı Giriniz...", "Faktoriyel Hesaplama ", "", XPos, YPos);
for (i = Convert.ToInt32(sayi1); i <= Convert.ToInt32(sayi2); i++)
{
faktoriyel = 1;
for (j = 1; j <= i; j++)
{
faktoriyel = faktoriyel * j;
this.Text = Convert.ToString(faktoriyel);
label1.Text = sayi1 + "-" + sayi2 + "Sayı Aralığında: " + "Hesaplanan Değer: " + faktoriyel;
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır
| Yeni Yıla Kalan Günü Hesaplama
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
DateTime yeniyıl =new DateTime(2007, 12, 31);
DateTime kalangun =System.DateTime.Now;
while (kalangun < yeniyıl) {
MessageBox.Show(yeniyıl.DayOfYear - kalangun.DayOfYear + " gün sonra yeni yıla girilecek ...");
kalangun = kalangun.AddDays(1);
}
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır | Geçme Notu Hesaplama
1 Vize ve Final Notuna göre harfli sisteme göre hangi notu aldığınızı, 60 geçiş notuna göre geçilip geçilmediğini gösteren program. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
| Geçen Süreyi Hesaplama
Girilen Başlangıç saatinden şu anki saate kadar geçen zamanı hesaplayacağız. Formunuza 1 adet Timer, 2 adet TextBox ve Button ekleyin. Aşağıdaki şekilleri inceleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = Format(Now, "Long Time")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim gecensure As TimeSpan = New TimeSpan(0, 0, 0, 0, 0)
Dim baslangic As String
Dim bitis As Date
baslangic = TextBox1.Text
bitis = TimeOfDay
gecensure = gecensure.Add(bitis.Subtract(baslangic))
TextBox2.Text = gecensure.ToString
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
| Alan Hesaplama
Üçgen, Kare, Diktdörtgen ve Kare nin alanlarının hesaplayacağız. Formunuza 1 adet ComboBox ve Button ekleyin.
Public Class Form1
Dim alan As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = "Lütfen seçiniz..."
ComboBox1.Items.Add("Kare")
ComboBox1.Items.Add("Dikdörtgen")
ComboBox1.Items.Add("Üçgen")
ComboBox1.Items.Add("Daire")
End Sub
Private Function alan_hesapla(ByVal kenar1 As Double, ByVal kenar2 As Double) As Double
If ComboBox1.SelectedItem = "Kare" Then
alan = Math.Pow(kenar1, 2)
‘veya
‘alan = kenar1 * kenar1
End If
If ComboBox1.SelectedItem = "Üçgen" Then
alan = (kenar1 * kenar2) / 2
End If
If ComboBox1.SelectedItem = "Daire" Then
alan = Math.PI * Math.Pow(kenar1, 2)
‘veya
‘alan = 3.14 * kenar1 * kenar1
End If
If ComboBox1.SelectedItem = "Dikdörtgen" Then
alan = kenar1 * kenar2
End If
Return alan
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a1, a2 As Double
If ComboBox1.SelectedItem = "Kare" Or ComboBox1.SelectedItem = "Daire" Then
a1 = InputBox("1.sayı Girişi", "Mesaj")
Else
a1 = InputBox("1.sayı Girişi", "Mesaj")
a2 = InputBox("2.sayı Girişi", "Mesaj")
End If
alan_hesapla(Val(a1), Val(a2))
MessageBox.Show("Alan Sonuç:" & alan_hesapla(a1, a2), ComboBox1.Text & " İşlem:", MessageBoxButtons.OK)
End Sub
End Class
‘Bir sonraki makalede buluşmak üzere. Bahadır | Öğrenci Ders Notu Hesaplama
Bu örnek te basit bir şekilde öğrencinin dersten aldığı notu hesaplayacağız.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sayi(3) As Integer
sayi(0) = InputBox("1. not girişi", "Not Girişi")
sayi(1) = InputBox("2. not girişi", "Not Girişi")
sayi(2) = (sayi(0) + sayi(1)) / 2
Select Case sayi(2)
Case Is < 50
MessageBox.Show("Üzgünüz Kaldınız. Sınav Ortalamanız: " & sayi(2))
Case Is > 50
MessageBox.Show("Tebrikler dersi geçtiniz. Sınav Ortalamanız: " & sayi(2))
End Select
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır |
|