cari takip programı ekler misiniz
Gönderilme zamanı: 27 Eki 2024, 19:20
excelde taksit
fatura takip gibi
borç takip
teşekkürler
fatura takip gibi
borç takip
teşekkürler
cari takip programı ekler misiniz
1. sayfa (Toplam 1 sayfa)
Re: cari takip programı ekler misiniz
Gönderilme zamanı: 27 Eki 2024, 19:27
Yapan bir arkadaşımız vardı sonra ücretli olarak yaparım diyerek ücretliye çevirdi rica ederek soran başka bir arkadaşa daha. Onun dışında da sitede böyle muhasebe tarzı programlar yapan yok diye biliyorum.
Re: cari takip programı ekler misiniz
Gönderilme zamanı: 20 Kas 2024, 15:13
Ücreti mukabilinde istediğiniz programı oluşturabilirim
Re: cari takip programı ekler misiniz
Gönderilme zamanı: 21 Kas 2024, 16:21
Ben sana basit bir .vbs betiği kodladım..
Aylık Borç Takip.vbs
Kod: Tümünü seç
Dim fso, file, borc, tarih, aciklama, taksit, paraBirimi, masaustuYolu
' Dosya sistemi nesnesi oluştur
Set fso = CreateObject("Scripting.FileSystemObject")
' Kullanıcının masaüstü yolunu al
masaustuYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\aylık borç takip.txt"
' Borç bilgilerini al
borc = InputBox("Borç Tutarını Girin:")
tarih = InputBox("Borç Tarihini Girin (GG/AA/YYYY):")
aciklama = InputBox("Açıklama Girin:")
taksit = InputBox("Taksit Sayısını Girin:")
paraBirimi = InputBox("Para Birimini Seçin (TL, Dolar, Euro):")
' Dosyayı aç veya oluştur (8 = ekleme modu)
Set file = fso.OpenTextFile(masaustuYolu, 8, True)
' Bilgileri dosyaya yaz
file.WriteLine("Borç Tutarı: " & borc & " " & paraBirimi & " - Tarih: " & tarih & " - Açıklama: " & aciklama & " - Taksit Sayısı: " & taksit)
' Dosyayı kapat
file.Close
' Kullanıcıya bilgi ver
MsgBox "Borç bilgileri masaüstüne kaydedildi."
Bu betik, kullanıcıdan borç tutarı, tarih, açıklama, taksit sayısı ve para birimi (TL, Dolar, Euro) bilgilerini alır ve bunları "aylık borç takip.txt" dosyasına kaydeder."aylık borç takip.txt" dosyasında daha önceden yazılmış verilerin altına da yeni verileri ekler. (dosyanın üzerine yazılmaz)
Ekran görüntüleri :
