VB.NET Remote Mysql Database Connection

Firstly download this file.

https://www.cryptool.org/trac/CrypTool2/export/2020/trunk/AppReferences/x64/MySql.Data.dll

After add import Mysql Data Client in to form

Imports MySql.Data.MySqlClient

and connect remote mysql database vith vb.net

MySqlConnection("server=remotemysql.com; User Id=FKQwSrN1Hj; pwd=2R9f6eYDaa; database=FKQwSrN1Hj;")

       

All Codes:

Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MySQLconn As New MySqlConnection
        MySQLconn = New MySqlConnection("server=remotemysql.com; User Id=FKQwSrN1Hj; pwd=2R9f6eYDaa; database=FKQwSrN1Hj;")
        Try
            MySQLconn.Open()
            MsgBox("Connection Sucess", vbOKOnly)
            MySQLconn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

VB.NET Küsüratlı Türk Lirası Toplamak

VB.NET Küsüratlı Türk Lirası Toplamak için internet te hiç kaynak yok, ben de biraz zaman harcayarak sorunsuz ve çok kolay bir şekilde bu problemi hallettim.

Öncelikle formumuza 2 adet TextBox oluşturuyoruz.
Sonra altına bir tane Button oluşturuyoruz.
Altına da bir adet label ekliyoruz.

Kodda da gördüğünüz gibi a ve b değişkenlerinin veri tipini Double olarak ayarlıyoruz, sonra FormatCurrency fonksiyonu ile a ile b değerini topluyoruz, çıkan sonuç tam küsüratlı olarak hem de TL işareti ile bize veriliyor.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' TextBox1 değeri 1.561,17  // Bin Beşyüz Altmış Bir TL On Yedi Kuruş
        ' TextBox2 değeri 2,5       // İki TL Elli Kuruş
        Dim a As Double = TextBox1.Text
        Dim b As Double = TextBox2.Text
        Label1.Text = FormatCurrency(a + b)
    End Sub
End Class

Sonuç

Programı çalıştırdığınızda formata uygun TL ve kuruş değeri para birimlerini sıkıntısız toplayabilirsiniz.