Flip Your Classroom: Reach Every Student in Every Class Every Day

fliptheClassroom

Flip Your Classroom: Reach Every Student in Every Class Every Day by Jonathan Bergmann, Aaron Sams
English | 2012 | ISBN: 1564843157 | 100 pages | PDF | 2 MB

It started with a simple observation: students need their teachers present to answer questions or to provide help if they get stuck on an assignment; they don’t need their teachers present to listen to a lecture or review content. From there, Jonathan Bergmann and Aaron Sams began the flipped classroom-students watched recorded lectures for homework and completed their assignments, labs, and tests in class with their teacher available.
What Bergmann and Sams found was that their students demonstrated a deeper understanding of the material than ever before. This is the authors story, and they’re confident it can be yours too. Learn what a flipped classroom is and why it works and get the information you need to flip a classroom.

You’ll also learn the flipped mastery model, where students learn at their own pace-furthering opportunities for personalized education. This simple concept is easily replicable in any classroom, doesn’t cost much to implement, and helps foster self-directed learning. Once you flip, you wont want to go back!

The International Society for Technology in Education (ISTE) is the trusted source for professional development, knowledge generation, advocacy and leadership for innovation. ISTE is the premier membership association for educators and education leaders engaged in improving teaching and learning by advancing the effective use of technology in PK-12 and teacher education. Home of the National Educational Technology Standards (NETS), the Center for Applied Research in Educational Technology (CARET), and ISTE’s annual conference (formerly known as the National Educational Computing Conference, or NECC), ISTE represents more than 100,000 professionals worldwide. We support our members with information, networking opportunities, and guidance as they face the challenge of transforming education.

Some of the areas in which we publish are:
-Web. 2.0 in the classroom-RSS, podcasts, and more
-National Educational Technology Standards (NETS)
-Professional development for educators and administrators
-Integrating technology into the classroom and curriculum
-Safe practices for the Internet and technology
-Educational technology for parents

download  dari  Keep2Share

Membuat “Splash Screen” pada Excel dengan VBA

Bagaimana membuat “Splash Screen” sebagai intro  ketika file excel kita buka (klik).  Berikut ini script yang saya peroleh dari buku excel 2013 power programming with VBA – John WalkenBach.

splahScreen

Script pada UserForm

Option Explicit

Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Private Declare PtrSafe Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib “user32” (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function FindWindowA Lib “user32” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

‘Script untuk menghilangkan bingkai window pada UserForm

Private Sub UserForm_Initialize()
Dim lngWindow As Long, lFrmHdl As Long
lFrmHdl = FindWindowA(vbNullString, Me.Caption) ‘ The UserForm must have a caption
lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
lngWindow = lngWindow And (Not WS_CAPTION)
Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
Call DrawMenuBar(lFrmHdl)
End Sub

‘Script untuk Splash Screen

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue(“00:00:05”), “KillTheForm”
End Sub

‘Prosedur untuk tombol test splash screen dan  “KillTheForm”

Sub TestSplashScreen()
With UserForm1
.StartUpPosition = 0
.Left = Application.Left + (0.5 * Application.Width) – (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) – (0.5 * .Height)
.Show
End With
End Sub

Private Sub KillTheForm()
Unload UserForm1
End Sub

download file contoh : splash Screen