BC2E-2008
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.



 
AccueilRechercherDernières imagesS'enregistrerConnexion
Le Deal du moment :
Coffret dresseur d’élite ETB ...
Voir le deal
56.90 €

 

 Aide pour le VB

Aller en bas 
AuteurMessage
Seb23
Admin du Sexe
Admin du Sexe
Seb23


Nombre de messages : 135
Age : 37
Localisation : Lille
Date d'inscription : 05/02/2008

Aide pour le VB Empty
MessageSujet: Aide pour le VB   Aide pour le VB Icon_minitimeLun 15 Déc - 23:42

Salut

Tout d'abord j'aurai jamais cru réutiliser ce forum un jour mais bon là il le fallait...
voici une petite aide pour le VB, incomplète car, en tant que branleur professionnel j'ai pas tous les TP...

D'ailleurs j'ai zappé volontairement le "c'est moi qui écrit c'est vb" etc... de la MERDE lol !

--------------------------------------------------------------
--------------------------------------------------------------

TP 3 :

Aide pour le VB Tp3sg7

CODE:

Dim nom, nom2, m, n As Integer
---------------------------------------
Private Sub chargerD_Click()

List2.AddItem ("6 aout 1945")
List2.AddItem ("4 octobre 1958")
List2.AddItem ("1954-1962")
List2.AddItem ("7 fevrier 1992")
List2.AddItem ("1 janvier 1942")
List2.AddItem ("10 décembre 1948")
List2.AddItem ("septembre 1939")
List2.AddItem ("4 aout 1914")
List2.AddItem ("1789")
List2.AddItem ("18-19eme siècle")
End Sub
------------------
Private Sub chargerE_Click()

List1.AddItem ("Bombardement atomique de Hiroshima")
List1.AddItem ("Création de la cinquième république")
List1.AddItem ("Guerre d'algérie")
List1.AddItem ("Création de l'union européenne")
List1.AddItem ("Déclaration des Nations unies")
List1.AddItem ("Déclaration universelle des Droits de l'homme")
List1.AddItem ("Début de la seconde guerre mondiale")
List1.AddItem ("Début de la première guerre mondiale")
List1.AddItem ("Révolution française")
List1.AddItem ("Révolution industrielle")
End Sub
----------------
Private Sub down1_Click()

nn = List1.ListIndex
If nn <> -1 Then

nom_nn = List1.List(nn + 1)
nom_np1 = List1.List(nn)
List1.RemoveItem (nn + 1)
List1.RemoveItem (nn)
List1.AddItem nom_nn, nn
List1.AddItem nom_np1, nn + 1
List1.ListIndex = nn + 1

Else: MsgBox ("Sélectionner un Item SVP !")
End If

End Sub
-----------------------
Private Sub List1_Click()

n = List1.ListIndex
nom = List1.List(n)

End Sub
-----------------------
Private Sub up1_Click()

nn = List1.ListIndex
If nn <> -1 Then

nom_nn = List1.List(nn)
nom_nm1 = List1.List(nn - 1)
List1.RemoveItem (nn)
List1.RemoveItem (nn - 1)
List1.AddItem nom_nn, nn - 1
List1.AddItem nom_nm1, nn
List1.ListIndex = nn - 1

Else: MsgBox ("Sélectionner un Item SVP !")
End If

End Sub
----------------------
Private Sub up2_Click()

nn = List2.ListIndex
If nn <> -1 Then

nom_nn = List2.List(nn)
nom_nm1 = List2.List(nn - 1)
List2.RemoveItem (nn)
List2.RemoveItem (nn - 1)
List2.AddItem nom_nn, nn - 1
List2.AddItem nom_nm1, nn
List2.ListIndex = nn - 1

Else: MsgBox ("Sélectionner un Item SVP !")
End If
End Sub


--------------------------------------------------------------
--------------------------------------------------------------

TP4 :

Aide pour le VB Tp4gy3

CODE :

Dim Ministre(4, 6) As String, L As Integer, C As Integer

----------------------------------
Private Sub Form_Load()
Image1.Picture = LoadPicture("ministres.jpg")

Ministre(0, 0) = "M. François FILLON"
Ministre(0, 1) = "M. Jean-Louis BORLOO"
Ministre(0, 2) = "Mme Michèle ALLIOT-MARIE"
Ministre(0, 3) = "M. Bernard KOUCHNER"
Ministre(0, 4) = "Mme Christine LAGARDE"
Ministre(0, 5) = "M. Brice HORTEFEUX"
Ministre(0, 6) = "Mme Rachida DATI"

Ministre(1, 0) = "M. Michel Barnier"
Ministre(1, 1) = "M. Xavier BERTRAND"
Ministre(1, 2) = "M. Xavier DARCOS"
Ministre(1, 3) = "Mme Valérie PÉCRESSE"
Ministre(1, 4) = "M. Hervé MORIN"
Ministre(1, 5) = "Mme Roselyne BACHELOT-NARQUIN"
Ministre(1, 6) = "Mme Christine BOUTIN"

Ministre(2, 0) = "Mme Christine ALBANEL"
Ministre(2, 1) = "M. Eric WOERTH"
Ministre(2, 2) = "M. Roger KAROUTCHI"
Ministre(2, 3) = "M. Jean-Pierre JOUYET"
Ministre(2, 4) = "M. Laurent WAUQUIEZ"
Ministre(2, 5) = "M.Eric BESSON"
Ministre(2, 6) = "Mme Valérie LETARD"

Ministre(3, 0) = "M. Dominique BUSSEREAU"
Ministre(3, 1) = "Mme Nathalie KOSCIUSKO-MORIZET"
Ministre(3, 2) = "M. Christian ESTROSI"
Ministre(3, 3) = "M. André SANTINI"
Ministre(3, 4) = "M. Jean-Marie BOCKEL"
Ministre(3, 5) = "M. Hervé NOVELLI"
Ministre(3, 6) = "Mme Fadela AMARA"

Ministre(4, 0) = "M. Alain MARLEIX"
Ministre(4, 1) = "Mme Rama YADE"
Ministre(4, 2) = "M. Luc CHATEL"
Ministre(4, 3) = "M. Bernard LAPORTE"
Ministre(4, 4) = "M. Martin HIRSCH"
Ministre(4, 5) = ""
Ministre(4, 6) = ""
End Sub
---------------------
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


If Button Then Image1.Top = Image1.Top + (Y - yy): Image1.Left = Image1.Left + (X - xx)
Text1.Text = X
Text2.Text = Y
L = Y \ 1700
C = X \ 1800
Text3.Text = Ministre(L, C)
Text4.Text = L
Text5.Text = C


End Sub

--------------------------------------------------------------
--------------------------------------------------------------

TP5:

Aide pour le VB Tp5hf0

CODE:

Dim c As Integer
Dim m As Integer
---------------------
Private Sub Command1_Click()
c = CInt(Combo1) + CInt(Combo2) + (CInt(Combo3) * 2)
m = CInt(c / 4)
moy.Text = CInt(m)
End Sub
---------------------------
Private Sub mention_Click()
Select Case m
Case 0 To 10
men = "Toi, t'es bon pour le rattrapage !!!"

Case Is < 12
men = "Passable"

Case Is < 14
men = "Assez Bien"

Case Is < 16
men = "Bien"

Case Is < 18
men = "Très Bien"

Case Is < CInt(20)
men = "Qu'est ce que tu fous là ? Va chez Microsoft..."
End Select
End Sub
-----------------------------
Private Sub Form_Load()
Combo1.AddItem ("1")
Combo1.AddItem ("2")
Combo1.AddItem ("3")
Combo1.AddItem ("4")
Combo1.AddItem ("5")
Combo1.AddItem ("6")
Combo1.AddItem ("7")
Combo1.AddItem ("8")
Combo1.AddItem ("9")
Combo1.AddItem ("10")
Combo1.AddItem ("11")
Combo1.AddItem ("12")
Combo1.AddItem ("13")
Combo1.AddItem ("14")
Combo1.AddItem ("15")
Combo1.AddItem ("16")
Combo1.AddItem ("17")
Combo1.AddItem ("18")
Combo1.AddItem ("19")
Combo1.AddItem ("20")

Combo2.AddItem ("1")
Combo2.AddItem ("2")
Combo2.AddItem ("3")
Combo2.AddItem ("4")
Combo2.AddItem ("5")
Combo2.AddItem ("6")
Combo2.AddItem ("7")
Combo2.AddItem ("8")
Combo2.AddItem ("9")
Combo2.AddItem ("10")
Combo2.AddItem ("11")
Combo2.AddItem ("12")
Combo2.AddItem ("13")
Combo2.AddItem ("14")
Combo2.AddItem ("15")
Combo2.AddItem ("16")
Combo2.AddItem ("17")
Combo2.AddItem ("18")
Combo2.AddItem ("19")
Combo2.AddItem ("20")

Combo3.AddItem ("1")
Combo3.AddItem ("2")
Combo3.AddItem ("3")
Combo3.AddItem ("4")
Combo3.AddItem ("5")
Combo3.AddItem ("6")
Combo3.AddItem ("7")
Combo3.AddItem ("8")
Combo3.AddItem ("9")
Combo3.AddItem ("10")
Combo3.AddItem ("11")
Combo3.AddItem ("12")
Combo3.AddItem ("13")
Combo3.AddItem ("14")
Combo3.AddItem ("15")
Combo3.AddItem ("16")
Combo3.AddItem ("17")
Combo3.AddItem ("18")
Combo3.AddItem ("19")
Combo3.AddItem ("20")
End Sub


