[gulguzeli]

Elimde Excel dosyasında oluşturulmuş araçlara ait veriler var.Ben de şirketim için araçlarımı takip etmek istiyorum.

Plaka-Zimmetli-Ayrılma Tarihi ve Saati-Gerigeliş Tarihi ve Saati-Gittiği yer

Bu menüleri içeren ve buna göre takip yapabileceğim,plakayı seçtiğim an tarihi ve saati windowstan otomatik olarak alacak VisualBasic.net te bir program yazmak istiyorum.İlgilenen arkadaşlarım yardımcı olurlarsa sevinirim.

[teddmcload]

http://www.ritmateknoloji.com/arac_f...i_programi.asp

[gulguzeli]

@teddmcload,
Hazır araç takip programları birçok yerde var.Ben stajyerim ve bu programı yazmam istendi.Şu an işin içinden çıkamadım.Kısacası kendim yazmam gerekiyor.İlginize teşekkür ederim.

[absconder]

bu şekilde ne sorununuza çözüm bulabilirsiniz, ne de stajerlik gereği edinmeniz gereken tecrübeyi edinebilirsiniz.

siz projenizi başlatın, algoritmanızı kurun, yapıyı oluşturun, takıldığınız noktada yardım talep edip yardım alabilirsiniz.

[gulguzeli]

@absconder,
Algortiması olmayan birşeyi üretmeye çalışmıyorum zaten.Soruyu soralı birkaç saat oldu, edinmem gereken bilgileri-parça parça da olsa- edindim.
Yardımcı olan arkadaşlara teşekkürler.

[BYK]

Forumda "şöyle şöyle bir program yapmam gerekiyor yardımcı olur musunuz?" tarzında çok genel sorular yerine genelde "şöyle şöyle bir şey yaparken şurada şöyle bir sorun yaşıyorum, fikri olan var mı?" ya da "şöyle bir program/kod parçası arıyorum bilen var mı?" şeklinde daha özel ve sipariş kod/program olmaktan uzak sorulara cevap alabilirsiniz. Sadece sizin değil herkesin aklında bulunsun

[teddmcload]

sanırım gulguzeli windows'tan saati şöyle alırsın. araç bilgilerini şöyle girmen lazım ki arama yaparken şöyle olsun tarzında bir yardım istiyor. eh böyle bir cevabı verecek kimse yok.

[gulguzeli]

teddmcload tarafından gönderilen mesaj:

sanırım gulguzeli windows'tan saati şöyle alırsın. araç bilgilerini şöyle girmen lazım ki arama yaparken şöyle olsun tarzında bir yardım istiyor. eh böyle bir cevabı verecek kimse yok.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 3) Or (Target.Column = 4) Then




If (Cells(Target.Row, 1).Value = "") Then
Cells(Target.Row, 1) = Date
End If






If (Cells(Target.Row, 2).Value = "") Then
Cells(Target.Row, 2) = Time
End If



If (Cells(Target.Row, 3).Value = "") And (Cells(Target.Row, 4).Value = "") And _
(Cells(Target.Row, 5).Value = "") And (Cells(Target.Row, 6).Value = "") Then

Cells(Target.Row, 1) = ""
Cells(Target.Row, 2) = ""
End If

End If
End Sub
Kodlar böyle.. Sorunu çözdüm. Teşekkür ederim.