Arsip: bertanya tentang maksud error message dan maksud code

more 10 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

more 10 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

more 10 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 fieldmohon 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. ^_^

more 10 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:

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

more 10 years ago
DelphiExpert
@nekok: terima kasih juga untuk nasehatnya yang ini :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!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 fieldmohon 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. ^_^

more 10 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

more 10 years ago
mas_kofa
@mambamaestro: makanya Om D.E, jangan bikin signature yang nylekit, ada yang kerasa tuhhh.. wakakakakakakak :Dterutama aku...makanya aku benci bgt ma om DE

more 10 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 implementasikanitu 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 hexaartinya 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 SAPISAPI itu apa ya master?

more 10 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
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Input Data MS SQL via Form??
by ibiz in MsSQL more 14 years ago - Dynamic Program
by hendra_sir84 in Hal umum tentang Pascal Indonesia more 13 years ago - Handle Error Store Procedure
by supermuam in MsSQL more 12 years ago - Ms Access Network
by R-One in Lain-lain more 13 years ago - Ukuran Buffer optimal untuk pemrosesan file > 50 MB
by pebbie in Tip n Trik Pemrograman more 12 years ago - label pake timer
by delphi_tikuzz in Multimedia & Graphic Enhancement more 13 years ago - Tanya mengenai delphi dan crystal report
by lunglung in Lain-lain more 12 years ago - Cara membuat program Ktp
by tn in Tip n Trik Pemrograman more 12 years ago - Bagaimana cara hapus data dengan dua tabel menggunakan SQL
by onsir in MySQL more 12 years ago - why it seems so hard to search, read, and try?
by simba in OOT more 14 years ago