Kelab Pengaturcara@programming

[Intel2Core_1 1]

[quote name='ApOgEE' date='25 February 2010 - 10:20 AM' timestamp='1267064415' post='1018902']
Baik [b][size="5"]Cikgu[/size][/b]!!!


Aku takde mainframe. Frame gambar ada la...

Yang penting, boleh belajar COBOL dari [b][size="5"]Cikgu[/size][/b] Intel2Core_1 ... yeayy!!!

Cubaan seterusnya... tolong komen...
[code] * ------------------------------------------------
* ApOgEE baru belajar COBOL dengan Intel2Core_1
* Ini program main belasah... use at your own risk
* note: aku baru tau star '*' ni untuk komen heheh
* ------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. ApOgEE-Belajar-COBOL.
AUTHOR. ApOgEE.
* baru belajar: boleh letak author rupanya..

DATA DIVISION.
WORKING-STORAGE SECTION.
01 sNama PIC X(60).
01 sPaparNama PIC X(255).

PROCEDURE DIVISION.
DISPLAY ""

* : Soalan paling mudah. heheh
DISPLAY "Siapakah Nama Engkau?"
DISPLAY ""

* : kalau tak tau gak camne nak masukkan input, tak tau la aku.
DISPLAY "(letak noktah '.' diakhir nama, lepas tu ENTER la)"

* : aku belum tau camne nak letak input prompt tu kat
* sebelah 'Nama :'. tu pasal letak kat bawah.
DISPLAY "Nama :"
ACCEPT sNama.

DISPLAY ""
DISPLAY "== Perhatikan beza dua output ni =="
DISPLAY ""

* : cubaan pertama aku. ada unwanted spaces la pulak. adeh
DISPLAY "Ooo.. nama kau " sNama " rupanya"

DISPLAY ""
DISPLAY "------------------------------------"
DISPLAY ""

* : setelah mencari dan membaca beberapa sumber internet
* aku cuba buat camni. hentam sajalah...
STRING "Ooo.. nama kau " DELIMITED BY SIZE
sNama DELIMITED BY "."
" rupanya" DELIMITED BY SIZE
INTO sPaparNama
END-STRING.

* : Baru dia display OK. Itupun kalau pengguna letak noktah '.' lepas nama dia. haha
DISPLAY sPaparNama.

STOP RUN.

[/code]

Save fail diatas dengan nama 'belajarinput.cob'

Compile guna open-cobol dalam linux.
[code]apogee@linuxbox:~/belajarCOBOL$ cobc -x belajarinput.cob
[/code]

Dan larikan...
[code]apogee@linuxbox:~/belajarCOBOL$ ./belajarinput

Siapakah Nama Engkau?

(letak noktah '.' diakhir nama, lepas tu ENTER la)
Nama :
Ahmad Albab Ibnu Syawal.

== Perhatikan beza dua output ni ==

Ooo.. nama kau Ahmad Albab Ibnu Syawal. rupanya

------------------------------------

Ooo.. nama kau Ahmad Albab Ibnu Syawal rupanya
apogee@linuxbox:~/belajarCOBOL$
[/code]

TJ-Ariff, nama aku takde pun?? yg nombor 18 tu nama orang lain tu...
[/quote]


oiitt..
aku bukan ckgu laa...
aku x terer mane pon..
ko pggl aku ckgu or name2 yg seangkatan dgnnye aku akan diam..
huhuhuhu..

pjg coding ko..

[ApOgEE 1]

[quote name='Intel2Core_1' date='25 February 2010 - 05:20 PM' timestamp='1267089628' post='1018996']
oiitt..
aku bukan ckgu laa...
aku x terer mane pon..
ko pggl aku ckgu or name2 yg seangkatan dgnnye aku akan diam..
huhuhuhu..

pjg coding ko..
[/quote]

halamak.. jgn ler mare...

ok.. ok.. encik Intel2Core_1, tulun la komen code tu... pendekkan ke... apa ke...

[Intel2Core_1 1]

[quote name='ApOgEE' date='25 February 2010 - 06:36 PM' timestamp='1267094186' post='1019005']
halamak.. jgn ler mare...

ok.. ok.. encik Intel2Core_1, tulun la komen code tu... pendekkan ke... apa ke...
[/quote]

coding ko dah ok la 2..
sape2 nk blaja coding sila rujuk ApOgEE..

tau gune JCL?

[ApOgEE 1]

[quote name='Intel2Core_1' date='25 February 2010 - 07:05 PM' timestamp='1267095935' post='1019007']
coding ko dah ok la 2..
sape2 nk blaja coding sila rujuk ApOgEE..
[/quote]
ceh, tu aje komennya? persoalan kat code tu pun belum terjawab lagi... (tengok komen)

[quote name='Intel2Core_1' date='25 February 2010 - 07:05 PM' timestamp='1267095935' post='1019007']
tau gune JCL?
[/quote]
tak tau.. tolong beri tunjuk ajar...

Intel2Core_1, ko guna COBOL ni dalam Mainframe untuk tujuan apa? aku belum jelas lagi dengan kepentingan COBOL dalam industri... boleh tolong jelaskan?

[TJ-Ariff 40]

[quote name='ApOgEE' date='25 February 2010 - 10:20 AM' timestamp='1267064415' post='1018902']

TJ-Ariff, nama aku takde pun?? yg nombor 18 tu nama orang lain tu...
[/quote]

Laaa, mengikut Database aku, dah betol dah nama ko tu, aritu silap ejaan ajer tu..
tapi kalau ada makhluk lain yg guna nick tu aku kurang pastila.. kanke ko dah daftar awal dulu.. takcaya tanya lanoG . yang nie pun hal, aku dah konfius, sat nick dia LanoG nie dah tukar LanoQ pulak... adeh.. ker aku yg dah tak betoi...

[Intel2Core_1 1]

TJ-Ariff,rileks bro..
jgn pening2..


ApOgEE..
nie cth jcl aku amik dr website..

[code]
//PDSCRTJ4 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//* This program is provided by: *
//* SimoTime Enterprises, LLC *
//* (C) Copyright 1987-2010 All Rights Reserved *
//* *
//* Web Site URL: http://www.simotime.com *
//* e-mail: [email protected] *
//* *******************************************************************
//*
//* Subject: Define a PDS using the IEFBR14 with a DD Statement
//* Author: SimoTime Enterprises
//* Date: January 1,1998
//*
//* The JCL member executes the instream PROC called PDSCRTP3 and
//* passes a fully qualified data set name (DSN) via the symbolic name
//* called DSNAME and referenced in the PROC as &DSNAME.
//*
//*********************************************************************
//* The instream PROC for creating a PDS. The Data Set Name (&DSNAME)
//* is provided by the job step that calls the PROC.
//*
//PDSCRTP3 PROC
//PDSCRTS1 EXEC PGM=IEFBR14
//TEMPLIB1 DD DISP=(NEW,CATLG),DSN=&DSNAME,
// STORCLAS=MFI,
// SPACE=(TRK,(45,15,50)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO)
// PEND
//*
//* *******************************************************************
//* Step 1 of 3 Create a PDS using SET and EXEC
//*
// SET DSNAME=SIMOTIME.DEMO.TEMP01
//STEPJ41 EXEC PDSCRTP3
//*
//* *******************************************************************
//* Step 2 of 3 Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ42 EXEC PDSCRTP3,DSNAME=SIMOTIME.DEMO.TEMP02
//*
//* *******************************************************************
//* Step 3 of 3 Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ43 EXEC PDSCRTP3,DSNAME=SIMOTIME.DEMO.TEMP03
//*


[/code]


ApOgEE,
aku cube jwb soalan ko dgn ape yg aku tau.
biasenye COBOL nie gune utk business,finance & administrative system.
kebanyakan yg gune COBOL nie kat bank2..

[ApOgEE 1]

[quote name='Intel2Core_1' date='26 February 2010 - 04:15 PM' timestamp='1267172108' post='1019187']
ApOgEE,
aku cube jwb soalan ko dgn ape yg aku tau.
biasenye COBOL nie gune utk business,finance & administrative system.
kebanyakan yg gune COBOL nie kat bank2..
[/quote]

Intel2Core_1, oleh kerana ko berada dalam bidang tersebut, boleh bagi pandangan ko tak, kenapa COBOL lebih sesuai untuk business,finance & administrative system? kenapa tak guna C ke, C++ ke, Perl, Python, Java atau lain-lain?

Aku hanya curious... kenapa COBOL lebih sesuai... in what sense?

[LanoV 22]

Maybe sebab nama dia COBOL (Common Business-Oriented Language) kot... dah nama dia sendiri ada business tu, sesuai benor ler untuk business.. hehehe.

[tunfaris88 0]

salam..

den pn nk msuk gak..

tunfaris88

penah blaja c prog..tp xphm2 smpi ke sudah....huhu..nk blaja dri otai2 sme..hehe..

[TJ-Ariff 40]

ya.. silakan..

sama2 ler kita belajar..

[LanoV 22]

Mana pengaturcara2x lain nie.... macam hilang jerk.. hahaha. TJ, busy ker sekarang nie. Apa kata kita buat senarai nama2 ahli ikut pengaturcaraan yang orang tu minat/mahir nak buat. So, senang sikit nak buat rujukan dan pertanyaan...

[TJ-Ariff 40]

sori lanoq aku lamabat reply... agak sibuk kebelakangan ni...
bagus jugak cadangan tu...

[hairulfadly 27]

ada sape2 lagi yang ingin berkongsi rahsia programming..
sila-sila jangan malu dan segan untuk meneruskan programming ini..

[TJ-Ariff 40]

Wahh.. hairul... selamat kembali,
kemana ko menghilangkan diri,
semoga kali ini,
ko jangan menyepi lagi..

he he

[hairulfadly 27]

Saya sangat busy di tempat kerja baru..
Bahagian IT memang sibuk tahap melampau.
Banyak kena support user..

[LanoV 22]

[quote name='hairulfadly' date='01 April 2010 - 06:12 PM' timestamp='1270116727' post='1024106']
Saya sangat busy di tempat kerja baru..
Bahagian IT memang sibuk tahap melampau.
Banyak kena support user..
[/quote]
Kalau camtu kena tambah ler tenaga IT yang support users kat tempat sedara...

[kowmeng 0]

[quote name='LanoZ' timestamp='1270131574' post='1024141']
Kalau camtu kena tambah ler tenaga IT yang support users kat tempat sedara...
[/quote]

klu nk blaja programing C# ade ke kt cini?

[ApOgEE 1]

Huhu... ada lagi rupanya topik ni... lama aku tak masuk. mana yang lain2 ni? senyap je semua?

[quote name='kowmeng' timestamp='1299114188' post='1063809']
klu nk blaja programing C# ade ke kt cini?
[/quote]

macam2 ada kat sini kowmeng... C# pun ada... jemput masuk, jangan memalu...

[kowmeng 0]

[quote name='ApOgEE' timestamp='1299118913' post='1063818']
Huhu... ada lagi rupanya topik ni... lama aku tak masuk. mana yang lain2 ni? senyap je semua?



macam2 ada kat sini kowmeng... C# pun ada... jemput masuk, jangan memalu...
[/quote]

xde pn link yg sembang pasal C# apogee..

[ApOgEE 1]

[quote name='kowmeng' timestamp='1299380216' post='1064047']
xde pn link yg sembang pasal C# apogee..
[/quote]

Alahai, susah apanya? Nak sembang pasal C#, mulakan saja la sembang pasal C#... tanya soalan ke, bagi pandangan ke, share codes ke... takkan itu pun nak ajar kot? Aisehmen...

[LanoV 22]

Huh... lamanya aku tak masuk sini. Last sekali setahun yang lepas... last sekali tutorial aku buat tahun 2008 (VB2008). Dah boleh jadi bahan arkib negara dah.. kakakaka. Masa tu masih pakai VB 2008 sekarang dah ada VB 2010... dan maybe nak keluar yang baru lagi. Betapa lamanya terasa dan betapa cepatnya teknology berkembang... Mana agaknya pegi ahli-ahli kelab lain nie, masih aktif kah, dah beranak pinak kah diorang.... huuhuhu. Mungkin sekarang ramai masih terkejar2 dengan haluan masing2... aku macam biasa minat kepada programming tak penah padam, cuma jenis bahasa yang dipelajari tu dah berubah sikit2... kena ler belajar bahasa baru kan, ikut perkembangan dunia sekarang... ngehehehe.

