| Article |
|---|
Ses Ayarı Denetimi
Bu örnekte işletim sisteminin ses denetimi kısmını çalıştıracağız.
private void button1_Click(object sender, EventArgs e)
{
try {
System.Diagnostics.Process.Start("c:\\windows\\system32\\Sndvol32.exe");
}
catch (Exception ex) {
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır |
Bilgisayarınızın Kaç Saat Açık Olduğunu Öğrenmek
Arkadaşlar bu örnekte, bilgisayarımızın ne zamandan beri açık olduğunu öğreneceğiz.
Bunun için System.Environment.TickCount özelliğinden faydalanacağız. Formunuza 1 adet timer ekleyin. Aşağıdaki şekli inceleyiniz.
private void Form1_Load(object sender, EventArgs e)
{
timer1.Enabled = true;
timer1.Interval = 1000;
}
private void timer1_Tick(object sender, EventArgs e)
{
string ad, versiyon;
double sure;
int dakika;
sure = System.Environment.TickCount;
//bilgisayar adı öğrenme
ad = System.Environment.MachineName;
//versiyon öğrenme
versiyon = Convert.ToString(System.Environment.OSVersion);
//dakika cinsinden
dakika = Convert.ToInt32((sure / 1000) / 60);
//saat cinsinden
sure = (((sure / 1000) / 3600));
string saat = sure.ToString("F");
label4.Text = ad;
label5.Text = versiyon;
label6.Text = ad + " adlı bilgisayarınız " + saat + " saattir açık bulunmakta. " + Environment.NewLine + "(" + dakika + " dakikadır açık)";
}
//Bir sonraki makalede görüşmek ü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 Host Adını Değiştirmek
Bu örnekte bilgisayarın Host adını değiştireceğiz. Formunuza 1 adet Button ve TextBox ekleyin.
Public Class Form1
Declare Function SetBilgisayarAd Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpBilgisayarAd As String) As _
Long
Public Function BilgisayarAdiniDegistir(ByVal YeniBilgisayarAd As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetBilgisayarAd(YeniBilgisayarAd)
If Err.Number = 0 Then
BilgisayarAdiniDegistir = nReturn <> 0
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BilgisayarAdiniDegistir(TextBox1.Text)
End Sub
End Class |
Bilgisayarın Hızını Ölçün
Bilgisayarınızın hızını GetSystemMetrics Apisini kullanarak ölçebilirsiniz. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GetSystemMetrics(73) Then
MessageBox.Show("Bilgisayarınız yavaş çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("Bilgisayarınız hızlı çalışmakta...", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
Bir sonraki makalede görüşmek ü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 |
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 |
Bilgisayarınız Konuşsun
Evet arkadaşlar. Text kutusuna yazdığınız kelimeleri, bilgisayarınız sizin için söylesin.
Formunuza 1 adet TextBox, 1 adet Button ekleyin.
İlk yapmanız gereken Project > Add Reference > System.Speech özelliğini Ok tuşuna basarak getirmek.
Daha sonra aşağıdaki kodları formunuza yazın. Bilgisayarınız sizin yerinize konuşsun :)
Forma yazılacak kodlar:
Public Class Form1
Dim i As New SpeechLib.SpVoice
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Voice Örnek...Bahadirsa"
.MaximizeBox = False
.Size = New System.Drawing.Size(237, 144)
.Location = New Point(250, 170)
End With
Button1.Text = "Bilgisayarı Konuştur"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
i.Speak("Yazı Giriniz. Bahadirsa")
MsgBox("Yazı Giriniz. Bahadirsa", MsgBoxStyle.OkOnly, "bahadirsa voice ")
End If
i.Speak(TextBox1.Text)
End Sub
End Class
Bir sonraki makalede buluşmak üzere...Bahadirsa
|
Bilgisayarınızın Ağa Bağlı Olup Olmadığını Kontrol Etme
Bilgisayarınızın ağa bağlı olup olmadığını bir kaç kod parçası yazarak öğrenebilirsiniz...Bahadirsa
Forma yazılacak kodlar:
Public Class Form1
Private Sub btnKontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKontrol.Click
Dim host As System.Net.IPHostEntry
Try
Label1.Text = Environment.GetEnvironmentVariable("LOGONSERVER")
host = System.Net.Dns.GetHostByName(Label1.Text.Substring(2))
Label1.Text = Label1.Text & vbCrLf & " Adıyla ağa bağlısınız. "
Return
Catch ex As Exception
Label1.Text = "Ağ Bağlantınız Bulunmamaktadır."
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
End Sub
End Class |