Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Noul legamant

ecranul laptopului se intuneca ri...

Centrala ferroli pe peleți
 Tv cu slot card CI și intrar...

My Profit Land - MPL

Otel carbon

Capcane pentru șoareci
 Passat B8

La volan baut si fara permis? Ped...

Reconditionare gard fier forjat/p...

7artisans 4mm F/2.8 fisheye circu...
 DVD-uri INTENSO

Perlele internetului in Germania

Invision Community, Editați ...

Despre cei ce ti se adreseaza agr...
 

generator CNP

- - - - -
  • Please log in to reply
20 replies to this topic

#1
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
crissti_cta

crissti_cta

    Junior Member

  • Grup: Members
  • Posts: 75
  • Înscris: 06.10.2005
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
Krisler12

Krisler12

    Senior Member

  • Grup: Senior Members
  • Posts: 2,761
  • Înscris: 21.04.2009
Genereaza CNP-uri valide ?

Nu ai putea sa ne dai si noua codul sursa ?

Multumesc !

#4
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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?

#7
crissti_cta

crissti_cta

    Junior Member

  • Grup: Members
  • Posts: 75
  • Înscris: 06.10.2005
aici  :D

#8
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
crissti_cta

crissti_cta

    Junior Member

  • Grup: Members
  • Posts: 75
  • Înscris: 06.10.2005
Foarte bun. De ce nu faci o lista in care sa iti genereze toate combinatiile posibile de cnp-uri pentru o anumita configuratie? :)

#10
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007

 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
December

December

    Liberate te ex inferis !

  • Grup: Super Moderators
  • Posts: 19,708
  • Înscris: 14.06.2006
Nu va suparati ca ma bag, dar la ce-ar putea folosi un "generator de CNP-uri" ?

#12
lawrence38

lawrence38

    GAME......OVER

  • Grup: Senior Members
  • Posts: 10,009
  • Înscris: 05.02.2008
Orange Young ?
Fraude bancare ? :huh:

#13
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
Mai degraba orange young. Pentru fraude bancare nu stiu cu ce ar putea fi de folos. Mai degraba un keylogger.

#14
gecs

gecs

    Member

  • Grup: Members
  • Posts: 795
  • Înscris: 12.02.2008

 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??
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.

Attached File  Generare_CNP.rar   14.71K   65 downloads

#15
December

December

    Liberate te ex inferis !

  • Grup: Super Moderators
  • Posts: 19,708
  • Înscris: 14.06.2006

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

Mai degraba orange young.
E legal?

#16
crissti_cta

crissti_cta

    Junior Member

  • Grup: Members
  • Posts: 75
  • Înscris: 06.10.2005
Da.

#17
xxx69_ro_buc

xxx69_ro_buc

    New Member

  • Grup: Members
  • Posts: 12
  • Înscris: 20.04.2007
CNP generator!

#18
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 27,921
  • Înscris: 10.08.2005

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

E legal?
generarea da, utilizarea nu.

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


Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

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