Jump to content
TJ-Ariff

Kelab Pengaturcara@programming

Recommended Posts

nice job bro hairul ^_^

sy pun br je stat berjinak jinak ngan VB ni..

1 tutorial yg mmg bgsss

cume ade skit nk mintak tlg ngan bro hairul @ sape2 je yg sudi tlg..

1. bleh x kalo wat camni..bile klik kt butang "Buang" akan kluar 1 pop up msg box tanye sama ade penggune btul2 nk buang maklumat tersebut..

2.bile aku klik butang "Cari" kluar 1 inputbox seperti yg tlh di tunjuk oleh bro hairul..pastu kalo aku x isi ape2 pun kt situ n trus klik cancel akan kluar msgbox "masukkan no pekerja"..

camne nk btulkan supaye bile klik cancel msgbox tu x kluar??

dat's all..diharap ade yg sudi membantu :P

Share this post


Link to post
Share on other sites

nice job bro hairul ^_^

sy pun br je stat berjinak jinak ngan VB ni..

1 tutorial yg mmg bgsss

cume ade skit nk mintak tlg ngan bro hairul @ sape2 je yg sudi tlg..

1. bleh x kalo wat camni..bile klik kt butang "Buang" akan kluar 1 pop up msg box tanye sama ade penggune btul2 nk buang maklumat tersebut..

cuba tengok ni utk memahami apa itu msgbox..lps paham, baru ko sng nk manipulasikan apa yg ko nk dr msgbox...

cth:

kalu ko ada button nama btnBuang, kat sub btnBuang_Click, ko bole ltk:

Private Sub btnBuang_Click()

If MsgBox("anda kompom ka?", vbOKCancel) = vbOK Then
    'letak apa yg perlu dibuat kalu user mmg da kompom..huhu
Else
    'buat apa2 yg patot
End If
End Sub
2.bile aku klik butang "Cari" kluar 1 inputbox seperti yg tlh di tunjuk oleh bro hairul..pastu kalo aku x isi ape2 pun kt situ n trus klik cancel akan kluar msgbox "masukkan no pekerja".. camne nk btulkan supaye bile klik cancel msgbox tu x kluar?? dat's all..diharap ade yg sudi membantu :P
try tengok ni... inputbox akan return string...kalu user clik cancel, ia akan return empty string...so ko bole test return value dr user tu... cth: kalu ko ada 1 button nama btnCari...kat btnCari_Click() tu, ko bole ltk:
Private Sub btnCari_Click()
If LenB(InputBox("apa mao cari?")) <> 0 Then 'user ada masukkan input
    'kasi proses return string tu kat sini
else   'user klik cancel taopon x masukkan data
    'buat apa2 yg patot...kalu tanak buat apa2, just ignore mende ni
end if
End Sub

//erk...club ni utk apa?...ada makan2 free x? :D...

//elok dikongsikan bersama tips2 dan trick2 ttg vb ni...huhu...aku kerja bidang lain, tp kadang2 tu aku wat gak programming yg cikai2...huhu...sbg n00b, saya nk belajar dr otai2 skalian...

Share this post


Link to post
Share on other sites

//erk...club ni utk apa?...ada makan2 free x? :D...

//elok dikongsikan bersama tips2 dan trick2 ttg vb ni...huhu...aku kerja bidang lain, tp kadang2 tu aku wat gak programming yg cikai2...huhu...sbg n00b, saya nk belajar dr otai2 skalian...

Makan2... ??? mesti ader... :lol:

Status kelab nie, masih bagus.. he he,

cuba penyumbang tutorial agak berkurangan kerana mereka pun punyai komitment yang lain...

tapi kita tunggula... InsyaAllah ader yang akan menyusul..

Share this post


Link to post
Share on other sites

Bro TJ... ajak ler diorang buat aktiviti makan2 sikit, gathering ker... hehehe. Baru ler ada semangat sikit.... :D

Ps:// tahniah sebab dah jadi full moderator.

Edited by LanoG

Share this post


Link to post
Share on other sites

Bro TJ... ajak ler diorang buat aktiviti makan2 sikit, gathering ker... hehehe. Baru ler ada semangat sikit.... :D

Ps:// tahniah sebab dah jadi full moderator.

ha ha ha.... ajak makan.... bole tapi cuba ko tengok coding nie dulu...

Dim Makan = RM
Dim Ahli = BIL

If BIL = 100 then Lari
            But if
           100 x RM = (10 x 100),1000
                            so, bila bila pun bole..

if BIL = 1 then Sendiri Makan
                           so, bila pun bole..


end if

end sub[/code]

he he he... camner bole guna-pakai ker.. :lol:

Share this post


Link to post
Share on other sites

Hehehehe....

Private Sub btnMakan_Click()

If MsgBox("Derma lah sorang RM10", vbOKCancel) = vbOK Then

    'Organize tempat makan.

Else

    'Makan sorang-sorang.

End If
End Sub

Edited by LanoG

Share this post


Link to post
Share on other sites

ha ha ha... :lol:

Satu coding yang bagus...

Ader saper2 lagi yang nak tunjukkan coding nyer...

silakan.. :D

Share this post


Link to post
Share on other sites

eh...korang nk banjer aku mkn ke?...aku no hal...ko niat je dlm hati, nnti aku smpai... :D

Const PENUH = "RM 1000"

Dim duitKami As String
Dim TJ_Ariff As OKB

Set TJ_Ariff = New OKB
With TJ_Ariff
    .isiPoket = PENUH
    .duitTinggal = Val(TJ_Ariff.isiPoket)
    .murahHati = True
    .hensem = True
End With

While (duitKami <> PENUH Or TJ_Ariff.duitTinggal > 0)
    MsgBox "TJ-Ariff, mao banjer kitorang mkn katner?"
    
    If TJ_Ariff.tanakBanjer Then
        TJ_Ariff.akibat = "Kena blasah"
        TJ_Ariff.hensem = False
    Else
        TJ_Ariff.duitTinggal = TJ_Ariff.duitTinggal - 100
    End If
Wend
    
Set TJ_Ariff = Nothing
MsgBox "poket TJ-Ariff da kering, jom pao Lanog pulak..wahaha"

edit: korang ada trick2 yg best2 x pasai vb6 ni?...betul ke guna Dim As.....New tu x elok utk kesihatan?...

Edited by betik

Share this post


Link to post
Share on other sites

Wahahaha... sakit perut aku gelak tengok coding si betik nie.... wahahahaha.... jaga2 TJ...

Edited by LanoG

Share this post


Link to post
Share on other sites

Wahahaha... sakit perut aku gelak tengok coding si betik nie.... wahahahaha.... jaga2 TJ...
alaa, sbg ahli baru kat putera ni, apa slhnya senior banjer junior...baru junior sng nk respek senior :D...

Share this post


Link to post
Share on other sites

coding nie yang aku tak boleh tahan nak tergelak baso...

If TJ_Ariff.tanakBanjer Then
        TJ_Ariff.akibat = "Kena blasah"
        TJ_Ariff.hensem = False[/code]

Abis ler aku kena belasah... :lol:

Share this post


Link to post
Share on other sites

coding nie yang aku tak boleh tahan nak tergelak baso...

If TJ_Ariff.tanakBanjer Then
        TJ_Ariff.akibat = "Kena blasah"
        TJ_Ariff.hensem = False

Abis ler aku kena belasah... :lol:

jgn bimbang...sbb value TJ_Ariff.tanakBanjer tu always FALSE :D... sbb aku tau ko mmg nk banjer kitorang...kecuali la ko mmg x syangkan kehenseman ko....haha

Share this post


Link to post
Share on other sites

ha ha ha.. :lol:

Kalau setakat nak belanja ... no hal...

Kalau korang sanggup turun ke Perak laa... :D

Share this post


Link to post
Share on other sites

ha ha ha.. :lol:

Kalau setakat nak belanja ... no hal...

Kalau korang sanggup turun ke Perak laa... :D

