Appointment manager

[Fangbeast]

Okay, will do. Yours is probably a lot better (I know my limitations). I've added a separate, more advanced find window and will add a setup window and then update the family web site with it.

[yrreti]

Hi Fangbeast

Got to run, but here is a quick idea for the following code of which is not found in your new code yet, of
a way to accomplish what you want to do.

Code: Select all

;   HourCheck.i = Val(StringField(Appointment\appTime, 1, ":"))
;     Select HourCheck.i
;     Case 0 To 12
;       ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)
;     Case 12 To 18
;       ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)
;     Case 18 To 24
;       ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)
;   EndSelect

Code: Select all

;Just use the hours and minutes together as in these examples that follow that show 
;how changed HourCheck$ values will be selected.
HourCheck$="11:59" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
EndSelect

HourCheck$="12:00" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
EndSelect

HourCheck$="17:59" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
EndSelect

HourCheck$="18:00" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
EndSelect

HourCheck$="23:59" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
EndSelect

HourCheck$="24:00" 
HourCheck$=ReplaceString(HourCheck$,":","",1)
HourCheck.i = Val(HourCheck$)
Debug Str(HourCheck.i)
    Select HourCheck.i
    Case 0 To 1159,2400
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightMorning)"
    Case 1200 To 1759
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNoon)"
    Case 1800 To 2359
Debug"ChangeIcon(#Gadget_AppointmentMuncher_Appointments, LineNumber.i, 2, Icon\LightNight)"
  EndSelect

Code: Select all

[Fangbeast]

Hmm, much better, thank you! Working on a setup form at the moment and cursing my old brain.

**UPDATE**

Added a setup module
Toggle tooltips, stickywindow, titlebar clock and snap to border
Added buttons for Toggle tooltips, stickywindow, titlebar clock
Added a better sql search module
Move literal strings to constants for possible multilanguage (Control strings are left as English)
Added an 'about' window
Load and save setup options for persistence
Cleaned up code and reordered things more logically.

Think I fixed most bugs, works well for me. Will upload late tomorrow but first, Sir Charles the cat needs to go to the vet again (Sigh)

[electrochrisso]

Hey Fang, I had a bit of a play with your Appointment manager, I think it is pretty funky, mine is quite plain looking compared to yours, I also like the way you lay out your code, very neat and tidy.
Keep up the good work.

[jack]

looking forward to the update

[Fangbeast]

Hey Fang, I had a bit of a play with your Appointment manager, I think it is pretty funky

Did you say 'Funky' or 'Fungussy'??? (GRIN). My family and friends all hate my colour schemes but they are designed for my eyes.

I also like the way you lay out your code, very neat and tidy.

That's the result of having bad eyesight due to years of untested diabetes. I now have a 27 inch monitor but it still took me three days to chase down a bug where I had substituded a comma for a full stop!!!.

I think I need a 50 inch monitor so I hac clearly see the duifference between the two.

Keep up the good work.

Thanks, I appreciate that.

[Fangbeast]

looking forward to the update

Hello Jack, I've updated the latest perversion, link is the same as in the first post.'

Thanks to Yrreti for the date logic (I got it wrong).

Please all bash it soundly and tell me where I have stuffed up and hidden those pesky bugs if you have time?

If you check the main source code, you will see that there is a hidden advanced SQL search (Well, more advanced than the simple search string on the front page of the program) module, a procedure to permanently remove deleted items and a small setup screen for things I needed.

I have the nagging feeling that I still have forgotten something.

Hopefully, I might be able to figure out how to incoporate recurring events in the future (Although I don't personally need them) and finish the print and help modules.

Not sure if I should make a seperate help file or build it in via an editorgadget as it's not a commercial endevour. I.e, not professional to warrant one.

[jack]

Hi Fangbeast,
just downloaded your latest version, but I just got home from work so I will give a workout tomorrow, happy weekend.

[Fangbeast]

Just cleaned up more things and added a list of the keyboard shortcuts to the keyboard icon under the event groups selection. That's because I keep forgetting my own shortcuts!

[Fangbeast]

Jack (and others), I am just adding silly things that I need now and silly changes here and there to see what I can get away with so am wondering if you want the latest version anyway.

If so, let me know and I'll upload it.

Everything looks nice and flat on the front form now (happy with that). Replaced the ListIconHeader with stringgadgets because no matter whats tyle I used, the heading would not stop having borders or act like a button.

And the header stringgadgets update as you hover over the list and return to headings when you are not over the list.

Other things too, can't remember them all

**UPDATE** Added export and import and fixed a load of stupid bugs. More comments, icons fixed and other stuff. Anyone want it?

[yrreti]

Hi Fangbeast

I've been on a trip for the last 2 1/2 weeks and didn't get to check the forum too much.
I would be interested in getting your latest changes. This program of yours has some potential,
and your GUI is really nice. Very useful for my needs, as well as learning from your code too.

Thanks much

yrreti

[Fangbeast]

I've been on a trip for the last 2 1/2 weeks and didn't get to check the forum too much.

But, but, but..wasn't there room in the boot for me?? I need a holiday!

I would be interested in getting your latest changes.

After having learned my lesson not to spread my own posts everywhere (Well, most of the time), I now update the link in the first post so you can always get it from there. Old brain you know.

This program of yours has some potential,

Potentially smelly?

and your GUI is really nice.

Not according to my mean daughter:):)

Very useful for my needs, as well as learning from your code too.

Us assembly monkeys thank you. Took me a while to realise that I'd put in more bugs as well as functions and drove me mad fixing them.

Onde day, I'l get around to printing.

[Fangbeast]

I got bored in between hospital trips and decided I needed an archive function and wanted people's opinion..

As I go to specialists quite often, I add extensive notes to my appointments that I might not want to lose so I added a few things that I felt I needed...

1. Archive current appointments
2. AutoArchive vopy during the "Add new Appointment" phase
3. Update archived copy during "Edit Old Appointment" phase
4. List archived appointments table
5. Restore from archive table
6. Delete from archive table.

Don't know if it of use but I am cleaning up the code and will upload soon if needed.

Going to add SMTP email send for appointment alarms but I suspect SSL is going to kick me in the whatsits.

[davido]

@Fangbeast,

Just took a little look at your masterpiece.

What a lovely, artistic, GUI.
Thanks very much for sharing.

[Fangbeast]

Just took a little look at your masterpiece.

??? You been stealing my diabetic medication again??? Have a look at stuff NetMaestro does, now that's artistic and masterpeicey!

I'll upload the latest changes tonight, just a few things to clean up.

Thanks for the kind words.

P.S> Anyone who thinks my stuff is good has been sniffing srod's abused sheep again (HEHEHEHEH)