Calendar: Difference between revisions
Content deleted Content added
Line 4,755:
<lang ring>
# Project : Calendar
# Date : 2018/06/
# Author : Gal Zsolt (~ CalmoSoft ~)
# Email : <calmosoft@gmail.com>
Line 4,766:
win1 = new qwidget() {
day = list(12)
pos = newlist(12,37)
month = list(12)
week = list(7)
weekday = list(7)
button = newlist(7,6)
monthsnames = list(12)
week = ["Su", "Mo", "Tu", "We", "Th", "Fr", "Sa"]
months = ["January", "February", "March", "April", "May", "June", "July",
"August", "September", "October", "November", "December"]
m2 = (((1969-1900)%7) + floor((1969 - 1900)/4) % 7) % 7
for n = 1 to 12
month[n] = (mo[n] + m2) % 7
day[n] = daysnew[nr][2]
for m = 1 to 12
for n = 1 to day[m] - 1
pos[m][n] = " "
for m = 1 to 12
for n = day[m] to 37
if n < (mon[m] + day[m])
pos[m][n] = n - day[m] + 1
setwindowtitle("Calendar")
setgeometry(100,100,650,800)
Line 4,814 ⟶ 4,810:
settext("")
}
year = new qpushbutton(win1)
{
Line 4,820 ⟶ 4,815:
year.settext("1969")
}
for n = 1 to 4
nr = (n-1)*3+1
showmonths(nr)
next
for n = 1 to 12
showweeks(n)
next
for n = 1 to 12
showdays(n)
next
show()
}
exec()
}
func showmonths(m)
for n = m to m +
monthsnames[n] = new qpushbutton(win1)
if n%3 =
col = 120
rownr = floor(n/3)
if rownr = 0
rownr = n/3
ok
if n = 1
row = 40
else
row = 40+rownr*180
ok
else
colnr = n%3
if colnr = 0
colnr = 3
ok
rownr = floor(n/3)
if n%3 = 0
rownr = floor(n/3)-1
ok
col = 120 + (colnr-1)*160
row = 40 + rownr*180
ok
setgeometry(col,row,60,20)
monthsnames[n].settext(months[n])
}
next
func showweeks(n)
for m = 1 to
col = m%7
if col = 0 col = 7
weekday[m] = new
{
colnr = n % 3
if colnr = 0
colnr = 3
ok
rownr = floor(n/3)
if n%3 = 0
rownr = floor(n/3)-1
ok
colbegin = 60 + (colnr-1)*160
rowbegin = 60 + (rownr)*180
setgeometry(colbegin+col*20,rowbegin,20,20)
weekday[m].settext(week[m])
}
next
func showdays(ind)
if ind >=1 and ind <=
rowbegin = 60
ok
if ind >=4 and ind <=
ok
if ind >=10 and ind <= 12
rowbegin = 600
ok
for m = 1 to
for n = 1 to 7
if col =
if ind%3 =
colbegin =
elseif ind%3 =
else
if nr <=
if pos[ind][nr] != "
}
</lang>
Output image:
|