"1: Chaine d'energie"Ù
"2: reseau"Ù
"3: Formules"Ù
"4: Torseur cohesion"Ù
"Cours a regarder"?ãAÙ
Ù
ClrTextÙ
If A>4Ù
Then Locate 8,4,"VICTIME"Ø
ClrTextÙ
Else If A=4Ù
Then Locate 2,2,"Torseur cohesion"Ù
Locate 9,3,"0"Ù
Locate 11,3,"0"Ù
Locate 8,4,"Ty"Ù
Locate 11,4,"0"Ù
Locate 9,5,"0"Ù
Locate 11,5,"Mfz"Ø
ClrTextÙ
Locate 1,2,"Ty = effort tranchant"Ù
Locate 1,3,"Mfz = moment de"Ù
Locate 1,4,"flexion"Ø
ClrTextÙ
Else If A=3Ù
Then Locate 2,2,"Formules"Ù
Locate 1,3,"radÁs en trÁmin"Ù
Locate 1,4,"W= (2Pi)Á60"Ù
Locate 1,5,"Puissance mecanique W"Ù
Locate 1,6,"(rotation)"Ù
Locate 1,7,"P=C(N.m)ÀW(radÁs)"Ø
ClrTextÙ
Locate 2,2,"Puissance meca"Ù
Locate 1,3,"(Translation)"Ù
Locate 1,4,"P=F(N)ÀV(mÁs)"Ù
Locate 1,5,"V(mÁs)=(radÁs)Àrayon"Ù
Locate 1,6,"1Pa = 1NÁm^2"Ø
ClrTextÙ
Locate 1,2,"Puissance en W:"Ù
Locate 1,3,"P=EÁt"Ù
Locate 1,4,"E(J) ; t(s) ; P(W)"Ù
Locate 1,5,"PuissanceElecContinue"Ù
Locate 1,6,"P=U.I"Ù
Locate 1,7,"P(W); U(V); I(A)"Ø
ClrTextÙ
Locate 1,2,"Pression Force"Ù
Locate 1,3,"P=FÁS"Ù
Locate 1,4,"P(N.mm^-2)"Ù
Locate 1,5,"F(N) ;  S(mm^2)"Ø
ClrTextÙ
Locate 1,2,"Electricite (Ohm)"Ù
Locate 1,3," U= R.I"Ù
Locate 1,4,"U(V) ; R(ohm); I(A)"Ù
Locate 1,5,"Force a distance"Ù
Locate 1,6,"P=m.g"Ù
Locate 1,7,"(N)=(kg).(9,81mÁs^2)"Ø
Ù
Else If A=1Ù
Then Locate 2,2,"Chaine d'energie"Ù
Locate 1,3,"Unites d'energie:"Ù
Locate 1,4,"1W.h = 3600J"Ù
Locate 1,5,"Unites de puissance:"Ù
Locate 1,6,"1W=1JÁs"Ù
Locate 1,7,"1 Cheval vapeur= 736W"Ø
ClrTextÙ
Locate 2,2,"Chaine d'energie"Ù
Locate 1,3,"Unites vitesse:"Ù
Locate 1,4,"1mÁs = 3,6 kmÁh"Ø
ClrTextÙ
Else If A=2Ù
Then Locate 7,2,"reseau"Ù
Locate 1,3,"1:Modele TCP IP"Ù
Locate 1,4,"2:MAC"Ù
Locate 1,5,"3:IPV4, IPV6"Ù
Locate 1,6,"4:Masque"Ù
Locate 1,7,"5:Next Page"Ù
"Cours a regarder"?ãBØ
Ù
ClrTextÙ
Ù
If B=5Ù
Then Locate 7,2,"reseau"Ù
Locate 1,3,"6:Protocole TCP"Ù
Locate 1,4,"7:Type de reseau"Ù
"Cours a regarder"?ãBØ
IfEndÙ
ClrTextÙ
If B=6Ù
Then Locate 1,2,"Protocole TCP"Ù
Locate 1,3,"Transmission control"Ù
Locate 6,4,"Protocol"Ù
Locate 1,5,"Hyper Text Transfer"Ù
Locate 1,6,"Protocol"Ù
Locate 8,7,"HTTP"Ø
ClrTextÙ
Ù
Locate 1,2,"FileTransferProtocol"Ù
Locate 9,3,"FTP"Ù
Locate 1,4,"SimpleMailTransfer"Ù
Locate 1,5,"Protocol"Ù
Locate 1,6,"SMTP"Ù
Locate 1,7,"DomainNameService:DNS"Ù
Else If B=7Ù
Then Locate 1,2,"LAN:"Ù
Locate 1,3,"Local Area Network"Ù
Locate 1,4,"WAN:"Ù
Locate 1,5,"Wide Area Network"Ø
ClrTextÙ
Else If B=1Ù
Then Locate 1,2,"Modele TCP IP"Ù
Locate 1,4,"Application (Message)"Ù
Locate 1,5,"Transport (Segment)"Ù
Locate 1,6,"Internet (Datagramme)"Ù
Locate 1,7,"Acces reseau(Trame)"Ø
Ù
Else If B=2Ù
Then Locate 1,2,"MAC:MediaAcessControl"Ù
Locate 1,3,"sous 6 octets (hexa)"Ù
Else If B=3Ù
Then Locate 1,2,"IPV4, IPV6"Ù
Locate 1,3,"IPV4 = 4 octets"Ù
Locate 1,4,"IPV6 = 8 double octet"Ù
Ù
Else If B=4Ù
Then Locate 1,2,"Masque"Ù
Locate 1,3,"Classe A: 255.0.0.0"Ù
Locate 1,4,"Classe B: 255.255.0.0"Ù
Else If B>7Ù
Then Locate 8,4,"VICTIME"Ø
IfEndÙ
ClrTextÙ