Paylaşım Diyorsanız

Visual Basic İle İlgilenenler Olduğunu Görüyorum. Elinizde Paylaşmak İstediğiniz Kod Örneklerini Burada yazarak Forumu hem Dağıtmamış Olur Hemde Aranacak bilgi eger bu bölümde varsa daha çabuk bulunmuş olur.

Lütfen sadece kod yazınız...
İlk Örnek Benden Olsun

--------------
'Bu Kod İle İçinde bulunduğumuz Ayın Son Gününü Buluruz
'General Kısmına Aşşağıdaki Kodu Girin

Public Function AyinSonGunu(ByVal GecerliTarih As Date) As Byte
Dim SonGun As Byte
SonGun = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", -DatePart("d", GecerliTarih) + 1, Date))))
AyinSonGunu = SonGun
End Function

'1 tane Buton Oluşturun İçine Aşşağıdaki Kodu Yazın

Private Sub Command1_Click()
MsgBox Date & " tarihine ait ayin son günü : " & AyinSonGunu(Date)

End Sub

Bir yazılım Projesinde ne tür işler vardır.
---------------------------------------------------------------
1-Proje lideri
---------------------------------------------------------------

Proje ile ilgili her türlü operasyondan ve kullanılan programlar ile yardımcı araçlar hakkında bilgi sahibi olan bir kişi olmalı. Proje süreçlerini çok iyi bilmelidir. Yönetici seviyesinde olduğu için yapılan işi yada projeyi genel hatları ile bilmelidir.

2-Yama Uygulama Uzmanı
---------------------------------------------------------------

Kullanılan programlar ile ilgili olarak sağlayıcı firmalar ile bağlantıda olacak ve yeni çıkan yamaların gerekli olup olmadığını test ederek araştıracak. Her bilgisayar için uygulanan veya uygulanmayan yamaların kaydını tutacak.

3-Raporlama Uzmanı
---------------------------------------------------------------

Yazılan projenin raporlama ihtiyaçlarını belirli yazılımları kullanarak kapatacak, diğer yazılım uzmanları ile bağlantılı olarak çalışarak ve rapor ihtiyaçlarını karşılayacaktır.

4-Hata Takibi Uzmanı
---------------------------------------------------------------
Modül bazında test ekibi tarafından girilen hataların takibi ve yazılım uzmanlarının uyarılması, hataların atanması, düzeltilen hataların test ekibine iletilmesi ve tekrardan test edilmesinin sağlanması gibi işleri organize eder. Zaman zaman raporlar düzenleyerek yönetici ekibine sunar. Böylece yönetici ekip projenin gidişatı, zaman aşımı, en fazla problem olan modüller veya projenin ne kadarının bittiği konusunda fikir sahibi olurlar.

5-Üçüncü parti Modül Uzmanı
---------------------------------------------------------------

GUI ortamında veya sunucu tarafında kullanılacak modülleri piyasadan takip edecek ve gereklli modüllerin satın alınarak proje içerisinde kullanılmasına yol gösterecek kişidir. Piyasada hali hazırda var olan güvenlik, kredi kartı kontrol, adres defteri vb gibi modüllerin projeye adapte edilmesi, test işlemleri, güncellenmesi, kurulması konularında projeye destek verecektir.

6-Veri Modelleme Uzmanı
---------------------------------------------------------------

Proje veritabanında değişiklik, istek, model değişimi gibi konuları organize eder. Data Modelleme, ERD diagramları, İlişkili veri tabanı mantığı ve UML modelleme konusunda bilgi sahibi olması gerekir. Veri Tabanına saha ekleme, çıkarma, yeni tablo ekleme, çıkarma ve bu işlerin analizleri konularında proje ekibine destekte bulunur.

7-Veritabanı Uzmanı
---------------------------------------------------------------

Veritabanı yönetimi ile uğraşacak, yeni çıkan yamaları uygulayacak, gerekli veritabanlarının yedeğini alacak.

8-Derleme / Kurulum Uzmanı
---------------------------------------------------------------

Yazılmış ürünün derlendikten sonraki kurulum aşamalarını yönetir. Müşteri kurulumları ve gönderilen yamaların kayıtlarını tutar.

9-Standart ve Dökümantasyon Uzmanı
---------------------------------------------------------------

Proje çapında uyulacak standartların dökümantasyonu, yönetimi, ekran dizaynları, veri akış kuralları gibi konuları yönetir. Dökümantasyon yönetimi ile ilgili programları kullanmayı bilmesi gerekir. Lotus Domino.doc veya Microsoft SharePoint Server gibi.

10-Sistem Uzmanı
---------------------------------------------------------------

Network, Domain, İşletim sistemleri gibi alt yapıyı hazırlayacak ve yönetecek, Proxy Server, Domain Server, gibi makineleri yönetecek, yamaları uygulayacak, Unix, Linux, NT ve 2K, 2003 Server işletim sistemlerinde deneyim sahibi olması gerekir.

11-Yardım İşlemleri Uzmanı
-------------------------------------------------------------

Yazılmış programların yardım dökümanlarını yazar ve programlara entegre edilmesi işinde çalışır. Yardım konularında müşterilerden gelen istekleri değerlendirir ve uygular.

Yazılım projesindeki işler hoşuma gitti teşekkür ederim.

Belirli Türdeki Dosyaların Başına Tarih Ekliyor
-------------------------------------------------
Private Sub Command1_Click()
'Aşağıdaki Kod Explorerda dosya özellikleri kısmında bulunan Tür bölümü içinden yazılan
'"JPEG Resmi" yazan dosyaların başına tarih ekliyor
Dim Fsys As New FileSystemObject
Dim ListArgs
Dim ObjFolder, ObjFile
Dim szDateCreated, szYear, szMonth, szDay

If Fsys.FolderExists("C:\Yedek\ArşivBackup\Resim\Norm") Then
Set ObjFolder = Fsys.GetFolder("C:\Yedek\ArşivBackup\Resim\Norm")
For Each ObjFile In ObjFolder.Files
    If ObjFile.Type = "JPEG Resmi" Then
        szDateCreated = ObjFile.DateCreated
        szYear = Year(szDateCreated)
        szMonth = Month(szDateCreated)
        szDay = Day(szDateCreated)
    If szMonth < 10 Then
       szMonth = "0" & szMonth
    End If
   
    If szDay < 10 Then
        szDay = "0" & szDay
    End If
   
    szDateCreated = szYear & "-" & szMonth & "-" & szDay
   
    If szDateCreated <> Left(ObjFile.Name, 10) Then
    ObjFile.Name = szDateCreated & " " & ObjFile.Name
    End If

End If
Next
Else
MsgBox "Seçilen Klasör Bulunamadı!"
End If

"Birlikte Aç" Kutusu Nasıl Çıkartılır?
--------------------------------------------------------------------------------
İşte size küçücük bir püf noktası, yaptığı iş ise çok basit: dosya ilişkilendirmeye yarayan "Birlikte Aç" kutusunu karşınıza getiriyor ve paramatre olarak verdiğiniz dosyayı istediğiniz bir programla açmanıza olanak tanıyor.

Private Sub Command1_Click() ' Komut butonuna tıklandığında
Dim x As Long
x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL dosyaadi.xxx")
End Sub

Anlatacaklarım kalite yolunda bir adımdır;
Aylarca emek verdiniz yaptınız programınızı. Karşısına geçip baktığınızda gururlanmamanız elde değil. Kolay değil onca sayfa kod yazmak.

Peki hiç düşündünüz mü, program ne kadar kullanışlı. Anlatmak istediğim kullanıcıları sabit değerlere boğmamak. Mümkün olduğu kadar seçimlerde kullanıcıyı kaale almak.

Diyelimki programınız multiuser bir program 15 tane kullanıcınız var. Ve programınızda kullanıcılar arası mesaj kutusu olsun,.

Bu tarz bir programda yapılması gereken en önemli şey kullanıcıya istediği kişiden mesaj almamasını sağlamak, veya kullanıcı isterse mesaj geldiğine dair uyarı verdirmek veya gönderdiği mesajlarla ilgili kimin okuduğuna dair geri dönüm mesajı aldırmak. Ama bu, kullanıcı isterse olmalı.

Program ayları diye bir bölüm olmalı bence. Bu bölümü olmayan program balkonsuz eve benzer. Ne mecburiyeti var kullanıcının herkesten mesaj almasına.

Tabi bu verdiğim bir örnek. Bunun gibi birçok şeyi kullanıcıya yaptırmalısınız. Kullanıcı bilmeli ki kendisi izin vermeze program birşeyler yapmaz.

İnanın basit birşey gibi görünse de çok çok önemli birşey program ayarları. Ne bileyim,

--Programın fontunu
--Menülerin sırasını
--Hatta ve hatta ikonları

bile kullanıcıya seçtirmeniz çok doğru bir seçim olacaktır.

Düşünün bir...

selam arkadaşlar bende biraz basic biliyorum ve bunu paylaşmak istedim:
bu kodla hani programlarda olur ya kişini adı,veya numarası yazılır ve o kişiyle iligili veriler ekrana gelir işte o kodu veriyorum.
1)projemize bir veritabanı(access)belgesi hazırlıyoruz
2)basic açılır accesste hazırlanmış olan alanlara karşılık gelecek textler hazırlanır.Yani basicte form düzeni hazırlanır
3)access,basic bağlantısı kurmak için basicte araç çubuklarının  
olduğu yerde boş bir yere sağ tuş/components seçilir.Gelen penceredene microsoft ado data control 6.0(sp6)(oledb)seçilir.
4)forma adodc eklenir
5)adodc nesnesi üzerinde sağ tuş properties yapılır
gelen pencerede alttan built tıklanır.Microsoft jet 4.0 ole db provider seçilir.
ileri denir.Bağlantıdan veri tabanı seçilir altta açılan bağlantıyı sınaya tıklanır ve bağlantı sınanır tamam denir.
sonra yukarıdaki menülerden recordsource tıklanır.
commond type bölümünden cmd tablo
table name bölümünden tablo ismi seçilir.
6)basic te bulunan textlerin datasource si adodc1
data fieldi alan adı olarak belirlenir.
veri tabanı bağlantısı yapılmış olur
bu işlemler yapıldıktan sonra veri tabanındaki kayıtlar basic gözüküyorsa doğru yapmışsınız demektir.
daha sonra araç çubuğunun olduğu yere sağ tuş/components seçilir.Gelen penceredene microsoft datagrid control 6.0 seçilir.data grid nesnesi belgeye eklenir.
data grid nesnesinin sadece datasource özelliği adodc1 olarak seçilir.Formu çalıştırdığınızda eğer veri tabanınaki veriler data grid tablosunda gözükürse buraya kadar herşey doğru demektir.
son olarak forma bi tane buton ekleyin ve ve butona çift tıklayarak kod kısmına geçin ve oraya şu kodu yapıştırın
Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from eleman where adi like  '%" & Text6 & "%'"
Adodc1.Refresh
End Sub

kodlarda bulunan eleman yazan kısım sizin veri tabanı tablonuzun adı, adi olan kısım ise tabloda bulunan alan adıdır.
&text6&sizin hangi texte arama yaptıracağınızı gösterir yani orayı değiştirebilirsiniz.
bu işlemler bittikten sonra formu çalıştırın ve text6 yazana yere  bilgileri aranacak kişinin adı yazılır ve butona basılır
ve data grid nesnesinde sadece o kişin verileri görüntülenir.
benden bu kadar herkse kolay gelsin..