Çogu zaman "Javascript" kodunuzda bir islemin birden fazla yapilmasi gerekebilir. Hatta kimi zaman Javascript'e bir islem yaptirmadan önce baska bir islemi yaptirmak istenebilir. Iste bu tür tekrarlanan isin yapilmasi için gerekli islem ve komut gruplarina Fonksiyon adi verilir. Fonksiyonlar genelde, filanca isimli gruptaki islemleri yap oradan bir deger al bunu filanca isimli gruba götür gibi islemler için kullanilir. Bu tür komut sistemleri Javascript'te en çok kullanilan komut türlerindendir. Fonksiyonun yazim kurallari su sekildedir ;
function fonksiyon_ismi(parametre1, parametre2 , .... )
{ yapilmasi istenen islemler;}
Fonksiyona Deger Gönderme ve Deger Alma:
Bir fonksiyonun Javascript içerisindeki ilk önemli görevi diger fonksiyonlardan veya herhangi bir yerden bir deger alip onu kendi içerisinde isletip sonra istenilen fonksiyona veya yere göndermektir. Bir sonucu bir fonksiyondan çagirmak için return deyimi kullanilir.Örnek :
<html>
<title>ornek.html</title>
<head>
<script language="JavaScript">
function carp(a,b){
var c=a*b;
return t;
}
</script>
</head>
<body>
<script language="JavaScript">
var x = prompt("Iki Sayinin Çarpimi","Birinci Sayi");
var y = prompt("Iki Sayinin Çarpimi","Ikinci Sayi");
var z = carp(x,y);
document.write( x,"*",y,"= ",z);
</script>
</body>
</html>
<TABLE>...</TABLE>
Tablolar, sayfalari satirlara/sütunlara bölmek ya da metin veya grafiklerin sayfada istedigimiz yerde olmasini saglamak amaçlariyla kullanabiliriz. Sayfada gözüksün ya da gözükmesin tablolari bir iskelet gibi kullanabilir, böylece su ana kadar ögrendiklerinizle yapamayacaginiz gerçek düzenlemeyi yapabiliriz. Elbette HTML dizayn konusunda bir masaüstü yayincilik programinin gösterdigi hassasiyeti göstermez, bir de browserlarin tablo etiketlerini yorumlamada gösterdigi farkliliklar da buna eklenirse, genel ziyaretçi kesimine hitab etmenin ne kadar zor oldugu anlasilabilir.
Basit bir tablo yapmak için gerekli etiketleri ögrenelim. Öncelikle <TABLE>...</TABLE> etiketlerini yaziyoruz ve arasini doldurmaya basliyoruz. <TR> etiketi ile satirlari <TD> etiketi ile de sütunlari olusturuyoruz. Parametreler:
<TABLE BORDER=".." CELLPADING=".." CELLSPACING=".." ALIGN=".." WIDTH=".." HEIGHT="..">
Border parametresi çerçevenin kalinligini belirtir. border=0 çerçevenin görünmemesini saglar. Cellpadding parametresi hücre içi marj degerini belirtir. cellpadding=0 hücre ile içinde bulunan unsurun (metin/grafik) bitisik olmasini sagliyabilirz.
| HTML etiketi |
Etiketin Web Sayfasindaki görüntüsü |
<table border="1" cellspacing="1">
<tr>
<td>hücre1</td> <td>hücre2</td>
</tr>
<tr>
<td>hücre3</td> <td>hücre4</td>
</tr>
</table> |
| hücre1 |
hücre2 |
| hücre3 |
hücre4 |
|
Align parametresi tabloyu düsey hizalamada kullanilir, align=left sola, align=right saga dayali yapar, align=center ortalar. colspanayni sütundaki hücreleri birlestirmek için de rowspan degiskeni kullanilir. Birlestirilen hücreye ait
<td>. . </td>
etiketi silinir.
| HTML etiketi |
Etiketin Web Sayfasindaki görüntüsü |
<table border="1" cellspacing="1">
<tr>
<td>hücre1</td> <td>hücre2</td><td>hücre3</td>
</tr>
<tr>
<td rowspan="2">hücre4</td> <td colspan="2">hücre5</td></tr>
<tr><td>hücre6</td><td>hücre7</td> </tr>
</table> |
| hücre1 |
hücre2 |
hücre3 |
| hücre4 |
hücre5 |
| hücre6 |
hücre7 |
|
Bu tip deyimler bir kümenin belli bir kosul altinda yinelenmesi için kullanilir. while,do...while ve for olmak üzere üç tip döngü deyimi vardir.Javascript'te diger programlama dillerinde oldugu gibi istediginiz islemi 2 veya daha fazla kez yaptirmak için belli program kodlari mevcuttur.
while
Tekrarlama deyimidir. Bir küme ya da deyim while kullanilarak bir çok kez yinelenebilir. Yinelenmesi için kosul sinamasi çevrim basinda yapilir. Genel yazim biçimi;
while(kosul){
...
döngüdeki deyimler; [küme]
...
}
Kosul olumlu oldugu sürece çevrim yinelenir. Iki veya daha çok kosul mantiksal operatörler birlestirilerek verilebilir.Örnek:
<html>
<head>< title>ornek6.html</title></head>
<body>
<script Language="JavaScript">
<!--
var yil=0;var para=1000;
while(para<50000){
para+=para*0.5; // para=para+para*0.5;
yil++;
}
document.write("1000 TL ",yil," sonra ",para," YTL olur.")
-->
</script>
</body>
</html>
do ...while
Bu deyim while dan farki, kosulun döngü sonunda sinanmasidir. Yani kosul sinanmadan çevrime girilir ve döngü kümesi en az bir kez yürütülür.Kosul olumsuz ise döngüden sonraki satira geçilir.Genel yazim biçimi;
do{
...
döngüdeki deyimler;
...
}while(kosul);
Örnek:
<html>
<head><title>ornek7.html</title></head>
<body>
<script Language="JavaScript">
<!--
do{
var sayi=prompt("Girilen Sayinin Karesi","Bir sayi giriniz");
document.write("Sayi=",sayi," Karesi=",sayi*sayi,"<br>")
}while(sayi>0);
document.write("Çevrim sona erdi...")
-->
</script>
</body>
</html>
for
Diger döngü deyimleri gibi bir öbegi bir çok kez tekrarlamakta kullanilir. Kosul sinamasi while da oldugu gibi girmeden yapilir. Bu döngü deyimin içinde digerlerinden farkli olarak baslangiç degeri ve döngüsayacina sahip olmasidir. Genel yazim biçimi;
for(baslangiç;kosul;artim){
...
döngüdeki deyimler;
...
}
Örnek:
<html>
<head><title>ornek8.html</title></head>
<body>
<script language="JavaScript">
<!--
for(sayi=0;sayi<=10;){
sayi++;
document.write( "5 * ",sayi," =",5*sayi,"<br>")
}
-->
</script>
</body>
</html>
break ve continue Ifadeleri
Döngü deyimleri içindekiler yürütülürken, çevrimin, kosuldan bagimsiz kesin olarak sonlanmasi gerektiginde veya döngünün bir sonraki çevrime geçmesi istendiginde bu deyimler kullanilir.Örnek:
<html>
<head>< title>ornek</title></head>
<body>
<script>
var x=0;var y=1;var z=6;
do{
y++;
x+=y;
if(x>=z) {break; } // while deki kosula bakilmaksizin döngü sonuna gider.
if(y<=3) {continue;}// y<=3 oldugu sürece döngü bir sonraki çevrime girer.
}while(x<10); // x<10 oldugu sürece çevrime devam et.
document.write(”x=”,x ,”y=”,y ,”z=”,z);
</script>
</body>
</html>
Visual Basic Cd Rom kapağını açıp kapama
Visual Basic Programlama dilinde Cd-Rom Kapağını Açıp kapama için programımızda 2 buton kullanmanız gerekmektedir. Örnek Program :
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("set cdaudio door open")
End Sub
Private Sub Command2_Click()
mciExecute ("set cdaudio door closed")
End Sub
Aşağıdaki link tıklayarak örneklerin exe halini indirebilisiniz...
Visual basic örnekleri
Visual Basic Kayan Yazı
Visual basic programlama dilinde kayan yazı yapabilmek için İnvertal'i 120 olan bir Timer yerleştirin ve aşağıdaki kodları yazın.Unutmayın Formun başlığını önceden girmelisiniz.
Private Sub Timer1_Timer()
Form1.Caption = Right(Form1.Caption, 1) & _
Left(Form1.Caption, Len(Form1.Caption) - 1)
End Sub
Karekter Bulma
Visual basic programlama dilinde yazılan cümle içinde kaçtane aynı karekter olduğunu bulan programın kodlarını aşağıda bulabilirsiniz.
Private Sub Form_Load()
Dim cumle As String
Dim harf As String
Dim hangiharf As String
Dim cu As Integer
Dim p As Integer
Dim say As Integer
say=0
cumle = InputBox("Herhangibir Cümle yazın")
hangiharf = InputBox(cumle & " Cümlesinde hangi harfi araştırıyorsunuz")
cu = Len(cumle)
For p = 1 To cu
harf = Mid(cumle, p, 1)
If harf = hangiharf Then say = say + 1
End If
Next p
MsgBox (cumle & " Cümlesinde " & hangiharf & " harfinden " & say & " adet var")
End
End Sub
Girilen ücretin %18 KDV bulan Program
Visual basic programlama dilinde programlama adina istediginiz her seyi yapabilirsiniz. Bu örnegimizde sizlere girilen bir ücretin yüzde 18 kdv' sini bulan bir uygulama hazirlayacagiz. Programimizda bir tane command butonu kullaniyoruz..
Private Sub Command1_Click()
Dim a, sonuc As Integer a = InputBox("ÜCRETI GIRINIZ")
If a > 0 Then sonuc = a * 1.18
MsgBox sonuc
End If
End Sub
Asagida Delphi de F1,F2 tuslarina fonsiyon atama ve CD Rom açma kapa gibi fonksiyonlarin kodlari bulunmaktadir.
F1,F2 gibi Fonksiyon Tuslarini Kullanmak :
Formun KeyPreview özelligini True yapin ve OnKeyDown olayina asagidaki kodu yazin .
if Key = VK_F2 then begin {F2'ye basilirsa burdaki kod çalisir} end;
CD-Rom sürücüyü açmak ve kapamak :
uses kismina MMSystem unitini ekleyi unutmayiniz.
mciSendString('Set cdaudio door open wait', nil, 0, handle); //açma
mciSendString('Set cdaudio door closed wait', nil, 0, handle); //kapama