Visual Basic - Historique des versions

Lorangeo : Révocation des modifications de Mimimo76 (discussion) vers la dernière version de Jereemy

2014-07-21T08:55:28Z

Révocation des modifications de Mimimo76 (discussion) vers la dernière version de Jereemy

@@ Ligne 6 : / Ligne 6 : @@
 *[[VBScript]]
 *[[Visual Basic .NET]]
 <br>
 [[Catégorie:Informatique]]

Mimimo76 : Contenu remplacé par « '''Visual Basic''' est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparu pour la première … »

2014-07-20T21:22:41Z

Contenu remplacé par « '''Visual Basic''' est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparu pour la première … »

@@ Ligne 6 : / Ligne 6 : @@
 *[[VBScript]]
 *[[Visual Basic .NET]]
 <br>
 [[Catégorie:Informatique]]

Jereemy le 18 avril 2014 à 12:42

2014-04-18T12:42:12Z

← Version précédente		Version du 18 avril 2014 à 12:42
Ligne 1 :		Ligne 1 :
	'''Visual Basic''' est un [[~~langage~~ de programmation\|langage de programmation]] dérivé du [[BASIC]] créé par [[Microsoft\|Microsoft]]. Il est apparu pour la première fois en 1991. Il permet de créer des [[~~application~~\|applications]] rapidement, facilement et avec une interface graphique.		'''Visual Basic''' est un [[Langage de programmation\|langage de programmation]] dérivé du [[BASIC]] créé par [[Microsoft\|Microsoft]]. Il est apparu pour la première fois en 1991. Il permet de créer des [[Application\|applications]] rapidement, facilement et avec une interface graphique.

	== Langages dérivés de Visual Basic ==		== Langages dérivés de Visual Basic ==
Ligne 10 :		Ligne 10 :

	*<u>Navigateur (Programmation orienté objet)</u> :		*<u>Navigateur (Programmation orienté objet)</u> :

			<br>

	{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"		{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"
Ligne 55 :		Ligne 57 :

	*<u>Calculatrice (sans interface graphique)</u> :		*<u>Calculatrice (sans interface graphique)</u> :

			<br>

	{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"		{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"
Ligne 63 :		Ligne 67 :
	Sub Main()<br> Dim Entree As String<br> Dim Nombre1 As Integer<br> Dim Nombre2 As Integer<br> Console.Beep(500, 100)<br> Console.WriteLine("Que veux tu faire ? M pour multiplication, D pour division, A pour addition et S pour soustraction")<br> Entree = Console.ReadLine<br> If Entree = "M" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "x" & Nombre2 & "=" & Nombre1 * Nombre2)<br> ElseIf Entree = "D" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "/" & Nombre2 & "=" & Nombre1 / Nombre2)<br> ElseIf Entree = "A" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "+" & Nombre2 & "=" & Nombre1 + Nombre2)<br> Else<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "-" & Nombre2 & "=" & Nombre1 - Nombre2)<br> End If<br> Console.ReadKey()<br> Console.Beep(500, 100)<br> End Sub		Sub Main()<br> Dim Entree As String<br> Dim Nombre1 As Integer<br> Dim Nombre2 As Integer<br> Console.Beep(500, 100)<br> Console.WriteLine("Que veux tu faire ? M pour multiplication, D pour division, A pour addition et S pour soustraction")<br> Entree = Console.ReadLine<br> If Entree = "M" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "x" & Nombre2 & "=" & Nombre1 * Nombre2)<br> ElseIf Entree = "D" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "/" & Nombre2 & "=" & Nombre1 / Nombre2)<br> ElseIf Entree = "A" Then<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "+" & Nombre2 & "=" & Nombre1 + Nombre2)<br> Else<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 1")<br> Nombre1 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine("Entre le nombre 2")<br> Nombre2 = Console.ReadLine<br> Console.Beep(500, 100)<br> Console.WriteLine(Nombre1 & "-" & Nombre2 & "=" & Nombre1 - Nombre2)<br> End If<br> Console.ReadKey()<br> Console.Beep(500, 100)<br> End Sub

	End Module~~<br><br>~~		End Module
	</div~~> <br~~>		</div>
	\|}		\|}

Jereemy le 18 avril 2014 à 12:40

2014-04-18T12:40:34Z

← Version précédente		Version du 18 avril 2014 à 12:40
Ligne 1 :		Ligne 1 :
		⚫	'''Visual Basic''' est un [[langage de programmation\|langage de programmation]] dérivé du [[BASIC]] créé par [[Microsoft\|Microsoft]]. Il est apparu pour la première fois en 1991. Il permet de créer des [[application\|applications]] rapidement, facilement et avec une interface graphique.
	=== Introduction ===

		⚫	== Langages dérivés de Visual Basic ==
⚫	Visual Basic est un langage de programmation dérivé du [[BASIC]] créé par Microsoft. Il est ~~apparut~~ pour la première fois en 1991. Il permet de créer des applications rapidement, facilement et avec une interface graphique.~~<br>~~

		⚫	*[[Visual Basic for Applications]] (VBA)
	<br>

⚫	=== Langages dérivés de Visual Basic ===

⚫	*~~ ~~[[~~VBA\|~~Visual Basic for Applications (VBA)]]
	*[[VBScript]]		*[[VBScript]]
	*[[Visual Basic .NET]]		*[[Visual Basic .NET]]

	=== Exemple de codage<br> ===		== Exemple de codage<br> ==

	~~'''-~~ Navigateur (Programmation orienté objet)~~'''~~<br>		*<u>Navigateur (Programmation orienté objet)</u> :

	<br>

	<br>

	{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"		{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"
Ligne 62 :		Ligne 54 :
	<br>		<br>

	~~'''-~~ Calculatrice (sans interface graphique)~~'''~~<br>		*<u>Calculatrice (sans interface graphique)</u> :

	<br>

	{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"		{\| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"

Mimimo76 : Page créée avec « === Introduction === Visual Basic est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparut pour la première fois en 1991. Il permet de cr… »

2014-04-18T11:45:08Z

Page créée avec « === Introduction === Visual Basic est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparut pour la première fois en 1991. Il permet de cr… »

Nouvelle page

=== Introduction ===

Visual Basic est un langage de programmation dérivé du [[BASIC]] créé par Microsoft. Il est apparut pour la première fois en 1991. Il permet de créer des applications rapidement, facilement et avec une interface graphique. 

 

=== Langages dérivés de Visual Basic ===

* [[VBA|Visual Basic for Applications (VBA)]]
*[[VBScript]]
*[[Visual Basic .NET]]

=== Exemple de codage ===

'''- Navigateur (Programmation orienté objet)''' 

 

 

{| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"
|-
| <div style="height: 350px; overflow-y: auto; background-color: withe;">Public Class Navigateur Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, ByVal lParam As String) As Integer Private Declare Sub ReleaseCapture Lib "user32" ()

Private Sub Barre_mousedown(sender As System.Object, e As System.EventArgs) Handles BARRE.MouseDown

Dim lHwnd As Int32 lHwnd = Me.Handle If lHwnd = 0 Then Exit Sub ReleaseCapture() SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

 End Sub

Private Sub txt_copier_Click(sender As System.Object, e As System.EventArgs) Handles txt_copier.Click WebBrowser1.GoBack() End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click WebBrowser1.GoForward() End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click WebBrowser1.Refresh() End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click WebBrowser1.Stop() End Sub

Private Sub Navigateur_Load(sender As Object, e As System.EventArgs) Handles Me.Load WebBrowser1.Navigate("http://www.google.be") End Sub

 Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click WebBrowser1.ShowPrintPreviewDialog() End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click WebBrowser1.Navigate("http://www.google.be") End Sub

Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click My.Settings.NUMFAVORI = My.Settings.NUMFAVORI + 1 My.Settings.Save() If My.Settings.NUMFAVORI = 4 Then My.Settings.NUMFAVORI = 1 My.Settings.Save() End If If My.Settings.NUMFAVORI = 1 Then My.Settings.fAVORI1 = WebBrowser1.Url.ToString My.Settings.Save() ElseIf My.Settings.NUMFAVORI = 2 Then My.Settings.FAVORI2 = WebBrowser1.Url.ToString My.Settings.Save() ElseIf My.Settings.NUMFAVORI = 3 Then My.Settings.FAVORI3 = WebBrowser1.Url.ToString My.Settings.Save() End If End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click WebBrowser1.Navigate(My.Settings.fAVORI1) End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click WebBrowser1.Navigate(My.Settings.FAVORI2) End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click WebBrowser1.Navigate(My.Settings.FAVORI3) End Sub

Private Sub Navigateur_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

End Sub 

Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click WebBrowser1.Navigate("https://www.google.be/search?q=" & TextBox1.Text) End Sub End Class
</div> 
|}

 

'''- Calculatrice (sans interface graphique)''' 

 

{| width="340" style="border: 4px groove rgb(0, 0, 255);" class="alerte FCK__ShowTableBorders"
|-
| <div style="height: 350px; overflow-y: auto; background-color: withe;">
Module Module1

Sub Main() Dim Entree As String Dim Nombre1 As Integer Dim Nombre2 As Integer Console.Beep(500, 100) Console.WriteLine("Que veux tu faire ? M pour multiplication, D pour division, A pour addition et S pour soustraction") Entree = Console.ReadLine If Entree = "M" Then Console.Beep(500, 100) Console.WriteLine("Entre le nombre 1") Nombre1 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine("Entre le nombre 2") Nombre2 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine(Nombre1 & "x" & Nombre2 & "=" & Nombre1 * Nombre2) ElseIf Entree = "D" Then Console.Beep(500, 100) Console.WriteLine("Entre le nombre 1") Nombre1 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine("Entre le nombre 2") Nombre2 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine(Nombre1 & "/" & Nombre2 & "=" & Nombre1 / Nombre2) ElseIf Entree = "A" Then Console.Beep(500, 100) Console.WriteLine("Entre le nombre 1") Nombre1 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine("Entre le nombre 2") Nombre2 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine(Nombre1 & "+" & Nombre2 & "=" & Nombre1 + Nombre2) Else Console.Beep(500, 100) Console.WriteLine("Entre le nombre 1") Nombre1 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine("Entre le nombre 2") Nombre2 = Console.ReadLine Console.Beep(500, 100) Console.WriteLine(Nombre1 & "-" & Nombre2 & "=" & Nombre1 - Nombre2) End If Console.ReadKey() Console.Beep(500, 100) End Sub

End Module 
</div> 
|}

[[Catégorie:Informatique]]

Visual Basic - Historique des versions

Lorangeo : Révocation des modifications de Mimimo76 (discussion) vers la dernière version de Jereemy

Mimimo76 : Contenu remplacé par « '''Visual Basic''' est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparu pour la première … »

Jereemy le 18 avril 2014 à 12:42

Jereemy le 18 avril 2014 à 12:40

Mimimo76 : Page créée avec « === Introduction === Visual Basic est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparut pour la première fois en 1991. Il permet de cr… »

Lorangeo : Révocation des modifications de Mimimo76 (discussion) vers la dernière version de Jereemy

Mimimo76 : Contenu remplacé par « '''Visual Basic''' est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparu pour la première … »

Mimimo76 : Page créée avec « === Introduction === Visual Basic est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparut pour la première fois en 1991. Il permet de cr… »