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