Jom ramai2 pergi ke kuala kangsar.... rombongan melawat sambil belajar... dan paling penting makan2... hahahah.... :D

Share this post


Link to post
Share on other sites
Visual BASIC 2008 Express Edition
Kategori: Permainan


PERMAINAN TIC TAC TOE

LanoG (May 2008)


Kali ini mari kita menggunakan bahasa terkini dalam kelas Visual BASIC iaitu Visual BASIC 2008 Express Edition. Untuk menghilangkan boring, apa kata kita buat pula sejenis game yang paling senang sekali nak buat. Semua pasti tahu game tic-tac-toe kan. Jadi, dalam tutorial kali ini, kita akan cuba hasilkan game berkenaan dengan cara yang paling mudah, dan langkah demi langkah. Untuk permulaan, kita lihat dulu sepintas lalu IDE dalam Visual BASIC 2008 Express Edition ini bagi memudahkan penerangan kemudian.

vb2008-00.png

Ilustrasi diatas adalah ringkasan dan sebagai rujukan pantas.


Kita bermula dengan projek baru dengan pergi membukan Visual BASIC 2008 Express Edition. Selanjutnya pergi ke menu File dan pilih New Project (atau tekan Control-N). Sebuah tetingkap berikut akan dipaparkan.

tictactoe-01.png


Pilih Window Form Application sebab kita nak buat game berasaskan form yang biasa. Kemudian klik butang Ok.

Sebuah form akan secara automatik dibentuk dalam IDE dalam mode design dan bersedia untuk anda membuat tindakan selanjutnya.

tictactoe-02.png


Selepas ini kita akan merangka GUI untuk permainan tic tac toe nie. Dengan kata lain, kita memerlukan beberapa kawalan asas supaya papan permainan boleh digunakan. Kita sedia maklum bahawa permainan tic tac toe mempunyai 9 petak permainan di mana 2 pemain menggunakan simbol pangkah dan bulatan untuk menanda pilhan masing-masing. Kemenangan akan diputuskan bila salah seorang mendapat kedudukan ketiga-tiga simbol dalam susunan selari. Jika tidak, kedua-duanya dianggap seri.

Langkah 1

Membina petak-petak permainan dengan fungsi kawalan PictureBox. Mula-mula, pergi ke Toolbox dan cari kawalan PictureBox, lepas tu pilih dan tarikh kawalan berkenaan ke dalam Form anda.

tictactoe-03.png


Beginilah keadaannya selepas anda meletakkan kawalan PictureBox ke dalam Form tadi.

tictactoe-04.png


Untuk langkah seterusnya, kita tunggu sambungan episod seterusnya di lain masa... hehehe. :D Edited by LanoX

Share this post


Link to post
Share on other sites

Lama aku tak sentuh programming VB6 semenjak aku kerja bhgn network..

masa study dulu aku sorang je dalam kelas dapat A dalam subjek ni waktu tu semester 2.

Sebab mungkin aku kecewa dgn result c++ aku masa sem 1. Dapat B ajer. huhu..

Sekarang aku banyak buat platform web sebagai hobi. Sebab aku rasa VB ni susah sket nak cari makan.

Tapi tak tau la jika ada yang lain ada rezki dapat offer je buat mende ni..

Sesapa nak belajar bagus lah..

buat connection skali dengan database..

Aku yang lupa2 ni pun ada gak mngajar lg student IPT kalau dorang panggil.

junior2 aku pun still contact nak cari bahan tambahan.

Ilmu takleh kdekut yer tak..

Share this post


Link to post
Share on other sites

sambungan...

Untuk menyeragamkan saiz kotak gambar (picturebox) tadi, apa kata kita setkan supaya tinggi dan lebar kepada 60x60. Ini dapat dibuat dengan pastikan anda klik pada picturebox tadi dan pergi ke Properties Window (disebelah kanan skrin). Cuba scroll ke bawah dan cari Size, lepas tu tukar angka di dalamnya kepada 60, 60.

tictactoe-05.png

