| Article |
|---|
GridView Nesnesine Otomatik Satır Numarası Ekleme
Merhaba arkadaşlar bu makalemizde GridView nesnesine PNo sütunu ekleyerek otomatik satır numarasının yazılmasını sağlayacağız. |
TreeView daki Node ları Text Dosyaya Yazdırma
TreeView nesnesinde oluşturduğumuz Node ları, child nodes ları metin dosyasına kaydedeceğiz. Formunuza 1adet TreeView ve Button ekleyin.
Imports System.IO
Public Class Form1
Dim baslik As New Windows.Forms.TreeNode("Bahadır ŞAHİN", 0, 0) |
TextBox ta Satır Numarasını Bulmak
Bu makalemizde Textbox nesnesinde imlecin bulunduğu satırın indeksini alacağız. Bununiçin MouseClick yordamına aşağıdaki kodları yazacağız. Şekil 1 i inceleyin.
Not: Satır numarası 0 dan başlayarak gidiyor... |
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 |
Cd Adını ve Seri Numarasını Öğrenmek
İlk önce yapılması gereken Project > Add Reference > .Net kısmından System.Management i formunuza eklemek.(Veya Solution Explorer a sağ tıkla. Add Reference > .Net)
Formunuza 1 adet button ekleyin aşağıdaki şekil 1 i inceleyin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Management;
namespace cd_serino_ogrenme
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
SelectQuery query = new SelectQuery("select * from win32_logicaldisk where drivetype=5");
ManagementObjectSearcher searcher = new ManagementObjectSearcher(query);
foreach (ManagementObject mobject in searcher.Get())
{
if ((mobject["volumeserialnumber"] != null))
{
MessageBox.Show("CD ismi: " + mobject["volumename"] + Environment.NewLine + "Seri No: " + mobject["volumeserialnumber"]);
}
else
{
MessageBox.Show("Lütfen Cd Takınız");
}
}
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
|
Kronometre
Kronometre ile ilgili örnek. Aşağıdaki şekildeki gibi formunuzu oluşturun.
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private string Convert(int p)
{
throw new Exception("The method or operation is not implemented.");
}
public int KalanSure;
private void Form1_Load(object sender, EventArgs e)
{
comboBox1.Text = "Hızı Seçiniz";
}
private void btnBasla_Click(object sender, EventArgs e)
{
// Başlangıç zamanı "KalanSure" değişkenine atanır.
KalanSure = System.Convert.ToInt32(txtSure.Text);
//Kalan süre kullanıcıya gösterilir.
lblSure.Text = System.Convert.ToString(KalanSure);
// ListBox kontrolüne kayıt girilir.
lbKayit.Items.Add("Kronometre Başlangıç Tarih Saat:: " + DateTime.Now.TimeOfDay.ToString());
// ComboBox kontrolünden seçilen değer,
// Timer kontrolünün çalışma hızını belirler.
tmrKronometre.Interval = System.Convert.ToInt32(comboBox1.Text);
tmrKronometre.Start();
// Timer kontrolünü çalıştırır.
}
private void btnDur_Click(object sender, EventArgs e)
{
// Timer kontrolünü durdurur.
tmrKronometre.Stop();
// ListBox kontrolüne kayıt girilir.
lbKayit.Items.Add("Kronometre Durdurulma Tarih Saat: " + DateTime.Now.TimeOfDay.ToString());
}
private void tmrKronometre_Tick(object sender, EventArgs e)
{
// Her saniye geçtiğinde sure değeri 1 azalacaktır.
KalanSure = KalanSure - 1;
lblSure.Text = System.Convert.ToString(KalanSure);
// KalanSure değeri kullancıya gösterilir
// KalanSure değeri sıfıra ulaşmışsa kronometre durdurulur.
if (KalanSure == 0)
{
tmrKronometre.Stop();
lbKayit.Items.Add("Süre Doldu Tarih Saat: " + DateTime.Now.TimeOfDay.ToString());
MessageBox.Show("Süre doldu");
}
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN |
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
|
Öğ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 |
Harddiskin Seri Numarasını ve Modelini Öğrenmek
Bu makalemizde harddiskin seri no su ve modelini öğrenilmesini anlatacağız. Sizler bu uygulamamızı; yapacağınız programlarda programınızın tanımlı harddisk seri no larına göre çalışması, tanımsız hdd seri no larında çalışmaması gibi uygulamalar geliştirebilirsiniz.(Aşağıdaki şekli inceleyin.)
Önemli Not: İlk önce Project kısmından Add Reference den System.Management ı projenize ekleyin.
Imports System
Imports System.Management
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
‘Harddiskin seri numarasının alınması
Dim disk As New ManagementClass("Win32_PhysicalMedia")
For Each Hdisk As ManagementObject In disk.GetInstances()
If Hdisk("SerialNumber") <> Nothing Then
TextBox3.Text = CStr(Hdisk("SerialNumber"))
End If
Next Hdisk
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
‘Harddisk modelini bulmak
Dim searcher As New Management.ManagementObjectSearcher("select * from Win32_PhysicalMedia")
Dim wmi_HD As Management.ManagementObject
searcher = New System.Management.ManagementObjectSearcher("select * from Win32_DiskDrive")
For Each wmi_HD In searcher.Get()
TextBox4.Text = wmi_HD("Model")
Next
End Sub
End Class
‘Bir sonraki makalemizde Mac adresleri ile ilgili bilgi vereceğiz. Görüşmek dileğiyle...Bahadirsa |
İşlemci Seri Numarası ve Özet Bilgilerin Alınması
Bu makalede işlemcinin seri numarasını, özet bilgileri ve DeviceID numarasını alınmasını göreceğiz.
WMI Class dan Win32_Processor ünü kullanacağız. Formunuza 3 adet Button ve 1 adet Label ekleyin. Aşağıdaki şekil 1 deki gibi formunuzu hazırlayın.
Forma yazılacak kodlar:
Public Class Form1
Private Sub btnID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnID.Click
Dim Nesnemiz
Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
Label1.Text = "CPU Seri No: " & Nesnemiz.ProcessorID
End Sub
Private Sub btnBilgi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBilgi.Click
Dim Nesnemiz
Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
Label1.Text = "CPU Özet: " & Nesnemiz.Caption
End Sub
Private Sub btnDId_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDId.Click
Dim Nesnemiz
Nesnemiz = GetObject("winmgmts:root\cimv2:Win32_Processor=‘cpu0‘")
Label1.Text = "DeviceId No: " & Nesnemiz.DeviceID
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "İşlemci Bilgileri"
.MaximizeBox = False
End With
End Sub
End Class
‘Faydalı olması dileğiyle. Bir sonraki makalede görüşmek üzere...Bahadirsa |
Sitenizi Ziyaret Edenlerin IP Numaralarını Kaydetme
Arkadaşlar bu makalemizde sitenize giriş yapan ziyaretçilerin Ip numarasını gösterip, Access veritabanına kaydedeceğiz. |
VC#.Net te id no ya Göre Kayıt Arama
Bu makalemizde Sql veritabanımızda kayıtlı id no ya göre verilerimizi ve kayıtlı resimlerimizi textboxlara ve pictureBox ımımıza getireceğiz. İlk önce sql veritabanınızı oluşturun. |