| | 6600 Türküler Türküler ve Aşık Veysel
Geçen bir 6600 aldım. 256 MB. RS-MMC kartı taktım. 80-100 mp3 alıyor. Bir mp3 çalıcı kurdum. Artık istediğim yerde müzik dinleyebiliyorum. Son bir haftadır Sibel ALAŞ, Niran ÜNSAL dinliyordum. Şimdilerde bol bol türkü dinliyorum. Nasıl dinlendirici oluyor, nasıl insanın gönlünü dolduruyor, nasıl içten tesir ediyor insana.
Alışkanlık yaptı telefon çalmazken bile beynimde sanki bir thread sürekli türküler çalıyor.
Aşık Veysel dinliyorum özellikle. Sesinde öyle bir acı var ki mubareğin, içimi burkuyor.
Nette ölmezden önce yazdığı son şiirini buldum rahmetlinin, yalın, basit cümleler ama çok tesirli;
GELMEZ YOLA GİDİYORUM
Selam saygı hepinize
Gelmez yola gidiyorum
Ne şehire ne de köye
Gelmez yola gidiyorum
Gemi bekliyor limanda
Gideceğim bir ummanda
Gözüm kalmadı cihanda
Gelmez yola gidiyorum
Eşim dostum yavrularım
İşte benim sonbaharım
Veysel karanlık yollarım
Gelmez yola gidiyorum
ufukyayla 17.05.2005 13:17:22 Yorumlar [4]
ASP.NET ve Türkülerimiz
Asrı gurbet harap etmiş köyümü
Bülbül gitmiş baykuş konmuş gelele
Ben ağayım ben paşayım diyenler
Kapıları kitlemişler gel hele.
Yani ozan demek istiyor ki;
.NET çağı mahvetti sitemi
Güzelim ASP gitti ASP.NET geldi
Ben guruyum, ben bu işin kompetanıyım diyenler
Forumlarda açtığım konuları kitleyip, cevap vermez oldular
ufukyayla 12.05.2005 14:47:05 Yorumlar [17]
Proje: ADO.NET RecordSetimizi Geri İstiyoruz
RecordSetimizi Geri İstiyoruz kampanyası çerçevesinde yaptığım yeni class
Bu class sayesinde ADO:NET de, eski ADO.RecordSet hatta DOA.RecordSet kullanır gibi veri okuma, ekleme, silme yapabilirsiniz.
DsClass.Aspx Sürüm 3.0
(Eski sürüm : http://www.ufukyayla.com/defter/yorum.aspx?bno=10&kno=73&sk=1&sy=1)
<%@ Page Language="VB" ClassName="DsClass" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Common" %>
<%@ Import Namespace="System.Data.OleDB" %>
Option Strict Off
Option Explicit On
Inherits System.Web.UI.Page
<script runat="server">
Private csConnecitonString As String
csConnecitonString ="provider=Microsoft.Jet.OLEDB.4.0;data source=" & VeriTabani
Private csSql As String
Private Con As New OleDbConnection
Private AdX As OleDBDataAdapter
Private DsX As New DataSet("tablo")
Private CbX As OleDBCommandBuilder
Private DrX As DataRow
Private ciKS As Integer
Private ciSS As Integer
Private ciGKN As Integer
Private ciGSN As Integer
Private ciSKS As Integer
Private ciEkleModu As Boolean=False
Public Property Kayit() As Integer
Get
Return ciGKN
End Get
Set(Value As Integer)
ciGKN=Value
DrX=DsX.Tables(0).Rows(ciGKN)
End Set
End Property
Public ReadOnly Property KSayisi() As Integer
Get
Return ciKS
End Get
End Property
Public Property Alan(psAlan As String) As Object
Get
Return DrX.Item(psAlan)
End Get
Set(Value As Object)
DrX.Item(psAlan)=Value
End Set
End Property
Public Property Sayfa() As Integer
Get
Return ciGSN
End Get
Set(Value As Integer)
ciGSN=Value
End Set
End Property
Public ReadOnly Property SSayisi() As Integer
Get
Return ciSS
End Get
End Property
Public ReadOnly Property SBasi() As Integer
Get
Return (ciGSN-1)*ciSKS
End Get
End Property
Public ReadOnly Property SSonu() As Integer
Get
Dim yiSSonu As Integer
yiSSonu=SBasi()+ciSKS-1
If yiSSonu>ciKS-1 Then yiSSonu=ciKS-1
Return yiSSonu
End Get
End Property
Public Function Sayfala(piSKS As Integer) As Integer
If piSKS=0 Then ciSKS=ciKS Else ciSKS=piSKS
If ciKS>0 Then
If Fix(ciKS/ciSKS)=ciKS/ciSKS Then
ciSS=ciKS/ciSKS
Else
ciSS=Fix(ciKS/ciSKS)+1
End If
Else
ciSKS=0
ciSS=0
End If
Return ciSS
End Function
Public Property Sql() As String
Get
Return csSql
End Get
Set(Value As String)
csSql=Value
End Set
End Property
Public Function Ac(Optional psSql As String="") As Integer
If psSql<>"" Then csSql=psSql
Con.ConnectionString=csConnecitonString
Con.Open()
AdX=New OleDBDataAdapter(csSql, Con)
CbX=New OleDBCommandBuilder(AdX)
AdX.Fill(DsX, "tablo")
ciKS=DsX.Tables(0).Rows.Count
Sayfala(0)
Sayfa=1
If ciKS>0 Then ciGKN=0
Return ciKS
End Function
Public Sub Kapat()
DsX.Reset()
AdX.Dispose()
Con.Close()
Con.Dispose()
End Sub
Public Sub Ekle()
ciEkleModu=True
DrX=DsX.Tables(0).NewRow
End Sub
Public Sub Duzenle()
ciEkleModu=False
End Sub
Public Sub Guncelle()
If ciEkleModu Then
DsX.Tables(0).Rows.Add(DrX)
AdX.Update(DsX,"tablo")
Else
AdX.Update(DsX,"tablo")
End If
ciEkleModu=False
End Sub
Public Sub Sil()
DsX.Tables(0).Rows(ciGKN).Delete()
AdX.Update(DsX,"tablo")
End Sub
</script>
ufukyayla 09.05.2005 15:31:42 Yorumlar [23]
Anneler Günü
Anneler gününü kutluyorum anacığım.
Sana hediye olarak Fatihalar yolluyorum.
Çenem titriyor bu satırları yazarken, bir tek sen bilirsin ya, ağlamaklı olduğumda hep böyle olur.
Ana seni çok özledim.
ufukyayla 09.05.2005 11:04:47 Yorumlar [8]
UfukSZP Dağıtımını Kullananlar
Sitesinde kullanmak üzere UfukSZP'yi seçenleri buraya yazıyorum. Sizde kullanıyorsanız yada bildikleriniz varsa yazın.
Hiç kimse bana maille ulaşıp ben kullanıyorum demiyor, ben internette gezinirken rastladım bunlara.
ufukyayla 09.05.2005 10:36:23 Yorumlar [20]
Sayfalar : 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21
|
| |  | |  |  |
|
|  | Blog - ASP.NET!VB |  |
| | | | Karalama Defteri | | | Giriş | | | Bölümler | | | Son Yorumlar | | | | | | Bölümler | | | Deli Gömleği | | | Eşeryakoli | | | Makaleler | | | Projeler | | | UfukSZP Dağıtımı | | | ASP.NET Maceraları | | | | | | Son Karalamalar | | | Foruma üye girince oluşan ... | | | Taşındık | | | SoulTips Gibi Birşey | | | Ya Nasip | | | Ulan Ubuntu | | | El Yapımı Projeksiyon | | | Ne İstiyor Bu Üyeler | | | Sınıflarda Kalıtım (Inheri... | | | Sadeleştirme Şart | | | South Park | | | | | | Son Yorumlananlar | | | Ya Nasip | | | Ben Ziraat Mühendisiyim | | | UfukSZP Dağıtımını Kullananl... | | | Grup Hepsi | | | Ne İstiyor Bu Üyeler | | | Ziyaretçi Defteri | | | Powered By Access | | | Ulan Ubuntu | | | Network A.K.T. (Arada Kafamı... | | | Sınıf, Nesne, Nesneye Yöneli... | | | | | | Güzel İnsanlar | | | Fındık Kabuğu | | | Evren AYAN | | | Halil TUNÇ | | | Can HANHAN | | | Mehmet TURAC | | | Bloglar Alemi | | | | | | Şu Anda Bağlılar | | | Misafir, Misafir, Misafir, Misafir, Misafir, Misafir, Misafir, Misafir, Misafir | | | | | | | Ordan Burdan | | | Bir şeyi sormadan önce Google'de arat ki aptal durumuna düşme. | | | | | | |  | | |  | | |  | | |  | | |  | | |  | | |  | | | |
| |  | |  | |
|
|
