Arsip: bertanya tentang maksud error message dan maksud code

 
user image
more 9 years ago

nekok

Assalamualaikum, selamat siang, salam sejahtera untuk master-master semua Saya sedang mencoba beberapa program, dan menemukan beberapa masalah antara lain : 1. Saya mencoba meng-compile program A, dan terdapat error message berikut:
[Error]Unit1.pas(41):Unsatisfied forward or external declaration: 'TForm1.FuncAvail'
dan list of code yang bermasalah adalah sebagai berikut: function FuncAvail(dllName,funcName:string;var p:pointer):Boolean; ==> mohon bantuan master-master untuk menjelaskan maksud error message tersebut, pada bagian manakah saya melakukan kesalahan? 2. Saya mencoba program Text to Speech [mohon maaf, sourcenya saya lupa] sebagai berikut, berjalan sempurna, tapi saya tidak paham maksud dari code programnya:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} USES ComObj; procedure Ngomong(Teks : String); const SVSFDefault = $00000000; SVSFlagsAsync = $00000001; var oVoice: OLEVariant; begin oVoice := CreateOLEObject('SAPI.SpVoice'); oVoice.Speak(Teks , SVSFlagsAsync); Showmessage(Teks ); end; procedure TForm1.Button1Click(Sender: TObject); begin Ngomong(Edit1.Text); end; end.
Point pertanyaan saya antara lain: a. apakah ComObj pada
USES ComObj;
merupakan sebuah library? b. apa maksud $00000000 dan $00000001 pada deklarasi konstanta
SVSFDefault = $00000000; SVSFlagsAsync = $00000001;
c. dan maksud dari code berikut
oVoice := CreateOLEObject('SAPI.SpVoice'); oVoice.Speak(Teks , SVSFlagsAsync); Showmessage(Teks );
Mohon kesediaan master-master semua untuk membantu saya, atas perhatiannya saya ucapkan terima kasih
user image
more 9 years ago

DelphiExpert

1. (header) Fungsi tersebut belum dan harus di implementasikan. 2. ComObj berisi fungsi2 untuk penggunaan COM object, bisa dikatakan library. 3. Penggunaan $ diawal nomor maksudnya menunjukkan dalam format hexa 4. oVoice := CreateOLEObject('SAPI.SpVoice'); --> membuat object SAPI oVoice.Speak(Teks , SVSFlagsAsync); --> memanggil fungsi Speak dng Teks sebagai input/outputnya (var?) Showmessage(Teks ); --> menampilkan variable Teks
user image
more 9 years ago

nekok

terima kasih banyak kepada mater DelphiExpert yang sudah menganggapi dan me-replay postingan ini. terima kasih juga untuk nasehatnya yang ini :
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field
mohon maaf, kalo ketidaktahuan dan ketidakmengertian saya jadi masalah, tapi saya benar benar berniat bisa mempelajari bahasa pemograman ini, seberapa bodohnyapun saya. Dan untuk mencari field lain juga saya belum kepikiran. terima kasih. ^_^
user image
more 9 years ago

nekok

wah sepertinya saya salah paham.. mohon maaf master DelphiExpert saya kira nasehat "Dude.." itu buat saya secara langsung. Saya salah paham. mohon maaf, mohon maaf. Terima kasih dan mohon maaf :oops:
user image
more 9 years ago

n3o_cybertech

OOT : hahahhaa...ngakak ane bacanya gan,tp gpp inget kata komandan : Tetap SemangaT! :D
user image
more 9 years ago

DelphiExpert

@nekok: terima kasih juga untuk nasehatnya yang ini :
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field
mohon maaf, kalo ketidaktahuan dan ketidakmengertian saya jadi masalah, tapi saya benar benar berniat bisa mempelajari bahasa pemograman ini, seberapa bodohnyapun saya. Dan untuk mencari field lain juga saya belum kepikiran. terima kasih. ^_^
La dhalah... itu signature saya om... tidak ditujukan kepada dikau atau yang lainnya. seperti kotbah sholat Jum'at: nasehat itu ditujukan kepada saya pribadi, supaya saya cepat alih profesi, jual siomay dan bakso mungkin :mrgreen: BTW. Ayooo semangat belajar Delphi, kalau ada yg ditanyakan lagi jangan sungkan2 tulis postingan. Semangrat!
user image
more 9 years ago

mambamaestro

@DelphiExpert: La dhalah... itu signature saya om... tidak ditujukan kepada dikau atau yang lainnya. seperti kotbah sholat Jum'at: nasehat itu ditujukan kepada saya pribadi, supaya saya cepat alih profesi, jual siomay dan bakso mungkin :mrgreen: BTW. Ayooo semangat belajar Delphi, kalau ada yg ditanyakan lagi jangan sungkan2 tulis postingan. Semangrat!
makanya Om D.E, jangan bikin signature yang nylekit, ada yang kerasa tuhhh.. wakakakakakakak :D
user image
more 9 years ago

mas_kofa

@mambamaestro: makanya Om D.E, jangan bikin signature yang nylekit, ada yang kerasa tuhhh.. wakakakakakakak :D
terutama aku...makanya aku benci bgt ma om DE
user image
more 9 years ago

nekok

wah, postingan saya bikin master-master semua jadi ketawa.... heheheh Master DelphiExpert: ya, maaf master, saya baru notice belakangan kalo signature tersebut bukan personal buat saya, tapi ngerasa saja karena saya masih dummy dan yang saya tanyakan juga maksud dari source code bukannya pertanyaan yang lebih dalam.... ^_^ oia master-master sekalian: 1.
1. (header) Fungsi tersebut belum dan harus di implementasikan
itu artinya saya baru menginisialisasikan fungsi FuncAvail nya saja ya, baru headernya saja, blm ada body nya ya master? 2.
3. Penggunaan $ diawal nomor maksudnya menunjukkan dalam format hexa
artinya konstanta tersebut dalam format hexa... ada hubungannya dengan suara gak master, soalnya inikan LOC Text to Speech, apakah angka-angka yang mengikuti tanda $ tersebut ada hubunganya dengan library atau dbase suara? 3.
oVoice := CreateOLEObject('SAPI.SpVoice'); --> membuat object SAPI
SAPI itu apa ya master?
user image
more 9 years ago

n3o_cybertech

coba jawab :D 1. contohnya begini :

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Test; //header
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Test; //forward declaration
begin
end;
end.
2. Pasti ada hubungannya dengan library,klo dengan suara mungkin (coba trace sendiri ya :D ) 3. SAPI itu ya nama object,contoh berikut kalo kita panggil object Outlook :

Outlook:=CreateOleObject('Outlook.Application') ;
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com