Technology and Online Community For All
welcome JOIN US NOW AND FEEL THE DIFFERENCE headbang

Technology and Online Community For All

What You See Is What You Get
 
HomeCalendarGalleryFAQSearchMemberlistUsergroupsRegisterLog in
July 2017
SunMonTueWedThuFriSat
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendarCalendar
Latest topics
» Uniblue PowerSuite
Mon Apr 09, 2012 7:27 pm by BlitzKrieG

» Ova Drive Hider
Fri Mar 02, 2012 8:48 am by CodeWarrior

» Ova Folder Security
Mon Feb 27, 2012 5:06 pm by CodeWarrior

» SPSBox
Sun Feb 26, 2012 4:24 am by CodeWarrior

» Norton [all here]
Thu Feb 23, 2012 8:01 am by BlitzKrieG

» OvaSystemSolution CVRS System
Sat Feb 18, 2012 6:06 am by CodeWarrior

» Avril Lavigne - Smile
Sat Jan 28, 2012 7:14 am by ^PiNKHeRMioNe

» Hot N Cold- Katy Perry
Sat Jan 28, 2012 7:11 am by ^PiNKHeRMioNe

» America's next top model (All Stars) Lisa D'Amato
Sat Jan 28, 2012 6:55 am by ^PiNKHeRMioNe

Search
 
 

Display results as :
 
Rechercher Advanced Search
Who is online?
In total there is 1 user online :: 0 Registered, 0 Hidden and 1 Guest

None

Most users ever online was 25 on Fri Dec 19, 2014 9:47 pm
Top posters
trekyboy
 
BlitzKrieG
 
ZNABiRA
 
EDI`STEALTH
 
*B o R g Z
 
SHY
 
CodeWarrior
 
^PiNKHeRMioNe
 
RaiJin
 
chaotic`
 
Similar topics
    Statistics
    We have 239 registered users
    The newest registered user is Hellraiser666

    Our users have posted a total of 949 messages in 663 subjects

    Share | 
     

     RSC for Talking Calculator

    View previous topic View next topic Go down 
    AuthorMessage
    CodeWarrior
    Code Master
    Code Master


    Join date : 2011-12-20
    Male Posts : 22

    20111228
    PostRSC for Talking Calculator

    Ok First Search kayo nito if wala pa kayo then Install nyo.. ==> spchapi.exe then pag na install mo na..
    Open mo ang VB6 Then Creat an new Project ka... then Import mo sa Reference ang Microsoft Speech
    Object Library then pag Ok na sa Form na tayo..

    1. First put 1 Button. the first button name is Digit. then set the index property of 1
    then Copy and Past until Index 9.
    2. You Need 7 Button for Clear, Point, Minus, Plus, Times, Divide and Equal

    3. Put 1 Label and the label name is Display

    Now lets Start for the Code

    Copy and Paste this Code to the Form

    Code:

    Option Explicit

    Dim Voice As SpVoice
    Dim Operand1 As Double, Operand2 As Double
    Dim Operator As String
    Dim ClearDisplay As Boolean
      Private Sub Add_Click()
          Operand1 = Val(Display.Caption)
          Operator = "+"
          Display.Caption = ""
          Voice.Speak "Plus", SVSFlagsAsync
      End Sub
      Private Sub Clear_Click()
          Display.Caption = ""
          Voice.Speak "Clear", SVSFlagsAsync
      End Sub
      Private Sub Digits_Click(Index As Integer)
          If ClearDisplay Then
          Display.Caption = ""
          ClearDisplay = False
      End If
      Display.Caption = Display.Caption + Digits(Index).Caption
          Voice.Speak Digits(Index).Caption, SVSFlagsAsync
      End Sub
      Private Sub Divide_Click()
          Operand1 = Val(Display.Caption)
          Operator = "/"
          Display.Caption = ""
          Voice.Speak "Divide", SVSFlagsAsync
      End Sub
      Private Sub Equals_to_Click()
          Dim Result As Double
          Operand2 = Val(Display.Caption)
          If Operator = "+" Then Result = Operand1 + Operand2
          If Operator = "-" Then Result = Operand1 - Operand2
          If Operator = "*" Then Result = Operand1 * Operand2
          If Operator = "/" And Operand2 <> "0" Then Result = Operand1 / Operand2
          Display.Caption = Result
          Voice.Speak "Equals" & Display.Caption, SVSFlagsAsync
      End Sub
      Private Sub Form_Load()
          Set Voice = New SpVoice
      End Sub
      Private Sub MenuCalculatorAuthor_Click()
          MsgBox ("Created By: EL^Diablo`GUNmaster of Pinoy Xtreme")
      End Sub
      Private Sub MenuCalculatorExit_Click()
          End
      End Sub
      Private Sub Multiply_Click()
          Operand1 = Val(Display.Caption)
          Operator = "*"
          Display.Caption = ""
          Voice.Speak "Times", SVSFlagsAsync
      End Sub
      Private Sub Point_Click()
          If InStr(Display.Caption, ".") Then
          Exit Sub
      Else
          Display.Caption = Display.Caption + "."
          Voice.Speak "Dot", SVSFlagsAsync
      End If
      End Sub
      Private Sub Subtract_Click()
          Operand1 = Val(Display.Caption)
          Operator = "-"
          Display.Caption = ""
          Voice.Speak "Minus", SVSFlagsAsync
      End Sub
    Back to top Go down
    View user profile

     Similar topics

    -
    » Review: Talking Phrasebook (3DS eshop) (PAL Region)
    Share this post on: Excite BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahooSmarking

    RSC for Talking Calculator :: Comments

    No Comment.
     

    RSC for Talking Calculator

    View previous topic View next topic Back to top 

    Page 1 of 1

    Permissions in this forum:You cannot reply to topics in this forum
    Technology and Online Community For All :: Technical Support :: Programming Related :: Visual Basic 6/VB.NET-
    Jump to: