Seb23 Admin du Sexe
Nombre de messages : 135 Age : 37 Localisation : Lille Date d'inscription : 05/02/2008
| Sujet: Aide pour le VB Lun 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 :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 :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: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 :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: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: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 FunctionVoila voila pour la petite aide... si infime soit elle... Bon courage à tous ! | |
|