Alptekin Bodur

Kategoriler

Sayfalar

Kim ?

Ne aradığını bilmeyen, neyi bulduğunu anlayamaz...

Ağustos

İstiklal Marşını daha önce böyle dinlememiştim

Kategori	:	Nasi Yani
Tarih	:	9 Ağustos 2007 Perşembe 17:43

Ağustos

asp.net ile resim yükleme ve thumbnail oluşturma

<table>
<tr>
<td nowrap><b>Dosyayı Seçiniz:</b></td>
<td><input type=”file” id=”dosya” name=”dosya” runat=”server” class=”alan”></td></tr>
<tr>
<td height=”45″ colspan=”2″></td></tr>
<tr>
<td colspan=”2″ align=”center”>
<asp:button runat=”server” id=”UploadButonu” Text=”SUNUCUYA YÜKLE” onClick=”DosyaUpload” CssClass=”buton” /></td>
</tr>
</table>

ile resimdeki sayfa görüntüsünü elde ediyoruz. Daha sonra kod tarafına geçiyoruz.

Protected Sub DosyaUpload(ByVal sender As Object, ByVal e As System.EventArgs) Handles UploadButonu.Click

If Not (dosya.PostedFile Is Nothing) Then

Dim DosyaAdi As String = dosya.PostedFile.FileName.Substring(dosya.PostedFile.FileName.LastIndexOf("\") + 1)

Dim DosyaTipi As String = dosya.PostedFile.ContentType

Dim DosyaBoyutu As Integer = dosya.PostedFile.ContentLengthDim suzanti As String = Right(DosyaAdi, 4)

Dim uzanti As String

If suzanti <> "" Then

uzanti = suzanti

Else : uzanti = ".jpg"

End If

Dim r As String = Request.QueryString("r")

If DosyaTipi = "image/pjpeg" Or DosyaTipi = "image/bmp" Or DosyaTipi = "image/x-png" Or DosyaTipi = "image/gif" Then 'yükle

If DosyaBoyutu <= 0 Then

Response.Write("Hatalı dosya, upload yapılamadı: " + DosyaAdi)

Else 'önce resmi sunucuya yüklüyoruz

dosya.PostedFile.SaveAs(Server.MapPath("..\urunresim\" + r + uzanti))

Try

Dim alp As System.Drawing.Image = System.Drawing.Image.FromStream(dosya.PostedFile.InputStream)

Dim w As Integer = alp.Width 'yüklediğimiz resmin genişliğini alıyoruz

Dim h As Integer = alp.Height 'yüklenen resmin yüksekliğini alıyoruz

Dim YeniGenislikB As Integer = 0

Dim YeniYukseklikB As Integer = 0

Dim YeniGenislikK As Integer = 0 Dim YeniYukseklikK As Integer = 0

'Sunucuya yüklediğimiz resimden bir büyük birde küçük resim oluşturacağız. Ben büyük resim için maksimum yükseklik veya genişlik 400, küçük resim içinde 75 piksek olsun istedim siz bunu kendinize göre uyarlarsınız. Buradaki algoritmamız şu genişlik ve yüksekliği kıyaslayıp orantılı değerler buluyoruz ki buda oluşan resimlerin orantılı olarak küçülmesi için. Yoksa resimler biçimsiz olabilir

If w > h Then

'genişlik büyük

YeniGenislikB = 400

YeniYukseklikB = (400 * alp.Height) / alp.Width

YeniGenislikK = 75

YeniYukseklikK = (75 * alp.Height) / alp.Width

Else

YeniGenislikB = (400 * alp.Width) / alp.HeightYeniYukseklikB = 400

YeniGenislikK = (75 * alp.Width) / alp.HeightYeniYukseklikK = 75

End If

'aldığımız değerlere göre büyük resmi farklı kaydediyoruz

Dim alpBuyukResim As System.Drawing.Image = alp.GetThumbnailImage(YeniGenislikB, YeniYukseklikB, Nothing, IntPtr.Zero) alpBuyukResim.Save(Server.MapPath("..\urunresim\buyuk\" + r + uzanti))

'küçük resmi kaydediyoruz

Dim alpKucukResim As System.Drawing.Image = alp.GetThumbnailImage(YeniGenislikK, YeniYukseklikK, Nothing, IntPtr.Zero)alpKucukResim.Save(Server.MapPath(“..\urunresim\kucuk\” + r + uzanti))

'resimleri kaydettikten sonra veritabanına kayıt yada yapmak istediğiniz başka bir şey varsa yapabilirsiniz

'istediğimiz resimleri oluşturduğumuza göre ilk yüklediğimiz orjinal resime artık gerek kalmadı, onu uçurmakta vayda var

'siliyoruz…

System.IO.File.Delete(Server.MapPath("..\urunresim\" + r + uzanti))

Catch ex As Exception

Response.Write(ex.Message)

End Try

End If

Else

Response.Write("sadece resim dosyası yükleyebilirsiniz")

End If

End Sub

Çok fazla karmaşaya girmeden basit bir şekilde resim upload ve resim thumnail oluşturmayı göstermeye çalıştım. Bu işlemleri yaptığınız klasörde yazma izni olması gerekmektedir. Anlayamadığınız yerleri sorabilirsiniz?

Kategori	:	Asp.NET
Tarih	:	8 Ağustos 2007 Çarşamba 17:15

Ağustos

C# ile monitörü açıp kapatmak

public class MonitorAcKapat

{

const int HWND_BROADCAST = 65535;

const int SC_MONITORPOWER = 61808;

const short WM_SYSCOMMAND = 274;

public void Main()

{

string instr = Interaction.Command();

switch (Interaction.Command().ToLower)

{

case "off":

TurnOff();

break;

case "on":

TurnOn();

break;

case "test":

TurnOff();

//turn off monitor

System.Threading.Thread.Sleep(10000);

//10 saniye bekle

TurnOn();

break;

//turn on monitor

default:

Interaction.MsgBox("Kullanım, [on]/[off]/[test] ", MsgBoxStyle.Information, "Devre Komutu Gerekiyor");

break;

}

private Int32 SendMessage(Int32 Handle, Int32 wMsg, Int32 wParam, Int32 lParam)

{

}

public void StandBy()

{

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

}

public void TurnOff()

{

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

}

public void TurnOn()

{

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

}

Kategori	:	C#
Tarih	:	8 Ağustos 2007 Çarşamba 17:11

Ağustos

Vb.Net ile monitörü açıp kapatmak

Public Class MonitorAcKapat

Const HWND_BROADCAST As Integer = &HFFFF

Const SC_MONITORPOWER As Integer = &HF170

Const WM_SYSCOMMAND As Short = &H112S

Sub Main()

Dim instr As String = Command()

Select Case Command().ToLower

Case "off"

TurnOff()

Case "on"

TurnOn()

Case "test"

TurnOff()

'turn off monitor

System.Threading.Thread.Sleep(10000)

'10 saniye bekle

TurnOn()

'turn on monitor

Case Else

MsgBox("Kullanm, [on]/[off]/[test] ", _

MsgBoxStyle.Information, _

"Devre Komutu Gerekiyor")

End Select

End Sub

Private Function SendMessage(ByVal Handle As Int32, _

ByVal wMsg As Int32, ByVal wParam As Int32, _

ByVal lParam As Int32) As Int32

End Function

Sub StandBy()

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1)

End Sub

Sub TurnOff()

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2)

End Sub

Sub TurnOn()

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1)

End Sub

End Class

Kategori	:	Vb.NET
Tarih	:	8 Ağustos 2007 Çarşamba 16:58

Ağustos

Yeni Adsl Tarife Bilgileri

Artık limitsiz ADSL bağlantısında 1 Mbit 49, 2 MBit 69, 4 Mbit de 89 YTL’ye son kullanıcıya ulaşacak

Türk Telekom’un 1 Ağustos 2007 tarihinden itibaren geçerli olan yeni toptan ADSL fiyatlarına paralel olarak TTNet, yeni ADSL tarife ve indirimlerini aynı tarihten itibaren geçerli olacak şekilde hayata geçirdi.

Yeni tarifelerle TTNet limitsiz ADSL 4 kat hızlandı. 256 kilobit limitsiz tarife mevcut 49 YTL’lik ücretinde herhangi bir artış olmadan 1 megabite çıkarılırken; 512 limitsiz ADSL İnternet bağlantısının hızı 2 megabite getirildi ve aylık ücreti 79 YTL’den 69 YTL’ye indi.

90YTL’den ucuza 4Mbit!
Yeni tarifede en çok göze çarpan şüphesiz ülkemizdeki İnternet kullanıcılarına ilk kez sunulan 4 megabitlik ADSL erişim paketi oldu. Çalışmaların tamamlanmasının ardından Türkiye’de ilk kez 4 megabit hızında bağlantı kullanıma sunuldu. 4 megabit genişbant limitsiz İnternet bağlantısı için kullanıcılar ayda yalnızca 89 YTL ödeyecek.

Limitli bağlantı da hızlanıyor!
Yine TTNet’in yeni İnternet paketlerinden birini de 2 megabit hızında ve 6 gigabyte limitli ADSL bağlantısı oluşturuyor. TTNet, 1 megabit hızında 4 ve 6 gigabyte limitli paketlerinin fiyatını korurken 1 megabit hızında 9 gigabyte limitli paketini otomatik olarak 1 megabit limitsize çevirdi.

Fiyatlar ne zaman geçerli olacak?
TTNet müşterilerinin indirimli ücretleri 1 Ağustos 2007 tarihinden itibaren geçerli olacak. Yeni tarifeler ile paketler arası geçişler ise 6 Ağustos 2007 tarihinde otomatik olarak gerçekleştirilecek. 256, 512 kilobit ve 1 megabit limitsiz bağlantılar 4 kat hızlanacak; 256 kilobit müşterileri 1 megabit limitsiz tarifeye, 512 kilobit müşterileri 2 megabit limitsiz tarifeye ve 1 megabit limitsiz müşterileri ise 4 megabit limitsiz tarifeye transfer olacak. 2 megabit limitsiz müşterileri ise 4 megabit limitsiz tarifeye taşınacak. Aynı şekilde 1 megabit hızında 9 gigabyte limitli paket yine 1 megabit limitsiz pakete otomatik şekilde transfer olacak.

Eski kampanya ne olacak?
Aylık ücretlerin dışında, statik IP ve bağlantı ücretlerinde herhangi bir değişiklik yapılmadı. Bu arada Yaz Fırtınası Kampanyası’ndan faydalanan kullanıcılar, yeni tarife ile yeni paketlerine otomatik olarak taşınacak ve bu aboneler mevcut kampanya kapsamındaki indirimlerinden faydalanmaya devam edebilecek.

TTNet müşterileri, Ağustos sonuna kadar, “Son Sürat Yaz Fırsatı” Kampanyası kapsamında 2 yıllık taahütname karşılığında 12 ay boyunca %12 indirime hak kazanabilecekler. Üstelik 4440375 TTNet Çağrı Merkezini arayarak kampanyaya katılmak çok kolay. Bu indirimle, örneğin aylık 29 YTL’lik paketteki müşteriler 1 yıl boyunca aylık 25,52 YTL ödeyecekler.

LİMİTSİZ ADSL TARİFELERİ
ADSL(Kbps)…….Bağlantı….Aylık Ücret
1024/256………. 29 YTL……49 YTL
2048/512………..29 YTL……69 YTL
4096/1024………29 YTL……89 YTL

LİMİTLİ ADSL TARİFELERİ
ADSL (Kbps)…Kota……….Bağlantı….Aylık……Kota Aşımı
1024/256……..4GB……….29 YTL……29 YTL….0,010 YTL
…………………6GB……….29 YTL…….39 YTL….0,009 YTL
2048/512……..6GB. ……..29 YTL……49 YTL….0,009 YTL

KİM HANGİ PAKETE OTOMATİK TRANSFER OLACAK?
Eski Tarife……………..Yeni Tarife………………Fiyat
1024/256 9GB…………1024/256 Limitsiz……..49 YTL
256/64 Limitsiz………..1024/256 Limitsiz……..49 YTL
512/128 Limitsiz………2048/512 Limitsiz……..69 YTL
1024/256 Limitsiz…….4096/1024 Limitsiz……89 YTL
2048/512 Limitsiz…….4096/1024 Limitsiz……89 YTL

Kaynak : TTNET

Kategori	:	Haber
Tarih	:	7 Ağustos 2007 Salı 12:08

Sayfa : « geri | 1 | 2 | 3 | ileri »