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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


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 )  
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.