Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

zdroj

By: a guest on Apr 25th, 2012  |  syntax: None  |  size: 6.00 KB  |  hits: 19  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Imports System.Math
  2. Public Class JUS1frm
  3.     Dim Zdatum As Date
  4.     Dim Kdatum As Date
  5.     Dim u As Double
  6.     Dim i As Double
  7.     Dim Kn As Double
  8.     Dim K0 As Double
  9.     Dim n As Integer
  10.     Public Shared urok_standart As Integer
  11.     Private _childForm As stdfrm
  12.  
  13.     Private Sub Carka(ByRef M1 As String)
  14.         Dim a, b As String
  15.         a = ","
  16.         b = "."
  17.         M1 = M1.Replace(a, b)
  18.     End Sub
  19.  
  20.     Private Sub Carka1(ByRef M1 As String)
  21.         Dim a, b As String
  22.         a = "."
  23.         b = ","
  24.         M1 = M1.Replace(a, b)
  25.     End Sub
  26.  
  27.     Private Sub Btnvypoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvypoc.Click
  28.  
  29.         If Rbdatumy.Checked Then
  30.             Dim s As System.TimeSpan
  31.             s = DateTimePicker1.Value - DateTimePicker2.Value
  32.             TBuobdobie.Text = (s.Days) / urok_standart
  33.         End If
  34.  
  35.         If RBuobdobie.Checked Then
  36.             TBuobdobie.Text = TBuobdobie.Text / urok_standart
  37.         End If
  38.         'If Int(TxBi.Text) > 0 And IsNumeric(TxBi.Text) < 1 Then
  39.         '    MsgBox("Úroková sadzba musí byť v intervale <0,1>!")
  40.         'End If
  41.         Carka(TxBi.Text)
  42.         If Val(TxBi.Text) < 0 Or Val(TxBi.Text) > 1 Then
  43.             MsgBox("Úroková sadzba musí byť v intervale <0,1>!")
  44.         End If
  45.         Carka1(TxBi.Text)
  46.  
  47.         If Trim(TxBKn.Text) = "" And Trim(TxBK0.Text) <> "" And Trim(TxBi.Text) <> "" And Trim(TBuobdobie.Text) <> "" Then
  48.             If IsNumeric(TxBK0.Text) And IsNumeric(TxBi.Text) And IsNumeric(TBuobdobie.Text) Then
  49.                 Label11.Text = TxBK0.Text * (1 + TxBi.Text * TBuobdobie.Text)
  50.             Else
  51.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  52.             End If
  53.  
  54.             'ElseIf Kn = 0 And K0 <> 0 And u <> 0 Then
  55.             '    Label11.Text = K0 + u
  56.  
  57.         ElseIf Trim(TxBKn.Text) = "" And Trim(TxBK0.Text) <> "" And Trim(TxBu.Text) <> "" Then
  58.             If IsNumeric(TxBK0.Text) And IsNumeric(TxBu.Text) Then
  59.                 Label11.Text = TxBK0.Text + TxBu.Text
  60.             Else
  61.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  62.             End If
  63.             'ElseIf u = 0 And K0 <> 0 And i <> 0 And n <> 0 Then
  64.             '    Label12.Text = K0 * n * i
  65.  
  66.         ElseIf Trim(TxBu.Text) = "" And Trim(TxBK0.Text) <> "" And Trim(TxBi.Text) <> "" And Trim(TBuobdobie.Text) <> "" Then
  67.             If IsNumeric(TxBK0.Text) And IsNumeric(TxBi.Text) And IsNumeric(TBuobdobie.Text) Then
  68.                 Label12.Text = TxBK0.Text * TBuobdobie.Text * TxBi.Text
  69.             Else
  70.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  71.             End If
  72.             'ElseIf K0 = 0 And Kn <> 0 And i <> 0 And n <> 0 Then
  73.             '    K0 = Kn / (1 + i * n)
  74.             '    Label3.Text = K0
  75.         ElseIf Trim(TxBK0.Text) = "" And Trim(TxBKn.Text) <> "" And Trim(TxBi.Text) <> "" And Trim(TBuobdobie.Text) <> "" Then
  76.             If IsNumeric(TxBKn.Text) And IsNumeric(TxBi.Text) And IsNumeric(TBuobdobie.Text) Then
  77.                 Label13.Text = TxBKn.Text / (1 + TxBi.Text * TBuobdobie.Text)
  78.             Else
  79.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  80.             End If
  81.             'ElseIf n = 0 And Kn <> 0 And K0 <> 0 And i <> 0 Then
  82.             '    n = (Kn - K0) / (K0 * i)
  83.             '    txtUrokObdobie.Text = n
  84.         ElseIf Trim(TBuobdobie.Text) = "" And Trim(TxBKn.Text) <> "" And Trim(TxBK0.Text) <> "" And Trim(TxBi.Text) <> "" Then
  85.             If IsNumeric(TxBKn.Text) And IsNumeric(TxBK0.Text) And IsNumeric(TxBi.Text) Then
  86.                 TBuobdobie.Text = (TxBKn.Text - TxBK0.Text) / (TxBK0.Text * TxBi.Text)
  87.             Else
  88.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  89.             End If
  90.             'ElseIf n = 0 And u <> 0 And K0 <> 0 And i <> 0 Then
  91.             '    n = u / (K0 * i)
  92.             '    txtUrokObdobie.Text = n
  93.         ElseIf Trim(TBuobdobie.Text) = "" And Trim(TxBu.Text) <> "" And Trim(TxBK0.Text) <> "" And Trim(TxBi.Text) <> "" Then
  94.             If IsNumeric(TxBu.Text) And IsNumeric(TxBK0.Text) And IsNumeric(TxBi.Text) Then
  95.                 TBuobdobie.Text = (TxBKn.Text - TxBK0.Text) / (TxBK0.Text * TxBi.Text)
  96.             Else
  97.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  98.             End If
  99.             'ElseIf i = 0 And Kn <> 0 And K0 <> 0 And n <> 0 Then
  100.             '    i = (Kn - K0) / K0 * n
  101.             '    Label4.Text = i
  102.         ElseIf Trim(TxBi.Text) = "" And Trim(TxBKn.Text) <> "" And Trim(TxBK0.Text) <> "" And Trim(TBuobdobie.Text) <> "" Then
  103.             If IsNumeric(TxBKn.Text) And IsNumeric(TxBK0.Text) And IsNumeric(TBuobdobie.Text) Then
  104.                 Label14.Text = (TxBKn.Text - TxBK0.Text) / (TxBK0.Text * TBuobdobie.Text)
  105.             Else
  106.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  107.             End If
  108.             'ElseIf i = 0 And u <> 0 And K0 <> 0 And n <> 0 Then
  109.             '    i = u / (K0 * n)
  110.             '    Label4.Text = i
  111.         ElseIf Trim(TxBi.Text) = "" And Trim(TxBu.Text) <> "" And Trim(TxBK0.Text) <> "" And Trim(TBuobdobie.Text) <> "" Then
  112.             If IsNumeric(TxBKn.Text) And IsNumeric(TxBK0.Text) And IsNumeric(TBuobdobie.Text) Then
  113.                 Label14.Text = TxBu.Text / (TxBK0.Text * TBuobdobie.Text)
  114.             Else
  115.                 MsgBox("Někde jste nezadali číselnou hodnotu.")
  116.             End If
  117.         Else
  118.             MsgBox("Zadali ste nedostatok premenných pre výpočet!")
  119.         End If
  120.  
  121.  
  122.  
  123.     End Sub
  124.  
  125.  
  126.     Private Sub RBano_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBano.CheckedChanged
  127.         Dim frm As stdfrm
  128.         frm = New stdfrm
  129.         frm.ShowDialog()
  130.         If _childForm Is Nothing Then
  131.             _childForm = New stdfrm
  132.         End If
  133.         _childForm.ShowDialog()
  134.  
  135.     End Sub
  136.  
  137.     Private Sub Btnkoniec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkoniec.Click
  138.         End
  139.     End Sub
  140. End Class
create a new version of this paste RAW Paste Data