娃娃的杜曼

tianxi002

有的早教机构有七田真，可以省很多心呢，楼主是哪座城市？

larkbaby

才看到呵呵，我是北京的。
北京有杜曼的早教机构，可是我觉得即使去那些早教机构，他们也是教你方法，还是要妈妈自己给闪啊

larkbaby

2011年2月12日
给娃娃闪了一遍百科卡。
数点卡停了好几天了，要尽快再开始；
中文文字卡，闪了6个，也不知道娃娃看没看。
英文卡最近用电脑闪效果还不错，娃娃比较喜欢看。。我给娃娃做了30天字词，打算看完之后就进入短语。怕对娃娃眼睛不好，目前只有英文用电脑，打算让娃娃爹买一个投影仪，以后给娃娃用投影仪闪，不过说实话，用投影仪比较费劲不知道是否能坚持呢。另外想给娃娃打印一些字词卡片，拼句子用，不知道好不好用。
刚才偷跑回家给娃娃闪了2次卡，娃娃明显不感兴趣，东张西望的，对鼠标更加感兴趣，不知是因为刚睡醒还是什么原因，我又犯忌了，看娃娃没仔细看就多给娃娃闪了一次，下次不能这样了。

[ 本帖最后由 larkbaby 于 2011-2-12 08:15 编辑 ]

larkbaby

2011年2月14日
今天娃娃不舒服，像是感冒了，从昨天晚上开始就咳嗽的很厉害。所以早上就没给娃娃闪太多的卡，闪了3张字卡，5张点卡，若干张百科卡，百科卡都是挑娃娃喜欢的闪的。第一批买的百科卡已经给娃娃闪完了，现在每天都是重复看闪过的卡。发现娃娃喜欢名画卡和国旗卡，国旗卡已经到了，比我想象的小，名画卡还没到，娃娃爸整天问我什么时候到。打算等投影仪买了之后，都用投影仪闪。太多的百科卡了，实在来不及打印。

larkbaby

2011年2月16日
昨天娃娃爸爸给娃娃编了一个宏，放入ppt中，可以让幻灯片随机放映，给妈妈节省不少工作量，先把宏贴在这里，有需要的可以自己放入ppt中，如果不会的可以等我做出来ppt再上传
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long


随即点名double，以2张为单位循环，适用于百科卡（一张字一张图的那种）
Dim Savetime As Double
Dim Arr As Variant
Arr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11) '修改循环胶片
Dim stoptime As Integer
stoptime = 700      '修改播放速度
Randomize
Dim tmp
Dim tmp_index     As Integer
Dim Lb     As Integer, Ub    As Integer
Lb = LBound(Arr)
Ub = UBound(Arr)
Dim i     As Integer
For i = Lb To Ub
    If ((i Mod 2) = 0) Then
        tmp_index = Int((Ub - Lb + 1) * Rnd + Lb)
        If ((tmp_index Mod 2) = 1) Then tmp_index = tmp_index - 1
        tmp = Arr(i)
        Arr(i) = Arr(tmp_index)
        Arr(tmp_index) = tmp
        tmp = Arr(i + 1)
        Arr(i + 1) = Arr(tmp_index + 1)
        Arr(tmp_index + 1) = tmp
        
    End If
Next

For i = Lb To Ub
    SlideShowWindows(1).View.GotoSlide Arr(i)
    Savetime = timeGetTime
    While timeGetTime < Savetime + stoptime
    DoEvents
    Wend
Next
SlideShowWindows(1).View.GotoSlide 32


随即点名-single，单张循环的，适用于字ka
Dim Savetime As Double
Dim Arr As Variant
Arr = Array(2, 3, 4, 5, 6) '修改循环胶片
Dim stoptime As Integer
stoptime = 700      '修改播放速度
Randomize
Dim tmp
Dim tmp_index     As Integer
Dim Lb     As Integer, Ub    As Integer
Lb = LBound(Arr)
Ub = UBound(Arr)
Dim i     As Integer
For i = Lb To Ub
        tmp_index = Int((Ub - Lb + 1) * Rnd + Lb)
        tmp = Arr(i)
        Arr(i) = Arr(tmp_index)
        Arr(tmp_index) = tmp
Next

For i = Lb To Ub
    SlideShowWindows(1).View.GotoSlide Arr(i)
    Savetime = timeGetTime
    While timeGetTime < Savetime + stoptime
    DoEvents
    Wend
Next
SlideShowWindows(1).View.GotoSlide 1

larkbaby

2011年2月17日
昨天给宝宝买的名画卡到了，不过这个名画卡覆膜覆的不太容易闪，不要紧娃娃很喜欢名画卡，打算每个画家单位进行闪。一次闪10张，闪5天，然后全换。
这几天用电脑闪英语效果还是可以的，虽然娃娃也有时候不注意看，但是要比纸质的好多了，打算继续制作短语进行闪，另外打算加入中文卡用电脑闪了，中文卡最近用卡片闪的太没有规律了，基本处于很散漫的状态，希望爸爸的投影仪赶快到，这样就可以用投影仪闪了。
数学：5张
中文：8张，分2次闪
百科：名画、国旗、动物等各闪一遍

larkbaby

2011年2月28日
娃娃感冒了2周，这期间闪卡断断续续的。最近开始给娃娃闪新买的名画卡和国旗卡了，买的名画卡里面有很多裸体画，本来想抽出来不给孩子看了，后来想想这么小的孩子还不懂分辨男女，看了也不会留下什么阴影，就一起看了。
这两天给娃娃买了一个投影仪，觉得用电脑闪卡还是比较伤眼睛，买个投影仪不仅可以闪卡，以后给娃娃看动画片也可以用这个，省的用电视了。昨天爸爸给调试好了，闪了一下，效果很好，就是室内东西太多了，怕分散娃娃注意力。
早上闪了百科卡一遍，用电脑闪中英文字卡各一遍，英文短语一遍。今天没闪数点卡，数点该做算式了，我总是做得断断续续的。

wyfly

坐等给娃娃做的ppt呵呵，我们也来个现成的，关注娃娃的进度，支持！

wimn2007

good mum..............

larkbaby

真谢谢楼上2位的支持，让我继续写下去，好几天都没有来更新了