1: Sub Main()
2: Dim KeyValueCollection As New System.Collections.Specialized.NameValueCollection
3:
4: Dim myCI As New System.Globalization.CultureInfo("tr-TR")
5: For index As Integer = 1 To 12
6: KeyValueCollection.Add(index, DateAndTime.MonthName(index))
7: Next
8:
9: Dim Month As String() = KeyValueCollection.GetValues(1)
10: Console.WriteLine(Month(0))
11: End Sub

85587891-a951-49d7-87d7-be436f507713|0|.0
1: public class JavaScriptKodu
2: {
3: private Page page;
4:
5: private string StartScript;
6: private string EndScript;
7:
8: public JavaScriptKodu(Page ThisPage)
9: {
10: page = ThisPage;
11: StartScript = "<script language='javascript' type='text/javascript'> \r\n";
12: EndScript = "</Script>";
13: }
14:
15: private string ClearText(string myString)
16: {
17: myString = myString.Replace("\r\n", String.Empty);
18: myString = myString.Replace("\n", String.Empty);
19: myString = myString.Replace("\r", String.Empty);
20: myString = myString.Replace("\"", "\\\"");
21: myString = myString.Replace("\'", "\\\'");
22: return myString;
23: }
24:
25: public void ShowAlert(string mesaj)
26: {
27: string script = " alert(\" " + ClearText(mesaj) + " \");";
28: page.ClientScript.RegisterStartupScript(typeof(string), "key", script);
29: }
30: }
31:
780e1572-f4fc-4cce-b659-3e8c6e966955|0|.0
using System.Text.RegularExpressions;
public bool IsEmailAdress(String emailAdress)
{
string MailAdressFormat = @"\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*";
Regex regEx = new Regex(MailAdressFormat);
return regEx.IsMatch(emailAdress);
}
public bool IsDate(String strDate)
{
Regex objAlphaPattern = new Regex(@"(^|\s|\()((([1-9]){1}|([0][1-9]){1}|
([1][012]){1}){1}[\/-]((2[0-9]){1}|(3[01]){1}|([01][1-9]){1}|([1-9]){1}){1}[\/-](((19|20)(
[0-9][0-9]){1}|([0-9][0-9]){1})){1}(([\s|\)|:])|(^|\s|\()((([0-9]){1}|([0][1-9]){1}|([1][0
12]){1}){1}[\/-](([11-31]){1}|([01][1-9]){1}|([1-9]){1}){1}[\/-](((19|20)([0-9][0-9]){1}|(
[0-9][0-9]){1})){1}(([\s|\)|:|$|\>])){1}){1}){1}){1}");
return !objAlphaPattern.IsMatch(strDate);
}
http://regexlib.com/DisplayPatterns.aspx adresinden yüzlece regex örnegi bulabilirsini.
fe9af412-a403-4a0f-b0db-5bda2909eee4|0|.0
Ms ' download sitesinde yayınladığı her developer'in elin olması gereken güzel bir kaynak.
Visual_Basic_2008_Poster.zip (690,14 kb)
Visual_Basic_2008_Poster.zip (690,14 kb)
88568608-a0a6-43a5-b135-5f0d86f510ef|0|.0
8b966ca9-aa4f-4896-8187-cedeb50b801b|0|.0
Web tabanlı uygulamalar geliştirilirken karşılaşılan zorluklar her zaman bizi araştırmaya ve yeni birşeyler öğrenmeye zorluyor. Bilişim dünyası ucu bucağı olmayan bir evren, her geçen gün yeni teknolojiler, yeni teknikler, yeni methotlar çıkıyor.
Aslında Css ve JavaScript kullanılarak yapılan Dialog Box çok da yeni bir şey değil ama ben bu konuyu bloğumda işlemek istedim.
Bunlar Css Kodlarımız:
1: <style>
2: #myBox {
3: visibility: hidden;
4: position: absolute;
5: left: 0px;
6: top: 0px;
7: width:100%;
8: height:100%;
9: text-align:center;
10: z-index: 1000;
11: }
12: #myBox div
13: {
14: border: 1px double #98B5E2;
15: width: 450px;
16: margin: 100px auto;
17: background-color: #C2D3FC;
18: padding: 15px;
19: text-align: left;
20: }
21: </style>
JavaScript Kodlarımız :
1: <script type="text/javascript">
2: function acKapa() {
3: el = document.getElementById("myBox");
4: el.style.visibility = (el.style.visibility == "visible") ? "hidden" : "visible";}
5: </script>
HTML Kodlarımız :
1: <input id="Button1" onclick='acKapa()' type="button" value="Aç" />
2: <div id="myBox">
3: <div align="left">
4: <img src="about.png" align="left" alt="Error" border="0" />
5: <center>
6: <strong>Bilgi</strong>
7: </center>
8: <p align="left">
9: Mesajınız mesajınız mesajınız mesajınız mesajınız mesajınız
10: </p>
11: <center>
12: <input id="Kapat" onclick='acKapa()' type="button" value="Kapat" />
13: </center>
14: </div>
15: </div>
d0712abe-b4f5-4529-ab22-3a06340a1eeb|1|5.0
2000' li yıllarda başlayan müziğe ilğim beni bir süre sonra gitaristan.com sitesine götürdü. Aslında bu siteye yakınlaşmamın asıl sebepleri arasında gitara olan ilgim ve foruma üye olan sıcak kanlı, sevecen arkadaşlardı.
O arkadaşlardan biriside Mehmet İlker Özbek, o başalı bir müzisyen olmasının yanı sıra iyi bir dost. Beraber yapmayı planladığımız bir çok proje var :) hatta bu projelerin başlangıcı olan Gitarparki.com şu an yayında olmakla beraber istenilen ilgiyi göremedi :( , buna benzer bir çok planımız var ama sadece planlamakla kalıyor nedense :).
İlker' in yazmıs olduğu birçok söz ve beste var bu besteleri ev ortamında kayda alıyor ve ortaya inanılmaz güzel şeyler çıkıyor. Kayıtlarını dinlemek için www.mehmetilkerozbek.com adresine gidebilir ve yorum bırabilirsiniz. Eminim müzikleri büyük bir zevkle dinleyeceksiniz.
İlker' e tekrar müzikal yaşamında başarılar diliyorum.
f0d012e2-ab2d-4d8f-8560-5abd95be93a2|1|4.0
Visual Studio 2005 ile beraber gelen ve özellikle benim gibi klavye kullanmaktan pek haz etmeyen :) yazılımcıların, işini kolaylaştıran güzel bir özellik : Ctrl +K +X veya Ctrl +K+S klavye kısa yolları ile erişebileceğimiz code snippets proje geliştirme sürecini de oldukça kısaltacağına inanıyorum. Code Snippet Vb de daha da gelişmiş olmasına rağmen C# da da oldukça işimizi kolaylaştıracak kodlar mevcut.
Code Snippets Manager(Ctrl + B) , Vb,C# ve XML snippets lerimiz yönetmemize yardımcı olan Visual Studio ekranıdır. Kendi yazdığımız code snippet leri import edebilir, remove yapabilir yada düzenleyebiliriz.
Notepad' de oluşturabilecegimiz snippets kodlarını *.sinippet olarak kaydedip Visual Studio Import edebilirsiniz.

