Archive for December 2008


C# ile Beep

December 1st, 2008 — 10:36pm

Makinenin biplemesi hata uyarıları için kullanılabilir.

[DllImport("Kernel32.dll")]
public static extern bool Beep(UInt32 frequency, UInt32 duration);

Beep(500,100);

Comment » | Csharp - C#

XOR ile Çok Çok Basit Şifreleme

December 1st, 2008 — 9:02pm

Sadece göz görünce anlamasın diye bazı yazıları karıştırmak isterseniz kullanabileceğiniz methodlardan bir tanesi XOR‘dur.

Malicious eye‘dan saklamaca yapar :P

public static string XORSifrele(string sifrelenecek)
{
      int anahtar = 152;
 
     StringBuilder girenSb = new StringBuilder(sifrelenecek);
     StringBuilder cikanSb = new StringBuilder(sifrelenecek.Length);
     char c;
     for (int i = 0; i < sifrelenecek.Length; i++)
     {
         c = girenSb[i];
         c = (char)(c ^ anahtar);
         cikanSb.Append(c);
     }
     return cikanSb.ToString(); 
}

Comment » | Csharp - C#

Powerpoint İle Bir Klasör Dolusu Resmi Sunuya Dönüştürmek

December 1st, 2008 — 3:47pm

Aşağıdaki kod ile, GetFolder metoduna parametre olarak verdiğiniz klasör adını sunuya dönüştürebilirsiniz.

şöyle bir senaryoda çok işinize yarayacaktır.
bir sürü resim var ve bu resimleri her biri ayrı bir slayta gelecek şekilde görüntülemek istiyorsunuz.

tek tek herbirini seç ve ekle yap yap bitmez heralde :)

Sub SlaytaSigdirarakResimEkle()
 
Dim oSlide As Slide
Dim oPicture As Shape
Dim fs, klasor, Files, i
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set klasor = fs.GetFolder("C:Documents and SettingsserdarbDesktopcards")
Set Files = klasor.Files
i = 0
 
For Each File In Files
i = i + 1
If File.Type = "JPEG Image" Then
Set oSlide = ActiveWindow.Presentation.Slides.Add(i, ppLayoutBlank)
Set oPicture = oSlide.Shapes.AddPicture("C:Documents and
SettingsserdarbDesktopcards" _
& File.Name, msoTrue,
msoTrue, 1, 1)
yuzde = ActivePresentation.PageSetup.SlideHeight / oPicture.Height
If (yuzde &lt; 1) Then
oPicture.ScaleHeight yuzde, msoTrue
oPicture.ScaleWidth yuzde, msoTrue
End If
 
With ActivePresentation.PageSetup
oPicture.Left = (.SlideWidth / 2) - (oPicture.Width / 2)
oPicture.Top = (.SlideHeight / 2) - (oPicture.Height / 2)
End With
End If
Next
 
End Sub

Comment » | PowerPoint

Page 3 of 3123

↑ Back to top