Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Visual Basic VB Ytl Uyum Çalışması


VB Ytl Uyum Çalışması

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

  1.  
  2.  
  3. Public Function dblRoundOff(ByVal x As Double, ByVal N As Integer) As Double
  4.        dblRoundOff = CDbl(Int((x * 10 ^ N) + 0.5) / 10 ^ N)
  5.     End Function
  6.  
  7.  
  8. Private Sub Command1_Click()
  9. t1 = Round((Text1 * 10000), 2) * 100
  10. t1 = dblRoundOff(t1, 2)
  11. t2 = Round((Text2 * 10000), 2) * 100
  12. t2 = dblRoundOff(t2, 2)
  13. t3 = Val(t1) + Val(t2)
  14. t4 = (Round((Val(t3) / 10000), 2) / 100)
  15. t4 = dblRoundOff(t4, 2)
  16. Text3.Text = t4
  17. Text3.Text = Format(Text3.Text, "###,###.00 YTL")
  18. Text1.Text = Format(Text1.Text, "###,###.00 YTL")
  19. Text2.Text = Format(Text2.Text, "###,###.00 YTL")
  20. End Sub
  21.  
  22. Private Sub Text1_GotFocus()
  23. If Text3.Text <> "" Then
  24. Text1 = ""
  25. Text2 = ""
  26. Text3 = ""
  27. End If
  28. End Sub
  29.  
  30. Private Sub Text2_GotFocus()
  31. If Text3.Text <> "" Then
  32. Text1 = ""
  33. Text2 = ""
  34. Text3 = ""
  35. End If
  36. End Sub
  37.  
  38.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Çarşamba, 29 Ocak 2014 17:13 )