Selepas tu, apa kata kita ubah warna kotak PictureBox ini kepada warna putih untuk menyenangkan mata memandang.. hehehe. Ini juga boleh dilakukan dengan Properties Window dan ubah warna Backcolor kepada White.

tictactoe-06.png

Langkah 2

Copy picturebox pertama tadi dan buat 9 salinan dan susun dalam bentuk 3x3 seperti dalam ilustrasi dibawah nie. Pastikan susunan anda dari atas-kiri ke kanan mengikut turutan nama picturebox masing2... iaitu bermula:

(i) PictureBox1, PictureBox2, PictureBox3 (baris atas)

(ii) PictureBox4, PictureBox5, PictureBox6 (baris tengah)

(iii) PictureBox7, PictureBox8, PictureBox9 (baris bawah)

tictactoe-07.png

Langkah 3

Kali ini kita masukkan pula elemen kawalan butang (Button) supaya kita boleh gunakan untuk memulakan semula permainan bila permainan tamat. Seperti langkah pertama, anda pergi ke Toolbox, tapi kali ini pilih kawalan Button. Selanjutnya, tarik kawlan berkenaan ke dalam Form tadi dan adjust saiz seperti dalam ilustrasi berikut.

tictactoe-09.png

Untuk menukar teks dalam butang kawalan berkenaan, anda boleh pergi ke Properties Window dan cari Text, kemudian ubah lah kepada apa sahaja teks yang anda mahukan. Katakan saya mahu meletakkan teks "Bermula!" pada butang berkenaan. Jadi, kita buat seperti dalam ilustrasi berikut.

tictactoe-10.png

Langkah 4

Memasukkan kod untuk form1 berkenaan. Caranya ialah dengan double-klik pada form berkenaan, dan akan dipaparkan ruangan View Code. Disinilah kita akan menambah kod-kod aturcara untuk menjalankan permainan kita nanti. Sebagai permulaan, dalam ruangan berkenaan cuma kod asas sahaja dipaparkan seperti berikut:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
Mula-mula kita kena mengistiharkan dulu beberapa fungsi yang bakal digunakan dalam form berkenaan. Cuba tambah kod dibawah ini selepas baris Public Class Form1 terlebih dahulu.
    Dim DrawPicture As New PictureBox
    Dim DrawBitmap As Bitmap
    Dim DrawGraphics As Graphics

    Dim CirclePen As New Pen(Color.Blue, 4)
    Dim CrossPen As New Pen(Color.Red, 4)

    Dim IsCross As Boolean
    Dim Nought As String = "O"
    Dim Cross As String = "X"
    Dim Won As Boolean
    Dim Board(3, 3) As String
Langkah 5 Selanjutnya.. kita akan memasukkan pula private sub berikut untuk membolehkan kita melukis bentuk 'O' atau 'X' di dalam kotak PictureBox. Salin dan masukkan kod berikut di bawah kod peristiharan tadi. Ini dinamakan Method (sila rujuk thread OOP yang diterangkan oleh hairulfadly untuk pemahaman lebih lanjut). :)
    Private Sub DrawX()
      DrawGraphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
      DrawGraphics.DrawLine(CrossPen, 10, 10, 50, 50)
      DrawGraphics.DrawLine(CrossPen, 50, 10, 10, 50)
    End Sub
            
    Private Sub DrawO()
      DrawGraphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
      DrawGraphics.DrawEllipse(CirclePen, 8, 8, 40, 40)
    End Sub

bersambung...

Edited by LanoG

Share this post


Link to post
Share on other sites

Langkah 6

Sekarang kita akan menyediakan kotak2 picturebox untuk memulakan permainan tic tac toe ini.

Private Sub SetPiece(ByVal Row As Integer, ByVal Column As Integer, ByVal pic As PictureBox)
        If Board(Row, Column) = Nought Or Board(Row, Column) = Cross Then
            ' Jangan buat apa2 jika O dan X dah ada dalam segiempat
        Else
            DrawPicture = CType(pic, PictureBox)
            DrawBitmap = New Bitmap(DrawPicture.Width, DrawPicture.Height)
            DrawGraphics = Graphics.FromImage(DrawBitmap)
            DrawPicture.Image = DrawBitmap

            If IsCross Then
                DrawX()
                Board(Row, Column) = Cross
                Me.Text = "Pemain:" & Nought
            Else
                DrawO()
                Board(Row, Column) = Nought
                Me.Text = "Pemain:" & Cross
            End If
        End If
End Sub
Selanjutnya, kita perlu memeriksa sama ada pemain pertama atau kedua telah memenangi permainan ini. Jika menang satu mesej box akan ditayangkan untuk memberitahu yang kemenangan telah dicapai. Masukkan code dibawah.
Private Sub Check(ByVal Player As String, ByVal x1 As Integer, ByVal y1 As Integer,_
ByVal x2 As Integer, ByVal y2 As Integer, ByVal x3 As Integer, ByVal y3 As Integer)

        If Board(x1, y1) = Player And Board(x2, y2) = Player And Board(x3, y3) = Player Then
            Won = True
            Me.Text = Player & " Menang!"
            MsgBox(Player & " Menang!", MsgBoxStyle.Information, "Bulatan dan Pangkah")
        End If
End Sub

Private Sub CheckWon(ByVal Player As String)
        Check(Player, 1, 1, 1, 2, 1, 3)
        Check(Player, 2, 1, 2, 2, 2, 3)
        Check(Player, 3, 1, 3, 2, 3, 3)
        Check(Player, 1, 1, 2, 1, 3, 1)
        Check(Player, 1, 2, 2, 2, 3, 2)
        Check(Player, 1, 3, 2, 3, 3, 3)
        Check(Player, 1, 1, 2, 2, 3, 3)
        Check(Player, 3, 1, 2, 2, 1, 3)
End Sub
Masukkan code berikut untuk memeriksa keputusan sama ada seri atau tidak.
Private Sub CheckDraw()
        If Not Board(1, 1) = "" And Not Board(1, 2) = "" And Not Board(1, 3) = "" Then
            If Not Board(2, 1) = "" And Not Board(2, 2) = "" And Not Board(2, 3) = "" Then
                If Not Board(3, 1) = "" And Not Board(3, 2) = "" And Not Board(3, 3) = "" Then
                    If Not Won Then
                        Me.Text = "Seri!"
                        MsgBox("Seri!", MsgBoxStyle.Information, "Bulatan and Pangkah")
                    End If
                End If
            End If
        End If
End Sub
Masukkan pula kod apabila tindakan anda mengklik pada sesebuah kotak picturebox yang ada semasa bermain. Kita sedia maklum setiap pemain (ditandakan dengan simbol Bulatan dan Pangkah) akan bergilir2 mengklik pada kotak pilihan. Masukkan kod berikutnya.
Private Sub PictureClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ 
PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click, _
PictureBox5.Click, PictureBox6.Click, PictureBox7.Click, _
PictureBox8.Click, PictureBox9.Click
        If Not Won Then
            Select Case sender.name
                Case "PictureBox1"
                    SetPiece(1, 1, sender)
                Case "PictureBox2"
                    SetPiece(1, 2, sender)
                Case "PictureBox3"
                    SetPiece(1, 3, sender)
                Case "PictureBox4"
                    SetPiece(2, 1, sender)
                Case "PictureBox5"
                    SetPiece(2, 2, sender)
                Case "PictureBox6"
                    SetPiece(2, 3, sender)
                Case "PictureBox7"
                    SetPiece(3, 1, sender)
                Case "PictureBox8"
                    SetPiece(3, 2, sender)
                Case "PictureBox9"
                    SetPiece(3, 3, sender)
            End Select
            CheckWon(Cross)
            CheckWon(Nought)
            CheckDraw()
            IsCross = Not IsCross
        Else
            MsgBox("Permainan Tamat")
        End If
    End Sub
Langkah 7 Sekarang kita perlu memulakan segera permainan sebaik sahaja kita menjalankan game ini. Maka, kita boleh letakkan kod berikut didalam Private Sub Form1_Load yang sedia ada pada mula2 kita membuka View Code sebelum ini (sila lihat Code pertama dalam Langkah 4).
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.PerformClick()
    End Sub