Calling uncle TJ, hairulfadly dan lain2... apa cerita korang semua.

[ApOgEE 1]

[quote name='LanoZ' timestamp='1306396410' post='1069079']
Huh... lamanya aku tak masuk sini. Last sekali setahun yang lepas... last sekali tutorial aku buat tahun 2008 (VB2008). Dah boleh jadi bahan arkib negara dah.. kakakaka. Masa tu masih pakai VB 2008 sekarang dah ada VB 2010... dan maybe nak keluar yang baru lagi. Betapa lamanya terasa dan betapa cepatnya teknology berkembang... Mana agaknya pegi ahli-ahli kelab lain nie, masih aktif kah, dah beranak pinak kah diorang.... huuhuhu. Mungkin sekarang ramai masih terkejar2 dengan haluan masing2... aku macam biasa minat kepada programming tak penah padam, cuma jenis bahasa yang dipelajari tu dah berubah sikit2... kena ler belajar bahasa baru kan, ikut perkembangan dunia sekarang... ngehehehe.

Calling uncle TJ, hairulfadly dan lain2... apa cerita korang semua.
[/quote]

Ceh LanoZ,

Ada lagi ni... aku ingatkan ada code baru yang dikongsi... hehehehe...
LanoZ, aku sekarang kat channel #ubuntu-my @ irc.freenode.net
Jom Ubuntu!

[LanoV 22]

[quote name='ApOgEE' timestamp='1306397516' post='1069081']
Ceh LanoZ,

Ada lagi ni... aku ingatkan ada code baru yang dikongsi... hehehehe...
LanoZ, aku sekarang kat channel #ubuntu-my @ irc.freenode.net
Jom Ubuntu!
[/quote]

Hahaha... aku malas ler nak meng'Ubuntu'kan diri buat masa sekarang nie. Kang hari2 buntu jerk fikiran.. ngehehehe. But memang aku tertarik dengan OS nie... cuma belum sampai seru lagi nie. Akan datang aku prefer nak explore Android... ye lah dah pakai smartphone android nie, kena ler explore apa benda dalam tu kan... hehehe.

[hairulfadly 27]

[b]Memahami Procedure Function dalam Visual basic 6.0[/b]

Di bawah ini merupakan beberapa contoh sehingga anda dapat memahami Statement Function dalam Visual Basic 6.0, untuk memahaminya copy dan pastekan kode di bawah ini:

[code]
Private Sub Form_Load()
TampilkanPesan_0 'baris ke-1
TampilkanPesan_1 "Ini pesan" 'baris ke-2
MsgBox TampilkanPesan_2("Ini pesan") 'baris ke-3
End Sub

'Fungsi ini yang dipanggil dalam baris ke-1
Function TampilkanPesan_0()
MsgBox "Ini pesan"
End Function

'Fungsi ini yang dipanggil dalam baris ke-2
Function TampilkanPesan_1(Pesan As String)
MsgBox Pesan
End Function

'Fungsi ini yang dipanggil dalam baris ke-3
Function TampilkanPesan_2(Pesan As String) As String
TampilkanPesan_2 = Pesan
End Function

[/code]

Catatan:
Fungsi pada baris ke-1 tanpa argumen
Fungsi pada baris ke-2 dengan argumen
Fungsi pada baris ke-3 disertai argumen & Return Value

Perhatikan cara memanggilnya!

Sekarang anda telah memahami Statement Function (Fungsi Statement) dalam Visual Basic 6.0. Perlu diketahui:

1.Function merupakan sebahagian dari Procedure, iaitu seluruh Function merupakan Procedure akan tetapi tidak seluruh Function merupakan Procedure
2.Seluruh kod dalam Visual Basic ditulis dalam badan Procedure.

[LanoV 22]

Aik... hairulfadly tiba2 muncul dengan notes pasal VB6 pulak. Okeh.. kipidap.

Sekarang nie busy yang amat sampai balik rumah pun dah takde masa nak teruskan hobi aku nie. Nak tengok TV pun dah tak larat, nie kan pulak nak duduk depan PC. Memang penat... kena cari waktu tak busy baru boleh teruskan balik benda2 yang dah lama tinggal nie.