Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. www.neurohope.ro |
generator CNP
Last Updated: Aug 11 2011 18:58, Started by
credit
, Oct 22 2010 12:16
·
0
#1
Posted 22 October 2010 - 12:22
Am creat un programel in vb astfel ca la apasare unui buton in excel imi apare un msgbox cu un cnp generat.
Acest cnp se genereaza in urma completarii unor combobox-uri din care se alege sexul, data nasterii, judetul, si numarul de ordine. In functie de aceste date introduse sistemul genereaza cnpul inclusiv cu ultima cifra de control. Intrebarea mea este urmatoarea: Cum pot sa fac pentru a limita numarul de generari de CNP-uri?, mai exact vreau sa limitez la 10 apasari de buton. Multumesc M-am gandit si la o posibila solutie. 1. Sa contorizez cumva apasarile de buton (nu prea stiu cum sa realizez acest lucru) 2. Sa fac un macro care sa-mi salveze automat fisierul dupa fiecare apasare de buton (asta pentru a nu se putea relua procesul de generare dupa inchidere si redeschiderea documentului) 3. Sa pun o conditie daca contoarul > 10 butonul de generare sa nu mai fie functional. Daca solutia este buna as vrea sa stiu cum o pot pune in practica. Sau poate veniti voi cu solutii mai bune. Multumesc |
#2
Posted 22 October 2010 - 12:40
nu stiu daca am inteles foarte bine :-? Poate te ajuta asta:
Dim i Private Sub UserForm_Initialize() i = 0 End Sub Private Sub CommandButton1_Click() i = i + 1 If i >= 10 Then CommandButton1.Enabled = False End If End Sub |
#3
Posted 22 October 2010 - 13:16
Genereaza CNP-uri valide ?
Nu ai putea sa ne dai si noua codul sursa ? Multumesc ! |
#4
Posted 22 October 2010 - 13:32
E ceva da nu indeajuns.
Pun o intrebare mai simpla cred eu si de mare ajutor pentru mine. Cum contorizez apasarea unui buton iar numarul de apasari sa-mi fie redate in celula A1 ? ceva de genu if vbok then ...... A1 = 1 if vbok(two times)..... A1 = 2 Atases fisierul cu totul pentru ca multe referinte din codul sursa sunt legate de celule din excel asa ca numai cu codu' sursa nu prea cred ca se intelege mare lucru. Daca vreti sa vedeti referintele si formulele din spatele sheet1! dati unhide la randuri si coloane. De altfel puteti sa si testati programelul si sa sesizati eventuale erori. Programelul este facut sa genereze CNP-uri doar pentru cetatenii romani nascuti in perioada 1900 pana in prezent, ba chiar si pentru viitor(pana in 2020) Atases fisierul cu totul pentru ca multe referinte din codul sursa sunt legate de celule din excel asa ca numai cu codu' sursa nu prea cred ca se intelege mare lucru. Daca vreti sa vedeti referintele si formulele din spatele sheet1! dati unhide la randuri si coloane. De altfel puteti sa si testati programelul si sa sesizati eventuale erori. Programelul este facut sa genereze CNP-uri doar pentru cetatenii romani nascuti in perioada 1900 pana in prezent, ba chiar si pentru viitor(pana in 2020) Attached Files |
#5
Posted 22 October 2010 - 16:31
Baieti am gasit!
Pentru a dezactiva butonul dupa 10 apasari am scris codul Static Counter As Integer Counter = Counter + 1 Range("k15") = Counter CommandButton1.Caption = Counter If Range("k15") > 9 Then CommandButton1.Enabled = False End If La a zecea apasare butonul se dezactiveaza si nu mai este functional. In plus pe buton apare numarul de apasari (CommandButton1.Caption = Counter) Mai ramane o singura chestie. Sa se salveze automat fisierul xls dupa fiecare apasare. Ceva idei???? Am facut un modul la care am atasat un macro. Sub Macro1() ' ' Macro1 Macro ' Macro recorded 10/22/2010 by cobra ' ' Keyboard Shortcut: Ctrl+a ' ActiveWorkbook.Save End Sub Cum pot sa integrez acest macro ca la apasarea butonului din excel care genereaza cnp'ul sa'mi ruleze si acest macro????? PLS HELP!! este ultimul pas. |
#6
Posted 22 October 2010 - 17:18
Am gasit si treaba asta.
In codul butonului de generare scriu pur si simplu Macro1 si imi executa si modulul cu macroul Si totusi mai ramane o singura chestie. cum blochez fereastra de proprietati a butonului si fereastra de cod? |
#8
Posted 23 October 2010 - 08:51
Gata baieti, am finalizat. Uploadez si generatorul complet cu codul sursa neparolat.
Cine vrea sa'l testeze e liber si poate imi spune si ce parere are. Cand se ajunge la 10 generari se blocheaza butonul. Daca vreti sa'l reactivati intrati in proprietatile butonului si la enable alegeti true ca sa mai puteti genera inca o serie de 10. Attached Files |
#9
Posted 23 October 2010 - 11:45
Foarte bun. De ce nu faci o lista in care sa iti genereze toate combinatiile posibile de cnp-uri pentru o anumita configuratie?
|
#10
Posted 25 October 2010 - 17:04
crissti_cta, on 23rd October 2010, 12:45, said: Foarte bun. De ce nu faci o lista in care sa iti genereze toate combinatiile posibile de cnp-uri pentru o anumita configuratie? Crezi ca stiu? De exemplu as vrea sa generez toate combinatiile posibile de cnp-uri pentru persoanele nascute la data de 22 decembrie 89 din Timisoara. Ar ramane ca variabile sexul si numarul de ordine. Sistemul ar trebuie sa genereze 2000 de cnp-uri. (2*1000). Doua variante sunt reprezentate de "sex" si 1000 variante (000-999) numarul de ordine. Ceva propuneri idei de cod?? |
|
#11
Posted 25 October 2010 - 17:12
Nu va suparati ca ma bag, dar la ce-ar putea folosi un "generator de CNP-uri" ?
|
#13
Posted 26 October 2010 - 09:18
Mai degraba orange young. Pentru fraude bancare nu stiu cu ce ar putea fi de folos. Mai degraba un keylogger.
|
#14
Posted 26 October 2010 - 13:46
credit, on 25th October 2010, 18:04, said: Crezi ca stiu? De exemplu as vrea sa generez toate combinatiile posibile de cnp-uri pentru persoanele nascute la data de 22 decembrie 89 din Timisoara. Ar ramane ca variabile sexul si numarul de ordine. Sistemul ar trebuie sa genereze 2000 de cnp-uri. (2*1000). Doua variante sunt reprezentate de "sex" si 1000 variante (000-999) numarul de ordine. Ceva propuneri idei de cod?? - selectezi range-ul A2:J2 -> Copy; - selectezi range-ul A3:J2001 -> Paste. Din formulele de pe coloanele G:J poti deduce si cum se genereaza CNP-ul si cum se valideaza. Generare_CNP.rar 14.71K 70 downloads |
#15
Posted 26 October 2010 - 15:07
#18
Posted 02 August 2011 - 22:59
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users