Langkah 8 Masuk semula ke dalam Design Mode (klik pada tab Design), dan cuba anda double-klik pada butang kawalan "Bermula!" yang telah dibuat dalam langkah sebelum (semak langkah 3) sebelum ini. Bila anda double-klik butang berkenaan.... anda akan dibawa kembali ke bahagian View Code bersama dengan Private Sub Button1_Click. Sekarang lengkapkan kod berkenaan dengan menambah kod seperti dibawah ini.
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
 Handles Button1.Click
        Dim msg As MsgBoxResult
        Board(1, 1) = ""
        Board(1, 2) = ""
        Board(1, 3) = ""
        Board(2, 1) = ""
        Board(2, 2) = ""
        Board(2, 3) = ""
        Board(3, 1) = ""
        Board(3, 2) = ""
        Board(3, 3) = ""
        PictureBox1.Image = Nothing
        PictureBox2.Image = Nothing
        PictureBox3.Image = Nothing
        PictureBox4.Image = Nothing
        PictureBox5.Image = Nothing
        PictureBox6.Image = Nothing
        PictureBox7.Image = Nothing
        PictureBox8.Image = Nothing
        PictureBox9.Image = Nothing
        Won = False
        msg = MsgBox(Cross & " bermula dulu?", _
        MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Bulatan dan Pangkah")
        If msg = MsgBoxResult.Yes Then
            IsCross = True
            Me.Text = "Pemain:" & Cross
        Else
            IsCross = False
            Me.Text = "Pemain:" & Nought
        End If

    End Sub

Ini akan membolehkan setiap kali anda klik pada butang berkenaan, maka permainan baru akan dimulakan semula.

bersambung...

Edited by LanoG

Share this post


Link to post
Share on other sites

Sekarang mari kita menguji game kecik tic tac toe kita ini. Klik pada butang RUN dan mulalah bermain. Paparan mesej box akan memberitahu kita sama ada anda bersetuju X bermula dulu atau tidak. Jika klik Yes, maka simbol X akan bermula dulu.

tictactoe-11.png

Selanjutnya, cuba uji permainan ini...

tictactoe-12.pngtictactoe-13.png

Bila salah seorang menang, maka mesej berikut dipaparkan...

tictactoe-14.png

Jika anda nak uji dan bermain semula.. sila klik butang Bermula! Dan jika ingin keluar dari permainan, klik pada butang Close (butang X pada penjuru atas sebelah kanan form). Kini, anda telah berjaya menghasilkan game yang pertama dengan Visual BASIC 2008 Express Edition. Tahniah! :D Semoga berjumpa lagi di lain tutorial dan selamat maju jaya..... :lol:

Lama aku tak sentuh programming VB6 semenjak aku kerja bhgn network..

masa study dulu aku sorang je dalam kelas dapat A dalam subjek ni waktu tu semester 2.

Sebab mungkin aku kecewa dgn result c++ aku masa sem 1. Dapat B ajer. huhu..

Sekarang aku banyak buat platform web sebagai hobi. Sebab aku rasa VB ni susah sket nak cari makan.

Tapi tak tau la jika ada yang lain ada rezki dapat offer je buat mende ni..

Sesapa nak belajar bagus lah..

buat connection skali dengan database..

Aku yang lupa2 ni pun ada gak mngajar lg student IPT kalau dorang panggil.

junior2 aku pun still contact nak cari bahan tambahan.

Ilmu takleh kdekut yer tak..

Ko buat platform web tu.. pakai ASP ker apa... aku memang tertunggu-tunggu sapa2 nak ajarkan ASP nie. Kira ko nie lecturer gak lah kan sebab ajar student IPT... bleh ler share2 sikit, bagi sikit notes yang ada.. hehehehe. :D

Bagus teruskan usahamu Lanog :)

Iyolah... dah habis berusaha tu.. kekeke. :D

Edited by LanoG

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...