cari takip programı ekler misiniz

Sordum.com tarafindan kodlanmış Programlar hakkinda bilgi paylasim alanidir.
Cevapla
loveme
Terabyte1
Terabyte1
Mesajlar: 3602
Kayıt: 10 Tem 2007, 11:47
cinsiyet: Erkek
Teşekkür edildi: 39 kez
İletişim:

cari takip programı ekler misiniz

Mesaj gönderen loveme »

excelde taksit
fatura takip gibi
borç takip
teşekkürler
Kayserilifatih
Megabyte4
Megabyte4
Mesajlar: 1547
Kayıt: 30 Ağu 2024, 20:48
Teşekkür etti: 402 kez
Teşekkür edildi: 1355 kez

Re: cari takip programı ekler misiniz

Mesaj gönderen Kayserilifatih »

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.
Kullanıcı avatarı
zirvedeneme
Kilobyte1
Kilobyte1
Mesajlar: 294
Kayıt: 14 Nis 2022, 13:05
Teşekkür etti: 53 kez
Teşekkür edildi: 111 kez

Re: cari takip programı ekler misiniz

Mesaj gönderen zirvedeneme »

loveme yazdı: 27 Eki 2024, 19:20 excelde taksit
fatura takip gibi
borç takip
teşekkürler
Ücreti mukabilinde istediğiniz programı oluşturabilirim
Kullanıcı avatarı
TRWE_2012
Exabyte2
Exabyte2
Mesajlar: 12250
Kayıt: 25 Eyl 2013, 13:38
cinsiyet: Erkek
Teşekkür etti: 1255 kez
Teşekkür edildi: 2962 kez

Re: cari takip programı ekler misiniz

Mesaj gönderen TRWE_2012 »

zirvedeneme yazdı: 20 Kas 2024, 15:13
loveme yazdı: 27 Eki 2024, 19:20 excelde taksit
fatura takip gibi
borç takip
teşekkürler
Ücreti mukabilinde istediğiniz programı oluşturabilirim
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."

Kod Açıklaması :

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 :

Resim

Resim

Resim

Resim

Resim

Resim

Resim
Güle güle kullanın...
Cevapla