حجاب

سلبریتی ها خیلی دوست دارن زمان طاغوت برگرده چون راحتترن

Don't look back

دو تصویر بالا ملاحظه بشه سوریه یک کشور اسلامی و ایران نیز ، تفاوت تا کجا ، خودتون قضاوت کنید به همراه خوش و بش جناب رئیسی با ایشان  و نوع پوشش !!!

کیهان: مخالفان حجاب آن قدر به مجری برنامه «زندگی پس از زندگی» حمله کردند که کارش به عمل مغز کشید!

در فصل سوم هم وقتی خانم عبداللهی گفت که حجابش کامل نبوده و بعد از این تجربه حجابم کامل شد، در محل کارش چنان طرد شد که خانه‌نشین شد و به ما زنگ زد و ‌گریه‌کنان گفت که بیچاره‌اش کرده‌اند! مسائلی که برای خانم مختارزاده در فصل دوم یا خانم قربانی در فصل سوم هم رخ داد.

کیهان نوشت: مجری و تهیه‌کننده برنامه «زندگی پس از زندگی» گفت که یکی از تجربه‌گران مرگ موقت که در این برنامه از حجاب گفته بود، آن‌قدر مورد حمله مخالفان حجاب قرار گرفت که کارش به عمل مغز کشید!

 

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

 

وی افزود: در فصل سوم هم وقتی خانم عبداللهی گفت که حجابش کامل نبوده و بعد از این تجربه حجابم کامل شد، در محل کارش چنان طرد شد که خانه‌نشین شد و به ما زنگ زد و ‌گریه‌کنان گفت که بیچاره‌اش کرده‌اند! مسائلی که برای خانم مختارزاده در فصل دوم یا خانم قربانی در فصل سوم هم رخ داد.

 

مجری «زندگی پس از زندگی» افزود: این اتفاقات قبل از جریانات امسال رخ دادند، ما هیچ کدام از این موارد را دستچین نکردیم و اصلا موضوع برنامه ما این نبوده، موضوع برنامه ما عالم غیب است.

 

موزون یادآور شد: خانم خمسه هم مثل موارد قبلی بود و امسال برنامه‌اش پخش شده و کار تحقیق و پژوهشش سال گذشته انجام شده بود؛ مادرش با ما تماس گرفته و گفته که به‌خاطر نظراتی که علیه او نوشتند نگران است.

حضرت علی ـ علیه السّلام ـ فرمودند: روزی من و فاطمه ـ سلام الله علیها ـ به خدمت رسول خدا ـ صلّی الله علیه و آله ـ رسیدیم، در حالی که آن حضرت ـ صلّی الله علیه و آله ـ بسیار گریه می کردند. گفتم پدر و مادرم فدای تو باد ای رسول خدا ـ صلّی الله علیه و آله ـ چه چیز شما را به گریه انداخته است؟

حضرت فرمود: یا علی! شبی که به آسمان برده شدم، عده ای از زنان امّت خود را در عذاب شدید دیدم، پس شأن آن ها را انکار کردم و در این حال به خاطر شدت عذاب آن ها گریه می کنم.

1. زنی را دیدم که به موی سر آویزان شده بود و مغز سرش (از شدت عذاب) می جوشید. « همانا او موی خود را از مردان نامحرم نمی پوشاند.»

2. و زنی را دیدم که از پاهایش در تنوری از آتش آویزان شده بود. «و آن زنی بود که بدون اجازه شوهر از منزل خارج می شد.»

3. و زنی را دیدم که گوشت تن خود را می خورد و آتش از زیرش شعله می کشید.

 « و او آن زنی بود که خود را برای دیگران آرایش و زینت می کرد. (نه برای شوهرش)»

4. و زنی را دیدم که گوشت بدنش از جلو و پشت به وسیله قیچی هایی از آتش بریده می شد. «و آن زنی بود که خود را در معرض دید مردان (نامحرم) در می آورد.»

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

موزه آینده ، دُبی دُبی

دلایل نصب آینه در آسانسور

جواب این سؤال احتمالا شما را غافلگیر خواهد کرد. حقیقت این است که نصب آینه در آسانسور دلیل روانی دارد.

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

دو راه حل برای این مشکل وجود داشت: نخست، نوسازی آسانسور و افزایش سرعت آن.

دوم، منحرف کردن توجه مردم به چیز دیگری که حرکت آسانسور را در نظرشان سریع‌تر کند.

(18) و درود بر سفیران بزرگوار نیکوکار و نویسندگان ارجمندی که حافظان اعمال مردم‌اند؛ و درود بر فرشتۀ مرگ و یارانش؛ و منکر و نکیر؛ و رومان، آزمایش‌کنندۀ مردگان قبرها؛ و درود بر طواف کنندگان بیت معمور و بر مالک و خازنان دوزخ و رضوان و خدمتگزاران بهشت.

عبدالله بن سلام می‌گوید که از پیامبر(ص) در مورد فرشته‌ای پرسیدم که پیش از نکیر و منکر به سراغ مردگان می‌رود؟ و آن‌حضرت فرمود: «اى پسر سلام! فرشته‌اى به نام رومان که رویش چون خورشید می‌درخشد، به قبر آمده و به مرده می‌گوید: کردار نیک و بد خود را با انگشت خود به‌جاى قلم و با آب دهان به‌جاى دوات بر قطعه‌ای از کفن خود به‌جاى کاغذ بنویس! وقتی نوبت به کار بد او  می‌رسد، میّت شرم می‌کند. فرشته می‌گوید: اى خطاکار! در دنیا از خدا شرم نکردى و گناه را انجام دادی و اکنون شرم دارى؟! این فرشته همه کار نیک و بد را در آن می‌نویسد و می‌گوید این نامه را مُهر کن. میّت می‌گوید مُهر ندارم. فرشته «رمان» می‌گوید: انگشت بزن و آن‌را در گردنش می‌اندازد تا روز قیامت باقی است، همان‌طور که خدای تعالی می‌فرماید: "و هر انسانى، اعمالش را بر گردنش آویخته‌ایم"[4] سپس منکر و نکیر می‌آیند».[5]

نوعی از حجاب مورد قبول  : فرهنگ از سینمایی ها شروع می شود نه پاساژها و ...

همچنین با توجه به حضور بدون حجاب یکی از بازیگران زن ( پانته آ بهرام) و عدم اقدام درست و به موقع مدیریت سینما در کنترل برنامه و عدم هدایت فرد متخلف و قانون شکن به بیرون از فضای سینما، مدیر آن به‌علت ضعف مدیریت از سمت خود برکنار شد.

تخلفات سینمای لوتوس نیز در دست بررسی است که به‌زودی درباره آن تصمیم گیری خواهد شود.

پایگاه اطلاع رسانی «چند ثانیه» نوشت: برمبنای کدام اختیار قانونی، یک امام جمعه دستور پلمب می‌دهد؟ اگر امر امام جمعه را پیشنهاد در نظر بگیریم، پلیس اساسا بر مبنای کدام قانون و قاضی بر مبنای کدام قانون به دلیل ارائه خدمات به یک بانوی بدون روسری دستور پلمب اصناف را می‌دهد؟

دندان های شیری بچه ها دارای سلول های بنیادین پس دورش نندازید حتما مکان هایی وجود دارند که خریدارشن 

آذری جهرمی ( اردیبهشت ۱۴۰۲ نماز عید فطر ) : من شانزده نفر را در این عکس شمردم که چادر مشکی بر سر نداشتند. حتی دیدم چند نفری بدون چادر و با مانتو و روسری نماز را خواندند. عده‌ای را هم دیدم بعد از نماز چادرهای‌شان را تا کردند و توی کیف‌شان گذاشتد. یاد صحبت‌های آقای انصاریان افتادم؛ «این مردم دل‌هایشان با خداست.». رهبری هم فرمودند که: «در یک جامعه سلایق، عقاید و نگاه‌های مختلف به مسائل است. مانعی ندارد در کنار هم همه زندگی کنند، کار کنند.». من مصداق همین جملات را در صفوف مقابل خودم در نماز دیدم؛ چادر سفید، چادر مشکی، مانتو و روسری. این جامعه‌ست. سلایق و عقاید مختلف کنار هم قرار می‌گیرند. 

