Giriş Yap

**Teknology** · 04-01-2014, 06:09 PM

Eski paylaşımım biraz küçüktü,bunu büyüteyim dedim ;

Bilgisayar Kaç Saat Açık Olduğunu Gösteren Kod

Kod:

Public Function PC_Kac_Saat_Acik() As String
Dim SpyCoders As String = String.Empty
SpyCoders += Math.Round(Environment.TickCount / 86400000) & " gün, "
SpyCoders += Math.Round(Environment.TickCount / 3600000 Mod 24) & " saat, "
SpyCoders += Math.Round(Environment.TickCount / 120000 Mod 60) & " dakika, "
SpyCoders += Math.Round(Environment.TickCount / 1000 Mod 60) & " saniye."
Return SpyCoders
End Function

Labeli Titretmek

Kod:

Label1.Left +=1
Label1.Top -=1
Label1.Left -=1
Label1.Top +=1
Timer1.Enabled=True
Timer1.Start()

Bu 1'leri ne kadar titreyecekse o kadar artırabilirsiniz ancak bir artıp bir azalmasına dikkat edin.

kodunu ekleyin.
Titreyen labeliniz hazır!

Kayan yazı (Vb6)

Kod:

Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "İSTEDİMİZ BİR YAZI "
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub

Butona Ses Ekleme

Genele Yazılacaklar:

Kod:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Buton İçine Yapıştırılacaklar;

Kod:

Private Sub Command1_Click()
sndPlaySound "C:\Örnekses.wav", 1
End Sub

Yukarıya doğru kayan yazı

Kod:

formumuza 1 label ve 1 timer ekliyoruz
Private Sub Form_Load()
Label1.Top = 1045
Label1.Caption = "AKCAYABO" + Chr(13) + Chr(10) + "//THT//"
Timer1.Interval = 2
End Sub

Private Sub Timer1_Timer()
If Label1.Top = -1045 Then Label1.Top = 1045
Label1.Top = Label1.Top - 2
End Sub

Web Sayfa Kaynak Kodu Almak

Kod:

Button1.text = "Siteye git"
WebBrowser1.Navigate(TextBox1.Text) 
--------------------------------------------------
Form2.Show
Form2.(Kaynak kodunu gösterecek yer Textbox1.text vs.) = WebBrowser1.D-ocumentText
(Arkadaşlar D-ocument teki "-" yi silin

Grafiksel İşlemler

Kod:

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim cizim As Graphics = e.Graphics 'grafiksel işlemler için
'hava için
Dim hava As New SolidBrush(Color.SkyBlue) 'bi gökyüzü oluşturmak için rengini tanımladım 
cizim.FillRectangle(hava, 0, 0, 500, 140) 'koordinatlarını belirledim
İçimen için
Dim cimen As New SolidBrush(Color.Green)
cizim.FillRectangle(cimen, 0, 140, 500, 400)
'güneş için
Dim gunes As New SolidBrush(Color.Yellow)
cizim.FillEllipse(gunes, 350, 10, 100, 100)
'bulut için
Dim bulut As New SolidBrush(Color.White)
cizim.FillEllipse(bulut, 20, 20, 20, 20)
cizim.FillEllipse(bulut, 30, 30, 20, 20)
cizim.FillEllipse(bulut, 45, 30, 20, 20)
cizim.FillEllipse(bulut, 30, 10, 20, 20)
cizim.FillEllipse(bulut, 45, 10, 20, 20)
cizim.FillEllipse(bulut, 55, 20, 20, 20)
cizim.FillEllipse(bulut, 40, 20, 20, 20)
'dag için
Dim dag As New SolidBrush(Color.SaddleBrown)
cizim.FillPie(dag, 0, 70, 500, 140, 180, 180)
cizim.FillPie(dag, -100, 70, 200, 140, 180, 180)
'duman için
Dim duman As New Drawing.Pen(Brushes.DarkGray, 7)
Dim nokta As Point() = {New Point(260, 80), New Point(270, 65), New Point(260, 55), New Point(270, 45), New Point(350, 35)}
cizim.DrawCurve(duman, nokta)
'ev için
Dim bina As New SolidBrush(Color.Orange)
cizim.FillRectangle(bina, 20, 150, 300, 200)
İçatı için
Dim cati As New SolidBrush(Color.Red)
Dim catidizi As Point() = {New Point(20, 150), New Point(50, 100), New Point(350, 100), New Point(320, 150)}
Dim catimicin As New Drawing2D.GraphicsPath
catimicin.AddPolygon(catidizi)
cizim.FillPath(cati, catimicin)
'yan duvar için
Dim yandizi As Point() = {New Point(320, 150), New Point(350, 100), New Point(380, 150), New Point(380, 300), New Point(320, 350)}
Dim yanimicin As New Drawing2D.GraphicsPath
yanimicin.AddPolygon(yandizi)
cizim.FillPath(bina, yanimicin)
'balkon icin
Dim balkon As New SolidBrush(Color.Brown)
Dim balkondizi As Point() = {New Point(40, 170), New Point(80, 170), New Point(80, 210), New Point(160, 210), New Point(160, 250), New Point(40, 250)}
Dim balkonicin As New Drawing2D.GraphicsPath
balkonicin.AddPolygon(balkondizi)
cizim.FillPath(balkon, balkonicin)
'cam icin
Dim cam As New SolidBrush(Color.Crimson)
Dim camdizi As Point() = {New Point(330, 170), New Point(370, 150), New Point(370, 197), New Point(330, 220)}
Dim camicin As New Drawing2D.GraphicsPath
camicin.AddPolygon(camdizi)
cizim.FillPath(cam, camicin)
cizim.FillRectangle(cam, 220, 180, 40, 40)
'giriş kapısı için
Dim kapi As New SolidBrush(Color.Chocolate)
cizim.FillRectangle(kapi, 149, 270, 60, 80)
'araba 
Dim araba As New SolidBrush(Color.Gray)
Dim arabadizi As Point() = {New Point(300, 370), New Point(340, 370), New Point(350, 390), New Point(390, 390), New Point(390, 410), New Point(260, 410), New Point(260, 390)}
Dim arabaicin As New Drawing2D.GraphicsPath
arabaicin.AddPolygon(arabadizi)
cizim.FillPath(araba, arabaicin)
Dim tekerlek As New Drawing.Pen(Color.Black, 3)
cizim.DrawEllipse(tekerlek, 290, 405, 10, 10)
cizim.DrawEllipse(tekerlek, 360, 405, 10, 10)
'baca için
Dim baca As New SolidBrush(Color.SandyBrown)
cizim.FillRectangle(baca, 250, 75, 20, 40)
'tanıtım için
Dim isim As New SolidBrush(Color.Black)
Dim fontu As New Drawing.Font("Comic Sans", 20)
cizim.DrawString("İbrahim Hüdai Yücel", fontu, Brushes.Black, 80.0F, 500.0F)
End Sub

Textbox'tan Textbox'a Veri Aktarmak

Kod:

Command1
Alıntı:
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

İnternet bağlantısı kontrol etme

Kod:

f My.Computer.Network.IsAvailable = True Then
MsgBox("İnternet Bağlantısı Var")
Else
MsgBox("İnternet Bağlantısı Yok")
End If

Buttona tıklayınca form boyutu değiştirmek

Kod:

Dim degisken_1 As New Size(100,100)
(Değişken tanımladık)
Me.Size = degisken_1
(Değişkeni form un boyutune eşitledik yani tıklayınca 100,100 boyutta olacak .)

C# Şifreleme
Textboxlardan girilen verileri txt formatındaki dosyamıza yazacağız. Bu yazımızda MemoryStream,RijndaelManaged,CryptoStream ve txt dosyalarda işlem yapabilmemiz için FileStrem sınıflarını görmüş olacağız. Bu sınıfları bir sonraki makalemde ise sizlerle paylaşacağım. Bu uygulamada kullanırkende ne için kullandığımı belirttim.

Öncelikle bir Windows Application projesi oluşturuyoruz ve aşağıdaki gibi bir form tasarımı yapıyoruz.

Hazırladığımız formumuzun codebehind tarafını aşağıdaki gibi düzenliyorum(dolduruyorum). ( Açıklama Satırlarıyla sizlere ne yapmak istediğimi belirtmeye çalıştım )
Öncelikle aşağıdaki sınıflarımı namespacde tanımlıyorum.

Kod:

using System.IO;
using System.Security.Cryptography;
using System.Collections;

Daha sonra byte türünde iki dizi tanımlıyorum.

Kod:

public byte[] k = new byte[32];
        public byte[] v = new byte[16];

Kaydet butonumun click olayına aşağıdaki kodu yazıyorum.

Kod:

#region k , v  ve h nin tanımlanması
            k[0] = 156;
            k[1] = 225;
            k[2] = 225;
            k[3] = 252;
            k[4] = 90;
            k[5] = 163;
            k[6] = 12;
            k[7] = 128;
            k[8] = 81;
            k[9] = 112;
            k[10] = 82;
            k[11] = 198;
            k[12] = 99;
            k[13] = 143;
            k[14] = 19;
            k[15] = 111;
            k[16] = 135;
            k[17] = 100;
            k[18] = 250;
            k[19] = 221;
            k[20] = 3;
            k[21] = 109;
            k[22] = 39;
            k[23] = 190;
            k[24] = 48;
            k[25] = 60;
            k[26] = 112;
            k[27] = 166;
            k[28] = 72;
            k[29] = 95;
            k[30] = 249;
            k[31] = 34;
 
            v[0] = 163;
            v[1] = 170;
            v[2] = 183;
            v[3] = 181;
            v[4] = 33;
            v[5] = 141;
            v[6] = 126;
            v[7] = 208;
            v[8] = 21;
            v[9] = 0;
            v[10] = 77;
            v[11] = 70;
            v[12] = 176;
            v[13] = 120;
            v[14] = 62;
            v[15] = 55;
 
            #endregion
            FileStream fs = new FileStream(@"" + AppDomain.CurrentDomain.BaseDirectory + "Bilgiler.ini", FileMode.OpenOrCreate, FileAccess.Write);
            string sifrelenecekBilgiler = "Ad:" + txtAdSoyad.Text + "|" + "TcNo:" + txtTcNo.Text + "|" + "HesapNo:" + txtHesapNo.Text + "|" + "KullaniciAdi:" + txtKullaniciAdi.Text + "|" + "Sifre:" + txtSifre.Text;
 
            /* Şifrelenecek veriyi belleğe yazacağız. Bu nedenle MemoryStream sınıfı tipinden bir nesne örneği oluşturduk*/
            MemoryStream ms = new MemoryStream();
            /* Şifreleme algoritması olarak Rijnadel tekniğini sağlayan Managed nesne örneğimizi oluşturuyoruz.*/
            System.Security.Cryptography.RijndaelManaged rm = new RijndaelManaged();
 
            /* Şifreleme için gerekli anahtar ve vektör değerlerini elde ediyoruz.*/
            rm.GenerateKey();
            rm.GenerateIV();
 
            /* RijndaelManaged nesnesi tarafından üretilen anahtar ve vektör değerlerini byte dizilerine alıyoruz. Nitekim karşı tarafın şifrelenen veriyi çözebilmesi için bu anahtar ve vektör değerlerinin aynılarına ihtiyaçları olacaktır.*/
            byte[] anahtar = k;
            byte[] vektor = v;
 
            /* Veriyi belirttiğimiz algoritmaya göre şifreleyerek parametre olarak verilen stream’ e ki burada MemoryStream’ e yazmak için CryptoStream sınıfımızdan nesne örneğimizi oluşturuyoruz.*/
            CryptoStream cs = new CryptoStream(ms, rm.CreateEncryptor(anahtar, vektor), CryptoStreamMode.Write);
            /* Veriyi şifreleyerek belleğe yazıyoruz. Başından sonuna kadar.*/
 
            byte[] sv = new byte[sifrelenecekBilgiler.Length];
            for (int i = 0; i < sv.Length; i++)
            {
                sv[i] = (byte)sifrelenecekBilgiler[i];
            }
 
            cs.Write(sv, 0, sv.Length);
            cs.FlushFinalBlock();
            byte[] icerik = ms.ToArray(); /* Belleğe yazdığımız şifrelenmiş veriyi bir byte dizisine alarak okuyor ve ekrana yazdırıyoruz.*/
            fs.Write(icerik, 0, icerik.Length);
 
            cs.Close();
            fs.Close();
            MessageBox.Show("Bilgileriniz kaydedildi. . ", "Kayıt İşlemi", MessageBoxButtons.OK, MessageBoxIcon.Information);

Girilen metni ters yazdırmak

Kod:

TextBox2.Text = StrReverse(TextBox1.Text)

Basit Bir Tıklama Oyun Yapımı

Kod:

1 Timer
1 Button
3 Tane Label ekleyeceğiz

Label 1'i text'ini boş bırakıyoruz.
Label 2'nin text'ini kalan süre olarak yazıyor.
Label 3'ün text'i ise 60 olarak yazıyoruz.
Timerin interval'ini Properties'ten 1000 yapıyoruz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static a As Byte
Timer1.Start()
a = a + 1
Label1.Text = (a & " kere tıkladınız")
If Label3.Text = "0" Then
Label3.Text = "60"
a = 1
Label1.Text = a

End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label3.Text = Label3.Text - 1
If Label3.Text = "0" Then
Timer1.Stop()
MsgBox("Süre Doldu")

End If
End Sub

Kronometre yapımı

Kod:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label4.Text > 0 Then
Label4.Text = Label4.Text - 1
Else
Timer1.Stop()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
TextBox1.Text = Label4.Text
End Sub

C# Form Arka Plan Renk Değiştirme

İlk olarak formumuza button ve colorDialog ekliyoruz daha sonra butonunun click olayına kodları yazıyoruz.

Kod:

if (colorDialog1.ShowDialog() == DialogResult.OK) 
            {
                this.BackColor = colorDialog1.Color;
            }

-

Giriş Yap
Kullanıcı Adı:
Şifreniz:	Şifremi Unuttum?
	Beni Hatırla