generator CNP

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

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

Genereaza CNP-uri valide ?

Nu ai putea sa ne dai si noua codul sursa ?

Multumesc !

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)

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.

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?

aici  

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.

Foarte bun. De ce nu faci o lista in care sa iti genereze toate combinatiile posibile de cnp-uri pentru o anumita configuratie?

crissti_cta, on 23rd October 2010, 12:45, 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??

Nu va suparati ca ma bag, dar la ce-ar putea folosi un "generator de CNP-uri" ?

Orange Young ?
Fraude bancare ?

Mai degraba orange young. Pentru fraude bancare nu stiu cu ce ar putea fi de folos. Mai degraba un keylogger.

credit, on 25th October 2010, 18:04, said:

Daca ai Excel 2007, in fisierul atasat, in foaia Generare, procedezi in felul urmator:
- 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

credit, on 26th October 2010, 10:18, said:

E legal?

Da.

CNP generator!

December, on 26th October 2010, 16:07, said:

generarea da, utilizarea nu.

Edited by MarianG, 02 August 2011 - 22:59.