I made some codes; developed and tested on Pearl, though for 1.1.2 only should also work for Diamond. The base address of them all is the same as the money and inventory codes, so barring changes to the game's internal structures they should be easy to update in the future.
[Inf VS Seeker Energy 1.1.2]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000002AD
610F0000 00000000 00000064
[All Trees Shaking 1.1.2]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
580F1000 00000288
780F0000 00000020
40010000 00000000 00000000
300E0000 00000015
C04612F0 00000000
680F0000 00000170 00000001
20000000
780F0000 0000000C
310E0000
[All Berry trees 10 Harvestable 1.1.2]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
580F1000 00000358
780F0000 00000020
40010000 00000000 00000000
300E0000 00000076
C04612F0 00000000
780F0000 00000004
640F1000 00000000 0000000A
680F1000 00000001 00001688
21000000
780F0000 00000010
20000000
310E0000
The berry and shaking tree codes require you to plant the berry/use honey, they skip empty berry plots and trees without honey.
Also, for those that want to capture foreign pokemon:
[Capture Japanese Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000001
[Capture English Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000002
[Capture French Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000003
[Capture Italian Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000004
[Capture German Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000005
[Capture Spanish Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000007
[Capture Korean Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000008
[Capture Traditional Chinese Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 00000009
[Capture Simplified Chinese Language Pokemon]
580F0000 0472CD60
580F1000 000000B8
580F1000 00000000
780F0000 000000AC
610F0000 00000000 0000000A
The foreign pokemon codes stay in effect even after disabling them, until you use a code for a different language. I didn't test it, but it might also get saved into your savefile, so use the code for your own language when done.