Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » YTL : KRŞ (Yüzdesi 5 ve 0 olması için) Yanında Seans Hesaplama Hediye :)
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Key logger

Yazar: hakantat

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 5060
Yayın Tar:21.11.2005
Yazar : exprees
Hit :1869

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

'Gerekli malzemeler:)
'2 adet TextBox, 1 Adet Command Buton

Private Sub Command1_Click()
Dim HTutar, Htutar1, Htutar2, Htutar3, Htutar4, Htutar5, AZaman, PSFiyat

PSFiyat = "1,5" 'PlayStation2 nin YTL türünde fiyatını belirliyoruz
AZaman = Format(Text1, "00.00") 'Text1 de açılacak seansı saat,dakika
'şeklinde yazıcaz (1)1saat, (0,30) Yarım saat (1,30), 1 saat 30 dakika gibi format bu :)

Htutar1 = Left(AZaman, 2) 'Saat kısmını kesiyoruz
HTutar = Mid(AZaman, 4, 2) 'Dakika kısmını kesiyoz

Htutar2 = ((Htutar1 * 60) + HTutar) * (PSFiyat / 60)
'"(Htutar1 * 60) + HTutar)" dakikaya çevirdik "(PSFiyat / 60)" dakikası
'kaçpara onu bulduk ve bu iki değeri çarpınca açılan seansın tutarını bulduk
Htutar2 = Format(Htutar2, "00.00") 'bu değeri kuruş kısmını ".00" hane olmasını sağladık
'Dikkat yukardaki kodla en fazla 99.99Ytl çıkar. Amacım seans hesaplamak olduğundan yeterli
'"6 yıllık cafecilikte bu rakkamı görmedim :)" ama siz başka amacla kullanacaksanız ufak değişiklikler şart
'Yuvarlamak içIn 3 e ayırdım tutarı
Htutar3 = Val(Htutar2) 'tamsayı kısmı 1 YTL içIn
Htutar4 = Mid(Htutar2, 4, 1) 'kuruş kısmı ondası
Htutar5 = Mid(Htutar2, 5, 1) 'kuruş kısmı yüzdesi "yani problem çocuk :)"
'Şimdi problem çocuğu uslandıralım 5 ve katlarına
Select Case Htutar5
Case Is = 0, Is = 1, Is = 2 '02Krş bize kaçar
Htutar5 = 0
Case Is = 3, Is = 4, Is = 5, Is = 6, Is = 7 ' 03Krş la 07Krş arası 05 Krş a eşitlenir
Htutar5 = 5
Case Is = 8, Is = 9 '08 le 09 Krş ta bize yarar yüzde 0 lanır ve ondaya 1 ekler
Htutar5 = 5
Htutar4 = Htutar4 + 1
End Select
Select Case Htutar4 'Ondanın artık yapması halinde tamsayıya 1 ekler
Case Is = 10
Htutar4 = 0
Htutar3 = Htutar3 + 1
End Select
' Nihayet sonuç aşağıda. Ben 00,00 YTL. gözüksün istedim .Ama siz zevkinize göre ayarlayın :)
Text2 = Format(Htutar3, "00") & "," & Htutar4 & Htutar5 & " YTL."

End Sub




Yorumlar, eklemeler ve düşünceler
        tarih parçası almak için datepart fonksiyonu, yuvarlama için de round fonksiyonu ayrıca teknik hazır fonksiyonlar için ise ppmt gibi (excel fonksiyonlarında da var olan) hazır fonksiyonlardan faydalanılabilir
;o)


   mahoni06, 21.11.2005 22:02
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin