Elqaouch

vous trouvez tous ce que vous voulez
 
AccueilPortailCalendrierFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 les exercices de "visuell basic.net

Aller en bas 
AuteurMessage
qaouch
Admin


Masculin Nombre de messages : 387
Age : 32
Localisation : morocco
Emploi : technicien specialiser en developpenment informatique
Loisirs : programmer
Date d'inscription : 17/09/2006

MessageSujet: les exercices de "visuell basic.net   Mar 6 Jan - 7:30

Exercice : écrire une exercice qui permet d'afficher les résultats de lancements de deux dés



Solution :
Sub Main()
Dim x, y As Integer
Console.WriteLine(" ****Lancer les Dés**** ")


Randomize()


x = Int(1 + Rnd() * 6)
y = Int(1 + Rnd() * 6)

Console.WriteLine("le 1 er dé : " & x)
Console.WriteLine("le 2 éme dé : " & y)

Console.ReadLine()


End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://qaouch.jeun.fr
qaouch
Admin


Masculin Nombre de messages : 387
Age : 32
Localisation : morocco
Emploi : technicien specialiser en developpenment informatique
Loisirs : programmer
Date d'inscription : 17/09/2006

MessageSujet: nombre aléatoire de 1 à 100   Mar 6 Jan - 7:31

solution :
Sub Main()
Dim x As Integer
Console.WriteLine(" ****nombre aléatoire**** ")


Randomize()


x = Int(1 + Rnd() * 100)


Console.WriteLine("le 1 er dé : " & x)


Console.ReadLine()
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://qaouch.jeun.fr
qaouch
Admin


Masculin Nombre de messages : 387
Age : 32
Localisation : morocco
Emploi : technicien specialiser en developpenment informatique
Loisirs : programmer
Date d'inscription : 17/09/2006

MessageSujet: Re: les exercices de "visuell basic.net   Dim 11 Jan - 4:08

generateur de mot de passe

Sub Main()
Dim k As String
Dim f, h, a As Integer
Dim d As String
Dim b As String

Randomize()
b = ""
h = 0
a = Int(6 + Rnd() * 5)


Do
f = Int(Rnd() * 10)
Console.Write(f)
b = "b" & "f"
h = h + 1
If h = a Then
Exit Do
End If
k = Chr(Int(Asc("A") + Rnd() * (Asc("Z") - Asc("A") + 1)))
Console.Write(k)
b = "b" & "k"
h = h + 1
If h = a Then
Exit Do
End If
d = Chr(Int(Asc("a") + Rnd() * (Asc("z") - Asc("a") + 1)))
Console.Write(d)
b = "b" & "d"
h = h + 1


Loop Until h >= a
h = 0
Console.ReadLine()


End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://qaouch.jeun.fr
Contenu sponsorisé




MessageSujet: Re: les exercices de "visuell basic.net   

Revenir en haut Aller en bas
 
les exercices de "visuell basic.net
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» bavardage sur basic ;)
» [ résolu ] orca browser ne se connecte pas sous vista basic
» PPLOT - conversion depuis le Basic d'Hector ...
» se preparer à l'examen 2013 exercices 5°ap
» panoramiQUE : Un BASIC complètement français !

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Elqaouch :: utilisateur pc :: developpement-
Sauter vers: