Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
Am o problema cu 2 prezentari power point cu teste realizate in visual basic
Last Updated: Nov 12 2009 16:19, Started by
gandrei3
, Nov 11 2009 13:50
·
0
#1
Posted 11 November 2009 - 13:50
Am doua prezentari power point cu teste realizate in visual basic.
Cum fac sa stiu cum au fost realizate aceste teste in visual basic ? Sau poate sa-mi spuna si mie cineva care sunt codurile folosite pt. realizarea acestor teste ? Attached Files |
#2
Posted 12 November 2009 - 16:19
Pentru primul slide:
Dim Punctaj As Integer Sub InitializarePunctaj() Punctaj = 2 SlideShowWindows(Index:=1).View.Next End Sub Sub RaspunsCorect0() MsgBox "CORECT, AI ACUMULAT PRIMELE 2 PUNCTE!", vbExclamation, "Raspunsul este corect" Punctaj = Punctaj + 2 SlideShowWindows(Index:=1).View.Next End Sub Sub RaspunsCorect1() MsgBox "CORECT, INCA UN PUNCT CASTIGAT!", vbExclamation, "Raspunsul este corect" Punctaj = Punctaj + 1 SlideShowWindows(Index:=1).View.Next End Sub Sub RaspunsCorect2() MsgBox "CORECT, AI MAI ACUMULAT 2 PUNCTE!", vbExclamation, "Raspunsul este corect" Punctaj = Punctaj + 2 SlideShowWindows(Index:=1).View.Next End Sub Sub RaspunsCorect3() MsgBox "FELICITARI! AR TREBUI SA VORBESTI CU PROFESORUL DE FIZICA, POATE ITI INCERCI SANSELE LA OLIMPIADA.", vbExclamation, "Raspunsul este corect" Punctaj = Punctaj + 3 SlideShowWindows(Index:=1).View.Next End Sub Sub RaspunsGresit() MsgBox "AI GRESIT, IMI PARE RAU, MAI INVATA!", vbExclamation, "Raspunsul este gresit" Punctaj = Punctaj + 0 SlideShowWindows(Index:=1).View.Next End Sub Sub AfisareRaspuns() MsgBox "Ai obtinut" + Str(Punctaj) + "puncte.", vbInformation, "Rezultatul testului'" End Sub Pentru al 2-lea slide exista cate un cod pe fiecare slide. Ca sa le vezi apasa Alt+F11 si vei intra in VBE. Aceste coduri sunt atribuite la butoane si in mare parte ele te duc la urmatorul slide. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users