حالا وظیفه‌ی ما چیست؟ پیامک بفرستیم؟ عکس بگیریم؟ سطل ماست بر فرق یک‌دیگر بکوبیم؟ 

۱۴۰۲ : 

تسنیم نوشت: در راستای اجرای طرح مبارزه با بی‌حجابی (قانون عفاف و حجاب) رستوران‌های "زئوس" در سعادت آباد و "چیلای" در بوستان نهج البلاغه توسط ماموران پلیس امنیت پلمپ شدند.

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

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

ساعد نیوز: گردشگر و بلاگر روسی فعال در ایران نوشت: در خیابان‌های شهر می‌توان بلوندهای خوش‌آرام و دخترانی را دید که به‌عنوان سرپیچی از همه قوانین، روسری را روی شانه‌های خود می‌اندازند، و دخترانی را که به شدت حجاب را رعایت می‌کنند

در روایتی که از امام باقر علیه السلام نقل شده است: زنى به نزد رسول خدا صلّى اللَّه علیه و آله آمد و عرض کرد: یا رسول اللَّه حقّ مرد بر زوجه‏اش چیست؟ فرمود: آنکه او را فرمان ببرد و از نافرمانیش بپرهیزد و از مال شوهر (بدون رضاى او) چیزى به فقیر ندهد، و نیز بدون اجازه او روزه مستحبّى نگیرد، و او را از کامیابى مانع نشود هر چند بر جهاز شترى سوار باشد

اردیبهشت ۱۴۰۲ :

اسنپ در اقدام جدید خود به مسافران پیامی با این مضمون ارسال می‌کند:

«مسافر عزیز، راننده بعد از پنج دقیقه انتظار، به دلیل نبودن شما در مبدأ یا در دسترس نبودنتان مجبور به لغو سفر شده است. توجه داشته باشید که در سفر بعدی چنانچه سفر لغو شود، برای جبران خسارت راننده ممکن است ملزم به پرداخت هزینه لغو سفر شوید.»

پرده حجاب در مترو ... اردیبهشت ۱۴۰۲

بنظرم اتوبوس رو هم باید جدا کنند یا یه پرده سرتاسری بزنن

don't look back

البته باید می نوشت

don't look boy 

چشارو درویش کن پسر

بنر شهید الداغی  ۴۰ ساله که توسط دو ضارب جوجه لات کوچولو در دفاع از تعرض به دختر خانمی  به شهادت رسید.

سرکار خانم باران کوثری در مراسمی ختم با کلاه گیس

در ادامه چشمش به پاکت نامه‌ای افتاد که روی بالش گذاشته ‌شده ‌بود. روی پاکت نوشته شده‌بود، «به پدرم»! در این هنگام  با نگرانی و کنجکاوی پاکت را باز کرد و آن را خواند:

پدرجان!

الان که این نامه را می‌خوانید من کیلومترها از شما دورم. با استیسی، دختری که شما نمی‌شناسید و دوست من است، فرار کرده‌ام. او دختر خوبی است، من می‌خواهم با او ازدواج کنم. می‌دانم که شما او را قبول نمی‌کنید، زیرا النگوها و گوشواره‌های زیادی به خودش آویزان کرده‌است و همه جای بدنش پر از خال‌کوبی است. او چند سال از من بزرگتر است و ما با هم خوشبخت خواهیم شد.

او یک تریلی کنار جنگل دارد و با آن هیزم حمل می‌کند، بنابراین می‌تواند خرج ما را بدهد. استیسی چشمان مرا به حقیقت‌های زیادی باز کرد. 

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

افغانستان طالبانی : 

فهیمه، مجری ۲۶ ساله تلویزیونی که در برنامه‌های خبری و سرگرمی، چهره‌ای ترگل‌ ورگل از خود نشان می‌داد، حالا برای تأمین معاش خانواده مجبور به تن‌فروشی شده است. یکی دیگر از کسانی که حالا وادار به انجام این کار شده هم از هجوم رقبای خانواده‌های متوسط به این وادی گفته است: «این کار حالا پرریسک‌تر و مخفیانه‌تر شده است… مخصوصاً که دیگر نمی‌شود به پلیس رشوه داد.»

multivalued field چیست

زمان کلیک روی فلش  کمبوباکس چند انتخابی ، چک باکس ها ظاهر می شوند تا انتخاب های شما را نمایش دهند.

می توان موارد در فهرست را تیک زد یا تیک را برداشت سپس با فشردن کلید OK ذخیره موارد انتخابی را انجام داد.موارد انتخاب شده در multivalued field نگهداری شده و زمان نمایش با کاما از هم جدا می شوند.( بصورت پیش فرض ) 

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

مهم : زمان انتقال از پایگاه داده اکسس به سرور Sql ، این فیلد چندمقداری در Sql به یک فیلد ntext که حاوی مجموعه ای از مقادیر محدود شده است تبدیل می شود . از آنجائیکه Sql Server  از یک نوع داده چند مقداری که یک رابطه چند به چند را مدل می کند پشتیبانی نمی کند ، ممکن است به کار طراحی و تبدیلی اضافی نیاز باشد.

حذف یک multivalued field 

مهم :

 زمان حذف فیلد چند مقداری که حاوی داده است ، آن داده بصورت دائم از دست می رود و نمی توان آنرا undo کرد . به این دلیل بایستی قبل از حذف هر فیلد از جدولی یا سایر اجزاء پایگاه داده بکاپ  ( پشتیبان ) گرفت.

فیلدهای چند مقداری به عنوان اشیاء Recordset در DAO نشان داده می شوند. مجموعه رکوردهای ( Recordset ) یک فیلد ، فرزند مجموعه رکوردهای جدولی است که حاوی فیلد multivalued است . برای نمونه سازی مجموعه رکوردهای فرزند ( Child ) از ویژگی Value فیلد multivalued ( چند مقداری ) استفاده بُنمائید.

Set rsParent=....openrecordset("Tasks")

Set  rsChild=rsParent!assignedto.value

loop in rschild and finish

مهرنوش طوسی ، باوان در نون.خ ۴

صفحه شبکه نسیم ۱۳ فروردین ۱۴۰۲ ( البته یکشنبه ) عدد ۵ و ۱۲ کجای تقویمه 

وقوع زمین لرزه در ایران سال ۱۴۰۲ ؟!!!

در کتاب های تاریخ نوشته شده است: آغا محمد خان ( قجری ) در سن یازده سالگی به دلیل اینکه چهره جذابی داشت توسط خواجگان حرمسرای عادلشاه - حاکم مشهد- در حال معاشقه با یکی از همسران وی دیده شد و به دستور عادلشاه که از بستگان محمود افغان بود - به روایتی پسر عموی محمود افعان بود - اخته گردید.

۱۶ فروردین ۱۴۰۲ : خودکشی یا قتل ؟!!!

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

سید مهدی فلاح میری عنوان کرد: مرحوم کیومرث پوراحمد ساعت یک بامداد روز چهارشنبه مورخ ۱۴۰۲/۱/۱۶ در یکی از واحدهای دهکده ساحلی انزلی دار فانی را وداع گفت.
دادستان مرکز استان در ادامه اظهار کرد: درحال حاضرجسد به پزشکی قانونی انتقال داده شد تا علت تامه مرگ بررسی و پس از آن خبرتکمیلی متعاقبا اطلاع رسانی می شود.

به گزارش ایسنا، سید مهدی فلاح میری دادستان عمومی و انقلاب مرکز استان با تایید خبر فوت کیومرث پور احمد گفت: به محض دریافت گزارش، بازپرس ویژه قتل در محل حاضر شد و با بررسی‌های اولیه نظر بر خودکشی این کارگردان سینما داشتند که واکاوی جزئیات، مستلزم رسیدگی دقیق قضایی است.

* تعهدات سازمان در قبال بیمه‌شدگان اختیاری

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

تصاویری از لانا‌ دل‌ ری، خواننده و ترانه‌سرای معروف آمریکایی در حال گرفتن غذای ایرانی از رستوران تهران در لس‌آنجلس

فروردین ۱۴۰۲ و اتاق سیگار فقط مخصوص شاعران : 

دوست سپاه ولی امری ما را به سمت تجمع اهل دخان راهنمایی می‌کند. چند قدم دورتر از سالن افطار، در را باز کرده بودند و پشت آن چند تا میز، چند تا بسته سیگار، چند تا فندک و چند تا جاسیگاری فراهم کرده بودند. کسانی که اهل دود بودند، بی درنگ به اینجا شتافته بودند و چشم‌شان از دیدن این پذیرایی جانانه رنگی شده بود. از کسی که پلاستیک سیگارها دستش بود می‌پرسم این ماجرا مال هر سال است؟ با خنده می‌گوید بله. هرسال خودمان انواع سیگارها را تهیه می‌کنیم، می‌آوریم و خودمان هم جمع می‌کنیم. او هم تأکید می‌کند که این اتفاق فقط برای دیدار شاعران رقم می‌خورد. بعد هم به شوخی می‌گوید اگر کم و کسری دارید بگویید! یکی دو نفر هم شوخی‌شان گل می‌کنند و اسم دو تا برند مشهور را می‌برند. دوست‌مان با جدیت زیادی توضیح می‌دهد که می‌خواستم بگیرم، ولی تمام کرده بود! خب چرا از خودمان پنهان کنیم؟ شاعران سیگاری کم نیستند. همه شاعران سیگاری نیستند، ولی در یک دیدار چندساعته و چند صد نفری، طبیعی است که تعدادی از آنها سیگاری هستند و نیاز به سیگار دارند! فقط از رهبری برمی‌آید که تا این حد حواسش به شاعران باشد. وگرنه بیت رهبری کجا و سیگار کجا؟

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

روزنامه بریتانیایی دیلی میل در گزارشی در این باره نوشت که ماریا بوتزکی پس از جدایی از همسرش با زندگی جدیدی را با دوست پسر خود شروع کرد، اما پس از چندی بار دیگر با همسر سابقش رابطه برقرار کرد.

تصویر هنرپیشه های ایرانی در کانادا؟!!!

۲۱ دانه سیر و ۷ عدد لیمو سنگی (لیمو ترش بزرگ ) را با مخلوط کن میکس کرده و یک لیتر آب ( ۴ لیوان ) به آن اضافه کنید سپس روی شعله ملایم تا ۴۸ درجه برسانید ، سپس اجازه دهید ترکیب سرد شود . آنرا در یخچال نگهداری کنید و هر شب بعد از شام یک استکان به مدت ۲۰ شب میل نمایید

بعد از شب بیستم یک هفته وقفه بیندازید و پس از گذشت یک هفته همین پروسه را به مدت ۲۰ شب دیگر تکرار کنید اگر خواستید این درمان را دو باره انجام بدهید باید پس از یک سال اقدام نمایید .

تمام گرفتگی رگ ها در سراسر بدن بخصوص قلب باز می شود و چربی ها ی درون رگ ها می سوزد .

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

کسانی که طبق تشخیص پزشک به عمل جراحی نیاز دارند بهتر است قبل از اقدام به عمل یک بار این شیوه را امتحان کنند شاید پس از آن نیازی به عمل نباشد.

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

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

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

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

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

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

می توان یک آرایه را به یک رویه تایع ارسال کرد و یک آرایه را از یک تابع برگرداند.برای مثال ، فرض کنید فهرستی از کشورها را دارید و می خواهید نام کشورهای ذخیره شده در آرایه خود را به حروف بزرگ تبدیل کنید و آرایه اصلی را دست نخورده نگه دارید.می توانید فرآیند تبدیل را به یک رویه تابع واگذار کنید.هنگامیکه آرایه با استفاده از کلمه کلیدی 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 شود!!!

کار با آرایه های مشخص و مقدار معین ( Parameter arrays )

ParamArray : 

نوشتن تابع AddMultipleArgs برای گرفتن تعداد کلی داخل پرانتز 

Function AddMultipleArgs(ParamArray myNumbers() As Variant)

Dim mySum As Single

 Dim myValue As Variant

 For Each myValue In myNumbers

 mySum = mySum + myValue

 Next

 AddMultipleArgs = mySum

End Function

?AddMultipleArgs(1, 23.24, 3, 24, 8, 34)

According to international research led by the Complutense University of Madrid (UCM), the surface of ice when in contact with a solid object melts and creates a self-perpetuating lubricant layer. This lubricant layer makes the ice slipperier, and therefore more likely to cause accidents involving skating or cars.

