Buat Komputermu Berbicara (VBS)

Discussion in 'Programming & Reverse Engineering' started by wawan_berau, Apr 21, 2009.

  1. wawan_berau

    wawan_berau New Member

    Messages:
    69
    Likes Received:
    122
    Trophy Points:
    0
    Silahkan copas script berikut ke notepad :

    Code:
    Dim msg, sapi
    msg=InputBox("Tulis kalimat dikolom, lalu klik OK"," wawan_berau")
    Set sapi=CreateObject("sapi.spvoice")
    sapi.Speak msg
    lalu save as dalam bentuk .VBS

    klik File, save as, pada Save as type pilih All Files. Beri nama file pada File Name dgn nama apa aja dgn format / akhiran .VBS => misal tes.vbs

    untuk mengetesnya, pertama2x nyalakan speaker alu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom...

    [​IMG]
     
    tesi, ALGASIM, kun david and 14 others like this.
  2. JavaSoft

    JavaSoft New Member

    Messages:
    169
    Likes Received:
    19
    Trophy Points:
    0

    Wah....Terima kasih bosss....
    tambah 1 ilmu lagi nich....

    Makasih bgt bosssss:loveeye::loveeye::loveeye:
     
    ObyTechno and boelda like this.
  3. pordjox

    pordjox Well-Known Member

    Messages:
    471
    Likes Received:
    138
    Trophy Points:
    53
    wah kayane asik tuh pak boszz...tapi ane bingung ca ra pakenya pak boszz..script dah di copas d notepad..trus udah di save pake extensi vbs..
    nah disini yang ane bingung...cara nampilin kolm biar bs diisi kalimat gmn caranya pak boszzz..ane kagak ngarti sama sekali neh pak boszz..kasih tutorny dong pak boszzz..maklum katrok,ngartinya cuman ngidupin ama matiin kompi...:noidea::noidea::confused::confused:
     
  4. wogen

    wogen Well-Known Member

    Messages:
    283
    Likes Received:
    150
    Trophy Points:
    53
    Wah lumayan bos, tapi sayang komputernya masih logat English. :thumb:
     
  5. wayjar

    wayjar New Member Super Member

    Messages:
    931
    Likes Received:
    2,959
    Trophy Points:
    0
    mantabbbb bang wawan..
    thank for sharing
     
  6. john_spycell

    john_spycell Member

    Messages:
    90
    Likes Received:
    7
    Trophy Points:
    18
    tinggal di open aja file yg dah di save boss../di double klik...otomatis tuh kolom pasti nongol..:thumb:
     
  7. idanz

    idanz New Member

    Messages:
    3
    Likes Received:
    0
    Trophy Points:
    0
    mantab bos,,,udah sy coba....:thumb:

    lucu juga klo kalimatnya bahasa indonesia:D
     
  8. choe

    choe New Member

    Messages:
    9
    Likes Received:
    0
    Trophy Points:
    0
    ada yang bisa nambahi scriptnya biar bisa include di microsoft word. kalau ngetik ben lucuuuu
     
  9. boelda

    boelda Moderator Moderator

    Messages:
    942
    Likes Received:
    566
    Trophy Points:
    103
    wueleh........weleh.........Kok bisa ya.........???:confused::confused::confused:
     
  10. citrapdklp

    citrapdklp Member

    Messages:
    6
    Likes Received:
    8
    Trophy Points:
    13
    Biar logatnya mirip indonesia gimana bos?
     
  11. adicuzzy

    adicuzzy New Member

    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    0
    thanks bro, ntar dicoba dah :thumb::thumb::thumb:
     
  12. zan cavalera

    zan cavalera New Member

    Messages:
    7
    Likes Received:
    0
    Trophy Points:
    0
    Tu sapi maksudnya suara sapi ya om...kok kyk suara sapi gitu...bisa ganti pake suara lain ga om bagi lg dong ilmunya xixixi.. :D
     
  13. m4d4

    m4d4 Well-Known Member

    Messages:
    374
    Likes Received:
    126
    Trophy Points:
    53
    SIP.....:thumb:
     
  14. rafles85

    rafles85 New Member

    Messages:
    35
    Likes Received:
    3
    Trophy Points:
    0
    Wah bsaan ya.Thx boz
     
  15. trimbel

    trimbel New Member

    Messages:
    14
    Likes Received:
    1
    Trophy Points:
    0
    Tak coba dlu bozzz
     
  16. 4rif

    4rif New Member

    Messages:
    20
    Likes Received:
    2
    Trophy Points:
    0
    Kk kok gak bisa sih...
    aq coba dan tampilan keluarya terlalu cepat maka gak biza nulis...:frusty::frusty:
     
  17. rehmoe

    rehmoe New Member

    Messages:
    12
    Likes Received:
    0
    Trophy Points:
    0

    kalo suaranya kecepetan, coba setting di:

    CONTROL PANEL --> SPEECH --> Text To Speech

    Setting Voice speed ke Normal ato ke arah Low


    moga membantu
     
  18. kikikampret

    kikikampret New Member

    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    wahhh...tengkyu bgt neh!!!!
    buat iseng2 berhadiah!!!!!:clap:
     
  19. sicopo

    sicopo New Member

    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    0
    hahaha
    ad yang tau cra buat MW yang bisa ad suaranya gak?

    y tanpa baca teks ^_^:noidea::noidea::noidea:
     
  20. ablehcepek

    ablehcepek New Member

    Messages:
    2
    Likes Received:
    2
    Trophy Points:
    0
    Coba langsung dech
     

Share This Page