vb amine .pdf



Nom original: vb-amine.pdf
Auteur: amine

Ce document au format PDF 1.5 a été généré par Microsoft® Word 2013, et a été envoyé sur fichier-pdf.fr le 18/01/2016 à 00:23, depuis l'adresse IP 105.101.x.x. La présente page de téléchargement du fichier a été vue 235 fois.
Taille du document: 240 Ko (6 pages).
Confidentialité: fichier public




Télécharger le fichier (PDF)










Aperçu du document


FREE ARRAY
Imports System.Array
Public Class Form1
Dim i10 As Integer = CType(InputBox("entrer le nombre d'element",
"array"), Integer)
Dim tab(i10) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Select Case Label1.Text
Case ""
Label1.Text = "A"
Case "A"
Label1.Text = "AR"
Case "AR"
Label1.Text = "ARR"
Case "ARR"
Label1.Text = "ARRAY "
Case " ARRAY"
Label1.Text = "ARRAY "
Case "ARRAY "
Label1.Text = "ARRAY EX"
Case "ARRAY EX"
Label1.Text = "ARRAY_EXEMPLE"
Case "ARRAY_EXEMPLE"
Label1.Text = "A"
End Select
End Sub
'tapez_les-nom

Public Sub addelement()
For i6 = 0 To tab.Length - 1
tab(i6) = InputBox("tapez_les-nom", "tableau_amine")
ListBox1.Items.Add((tab(i6)).ToUpper)
Next
End Sub

Private Sub btn_addelement_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btn_addelement.Click
ListBox1.Items.Clear()
addelement()
End Sub

Private Sub btn_sortarray_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btn_sortarray.Click

Try
For i2 = 0 To tab.Length - 1
ListBox1.Items.Add((tab(i2)).ToUpper)
Next
Catch ex As Exception
MsgBox(" le tableau est vide ?")
MsgBox("PRIÉRE DE : presser le bouton add pour ajouter des
valeurs !")
For i3 = 0 To tab.Length - 1
tab(i3) = ""
ListBox1.Items.Clear()

Next
Finally
ListBox1.Items.Clear()

End Try
ListBox1.Items.Clear()
Array.Sort(tab)
Dim i As Integer
For i = 0 To tab.Length - 1
ListBox1.Items.Add((tab(i)).ToUpper)
Next
End Sub
Private Sub btn_clear_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_clear.Click
For i5 = 0 To tab.Length - 1
ListBox1.Items.Clear()
Array.Clear(tab, 0, i10)
Next
End Sub

Private Sub btn_reverseelement_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btn_reverseelement.Click
ListBox1.Items.Clear()
Array.Reverse(tab)
For i7 = 0 To tab.Length - 1
ListBox1.Items.Add((tab(i7)).ToUpper)
Next

End Sub

End Class

FIGURES ET EXPLICATIONS
Voici la première forme qui apparait après le lancement de l’application c’est
un input box
Qui permet de saisir un nombre qui va représenter le nombre d’éléments du
tableau

Saisissez ici un nombre de votre choix de preférence pour l’essaie
Entre « 1 » et « 8 » juste pour tester votre application
Apres avoir presser sur ok de l’input box voila l’interface qui va apparaitre
Les couleurs de la form c’est mon choix vous pouvez les changes
Un jeux de defilement sur un
label

Appuyer sur ajout pour ajouter des elements

Ajout d’élément

Affichage de l’élément sur la liste box



Documents similaires


array exemple
visiteurscs
ajoutmodifsupprcompterenducs
modifierpraticiencs
ajoutervisiteurcs
renault immo key memento


Sur le même sujet..