Jump to content

Şifre Üret 1.1 Ams


nightmare3519
 Share

Recommended Posts

düşünce güzel , yanlız söyle bir özellik eklesen daha iyi olur.üret dedikten sonra ; ya masaüstüne .txt içinde şiftreyi attır , yada programa 2. bir input ekle programı 2ci açıldığında önceki verdiği şifreyi yazdırsın

Link to comment
Share on other sites

Arkadaslar apz linkinde sorun cikabilir onun icin uret butonun on show evresinde tUzunluk tablosunda 10 dan 15 haneliye kadar 9 var onlari silin yani en sona 9 tane 9 kalsin sorunu duzeltmeden link yolladigim icin ozur dilerim pc kapai su anda telefondan yaziyorum tekrardan kusura bakmayin

Link to comment
Share on other sites

  • 4 hafta sonra ...

kardeşim çalışman için önce tebrikler sonra teşekkürler [img]http://www.tnctr.com//public/style_emoticons/default/smile.png[/img]

ama bi isteğim var çalışmana sözcük+rakam üretme gibi bişi koyamasmisin ?

Edited by MuhammetAka.
Link to comment
Share on other sites

[quote name='Bordo38' timestamp='1352049385' post='1253245']
hocam 2 linkte aynı
[/quote]

Çok özür dilerim ben exe yi değiştirirken apz linkini değiştirmişim :( Linki düzelttim indirebilirsiniz.
[quote name='MuhammetAka.' timestamp='1352050131' post='1253250']
kardeşim çalışman için önce tebrikler sonra teşekkürler [img]http://www.tnctr.com//public/style_emoticons/default/smile.png[/img]

ama bi isteğim var çalışmana sözcük+rakam üretme gibi bişi koyamasmisin ?
[/quote]

Anlamlı sözcük diyorsan biraz zor gibi ama üstadlarımız bir yolunu biliyordur elbet

Link to comment
Share on other sites

karışık harfli sözcükler üretmek kolay fakat anlamlı sözcükler için bir veritabanına ihtiyaç var, ya oturup tek tek yazacaksınız ya da bir sözlük'ün veritanabanından kopyalayacaksınız. yapınca haber edin aktarırız projeye ;)

Link to comment
Share on other sites

tüm kelimelerin bir metin belgesinde alt alta olduğunu varsayıyorum:

[code]tKelimeler = TextFile.ReadToTable("C:\\Dosya.txt") -- kelimeleri tabloya al

if tKelimeler then -- eğer dosya boş değilse
nSay = Table.Count(tKelimeler); -- satır sayısını al
sRastgele = tKelimeler[Math.Random(1, nSay)] -- tablonun içinden rasgele bir satirdaki kelimeyi seç
Dialog.Message("Seçilen Kelime:", sRastgele)
end[/code]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...