AnasayfaKapıKayıt OlGiriş yap

Paylaş | 
 

 VB YTL ile uyum Programi

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByZonq
Admin
avatar

Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09

MesajKonu: VB YTL ile uyum Programi   Ptsi Ağus. 31, 2009 7:45 pm

rojemize 3 adet text ve 1 adet command ekleyip aşağıda ki kodları yazalım

Public Function dblRoundOff(ByVal x As Double, ByVal N As Integer) As Double
dblRoundOff = CDbl(Int((x * 10 ^ N) + 0.5) / 10 ^ N)
End Function


Private Sub Command1_Click()
t1 = Round((Text1 * 10000), 2) * 100
t1 = dblRoundOff(t1, 2)
t2 = Round((Text2 * 10000), 2) * 100
t2 = dblRoundOff(t2, 2)
t3 = Val(t1) + Val(t2)
t4 = (Round((Val(t3) / 10000), 2) / 100)
t4 = dblRoundOff(t4, 2)
Text3.Text = t4
Text3.Text = Format(Text3.Text, "###,###.00 YTL")
Text1.Text = Format(Text1.Text, "###,###.00 YTL")
Text2.Text = Format(Text2.Text, "###,###.00 YTL")
End Sub

Private Sub Text1_GotFocus()
If Text3.Text <> "" Then
Text1 = ""
Text2 = ""
Text3 = ""
End If
End Sub

Private Sub Text2_GotFocus()
If Text3.Text <> "" Then
Text1 = ""
Text2 = ""
Text3 = ""
End If
End Sub
Sayfa başına dön Aşağa gitmek
http://metin-x.yetkinforum.com
 
VB YTL ile uyum Programi
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Orta Kademe-
Buraya geçin: