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
September 2017
SunMonTueWedThuFriSat
     12
3456789
10111213141516
17181920212223
24252627282930
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 948 messages in 662 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: