Depuis peut je m’intéresse au langage Visual Basic qui est très accessible et permet beaucoup de choses très facilement. N’étant pas du tout spécialiste dans ce domaine je vais dans ce billet partager mes sources afin d’avoir des syntaxes de bases disponible rapidement en ligne.
Si vous passez si ce billet et que des erreurs vous saute aux yeux n’hésitez pas me les signaler. Je n’ai pas encore les reflexes d’un développement et je n’ai pas encore bien acquis les standards de développement dans ce langage.
je publierai régulièrement les exemples de script sur lesquels je travail pour me familiariser avec les syntaxes du langage.
Public Class Form1
'Fonction de calcul finale qui recoit comme argment le montant de la banque ainsi que le cours de la devise a calculer
Function courscryptomonnaie(ByVal argument1 As Decimal, ByVal argument2 As Decimal) As Decimal
Return argument1 * argument2
End Function
Dim decimalcoursdogecoin As Decimal
Dim nombrededogecoin As Decimal
'Determine si la valeur fournie par l'utilisateur est conforme dans la case cours de la monnaie
Private Sub coursdogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coursdogecoin.TextChanged
Dim dec As Decimal
If Decimal.TryParse(coursdogecoin.Text, dec) Then
decimalcoursdogecoin = coursdogecoin.Text
Else
coursdogecoin.Text = 0
End If
End Sub
' Détermine si la valeur fournie par l'utilisateur est conforme dans la case montant de la banque
'Si les deux conditions sont réussi la fonction crourscryptomonnaie est appelé et calcul le montant
Private Sub montantdedogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles montantdedogecoin.TextChanged
Dim dec As Decimal
If Decimal.TryParse(montantdedogecoin.Text, dec) Then
nombrededogecoin = montantdedogecoin.Text
montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€"
Else
montantdedogecoin.Text = 0
End If
End Sub
End Class
'Fonction de calcul finale qui recoit comme argment le montant de la banque ainsi que le cours de la devise a calculer
Function courscryptomonnaie(ByVal argument1 As Decimal, ByVal argument2 As Decimal) As Decimal
Return argument1 * argument2
End Function
Dim decimalcoursdogecoin As Decimal
Dim nombrededogecoin As Decimal
'Determine si la valeur fournie par l'utilisateur est conforme dans la case cours de la monnaie
Private Sub coursdogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coursdogecoin.TextChanged
Dim dec As Decimal
If Decimal.TryParse(coursdogecoin.Text, dec) Then
decimalcoursdogecoin = coursdogecoin.Text
Else
coursdogecoin.Text = 0
End If
End Sub
' Détermine si la valeur fournie par l'utilisateur est conforme dans la case montant de la banque
'Si les deux conditions sont réussi la fonction crourscryptomonnaie est appelé et calcul le montant
Private Sub montantdedogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles montantdedogecoin.TextChanged
Dim dec As Decimal
If Decimal.TryParse(montantdedogecoin.Text, dec) Then
nombrededogecoin = montantdedogecoin.Text
montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€"
Else
montantdedogecoin.Text = 0
End If
End Sub
End Class
Bonsoir, j’aimerai savoir quel pourrait être l’interêt de convertir des coins en visual basic. Pour les intégrer dans un tableau par exemple? je suis novice. Merci
Bonsoir, aucun il s’agissait la d’un début d’apprentissage du VB
cdlt