--------------------------------------------------------------
--------------------------------------------------------------
TP8 :

Aide pour le VB Tp8rz0

CODE:

Private Sub Cal_Click()
Dim mons As Single
Dim sons As Single

mons = Ms.Text
sons = Ss.Text

moigam.Text = CalculImpot(mons, 1.5)
elle.Text = CalculImpot(sons, 1)
total1.Text = CSng(elle) + CSng(moigam)

moi.Text = CalculImpot(mons, 1)
ellegam.Text = CalculImpot(sons, 1.5)
total2.Text = CSng(ellegam) + CSng(moi)

trois.Text = CalculImpot(mons + sons, 2.5)

End Sub
-------------------
Function CalculImpot _
(R As Single, NP As Single) As Single

RevI = R * 0.9
QF = RevI / NP

Select Case QF
Case 0 To 5615
impot = 0
Case 5615 To 11198
impot = RevI * 0.055 - 308.77 * NP
Case 11199 To 24872
impot = RevI * 0.14 - 1260.6 * NP
Case 24873 To 66679
impot = RevI * 0.3 - 5240.12 * NP
Case Else
impot = RevI * 0.4 - 11908.02 * NP
End Select
If impot < 828 Then
remise = 414 - (impot / 2)
impot = impot - remise
End If
If impot < 61 Then impot = 0
CalculImpot = impot
End Function


--------------------------------------------------------------
--------------------------------------------------------------

TP9:

Aide pour le VB Tp9rp2

CODE:

Dim a As Integer
Dim b As Integer
Dim c As Double
Dim d As Double

Function allume(DecHiv As Integer, DecEte As Integer) As Single
cumul = 0
For j = 1 To 365
LevSol = 6 + 2 * Cos(0.017217 * j)
CouSol = 18 - 2 * Cos(0.017217 * j)

If j > 90 And j < 301 Then
LevMoi = c - DecEte
CouMoi = d - DecEte
Else
LevMoi = c - DecHiv
CouMoi = d - DecHiv
End If

If LevMoi < LevSol Then
cumul = cumul + (LevSol - LevMoi)
End If

If CouSol < CouMoi Then
cumul = cumul + CouMoi - CouSol
End If
Next
allume = cumul
End Function

Private Sub Check1_Click()
If Check1 = Check Then
Text1.Enabled = True
Text2.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Text1.Text = ""
Text2.Text = ""
Else

Text1.Enabled = False
Text2.Enabled = False
Command4.Enabled = False
Command3.Enabled = False
Text1.Text = "6.5"
Text2.Text = "23"
c = 6.5
d = 23
End If

End Sub

Private Sub Command1_Click()

Load Form2
Form2.Show
Unload Form1
End Sub

Private Sub Command2_Click()


Text3.Text = allume((a), (b))

End Sub

Private Sub Command3_Click()
c = CDbl(Text1.Text)

End Sub

Private Sub Command4_Click()
d = CDbl(Text2.Text)

End Sub

Private Sub Option1_Click(Index As Integer)
a = 0
End Sub

Private Sub Option2_Click(Index As Integer)
a = 1
End Sub

Private Sub Option3_Click(Index As Integer)
a = 2
End Sub

Private Sub Option4_Click(Index As Integer)
b = 0
End Sub

Private Sub Option5_Click(Index As Integer)
b = 1
End Sub

Private Sub Option6_Click(Index As Integer)
b = 2
End Sub


--------------------------------------------------------------
--------------------------------------------------------------

TP9 BIS:

Aide pour le VB Tp9bissw4

CODE:

Dim rmb As Double
Dim nbr As Double
Dim taux As Double
Dim c As Double
Private Sub Command1_Click()
Unload Form2
Load Form1
Form1.Show
End Sub



Private Sub VScroll1_Change()
Label8 = VScroll1
Text1 = VScroll1 & " %"
taux = CDbl(VScroll1)

End Sub

Private Sub VScroll2_Change()
Label9 = VScroll2
Text2 = VScroll2 & " €"
rmb = CDbl(VScroll2)
End Sub

Private Sub VScroll3_Change()
Label10 = VScroll3
Text3 = VScroll3 & " mois"
nbr = CDbl(VScroll3)
Text4.Text = cred((nbr), (taux), (rmb))
End Sub
Function cred(nbr As Integer, taux As Integer, rmb As Integer) As Single

pret = 0
c = ((100 + taux) / 100) ^ (1 / 12)
For i = 1 To nbr
pret = (pret + rmb) / c
Next
cred = pret

End Function


Voila voila pour la petite aide... si infime soit elle...
Bon courage à tous !
Revenir en haut Aller en bas
https://bc2e-2008.superforum.fr
 
Aide pour le VB
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
BC2E-2008 :: La Promo :: Entraide-
Sauter vers:  
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser