AccessTr.neT

Tam Versiyon: sistem uyuşmazlığı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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
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.
Şimdi biz cevabı hangi soruya yazalım, buradakine mi yoksa diğerine mi ?
En iyisi diğerine yazalım Img-grin
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.
KUSURA BAKMAYIN ARKADAŞLAR SİTEDE YENİ OLUŞUM VE DİKKATSİZLİĞİMDEN KAYNAKLANDI.
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]
Sayfalar: 1 2 3