عبور دادن یک آرایه به یک رویه تابع

فروردین ۱۴۰۲ : 

مهراب قاسم‌خانی بازیگر و طنزنویس در استوری باکنایه به طرح جریمه نقدی بی‌حجابی نوشت:

همه‌اش سه میلیارد؟

تساهل و تسامح تا کجا؟

ما از شما انتظار داریم برای ابطال شناسنامه اقدام کنید.

می توان یک آرایه را به یک رویه تایع ارسال کرد و یک آرایه را از یک تابع برگرداند.برای مثال ، فرض کنید فهرستی از کشورها را دارید و می خواهید نام کشورهای ذخیره شده در آرایه خود را به حروف بزرگ تبدیل کنید و آرایه اصلی را دست نخورده نگه دارید.می توانید فرآیند تبدیل را به یک رویه تابع واگذار کنید.هنگامیکه آرایه با استفاده از کلمه کلیدی ByVal ارسال می شود ، تابع با کپی آرایه اصلی کار می کند.هرگونه تغییری که در تابع انجام شودفقط بر روی کپی تاثیر می گذازد.بنابراین ، آرایه در روند فراخوانی تغییر نخواهد کرد.

Sub ManipulateArray()

 Dim countries(1 To 6) As Variant

 Dim countriesUCase As Variant

 Dim i As Integer

 ' assign the values to array elements

 countries(1) = "Bulgaria"

 countries(2) = "Argentina"

 countries(3) = "Brazil"

 countries(4) = "Sweden"

 countries(5) = "New Zealand"

 countries(6) = "Denmark"

countriesUCase = ArrayToUCase(countries)

 For i = LBound(countriesUCase) To UBound(countriesUCase)

 Debug.Print countriesUCase(i)

 Debug.Print countries(i) & " (Original Entry)"

 Next i

End Sub

همانطور که گفته شد تابع زیر رشته های داخل آرایه را به Upper Case تبدیل کرده و بر میگرداند البته اگر حروف انگلیسی باشد

Cstr: Convert to string

Public Function ArrayToUCase(ByVal myValues _

 As Variant) As String()

 Dim i As Integer

 Dim Temp() As String

 If IsArray(myValues) Then

 ReDim Temp(LBound(myValues) To UBound(myValues))

 For i = LBound(myValues) To UBound(myValues)

 Temp(i) = CStr(UCase(myValues(i)))

 Next i

 ArrayToUCase = Temp

 End If

End Function

دیماه ۹۷ : اُمُ الخواستگارون

یک دختر ایرانی پستی در صفحه شخصی خود منتشر کرد و عنوان می کند که او بیش از ٥٠٠ خواستگار داشته است، او می گوید از ١٨ سالگی یک روز در هفته و هر بار سه خواستگار به خواستگاری اش می آمده و این موضوع را تجاوز به حریم شخصی خود می داند. کاربران بسیاری در واکنش به صحبت های او، این موضوع را در صفحات اجتماعی نشر می دهند و نظرات خود را در این باره بیان می کنند.

کاربران بسیار زیادی متعجب از تعداد زیاد خواستگارها، او را با عنوان ام الخواستگارون، سلطان خواستگار و غیره.. خطاب کرده و معتقدند او باید به جرم احتکار خواستگار محکوم شود؛ برخی نیز احتمال می دهند که او به خودشیفتگی مفرط مبتلا باشد.

زنی که در سال ۲۰۱۸ با استفاده از اسپرم اهدایی این مرد صاحب فرزند شده است، همراه با بنیاد دونورکایند (Donorkind) سازمانی که از حقوق کودکان متولد شده با اسپرم اهدایی  دفاع می‌کند، پس از آن‌که متوجه شدند این مرد ۴۱ ساله پدر صد‌ها فرزند است، از او شکایت کردند.

به گفته بنیاد دونورکایند، این مرد اسپرم خود را حداقل به ۱۳ کلینیک‌‌ در هلند و کلینیک‌هایی در دیگر کشورها اهدا کرده است.

بر اساس قانون و دستورالعمل‌های اهدای اسپرم هر نفر می‌تواند حداکثر برای ۲۵ فرزند یا به ۱۲ خانواده اسپرم اهدا کند تا از احتمال ازدواج محارم و سلامت روانی کودکانی که از این طریق متولد می‌شوند محافظت کند.

زنی که از این مرد هلندی شکایت کرده است در بیانیه‌ای گفت: «اگر می‌دانستم که او قبلاً بیش از صد فرزند داشته هرگز این اهدا کننده را انتخاب نمی‌کردم. درباره آینده فرزندم نگرانم و فکر کردن به عواقب این کار برای فرزندم برایم ناراحت کننده است.»

او در ادامه تاکید کرده است رفتن به دادگاه تنها راه محافظت از فرزندش است.

ادریس نون.خ و دخترش

کتایون ریاحی

شلوارهای مد ۱۴۰۲

دومین جمعه سال ۱۴۰۲ : 

در اطلاعیه روابط عمومی کل سپاه پاسداران انقلاب اسلامی آمده است: سحرگاه امروز جمعه یازدهم فروردین ماه 1402 مصادف با نهم ماه مبارک رمضان ، پاسدار رشید اسلام " میلاد حیدری" از مستشاران رشید نظامی سپاه پاسداران انقلاب اسلامی در سوریه، در حمله جنایتکارانه رژیم صهیونیستی در حوالی دمشق به شهادت رسید.

در فرمول محاسبه BMI که به برگرفته شده از (Body Mass Index) است، وزن یک بزرگسال، بر حسب کیلوگرم بر مجذور قد او بر حسب متر تقسیم می‌شود؛ برای مثال، BMI= 25 به معنای 25 کیلوگرم بر متر مربع است. برای بیشتر بزرگسالان، BMI(Body Mass Index) ایده‌آل در محدوده اعداد 18.5 تا 24.9 است.

Weight/((Height÷100)^2)

BMI زیر ۲۳ برای پوکی استخوان حتما باید Cross Check شود!!!