Skip to main content

AccessTr.neT


sistem uyuşmazlığı

sistem uyuşmazlığı

Çözüldü #1
Merhaba arkadaşlar,
Win 7 de bir çalışma hazırladım. Bu çalışmamdan "para çevir" kod u win 7 de sorunsuz çalışırken xp de hata veriyor "cant find project or library" bu sorunu nasıl çözerim.

Teşekürler.
Kod:
Public Function ParaCevir(Para)
    Dim ParaStr As String
    Dim YTL As String, Kurus As String
    Dim sifirsa As String
    Dim ve As String
    If Not IsNumeric(Para) Then GoTo SayiDegil
    
    ParaStr = Format(Abs(Para), "0.00")
    
    YTL = Left(ParaStr, Len(ParaStr) - 3)
    Kurus = Right(ParaStr, 2)
    If Cevir(Kurus) = "SIFIR" Then sifirsa = "" Else sifirsa = Cevir(Kurus) & " KURUŞ"
    If Cevir(Kurus) = "SIFIR" Then ve = "" Else ve = " ve "
    ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(YTL) & " TL " & ve & sifirsa
    
    Exit Function
    
SayiDegil:
    ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
End Function

Private Function Cevir(SayiStr As String) As String
    Dim Rakam(15)
    Dim c(3), Sonuc, e
    
    Birler = Array("", "BİR", "İKİ", "ÜÇ", "DÖRT", "BEŞ", "ALTI", "YEDİ", "SEKİZ", "DOKUZ")
    Onlar = Array("", "ON", "YİRMİ", "OTUZ", "KIRK", "ELLİ", "ALTMIŞ", "YETMİŞ", "SEKSEN", "DOKSAN")
    Binler = Array("TRİLYON ", "MİLYAR ", "MİLYON ", "BİN ", "")
    
    SayiStr = String(15 - Len(SayiStr), "0") + SayiStr
    
    For i = 1 To 15
      Rakam(i) = Val(Mid$(SayiStr, i, 1))
    Next i
    
    Sonuc = ""
    For i = 0 To 4
      c(1) = Rakam(i * 3 + 1)
      c(2) = Rakam(i * 3 + 2)
      c(3) = Rakam(i * 3 + 3)
      If c(1) = 0 Then
        e = ""
      ElseIf c(1) = 1 Then
        e = "YÜZ"
      Else
        e = Birler(c(1)) + "YÜZ"
      End If
      e = e + Onlar(c(2)) + Birler(c(3))
      If e <> "" Then e = e + Binler(i)
      If (i = 3) And (e = "BİRBİN ") Then e = "BİN "
      Sonuc = Sonuc + e
    Next i

If Sonuc = "" Then Sonuc = "SIFIR"
  
    
    Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

Cevapla
Çözüldü #2
Alıntı:Merhaba arkadaşlar,
Win 7 de bir çalışma hazırladım. Bu çalışmamdan "para çevir" kod u win 7 de sorunsuz çalışırken xp de hata veriyor "cant find project or library" bu sorunu nasıl çözerim.

Teşekürler.

Demişsiniz bir önceki konunuzda, umarım yukarıda yazdığınız para çevir kodu önceki sorunuzda belirttiğiniz problemli kod değildir. Çünkü aynı sorunla ilgili iki ayrı konu açmak Site Kurallarına göre yasaktır.
Cevapla
Çözüldü #3
Şimdi biz cevabı hangi soruya yazalım, buradakine mi yoksa diğerine mi ?
En iyisi diğerine yazalım Img-grin
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #4
Sn alpin;
Kod penceresini açın, tools/References tıklayın ve eksik olan referansı bulun ve tanıtın.
Örn:
msadox.dll dosyası eksikse bulun ve C:/Windows/System32'ye kopyalayın.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #5
KUSURA BAKMAYIN ARKADAŞLAR SİTEDE YENİ OLUŞUM VE DİKKATSİZLİĞİMDEN KAYNAKLANDI.
Cevapla
Çözüldü #6
her iki konu birleştirilmiştir. lütfen Site Kurallarını inceleyiniz.


Alıntı:6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]

11-) Konu başlığını ve/veya mesajı tümü büyük harfle yazmak yasaktır.
[Uyarı Puanı: +2]
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da