تولید عدد تصادفی یا رندوم ..... Randomize

minNum=1

maxNum=68

lucky=Int((maxNum - minNum + 1) * Rnd) + minNum

برای استفاده در لوپ و آرایه : 

Const spins=6

Dim lucky(spins)

Dim myNumbers as String

myNumbers=""

عبارت زیر در یک لوپ قرارداده می شود ، فرضا متغیر t در بازه یک تا عدد ثابت spins

lucky(t) = Int((maxNum - minNum + 1) * Rnd) + minNum

می توان داخل این لوپ تعریف شده ، لوپ دیگری زد تا اگرشماره تکراری در این لوپ ۶ تائی تولید شد از آن صرفنظر کرده و عدد دیگری جایگزین گردد البته از یک تا t-1 و این مرتبه جای متغیر t از i استفاده کنید که اگر (lucky(t)=lucky(i  بود دو مرتبه کد رندوم اجرا شود و i برابر صفر قرار گیرد ... 

myNumbers=myNumbers & "-" & lucky(t)

خانم سلطانی برای خانم فیروزه بنی صدر تصریح کرد که مسعود رجوی حتی به تجاوز جنسی به زنان در سطوح بالای فرماندهی و لایه اول زنان شورای رهبری بعداز مریم و ادامه دادن این روند با سایر زنان پرداخته است . خانم سلطانی به بحث درون سازمانی " هزار شین " که مخفف هزار عضو شورای رهبری می باشد پرداخت که نشان از یکی به یکی اضافه شدن این زنان بوده است که همه با توجیه های ایدئولوژیک صورت می گرفته است. در این رابطه خانم سلطانی اظهار کرد که امیدوار است افشاگریهای ایشان بعنوان عاملی بازدارنده، دکان رجوی را بسته باشد.  
خانم دکتر فیروزه بنی صدر نیز ضمن خوش آمدگویی و خرسندی از این دیدار با اشاره به کارکرد فرقه ها گفت:
     «این عملکرد برای من جای تعجبی ندارد، مگر فرقه اسماعیلیه نبود که رهبری این فرقه در ایام ماه رمضان همه مریدان خود را جمع کرده و می گوید که به من وحی شده است که الان باید شراب بنوشیم و زنان و مردان با یکدیگر آمیزش جنسی داشته باشند، بنابر این آقای رجوی نیز از این امر مستثنی نیست چرا که عینا به مثابه رهبر یک فرقه عمل می کند، بنابراین مطالب حزن انگیز شما نه تنها عجیب نیست ، بلکه روند قانونمند و تکاملی رشد یک فرقه است.از نظر من رجوی به خاطر " قدرت " همه این کارها را انجام داده است حتی برکناری مردان و دادن هژمونی به زنان و همین طور تجاوز به زنان سطح فرماندهی برای مشروط [وابسته؟] کردن در ابعاد بسا عمیق تر به خودش و اجرای دستوراتش بوده است.»      

Msgbox در اکسس

Sub TestButtons()

 Dim question As String

 Dim bts As Integer

 Dim myTitle As String

 Dim myButton As Integer

 question = "Do you want to preview the report now?"

 bts = vbYesNoCancel + vbQuestion + vbDefaultButton1

 myTitle = "Report"

 myButton = MsgBox(prompt:=question, buttons:=bts, _

 Title:=myTitle)

 Select Case myButton

 Case 6

 DoCmd.OpenReport "Sales by Year", acPreview

 Case 7

 MsgBox "You can review the report later."

 Case Else

 MsgBox "You pressed Cancel."

 End Select

End Sub

جورجینا فاش کرد که آن‌ها تقریبا هر روز در مدرسه مورد ضرب و شتم قرار می‌گیرند و هرگز نیز از خود دفاع نمی‌کنند: «به خاطر شهرت رونالدو این رفتارهای خشونت‌آمیز از جانب دیگر بچه‌ها عجیب نیست و من متوجه می‌شوم چون اغلب فرزندانم با گریه به خانه برمی‌گردند. دفاع از خود را بلد نیستند؟ این‌طور نیست. واقعیت این است که هرگز دوست ندارم فرزندانم با افراد دیگر به خشونت رفتار کنند.»

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