This program for the disabled people who can't speak to help them in chanting God's Names. It is believed that if you listen God almost 24 hrs. Then you get salvation. 

Public Class Frmmantraplayer    'for close button declaration    Private Const MF_BYPOSITION = &H400
    Private Const MF_REMOVE = &H1000
    Private Const MF_DISABLED = &H2
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByValwFlags As Long) As IntPtr    Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr    Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer    Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
    Public Sub DisableCloseButton(ByVal hwnd As IntPtr)
        Dim hMenu As IntPtr        Dim menuItemCount As Integer        hMenu = GetSystemMenu(hwnd, False)
        menuItemCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION)
        Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION)
        Call DrawMenuBar(hwnd)
    End Sub
    Private Sub frmmantraplayer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
        Call DisableCloseButton(Me.Handle)
    End Sub
    Private Sub cmdopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
        'If axMantraAVmv.URL = "" Then Exit Sub        If Txtplaycount.Text = "" Then Exit Sub        axMantraAVmv.settings.playCount = Txtplaycount.Text
        lbldisplayplaycount.Text = Txtplaycount.Text
        OpenFileDialog1.Filter = "Audio Wave files(*.wav)|*.wav|MP3 files (*mp3)|*.mp3|MP4 files(*.mp4)|*.mp4|All files(*.*)|*.*"        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.ShowDialog()
        axMantraAVmv.URL = OpenFileDialog1.FileName
    End Sub
    Private Sub btnplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplay.Click
        axMantraAVmv.Ctlcontrols.play()
    End Sub
    Private Sub btnpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpause.Click
        axMantraAVmv.Ctlcontrols.pause()
    End Sub
    Private Sub bntstopped_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbntstopped.Click
        axMantraAVmv.Ctlcontrols.stop()
    End Sub
    Private Sub CmdRefresh_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesCmdRefresh.Click
        axMantraAVmv.Ctlcontrols.stop()
        axMantraAVmv.Refresh()
        Txtplaycount.Text = ""        lbldisplayplaycount.Text = ""    End Sub
    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Dim msg As String        Dim title As String        Dim style As String        Dim response As String        msg = "Are sure you don't you want to continue?"        style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Question Or MsgBoxStyle.YesNo
        title = "Quitting Percent APP"        response = MsgBox(msg, style, title)
        If response = MsgBoxResult.No Then            MsgBox("You cannot quit, clear values please!")
        Else            Me.Close()
            End        End If    End Sub
    Private Sub cmdvolcontrol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlescmdvolcontrol.Click
        'MantraAVmv.ShowPropertyPages()        Shell("C:\WINDOWS\system32\sndvol32.exe", AppWinStyle.NormalFocus)
    End Sub
    Private Sub axMantraAVmv_MediaChange(ByVal sender As Object, ByVal e AsAxWMPLib._WMPOCXEvents_MediaChangeEvent) Handles axMantraAVmv.MediaChange
        Txtplaycount.Text = Val(Txtplaycount.Text) - 1
    End SubEnd Class

Continue reading

S
MLA APA Chicago
Delft University of Technology. "Better control of
building blocks for quantum computer."
ScienceDaily. ScienceDaily, 23 December 2010.
<www.sciencedaily.com/
releases/2010/12/101223083759.htm>.
Share This
Scanning electron image of the nanowire device
with gate electrodes used to electrically control
qubits, and source and drain electrodes used to
probe qubit states.
cientists from the Kavli Institute of
Nanoscience at Delft University of
Technology and Eindhoven University of
Technology have succeeded in controlling
the building blocks of a future super-fast
quantum computer. They are now able to
manipulate these building blocks (qubits) with
electrical rather than magnetic fields, as has been
the common practice up till now. They have also
been able to embed these qubits into
semiconductor nanowires.
The scientists' findings have been published in
the current issue of the journal Nature (Dec. 23).
A qubit is the building block of a possible, future
quantum computer, which would far outstrip
current computers in terms of speed. One way to
make a qubit is to trap a single electron in
semiconductor material. A qubit can, just like a
normal computer bit, adopt the states '0' and '1'.
This is achieved by using the spin of an electron,
which is generated by spinning the electron on its
axis. The electron can spin in two directions
(representing the '0' state and the '1' state).
Until now, the spin of an electron has been
controlled by magnetic fields. However, these field
are extremely difficult to generate on a chip. The
electron spin in the qubits that are currently being
generated by the Dutch scientists can be
controlled by a charge or an electric field, rather
than by magnetic fields. This form of control has
major advantages, as Leo Kouwenhoven, scientist
at the Kavli Institute of Nanoscience at TU Delft,
points out. "These spin-orbit qubits combine the
best of both worlds. They employ the advantages
of both electronic control and information storage
in the electron spin," he says.
There is another important new development in
the Dutch research: the scientists have been able
to embed the qubits (two) into nanowires made
of a semiconductor material (indium arsenide).
These wires are of the order of nanometres in
diameter and micrometres in length. "These
nanowires are being increasingly used as
convenient building blocks in nanoelectronics.
Nanowires are an excellent platform for quantum
information processing, among other
applications," says Kouwenhoven.

Continue reading