Results 1 to 3 of 3

Thread: VIsual Basic

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jun:2011
    Location: varna
    Posts: 23

    VIsual Basic

    , , group box , - , ?

    Code:
    Public Class Form1
        Dim Rate As Single
        Dim CurrencyType As String
    
        Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
    
        End Sub
    
        Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtUSD.TextChanged
    
        End Sub
    
        Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtEUR.TextChanged
    
        End Sub
    
        Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles txtSUM.TextChanged
    
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
    
            Rate = Val(txtGBP.Text)
            CurrencyType = ""
        End Sub
    
        Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
            Rate = Val(txtUSD.Text)
            CurrencyType = ""
        End Sub
    
        Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
            Rate = Val(txtCHF.Text)
            CurrencyType = ""
        End Sub
    
        Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
            Rate = Val(txtEUR.Text)
            CurrencyType = ""
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            txtGBP.Enabled = True
            txtCHF.Enabled = True
            txtEUR.Enabled = True
            txtUSD.Enabled = True
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            MsgBox("   " & txtSUM.Text & "    " & Format(Val(txtSUM.Text) / Rate, "### ###.00") & CurrencyType, 0, "!")
    
        End Sub
    
        Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    
        End Sub
    End Class

    ?





    ????

  2. #2
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    , ..
    "", Rate . .
    , , , "". - "".
    - , , .

  3. #3

    Join Date: Apr:2006
    Location:
    Posts: 8,666
    , decimal point ...
    Rate = Val(txtEUR.Text) 1- 156.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |