Bilgisayara rastgele sayı urettirme:
http://rapidshare.de/files/11733594/...tirme.rar.html
Ewet arkadaşlar bu ornekte once bilgisayarımızın urettiği sayıyı nereye yazacağını belirtiyoruz ornekte bu değerimiz "label1" sonra "=" koyup "int(rnd * herhangibirsayı)" kodunu yazıyoruz "herhangibirsayı" bolumune istediğiniz bir sayıyı yazabilirsiniz ancak bu sayı uretilecek sayıların ust sınırı olacaktır yani eğer 50 yazarsanız "0,1,2,3...........48,49" sayılarından birini uretecektir eğer 3 yazarsanız "0,1,2" sayılarından birini uretecektir.
Verilerin Değerlendirilmesi:
http://rapidshare.de/files/11733669/...oymak.rar.html
Bu orneğimizde command 1 in click kodu olarak oncelikle bir "i" değişkeni tanımladık. Sonra bu "i" yi text1 imizin icine yazılacak sayı değerlerine eşitledik yani text1 imizin onundeki "val" değeri bu işe yarıyor. arkasındanda label1 de text e kac yazdığımızı gostermesini istedik.
Caption Ozelliği
http://rapidshare.de/files/11733703/...287_i.rar.html
Bu kodumuzda text1 e yazdığımız yazının istenilen yerde başlık olarak gorunmesini istedik bunun icin tum nesnelerimizin "caption" ozelliğini kullandık. Yani bir ornek verirsek "label1.caption=text1.text" dedik. Bu kodda gorulduğu gibi label1 in caption ını yani başlığını text1 in icindeki yazan text e eşitledik.
İf yapısı yerine select case:
http://rapidshare.de/files/11733762/..._305_.rar.html
Bu ornekte oncelikle command1 in click kodu olarak bir "x" değişkeni tanımladık arkasından bu "x" i text1 e yazılacak olan sayı değerlerine eşitledik. sonrada "select case" ifadesini kullanarak case durumumuzu actık. arkasından hangi durumda ne yapılacağını belirttik bir ornek vermek istersek: "Case 0: MsgBox ("Bu notu aldiktan sonra bide banami soruyon durumum nasil diye")" satırı gibi. En son olarak "end select" koduyla select durumunnu kapattık.
Verilerin değerlendirilmesi 2:
http://rapidshare.de/files/11733807/..._305_.rar.html
Evet arkadaşlar bu ornekte form load kodumuza yani formun acılırken yuklenme kodumuza oncelikle bir "x" değişkeni tanımladık sonra bu x değişkenini inputbox a( değer girilebilen msj kutusuna) girilecek değere eşitledik. arkasından if (eğer) deyimimizi kurduk ve şartımız olarak x="Sadık" olmasını istedik eğer bu olursa kullanıcıya bir mesaj gondermesini ve programın kendini kapatmasını istedik eğer x="Sadık" değilse yani şifre yanlış girilmişse kullanıcıya şifre yanlış msjı gondermesini istedik ve programı sonlandırmasını istedik ve en son olarak if dongumuzu bitirdik.
Option ve check kullanımı:
http://rapidshare.de/files/11733833/..._305_.rar.html
Formumuza gorulduğu gibi değişik option ve checkler ekledik bunların her biri bir para miktarını temsil etmesini istedik. oncelikle değişkenlerimizi tanımladık bunlar " opt1 , opt2 , opt3 , che1 , che2 , che3 ". sonra bunların her birinin doğruluk değerlerini if deyimiylre sorguladık orneğin check3 işaretliyse che3=15.000.000 olsun dedik eğer işaretli değilse che3=0 olsun dedik.
kodumuzun en sonunda label1 i butun değişkenlerimizin toplamına eşitledik ve para miktarı gibi gozukmesi icin basamakları 3 er 3 er formatlayıp ayırmasını istedik.
Visible ozelliği:
http://rapidshare.de/files/11733868/...nmesi.rar.html
Bu ornekte dikkat ederseniz resim cok guzel
neyse espriydi. bu ornekte dikkat ederseniz ilk duğmeye basılmadan 2.duğme 2.duğmeye basılmadanda 3. duğme gozukmuyor yine aynı şekilde ilk duğmeye bastığınızda resim acığa cıkıyor. bunu nesnelerimizin visible ozelliğini kullanarak yaptık yani orneğin command2 nin visible ozelliği true ise command2 form ustunde gozukur ancak false ise gozukmez.timer kullanımı:
http://rapidshare.de/files/11733900/..._305_.rar.html
Bu ornekte v.b. nin en iyi nimetlerinden biri olan timer nesnemizi kullandık. orneği acıklamadan once timer nesnesinin bir kac ozelliğinden bahsetmek istiyorum. oncelikle timer nesnemizin enabled ozelliği. bu ozellik eğer true olursa timer nesnemiz acılışta hemen calışacaktır ve girdiğimiz sureyi hemen sayacaktır ama eğer false ise sureyi hemen saymaya başlamaz sizin herhangi bir yerde vereceğiniz "timer1.enabled=true " komutuyla saymaya başlayacaktır. birde en onemli ozelliklerden biri interval ozelliği bu ozellik sayacağı saniye miktarıdır yanlız saniye miktarını oraya direk yazmayacaksınız yani yazacağınız saniyeyi 1000 ile carpıp oraya yazın yani orneğin sure 3 saniye ise oraya 3000 yazın. o zaman 3 saniye tutacaktır peki 100 ,450 ,300 gibi rakamlar ne işe yarıyo derseniz onlar salise yada daha kucuk zaman miktarlarını belirtmek icin kullanılıyo neyse biz orneğimize gecelim orneğimizde gorulduğu gibi timer nesnemizin interval ozelliği 2000 olarak ayarlanmış yani suemiz 2 saniye ve bu sure command1 e basıldığı anda başlıyor ve timer1 in suresinin bitiş koduna programı kapatmasını soyledik.
İsteyen benimle irtibata gecebilir............
__________________