<?xml version="1.0" encoding="utf-8" ?>
<CodeSnippets xmlns=" http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet ">
<CodeSnippet Format="1.0.0">
<Header>
<Title>try</Title>
<Shortcut>try</Shortcut>
<Description>Code snippet for try catch</Description>
<Author>Microsoft Corporation</Author>
<SnippetTypes>
<SnippetType>Expansion</SnippetType>
<SnippetType>SurroundsWith</SnippetType>
</SnippetTypes>
</Header>
<Snippet>
<Declarations>
<Literal>
<ID>expression</ID>
<ToolTip>Exception type</ToolTip>
<Function>SimpleTypeName(global::System.Exception)</Function>
</Literal>
</Declarations>
<Code Language="csharp">
<![CDATA[try
{
$selected$
}
catch ($expression$ ex)
{
$end$
throw ex;
}]]>
</Code>
</Snippet>
</CodeSnippet>
</CodeSnippets>
095f42c3-c38f-4e83-98ce-af85cfdf68da|0|.0
IE7 de umduğunu bulamayan Mikrosoft yine bir atak yaparak IE8 'in çok yakında piyasaya sunulacağının işaretini verdi. Merakla bekliyoruz acaba ne tür gelişmeler olacak. Mesala
Firefox yayınladığı 3 beta 3 sürümünde eski versiyonların da olduğu gibi developerların işini kolaylaştıracak bir çok eklenti sunmakta , acaba IE8 bize bu gibi imkanları sunabilecek mi? Hep beraber bekleyip göreceğiz.
Dean Hachamovitch
2d6a5c2c-663b-4e5b-bfeb-cf3f4858afe6|0|.0
Reporting servis ile oluşturulan raporu programatik olarak render etmek:
Parametreler:
- FileFormat: XML, NULL, CSV, IMAGE, PDF, HTML4.0, HTML3.2, MHTML, EXCEL, HTMLOWC
- reportPath: /MyReportPath/MyReport
- Parameters: Raporun aldığı parametreler.
- NewFilePathAndName: FileFormat ile belirttiğimiz tip ile render edilen raporu kaydetme konumu ve adı.
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.IO
Imports reportingservice 'Reportin Service web referansi
Public Class ReportingServiceHelper
Public Shared Sub Render(ByVal FileFormat As String, _
ByVal reportPath As String, _
ByVal parameters() As ParameterValue, _
ByVal NewFilePathAndName As String)
Dim rs As New reportingservice.ReportingService
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
rs.Credentials = New System.Net.NetworkCredential("UserName", _
"Password", "Domain")
' Render parametreleri
Dim result As Byte() = Nothing
Dim historyID As String = Nothing
Dim devInfo As String = "<DeviceInfo><Encoding>ISO 8859-8" & _
"</Encoding></DeviceInfo>"'Türkçe için
Dim credentials As DataSourceCredentials() = Nothing
Dim showHideToggle As String = Nothing
Dim encoding As String = Nothing
Dim mimeType As String = Nothing
Dim warnings() As reportingservice.Warning = Nothing
Dim reportHistoryParameters As ParameterValue() = Nothing
Dim streamIDs As String() = Nothing
Dim sh As New SessionHeader()
rs.SessionHeaderValue = sh
rs.RequestEncoding = System.Text.Encoding.UTF8'Türkçe için
result = rs.Render(reportPath, FileFormat, historyID, devInfo, parameters, _
credentials, showHideToggle, encoding, mimeType, _
reportHistoryParameters, warnings, streamIDs)
sh.SessionId = rs.SessionHeaderValue.SessionId
Dim stream As FileStream = File.Create(NewFilePathAndName, result.Length, _
FileOptions.RandomAccess)
stream.Write(result, 0, result.Length)
stream.Close()
End Sub
End Class
d960576f-7687-4dd2-9895-f0f8e760562b|0|.0