Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Here goes nothing

BCR sau Raiffeisen

Visual Studio 2022 instaleaza Epi...

Sfat alegere parbriz
 EMAG - recenzii false facute de ei?

Recomandare telefon 900-950

Nivel de trai

Semnal bun da'... prost
 De ce statiile de radio FM nu ren...

Pe unde pot sa gasesc statistici ...

Este reconditionat acest laptop?

Prelungire fire electrice
 Amintiri despre satelit si retran...

Care este cel mai bun mod de a pr...

Recomandare centrala termica apar...

samsung Xcover 5 Nu mai vrea
 

Am o problema cu 2 prezentari power point cu teste realizate in visual basic

- - - - -
  • Please log in to reply
1 reply to this topic

#1
gandrei3

gandrei3

    Active Member

  • Grup: Members
  • Posts: 1,438
  • Înscris: 25.01.2008
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
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
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

Chirurgia spinală minim invazivă 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

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate