Kullanıcı Tanımlı Fonksiyon

Cevapla
nadir
Mesajlar: 20
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Kullanıcı Tanımlı Fonksiyon

Mesaj gönderen nadir »

Aşağıdaki şekilde kullanıcı tanımlı fonksiyon oluşturmak istedim ama uymadı. Bu konuda yardımcı olabilir misiniz?

Function aile(S)
If S = "Bekar" Then aile = "Bekar"
If S = "Evli Eşi Çalışmıyor" Then aile = "Evli Eşi Çalışmıyor"
If S = "Evli Eşi Çalışmıyor 1 Çocuk" Then aile = "Evli 1"
If S = "Evli Eşi Çalışmıyor 2 Çocuk" Then aile = "Evli 2"
If S = "Evli Eşi Çalışmıyor 3 Çocuk" Then aile = "Evli 3"
If S = "Evli Eşi Çalışmıyor 4 Çocuk +" Then aile = "Evli 4"
If S = "Evli Eşi Çalışmıyor 5 Çocuk" Then aile = "Evli 5"

If S = "Evli Eşi Çalışıyor" Then aile = "Evli Eşi Çalışıyor"
If S = "Evli Eşi Çalışıyor 1 Çocuk" Then aile = "Evli 1"
If S = "Evli Eşi Çalışıyor 2 Çocuk" Then aile = "Evli 2"
If S = "Evli Eşi Çalışıyor 3 Çocuk" Then aile = "Evli 3"
If S = "Evli Eşi Çalışıyor 4 Çocuk +" Then aile = "Evli 4"
If S = "Evli Eşi Çalışıyor 5 Çocuk" Then aile = "Evli 5"
End Function
Kullanıcı avatarı
Hamurcu
Mesajlar: 233
Kayıt: 06 Ağu 2012, 00:14
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7.x
Konum: İstanbul
İletişim:

Re: Kullanıcı Tanımlı Fonksiyon

Mesaj gönderen Hamurcu »

Merhaba,

Aşağıdaki şekilde yapabilirsin.

Kod: Tümünü seç

Function AILE(s as String) as String

Dim sonuc as String

	Select Case s
		Case "Bekar"
			Sonuc = "Bekar"
		Case "Evli Eşi Çalışmıyor"
			sonuc = "Evli Eşi Çalışmıyor"
		Case "Evli Eşi Çalışmıyor 1 Çocuk"
			sonuc = "Evli 1"
		Case "Evli Eşi Çalışmıyor 2 Çocuk" 
			sonuc = "Evli 2"
		Case "Evli Eşi Çalışmıyor 3 Çocuk" 
			sonuc = "Evli 3"
		Case "Evli Eşi Çalışmıyor 4 Çocuk +" 
			sonuc = "Evli 4"
		Case "Evli Eşi Çalışmıyor 5 Çocuk" 
			sonuc = "Evli 5"
		Case "Evli Eşi Çalışıyor" 
			sonuc = "Evli Eşi Çalışıyor"
		Case "Evli Eşi Çalışıyor 1 Çocuk" 
			sonuc = "Evli 1"
		Case "Evli Eşi Çalışıyor 2 Çocuk" 
			sonuc = "Evli 2"
		Case "Evli Eşi Çalışıyor 3 Çocuk" 
			sonuc = "Evli 3"
		Case "Evli Eşi Çalışıyor 4 Çocuk +" 
			sonuc = "Evli 4"
		Case "Evli Eşi Çalışıyor 5 Çocuk" 
			sonuc = "Evli 5"
		Case Else
			sonuc="Tanımsız"
	End Select

AILE = sonuc

End Function
Kullanıcı avatarı
Hamurcu
Mesajlar: 233
Kayıt: 06 Ağu 2012, 00:14
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7.x
Konum: İstanbul
İletişim:

Re: Kullanıcı Tanımlı Fonksiyon

Mesaj gönderen Hamurcu »

Özellikle Function veya Sub için isim verirken küçük "i" harfine dikkat etmen gerekir.

Riske girmemek için eğer mutlaka "i" harfi kullanman gerekiyorsa bunun yerine BÜYÜK "I" (Irmak'ın I'sı) harfi kullanın.

Çünkü küçük "i" harfinin BÜYÜK hali de "İ" olur ve İngiliz alfabesinde BÜYÜK "İ" harfi yoktur.

Bu sebeple Basic derleyicisi hata verir.
nadir
Mesajlar: 20
Kayıt: 14 Eyl 2020, 13:09
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 7

Re: Kullanıcı Tanımlı Fonksiyon

Mesaj gönderen nadir »

Hamurcu yazdı:
04 Haz 2021, 23:24
Özellikle Function veya Sub için isim verirken küçük "i" harfine dikkat etmen gerekir.

Riske girmemek için eğer mutlaka "i" harfi kullanman gerekiyorsa bunun yerine BÜYÜK "I" (Irmak'ın I'sı) harfi kullanın.

Çünkü küçük "i" harfinin BÜYÜK hali de "İ" olur ve İngiliz alfabesinde BÜYÜK "İ" harfi yoktur.

Bu sebeple Basic derleyicisi hata verir.
Hocam tam da dediğiniz sebepten dolayı sıkıntı olmuş.. Çok teşekkür ederim.
Cevapla