| Article |
|---|
Dosya Adı ve Sayısını Öğrenmek
Merhaba arkadaşlar, bu makalemizde C sürücüsünde bulunan Text dosyalarının adını ve sayısını öğreneceğiz. |
Dosya Boyutunu Öğrenme
C sürücüsündeki deneme.txt dosyasının boyutunu öğreneceğiz.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dosyaBoyut As IO.FileInfo
dosyaBoyut = My.Computer.FileSystem.GetFileInfo("C:/deneme.txt")
MessageBox.Show("Dosya Boyut: " & dosyaBoyut.Length & " byte(s)")
End Sub
End Class
Bir sonraki makalede görüşmek dileğiyle. Bahadır ŞAHİN |
Web Sitesinin Ip Adresini Öğrenme
Bu örnekte Textbox a girilen web adresine ait ip adresini öğreneceğiz. aspx sayfanıza 1 adet button, textbox ve label ekleyin.
Aşağıdaki Şekil 1 i inceleyin. |
DNS Adını Öğrenme
Bu örnekte DNS adını öğreneceğiz.
İlk önce;
using System.Net; i formunuza ekleyin.
Daha sonra aşağıdaki kodları ConsoleApplication a yazın.
Aşağıdaki şekli inceleyin.
using System;
using System.Collections.Generic;
using System.Text;
using System.Net;
namespace DNSAdi
{
public class DNSAd
{
public static void Main()
{
string hostAd = Dns.GetHostName();
Console.WriteLine("Local hostAd: {0}", hostAd);
IPHostEntry myself = Dns.GetHostByName(hostAd);
foreach (IPAddress adres in myself.AddressList)
{
Console.WriteLine("IP Adres: {0}", adres.ToString());
Console.Read();
}
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
Ekran Çözünürlüğünü Öğrenmek
Bu örnekte bilgisayarımızın ekran boyutunu öğreneceğiz. Aşağıdaki şekili inceleyin.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
MessageBox.Show("Monitor Boyutu:" + SystemInformation.PrimaryMonitorSize);
//veya aşağıdaki şekilde
//MessageBox.Show("Asıl Boyut: " + SystemInformation.VirtualScreen);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Klasör Oluşturulma Tarihini Öğrenmek
Bu örnekte, herhangi bir klasörün, oluşturulma tarihini öğreneceğiz.
İlk önce;
using System.IO; i ekleyin.
Daha sonra Button un Click yordamına aşağıdaki kodları ekleyin. Aşağıdaki Şekil 1 i inceleyin. C:\ deki test klasörünün oluşturulma tarihine bakacağız.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
string directoryString =Directory.GetCurrentDirectory() + @"\test";
Directory.CreateDirectory(directoryString);
DateTime dateTime = Directory.GetCreationTime(directoryString);
MessageBox.Show("Klasör Oluşturulma Tarihi: " + dateTime);
Directory.Delete(directoryString);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
İnternet Ip ve Local Ip i Öğrenmek
Bu makalede İnternet Ip mizi ve bilgisayarımızın local ip numarasını öğreneceğiz.
using System.IO;
using System.Net; ı formunuza ekleyin.
Aşağıdaki şekli inceleyin.
namespace WindowsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private string GetHttpTxt(string URL)
{
Stream stm = HttpWebRequest.Create(URL).GetResponse().GetResponseStream();
return new StreamReader(stm, false).ReadToEnd();
}
private void button1_Click(object sender, EventArgs e)
{
string a;
a = (GetHttpTxt("http://whatismyip.com/automation/n09230945.asp"));
textBox1.Text = a;
}
private void button2_Click(object sender, EventArgs e)
{
IPHostEntry ihe = Dns.GetHostByName(Dns.GetHostName());
IPAddress myself = ihe.AddressList[0];
textBox2.Text = Convert.ToString(myself);
}
}
}
//Bir sonraki makalede buluşmak üzere. Bahadır |
Bilgisayar Host ve Kullanıcı Adını Öğrenmek
Bu örnekte bilgisayarın host ve kullanıcı adını öğreneceğiz. Formunuza 1 adet Button ekleyin. Aşağıdaki şekli inceleyin.
Public Class Form1
Sub Get_Bilgi()
Dim HostAd As String
Dim KullaniciAd As String
’ Host Adı / Bilgisayar Adı
HostAd = Environ$("computername")
’ Kullanıcı Adı
KullaniciAd = Environ$("username")
MsgBox("Kullanıcı Adı: " & KullaniciAd & vbCrLf & "Host Adı: " & HostAd)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_Bilgi()
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Bilgisayar İsmini ve Kullanıcı Adını Öğrenmek
Bilgisayarınızın adını ve kullanıcı adını öğrenmek için aşağıdaki kod parçasını Button un Click yordamına yazın. Şekli inceleyin.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = SystemInformation.ComputerName & "/" & SystemInformation.UserName
End Sub
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN |
Resim Boyunu Öğrenmek
Resimlerimizin boyutunu; yazacağımız küçük bir kod parçasıyla öğrenebiliriz. Formunuza 1 adet buton ekleyin. Aşağıdaki şekli inceleyin.
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim buffer As Byte()
Dim fs As FileStream = New FileStream("C:\ornek.jpg", FileMode.Open, FileAccess.Read)
ReDim buffer(fs.Length)
fs.Read(buffer, 0, fs.Length)
fs.Close()
MessageBox.Show("Resim Boyut(Byte cinsinden): " & buffer.Length)
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
|
Harddiskinizin Boş Alanını Öğrenmek
Bu makalede harddiskin kapasitesini, doluluk oranını, boş alanı getInfo methodundan yararlanarak öğreneceğiz. Formunuza 7 adet Label, 4 adet TextBox, 3 adet ProgressBar ekleyin.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim getInfo As System.IO.DriveInfo
getInfo = My.Computer.FileSystem.GetDriveInfo("C:\")
‘Toplam kapasite
TextBox1.Text = Format((getInfo.TotalSize / 1000000000), "#.##") & " GB."
‘Kullanılan Kapasite
TextBox2.Text = Format(((getInfo.TotalSize - getInfo.TotalFreeSpace) / 1000000000), "#.##") & " GB."
‘Kalan Boş Alan
TextBox3.Text = Format((getInfo.TotalFreeSpace / 1000000000), "#.##") & " GB."
‘Format
TextBox4.Text = getInfo.DriveFormat
ProgressBar1.Value = 100
ProgressBar2.Value = 100 * (Val(TextBox2.Text) / Val(TextBox1.Text))
ProgressBar3.Value = 100 * (Val(TextBox3.Text) / Val(TextBox1.Text))
Label5.Text = "% 100"
Label6.Text = "% " & Format(100 * (Val(TextBox2.Text) / Val(TextBox1.Text)), "#.##")
Label7.Text = "% " & Format(100 * (Val(TextBox3.Text) / Val(TextBox1.Text)), "#.##")
End Sub |
İl İl Namaz Vakitlerini Öğrenme
Bu makalemizde http://www.webservisler.com sitesinin xml dosyasından illerin namaz vakitlerini gün gün çekeceğiz. Aşağıdaki şekli inceleyin. Formunuza 7 adet TextBox, 1 adet Combobox ve button ekleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "İl İl Günlük Namaz Vakitleri"
.MaximizeBox = False
.Size = New System.Drawing.Size(249, 289)
.Location = New Point(300, 200)
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAl.Click
If ComboBox1.Text = "" Then
MsgBox("İl Seçiniz", MsgBoxStyle.OkOnly, "Namaz Vakitleri")
End If
Dim ds As DataSet = New DataSet
‘ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=istanbul ")
‘ veya aşağıdaki gibi ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=" & ComboBox1.Text)
Dim namaz_vakitleri As DataRow = ds.Tables(0).Rows(0)
With Me
.txtTarih.Text = namaz_vakitleri(1)
.txtImsak.Text = namaz_vakitleri(2)
.txtGunes.Text = namaz_vakitleri(3)
.txtOgle.Text = namaz_vakitleri(4)
.txtIkindi.Text = namaz_vakitleri(5)
.txtAksam.Text = namaz_vakitleri(6)
.txtYatsi.Text = namaz_vakitleri(7)
End With
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır
|
Bilgisayarın Mac Adresini Öğrenmek
Bir önceki makalede Mac adresleri ile ilgili bilgi verilmişti. Bu makalemizde kod yazarak mac adresini öğrenmeye çalışacağız.
Bilgisayarın mac adresini alabilmek için ilk önce yapmamız gereken; Project kısmından Add Reference den System.Management i
formumuza eklemek. Daha sonra aşağıdaki kodları formunuza yazmak. Aşağıdaki şekil i inceleyin.
Imports System
Imports System.Management
Public Class Form1
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
GetMACAddress()
End Sub
Public Function GetMACAddress() As String
Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MACAddress As String = [String].Empty
For Each mo As ManagementObject In moc
If MACAddress = [String].Empty Then
If CBool(mo("IPEnabled")) = True Then
MACAddress = mo("MacAddress").ToString()
TextBox5.Text = MACAddress
End If
End If
mo.Dispose()
Next
MACAddress = MACAddress.Replace(":", "")
Return MACAddress
End Function
End Class
Bir sonraki makalemizde görüşmek üzere...Bahadirsa |
Ip Adresini Öğrenme
Bu örnekte Bilgisayarımızın Ağa ve İnternete bağlandığı IP adresini öğreneceğiz. Aşağıdaki şekil de örneğimizi inceleyebilirsiniz.
Forma yazılacak kodlar:
Imports System
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
GetIPAddress()
End Sub
Public Sub GetIPAddress()
Dim myIPAddress, x As Net.IPAddress
Dim myIPHostEntry As New Net.IPHostEntry()
myIPHostEntry = Net.Dns.GetHostByName(Net.Dns.GetHostName())
For Each x In myIPHostEntry.AddressList
TextBox2.Text = x.ToString
Next
End Class
Bir sonraki makalemizde Hardisk Seri No sunu ve Modelini öğrenmeyi göreceğiz. Görüşmek dileğiyle...Bahadirsa
|
Bilgisayar Adının Alınması
Bu makalemizde bilgisayar adını öğreneceğiz. Aşağıdaki şekli inceleyin.
Forma yazılacak kodlar:
Imports System
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IPAddress()
End Sub
Private Sub IPAddress()
Dim LocalHostName As String
Dim i As Integer
LocalHostName = Net.Dns.GetHostName()
Dim ipEnter As Net.IPHostEntry = Net.Dns.GetHostByName(LocalHostName)
TextBox1.Text =
LocalHostName.ToString()
End Class
Bir sonraki makalemizde Bilgisayarın IP adresini öğrenme konusunu inceleyeğiz. Bir sonraki makalemizde görüşmek üzere...Bahadirsa |
IP Numarasını ,Ülke ve Il Adını Öğrenme
Arkadaşlar bu makalede sitenize bağlanan kişilerin ip numarasını gösterebilirsiniz. Ayrıca bu Ip numarasının hangi Ülkeye ve İle ait olduğunu bulabilirsiniz.Aşağıdaki örnek resme bakabilirsiniz. |
Web Sitesinin IP Adresini Öğrenme
Bu örneğimizde text kutucuğuna girilen web adresinin ip numarasını öğreneceğiz. Örneğimizin online uygulamsını http://bahadirsam.brinkster.net/dns/Dns.aspx
adresinden yapabilirsiniz.
Formunuza ToolBox ın HTML kısmından 1 adet button, textbox ve label ekleyin. Dns.aspx kodları aşağıda şekil1 de gösterilmiştir.
Bir sonraki makalede görüşmek üzere...Bahadirsa |
Veritabanındaki Kayıt Sayısını Öğrenmek
Bu örnekte Northwind.mdb Access veritabanındaki Customers tablosunda kayıtlı olan kayıt sayısını öğreneceğiz. |