בולנט - דברים מיוחדים...     פרוטו - בניית אתרים

Israeli ASP Organization

ארגון ה-ASP הישראלי

מאמרים/דוגמאות קוד
קישורים
ספרות
חיפוש כללי:

חפש!
כלליHTMLASPASP.NETSQLמסדי נתוניםJavaScriptXML * XSLDHTML * CSSעיצוב וגרפיקהשרתיםComponentsפרסום ושיווקקידום אתריםקופירייטינגPHP
פרסומת
דף ראשי מדורים דרושים הרשמה למועדון אודותינו צור קשר
מיקום: מאמרים ודוגמאות קוד > ASP > VBScript

הודעת מותאמת שעה

בדוגמת קוד זו אדגים כיצד ניתן לברך את הגולש לפי חלקי היום.
כל גולש ישמח לקבל "בוקר טוב!" על הבוקר כשהוא גולש באתרכם.
כדי לברך את הגולש אזדקק לשעה. הפונקציה למציאת הזמן (בפורמט של תאריך + זמן מדוייק) היא:

Now() ואילו הפונקציה להוצאת השעה מהזמן המדוייק היא: Hour(Now()) הפונקציה הנ"ל תחזיר ערך מספרי שייצג את השעה. השעה 22:32 תיוצג ע"י המספר "22", השעה 08:15 תיוצג ע"י "8" וכו.
כעת, לאחר שהשגנו את הערך המספרי הזה נוכל ליצור טווחי זמן ולייחד ברכה לכל טווח שכזה. בדוגמא שעשיתי חילקתי את היום לארבעה חלקים:
  • הבוקר: מ04:00 ועד 11:59:59
  • הצהריים: מ12:00 ועד 17:59:59
  • הערב: מ18:00 ועד 21:59:59
  • הלילה: מ22:00 ועד 03:59:59

באותה מידה יכולתי לחלק את היום לשעות אחרות ולאו דווקא לפי חלקי יום אלא לפי מצב הרוח שלי…

בשביל לדעת באיזה טווח שעות מוקצה השעה הנוכחית נמצאת, אני אשתמש במשפטי IF. מספר הIF-ים כמספר טווחי הזמן המוקצים.

כדי לעשות את הדף שלי יותר פשוט ומתוכנת בצורה מודולרית אשתמש בפונקציה ואקרא לה SayHi (שורה 1). בפונקציה אגדיר שני משתנים (שורה 2):
האחד, WhatToSay הוא משתנה שיכיל מחרוזת טקסט (הברכה) ויקבל ערך לפי טווחי הזמן.
השני, The_Hour משתנה שיכיל את הפונקציה המוזכרת למעלה: Hour(Now()) (מוגדר בשורה 2, מקבל ערך בשורה 3).

בשורה 4 עד 15 אשתמש בארבעה משפטי IF. שימו לב שחשוב לכסות את כל השעות בשעון (אלא אם אתם רוצים אחרת).
בכל משפט IF בדקתי תחום ע"י קטן משעת סוף תחום וגדול משעת תחילת תחום.

בשורה 16 החזרתי את הפלט (WhatToSay) לפונקציה.
בשורה 17 אני סוגר את הפונקציה.

הקוד

Function SayHi dim WhatToSay,the_hour the_hour = hour(now()) if (the_hour >= 0) and (the_hour < 12) then if#1 WhatToSay = "בוקר טוב" elseif (the_hour >= 12) and (the_hour < 18) then if#2 WhatToSay = "צהריים טובים" elseif (the_hour >= 18) and (the_hour < 22) then if#3 WhatToSay = "ערב טוב" elseif (the_hour >= 22) and (the_hour < 24) then if#4 WhatToSay = "לילה טוב" end if SayHi = WhatToSay End Function כדי להציג את הברכה יש לכתוב: response.write SayHi

                  

מחבר: שמוליק שמחונירמת קושי: 1  ||  ציון: (7.75)כל הזכויות שמורות ל-IAO ©

חנות לסטלן  |   מתכונים  |   חגי ישראל  |   פורטל משחקים  |   חנויות מחשבים ו-ציוד הקפי  |   מגזין מסטול לסטלן המצוי  |   קליפרים  |   גידול צמחים פרחים  |   ספא פינוק מושלם