« Visual Basic » : différence entre les versions
« Visual Basic » défini et expliqué aux enfants par les enfants.
Jump to navigation
Jump to search
Aucun résumé des modifications |
(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]] |
*[[VBScript]] |
||
*[[Visual Basic .NET]] |
*[[Visual Basic .NET]] |
||
== Exemple de codage<br> == |
|||
*<u>Navigateur (Programmation orienté objet)</u> : |
|||
<br> |
<br> |
||
| ⚫ | |||
{| 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<br> Private Const WM_NCLBUTTONDOWN = &HA1<br> Private Const HTCAPTION = 2 |
|||
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<br> (ByVal hwnd As Integer, ByVal wMsg As Integer, _<br> ByVal wParam As Integer, ByVal lParam As String) As Integer<br> 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<br> lHwnd = Me.Handle<br> If lHwnd = 0 Then Exit Sub<br> ReleaseCapture()<br> SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) |
|||
<br> End Sub |
|||
Private Sub txt_copier_Click(sender As System.Object, e As System.EventArgs) Handles txt_copier.Click<br> WebBrowser1.GoBack()<br> End Sub |
|||
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click<br> WebBrowser1.GoForward()<br> End Sub |
|||
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click<br> WebBrowser1.Refresh()<br> End Sub |
|||
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click<br> WebBrowser1.Stop()<br> End Sub |
|||
Private Sub Navigateur_Load(sender As Object, e As System.EventArgs) Handles Me.Load<br> WebBrowser1.Navigate("http://www.google.be")<br> End Sub |
|||
<br> Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click<br> WebBrowser1.ShowPrintPreviewDialog()<br> End Sub |
|||
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click<br> WebBrowser1.Navigate("http://www.google.be")<br> End Sub |
|||
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click<br> My.Settings.NUMFAVORI = My.Settings.NUMFAVORI + 1<br> My.Settings.Save()<br> If My.Settings.NUMFAVORI = 4 Then<br> My.Settings.NUMFAVORI = 1<br> My.Settings.Save()<br> End If<br> If My.Settings.NUMFAVORI = 1 Then<br> My.Settings.fAVORI1 = WebBrowser1.Url.ToString<br> My.Settings.Save()<br> ElseIf My.Settings.NUMFAVORI = 2 Then<br> My.Settings.FAVORI2 = WebBrowser1.Url.ToString<br> My.Settings.Save()<br> ElseIf My.Settings.NUMFAVORI = 3 Then<br> My.Settings.FAVORI3 = WebBrowser1.Url.ToString<br> My.Settings.Save()<br> End If<br> End Sub |
|||
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click<br> WebBrowser1.Navigate(My.Settings.fAVORI1)<br> End Sub |
|||
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click<br> WebBrowser1.Navigate(My.Settings.FAVORI2)<br> End Sub |
|||
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click<br> WebBrowser1.Navigate(My.Settings.FAVORI3)<br> End Sub |
|||
Private Sub Navigateur_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed |
|||
End Sub<br> |
|||
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click<br> WebBrowser1.Navigate("https://www.google.be/search?q=" & TextBox1.Text)<br> End Sub<br>End Class |
|||
</div> <br> |
|||
|} |
|||
| ⚫ | |||
*<u>Calculatrice (sans interface graphique)</u> : |
|||
<br> |
|||
{| 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()<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 |
|||
</div> |
|||
|} |
|||
[[Catégorie:Informatique]] |
[[Catégorie:Informatique]] |
||
Version du 20 juillet 2014 à 21:22
Visual Basic est un langage de programmation dérivé du BASIC créé par Microsoft. Il est apparu 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
Ce que tu peux faire
Outils 
Outils personnels