API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 8th, 2013
229
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.08 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Net
  2.  
  3. Public Class Form1
  4.  
  5. Dim uneseniBroj As Decimal
  6.  
  7. Public vrijednostDolarUKunu As String
  8. Public vrijednostEuroUDolar As String
  9. Public vrijednostDolarUEuro As String
  10. Public vrijednostEuroUKunu As String
  11. Public vrijednostFuntaUKunu As String
  12. Public vrijednostEuroUFuntu As String
  13. Public vrijednostDolarUFuntu As String
  14.  
  15.  
  16. Public uDecimalDolarUKunu As Decimal
  17. Public uDecimalEuroUKunu As Decimal
  18. Public uDecimalEuroUDolar As Decimal
  19. Public uDecimalDolarUEuro As Decimal
  20. Public uDecimalFuntaUKunu As Decimal
  21. Public uDecimalEuroUFuntu As Decimal
  22. Public uDecimalDolarUFuntu As Decimal
  23.  
  24.  
  25.  
  26.  
  27.  
  28. Public Function izracunaj(ByRef uDecimalEuroUKunu, ByRef uDecimalDolarUKunu, ByRef uDecimalFuntaUKunu, ByRef uDecimalEuroUDolar, ByRef uDecimalEuroUFuntu, ByRef uDecimalDolarUFuntu) As Decimal
  29.  
  30. Dim euroUkunu As Byte()
  31. Dim euroUdolar As Byte()
  32. Dim dolarUkunu As Byte()
  33. Dim euroUfuntu As Byte()
  34. Dim dolarUeuro As Byte()
  35. Dim funtaUkunu As Byte()
  36. Dim dolarUfuntu As Byte()
  37.  
  38. Dim webKlijent As WebClient
  39. webKlijent = New WebClient()
  40.  
  41. ReDim euroUkunu(0)
  42. ReDim dolarUkunu(0)
  43. ReDim euroUfuntu(0)
  44. ReDim euroUdolar(0)
  45. ReDim dolarUeuro(0)
  46. ReDim funtaUkunu(0)
  47. ReDim dolarUfuntu(0)
  48.  
  49.  
  50. euroUkunu = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1EUR=?HRK")
  51. dolarUkunu = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1USD=?HRK")
  52. euroUdolar = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1EUR=?USD")
  53. dolarUeuro = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1USD=?EUR")
  54. funtaUkunu = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1GBP=?HRK")
  55. euroUfuntu = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1EUR=?GBP")
  56. dolarUfuntu = webKlijent.DownloadData("http://www.hvka.org/valuta.php?q=1USD=?GBP")
  57.  
  58. Dim spremi As New System.Text.ASCIIEncoding()
  59.  
  60. vrijednostEuroUKunu = spremi.GetString(euroUkunu)
  61. vrijednostEuroUDolar = spremi.GetString(euroUdolar)
  62. vrijednostDolarUKunu = spremi.GetString(dolarUkunu)
  63. vrijednostDolarUEuro = spremi.GetString(dolarUeuro)
  64. vrijednostFuntaUKunu = spremi.GetString(funtaUkunu)
  65. vrijednostEuroUFuntu = spremi.GetString(euroUfuntu)
  66. vrijednostDolarUFuntu = spremi.GetString(dolarUfuntu)
  67.  
  68. uDecimalEuroUKunu = Val(vrijednostEuroUKunu)
  69. uDecimalEuroUDolar = Val(vrijednostEuroUDolar)
  70. uDecimalDolarUKunu = Val(vrijednostDolarUKunu)
  71. uDecimalDolarUEuro = Val(vrijednostDolarUEuro)
  72. uDecimalFuntaUKunu = Val(vrijednostFuntaUKunu)
  73. uDecimalEuroUFuntu = Val(vrijednostEuroUFuntu)
  74. uDecimalDolarUFuntu = Val(vrijednostDolarUFuntu)
  75.  
  76. Return (uDecimalEuroUKunu)
  77. Return (uDecimalDolarUKunu)
  78. Return (uDecimalFuntaUKunu)
  79. Return (uDecimalEuroUDolar)
  80. Return (uDecimalEuroUFuntu)
  81. Return (uDecimalDolarUFuntu)
  82.  
  83. End Function
  84.  
  85.  
  86. Private Sub pretvori_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pretvori.Click
  87. If (iz.Text = "Euro (EUR)") And (u.Text = "Kuna (HRK)") And (IsNumeric(unos.Text)) Then ' 8.3.13. euro u kunu = 7,5928
  88. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  89. rezultat.Text = unos.Text * Decimal.Round(uDecimalEuroUKunu, 4)
  90. Else
  91. If (iz.Text = "Kuna (HRK)") And (u.Text = "Euro (EUR)") And (IsNumeric(unos.Text)) Then
  92. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  93. rezultat.Text = unos.Text / Decimal.Round(uDecimalEuroUKunu, 4)
  94. Else
  95. If (iz.Text = "Američki dolar (USD)") And (u.Text = "Kuna (HRK)") And (IsNumeric(unos.Text)) Then
  96. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  97. rezultat.Text = unos.Text * Decimal.Round(uDecimalDolarUKunu, 4) ' 8.3.13 dolar u kunu = 5,8361
  98. Else
  99. If (iz.Text = "Kuna (HRK)") And (u.Text = "Američki dolar (USD)") And (IsNumeric(unos.Text)) Then
  100. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  101. rezultat.Text = unos.Text / Decimal.Round(uDecimalDolarUKunu, 4)
  102. Else
  103. If (iz.Text = "Kuna (HRK)") And (u.Text = "Američki dolar (USD)") And (IsNumeric(unos.Text)) Then
  104. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  105. rezultat.Text = unos.Text / Decimal.Round(uDecimalDolarUKunu, 4)
  106. Else
  107. If (iz.Text = "Britanska funta (GBP)") And (u.Text = "Kuna (HRK)") And (IsNumeric(unos.Text)) Then
  108. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  109. rezultat.Text = unos.Text * Decimal.Round(uDecimalFuntaUKunu, 4)
  110. Else
  111. If (iz.Text = "Kuna (HRK)") And (u.Text = "Britanska funta (GBP)") And (IsNumeric(unos.Text)) Then
  112. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  113. rezultat.Text = unos.Text / Decimal.Round(uDecimalFuntaUKunu, 4)
  114. Else
  115. If (iz.Text = "Euro (EUR)") And (u.Text = "Američki dolar (USD)") And (IsNumeric(unos.Text)) Then
  116. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  117. rezultat.Text = unos.Text * Decimal.Round(uDecimalEuroUDolar, 4)
  118. Else
  119. If (iz.Text = "Američki dolar (USD)") And (u.Text = "Euro (EUR)") And (IsNumeric(unos.Text)) Then
  120. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  121. rezultat.Text = unos.Text / Decimal.Round(uDecimalEuroUDolar, 4)
  122. Else
  123. If (iz.Text = "Euro (EUR)") And (u.Text = "Britanska funta (GBP)") And (IsNumeric(unos.Text)) Then
  124. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  125. rezultat.Text = unos.Text * Decimal.Round(uDecimalEuroUFuntu, 4)
  126. Else
  127. If (iz.Text = "Britanska funta (GBP)") And (u.Text = "Euro (EUR)") And (IsNumeric(unos.Text)) Then
  128. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  129. rezultat.Text = unos.Text / Decimal.Round(uDecimalEuroUFuntu, 4)
  130. Else
  131. If (iz.Text = "Američki dolar (USD)") And (u.Text = "Britanska funta (GBP)") And (IsNumeric(unos.Text)) Then
  132. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  133. rezultat.Text = unos.Text * Decimal.Round(uDecimalDolarUFuntu, 4)
  134. Else
  135. If (iz.Text = "Britanska funta (GBP)") And (u.Text = "Američki dolar (USD)") And (IsNumeric(unos.Text)) Then
  136. izracunaj(uDecimalEuroUKunu, uDecimalDolarUKunu, uDecimalFuntaUKunu, uDecimalEuroUDolar, uDecimalEuroUFuntu, uDecimalDolarUFuntu)
  137. rezultat.Text = unos.Text / Decimal.Round(uDecimalDolarUFuntu, 4)
  138.  
  139. Else
  140. If (unos.Text = "") Or Not (IsNumeric(unos.Text)) Then
  141. MsgBox("Molimo unesite valjanu vrijednost.", MsgBoxStyle.Information, "That's an error")
  142.  
  143. End If
  144.  
  145. If (iz.Text = u.Text) Or (String.IsNullOrEmpty(iz.SelectedItem)) Or (String.IsNullOrEmpty(u.SelectedItem)) Then
  146. MsgBox("Molimo odaberite odgovarajuće valute.", MsgBoxStyle.Information, "That's an error")
  147.  
  148. End If
  149. End If
  150. End If
  151. End If
  152. End If
  153. End If
  154. End If
  155. End If
  156. End If
  157. End If
  158. End If
  159. End If
  160. End If
  161. End If
  162. End Sub
  163.  
  164. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  165. Application.Exit()
  166. End Sub
  167.  
  168. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  169.  
  170. End Sub
  171.  
  172. Private Sub unos_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unos.TextChanged
  173. If (String.IsNullOrEmpty(unos.Text)) Then
  174. rezultat.Text = ""
  175. End If
  176.  
  177. If (IsNumeric(unos.Text) = False) Then
  178. rezultat.Text = ""
  179. End If
  180.  
  181. If (IsNumeric(unos.Text) = False) And Not (String.IsNullOrEmpty(unos.Text)) Then
  182. kriviUnos.Enabled = True
  183. Else
  184. If (unos.Text = "") Then
  185. kriviUnos.Enabled = False
  186. End If
  187. If Not (unos.Text = "") Then
  188. uneseniBroj = unos.Text
  189. End If
  190. End If
  191. End Sub
  192. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!