Cara menerima telepon dan menelepon yang Baik

January 3rd, 2010 • Related • Filed Under

1. Pengertian Etika Bertelepon
Etiket bertelepon adalah tata krama, sopan-santun,tata pergaulan dalam   bertelepon (menerima-melakukan kontak telepon) yang meliputi berbicara dengan jelas, tegas, terkesan ramah, hangat dan bersahabat.
2. Hal-hal penting etika bertelepon adalah

1. Jangan biarkan telepon  berdering 2-3 kali segeralah angkat.
2. Dengarkan mitra bicara dan berkonsentrasi dengan pihak penelepon (tidak melamun).
3. Berkatalah dengan sopan dan hangat, hindari kata-kata yang bisa meyinggungi perasaan penelpon.
   1. Berikan respon secara tepat dan lugas.
   2. Berbicar sepelunya dengan volume suara cukup jelas, tegas, lancar serta hangat dan bersahabat.
   3. Siapkan perlengkapan seperlunya ketika akan menelepon, seperti nomor telepon yang dituju, buku catatan, dan pensil. Setelah itu tanyakan apakah penerima telepon punya waktu untuk berbicara.

3. Langkah-langkah dan teknik menerima telepon.

1. Segeralah angkat jika telepon berdering.
2. Ucapkanlah salam begitu anda mengangkat telepon.
3. Bila penelepon menanyakan orang lain, tanyakan nama dan identitas orang yang dicari.
4. Bila orang yang dituju tidak ada ditempat maka beritahukan dengan sopan dan tawarkan pada penelepon untuk meninggalkan pesan.
5. Setelah menyelesaikan pembicaraan dengan penelepon sebaiknya mengucapkan salam, dan jangan meletakkan gagang telepon mendahului penelepon, tunggu sampai gagang telepon diletakkan atau telepon ditutup selama dua atau tiga detik olah penelepon.

4. Langkah-langkah dan teknik menelepon

1. Siapkan nomor telepon yang akan dihubungi
2. Tekan nomor telepon yang dituju dan bila sudah tersambung dan pihak yang dituju sudah menggangkat, ucapkanlah salam.  Sebelum mengutarakan maksud dan tujuan pastikan bahwa nomor yang dituju benar.
3. Sebutkan identitas diri anda dengan jelas lalu kemukakan keinginan anda untuk berbicara dengan orang yang dituju.
4. Berikanlah selalu kesan ramah dan ucapkan salam penutup untuk mengakhiri pembicaraan.

5. Cara menggunakan telepon yang baik

1. Pegang gagang telepon dengan baik menggunakan tangan kanan, tempelkan telepon dekat telinga dengan benar, sebaiknya mikrophone jangan terlalu dekat dengan mulut.
   1. Usahakan nafas kita saat bicara ditelepon tidak terdengar seperti mendengus.
   2. Ucapkan salam.
      1. Tanyakan identitas penelepon.
      2. Gunakan “Smiling Voice” dan “Pitch Control” selama pembicaraan berlangsung.
         1. Simak baik-baik pesan dan kalimat penelepon.
         2. Apabila anda tidak mengerti, tidak ada salahnya anda mengulangi pertanyaan.
            1. Akhiri pembicaraan dengan salam.
            2. Letakkan gagang telepon dengan benar dan pas pada posisinya.

6. Hal-hal yang tidak boleh dilakukan pada saat komunikasi menggunakan    telepon

1. Suara terlalu keras.
2. Bicara ditelepon sambil makan atau berdecak.
3. Berbicara dengan orang lain selagi berbicara ditelepon.
4. Berbicara dengan nada kasar atau membentak.
5. Berbicara dengan nada memerintah.
6. Membirkan penelepon menunggu terlalu lama tanpa penjelasan.
   Nada dan intonasi terkesan malas atau tak ramah.

cara membuat dodol tradisional

Resepi DODOL TRADISIONAL cara keluarga aku..

Written By Mohd Khairi Khadzir | Sunday, 25 September 2011

Assalamualaikum kawan-kawan pembaca blog ini, agak kurang sibuk hujung minggu ini sebab aku tak bentangkan lagi tajuk projek akhir aku di hadapan 3 orang pensyarah kami. Giliran tak sampai lagi dan harapnya semuanya berjalan lancar nanti insyaallah.

Hari ini aku nak kongsi dengan korang semua tentang dodol. Ramai yang tahu rasanya yang bulan Ramadhan yang lalu aku sibuk dengan aktiviti mengacau dodol dengan bapak aku. Memandangkan cuti semester hari tu panjang sangat sampai raya, aku pun ambil peluang tolong perniagaan kecil-kecilan bapak aku ni. Penat tapi seronok sebab dapat duit (^__^).

Aku rasa dodol bapak aku sangat istimewa sebab kami menggunakan kayu api dan dodol diproses secara manual tanpa menggunakan mesin kecuali timbang yang digunakan semasa pembungkusan. 

Tiap-tiap orang mempunyai resepi yang tersendiri untuk menghasilkan dodol yang sedap dan berkualiti. Ada yang guna gula pasir dan juga tepung gandum. Di bawah ni adalah resepi dodol bapak aku. Jom tengok:

50 kilogram gula melaka

27.5 kilogram tepung pulut

50 kilogram santan kelapa segar

4 genggam garam

4 gayung air


Yang di atas ni adalah kandungan bahan dalam sebuah kawah dodol yang boleh menghasilkan sebanyak 100 kg dodol masak.

Nisbah dodol| 1 kg tepung pulut : 2 kig santan kelapa : 2 kg gula melaka

Ini resipi ciptaan bapak aku, rasanya tak ada orang lain yang buat dodol letak garam. Eh! tak masin ke? menurut bapak aku, garam ini akan memberikan rasa lemak terhadap dodol tersebut. Senarai bahan yang di atas tu kalau tak silap boleh menghasikan lebih 100 kilogram (1 kawah).

Cara-cara nak buat dodol?jom sini aku cerita serba ringkas:

1) Tuangkan air sebanyak 4 gayung ke dalam kawah beserta dengan gula melaka yang 50 kilogram tadi. Biarkan gula tadi mencair dan pekat.

2) Sambil menunggu gula tadi mencair dan pekat, bancuhkan tepung pulut beserta dengan santan kelapa. 

3) Setelah gula tadi pekat, masukkan bancuhan tersebut dan kacau sehingga adunan dodol tadi menjadi semakin berat.

4) Tunggu sampai dodol masak (ikut citarasa sendiri) dan sedia untuk dibungkus.

Gula melaka yang bapak aku guna sebenarnya bukan gula melaka yang betul-betul dari Melaka tapi dripada Sungai Balang, Muar. Gula tu diperbuat dari gula putih kalau tak silap dan melalui beberapa proses sebelum menjadi gula melaka katanya..

Jam yang pertama selepas bancuhan tepung tadi dimasukkan ke dalam kawah yang mengandungi gula melaka, kita kena kacau tanpa henti sebab dalam 1 jam yang pertama tu potensi dodol untuk hangus/hangit adalah sangat tinggi. 

Lepas 1 jam tu, kau boleh la tidur-tidur ayam, nak layan movie kat laptop ke, buat kerja lain pun boleh. Api kena pastikan tidak menyala sebab kalau menyala besar, mesti dodol akan hangit sedikit di bahagian dasar kawah. Aku waktu buat dodol ni sempat tidur, buat persiapan raya, buat lantern, tulis kad raya, menulis di blog dan yang aktiviti kegemaran terbaru sekali, layan cerita di tonton.com. 

Ini salah satu kawah yang boleh menghasilkan dodol sebanyak 100 kilogram. Waktu ni kalau tak silap dah nak masak dodol ni. Cuba korang pegang pengacau dodol dan kalau gagah, cuba kacau. Kebanyakan pelanggan yang datang ke rumah dan cuba mengacau, mereka kata sangat berat dan sakit tangan. 

Okay berdasarkan gambar di atas lagi, kalau anda perasan bangsal di belakang pokok keladi tu sebenarnya ada lagi 1 kawah dodol yang jalan serentak. Yang tu aku yang jaga. 2 minggu kami buat 2 kawah sehari, hari cuti adalah Jumaat.

Foto sebelah ni waktu aku dengan mak aku sama-sama menggaul tepung pulut dengan santan. Tepung pulut ni tak akan larut sepenuhnya dengan santan ni jadi selepas agak-agak tepung tu dah bercampur dengan sebati bersama santan, kita perlu menapisnya bagi menghancurkan ketulan-ketulan tepung yang tak hancur semasa diadun menggunakan tangan tadi. Pakai tapis biasa sahaja dan lumatkannya guna senduk sampai hancur. Dah halus, barulah boleh masukkan dalam kawah yang berisi gula masak tadi. Waktu masukkan dalam kawah ni kena barhati-hati sebab mungkin ada percikan gula masak terkena kaki yang boleh menyebabkan luka. Kira macam asid juga, boleh mengakis kulit kita. Makumlah, gula masak dan panas pula tu. Mak aku dah kena, dan lepas tu kami semua pakai kasut tinggi yang boleh menutup kaki. 

Kami bermula sibuk dengan aktiviti membuat dodol adalah pada minggu ke 3 Ramadhan. Waktu tu pagi-pagi selepas subuh bapak aku dah sibuk mengambil santan segar di pekan. Kami tak guna kelapa sendiri sebab makan masa sangat. Sementara bapak aku ambil santan, aku dan mak aku di rumah bersedia memasak gula melaka. Dan kesimpulannya waktu pagi kami amatlah sibuk sehingga beberapa panggilan telefon kami tak angkat sebab masing-masing sibuk dengan proses membuat dodol.

Kalau dah macam ni rupa dodolnya, maksudnya hampir masak tapi biasanya jam 6.00 petang kami dah siap-siap untuk membungkus dodol ni, maksudnya dah masak la kan. Tapi kalau nak lagi elok/ nak dodol tahan lama bolehlah sambung lagi sampai ke malam. Semuanya bergantung kepada kemampuan masing-masing.

Pilihan kayu yang digunakan adalah daripada kayu getah dan rambutan. Tapi kan bagi aku kedua-dua kayu ni menghasilkan asap yang memedihkan mata. Lagi-lagi kayu getah. Tapi nak buat macam mana kan, kayu getah paling banyak, pakai je la.

Biasanya lepas zohor aku dengan bapak aku bergilir-gilir waktu tidur. Maklumlah, malam nak terawikh, kang nanti ada yang tumbang. Selalunya bapak aku tidur 1 jam sahaja tapi aku yang paling lama, jam 3 petang tidur sampailah jam 5 petang baru bangun. Tamak betul! kesian bapak aku kacau sorang-sorang 2 kawah. Tapi bukannya kena sentiasa kacau pun. Siap boleh kopek kelapa lagi tu.

Dah sejuk, barulah dodol ini boleh dibungkus dalam bungkusan plastik sahaja tanpa sebarang trademark. Tahun ini agak pelik sedikit sebab kebanyakan dodol yang dihasilkan dah berkulat sebelum tempohnya. Tak tahu kenapa tapi mungkin disebabkan santan yang bercampur dengan air agaknya. 


Alhamdulillah hasil tahun ini memberangsangkan dan sasaran bapak aku untuk balik modal tercapai juga.. dan hajat aku pun tercapai .. (^___^). Hari terakhir kami kacau dodol adalah hari Sabtu tapi kami buat 1 kawah sahaja sebab masing-masing dah sibuk dengan persiapan raya. Dan buat pertama kalinya tahun ini semua kuih raya dan kerepek kami beli, mak aku tak sempat nak buat. Gila! memecah rekod yang selama ini keluarga aku tak pernah buat. 


Okay itu sahaja yang aku nak kongsi dengan korang semua hari ini. Semoga gigih membaca entri yang panjang ini.

MEMBUAT APLIKASI GAME 10 DETIK DENGAN VB 6.0

Jul.27, 2009 in Computer

MEMBUAT APLIKASI GAME 10 DETIK DENGAN VB 6.0

Download contoh game

gambar 1.0 ( contoh game )

gambar 1.2 ( frmGame)

gambar 1.2 ( frmAbout)
gambar 1.3 ( frmGameOver)

gambar 1.4 ( Game Visible)

gambar 1.5 ( frmGame Description )
gambar 1.6 ( frmAbout Description)

gambar 1.7 ( frmGameOver Descriptione)

<!– @page { size: 8.5in 11in; margin: 0.79in } P { margin-bottom: 0.08in } –>

APLIKASI GAME 10 DETIK

Aplikasi game 10 detik merupakan sebuah game yang dibilang sederhana, cara memainkan game ini adalah dengan cara mengumpulkan poin – poin dari masing-masing pengeklikan tombol yang dimana setiap tombol memiliki nilai 10. Batas pengeklikan adalah 10 detk. Apabila anda mengeklik di luar 10 detik, maka tombol tidak akan dapat digunakan lagi. Pengumpulan poin tergantung pada kecepatan anda mengeklik masing-masing tombol. Anda akan menghasilkaan poin maksimal sebesar 21000.

MENDESAIN APLIKASI GAME 10 DETIK

• Bukalah Ikon Visual Basic
• 
• Pilih Standart.Exe
• 
• Jika anda sudah memiliki form1, buat 2 form lagi : form2 and form3
  • 
  • 

• Desain aplikasi game sesuai dengan keterangan di bawah ini
• 
• 
• 
• Ketikan Kode-kode berikut ini sesuai dengan masing-masing form

frmGame :
Option Explicit
‘ Declare countdown variables for each button. These will begin at 10
‘ and countdown by one with each buttons timer event.
Dim fiCount1 As Integer
Dim fiCount2 As Integer
Dim fiCount3 As Integer
Dim fiCount4 As Integer
Dim fiCount5 As Integer
Dim fiCount6 As Integer
Dim fiCount7 As Integer
Dim fiCount8 As Integer
Dim fiCount9 As Integer
‘Declare countdown speed variables for each button. Each button will have its
‘own random countdown speed which will decrease when the button is clicked.
Dim fiSpeed1 As Integer
Dim fiSpeed2 As Integer
Dim fiSpeed3 As Integer
Dim fiSpeed4 As Integer
Dim fiSpeed5 As Integer
Dim fiSpeed6 As Integer
Dim fiSpeed7 As Integer
Dim fiSpeed8 As Integer
Dim fiSpeed9 As Integer
‘Declare variable for game score
Dim fiScore As Integer
Dim fiNumLeft As Integer
‘Declare variable to check that same button has not been pressed twice so as to
‘disable cheating by just clicking repeatedly on the button.
Dim fiLastPressed As Integer
Private Sub cmd1_Click()
If fiLastPressed <> 1 Then
fiCount1 = 10
cmd1.Caption = 10
Timer1.Interval = Timer1.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 1
End If
End Sub
Private Sub cmd2_Click()
If fiLastPressed <> 2 Then
fiCount2 = 10
cmd2.Caption = 10
Timer2.Interval = Timer2.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 2
End If
End Sub
Private Sub cmd3_Click()
If fiLastPressed <> 3 Then
fiCount3 = 10
cmd3.Caption = 10
Timer3.Interval = Timer3.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 3
End If
End Sub
Private Sub cmd4_Click()
If fiLastPressed <> 4 Then
fiCount4 = 10
cmd4.Caption = 10
Timer4.Interval = Timer4.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 4
End If
End Sub
Private Sub cmd5_Click()
If fiLastPressed <> 5 Then
fiCount5 = 10
cmd5.Caption = 10
Timer5.Interval = Timer5.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 5
End If
End Sub
Private Sub cmd6_Click()
If fiLastPressed <> 6 Then
fiCount6 = 10
cmd6.Caption = 10
Timer6.Interval = Timer6.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 6
End If
End Sub
Private Sub cmd7_Click()
If fiLastPressed <> 7 Then
fiCount7 = 10
cmd7.Caption = 10
Timer7.Interval = Timer7.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 7
End If
End Sub
Private Sub cmd8_Click()
If fiLastPressed <> 8 Then
fiCount8 = 10
cmd8.Caption = 10
Timer8.Interval = Timer8.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 8
End If
End Sub
Private Sub cmd9_Click()
If fiLastPressed <> 9 Then
fiCount9 = 10
cmd9.Caption = 10
Timer9.Interval = Timer9.Interval - 50
fiScore = fiScore + 10
TxtScore.Text = Str(fiScore)
fiLastPressed = 9
End If
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdStart_Click()
cmd1.Enabled = True
cmd2.Enabled = True
cmd3.Enabled = True
cmd4.Enabled = True
cmd5.Enabled = True
cmd6.Enabled = True
cmd7.Enabled = True
cmd8.Enabled = True
cmd9.Enabled = True
fiCount1 = 11
fiCount2 = 11
fiCount3 = 11
fiCount4 = 11
fiCount5 = 11
fiCount6 = 11
fiCount7 = 11
fiCount8 = 11
fiCount9 = 11
fiScore = 0
TxtScore.Text = “0″
fiLastPressed = 0
fiNumLeft = 8
’set initial start speeds for each timer
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
Timer4.Interval = 1000
Timer5.Interval = 1000
Timer6.Interval = 1000
Timer7.Interval = 1000
Timer8.Interval = 1000
Timer9.Interval = 1000
‘Start all timers counting down
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
Timer6.Enabled = True
Timer7.Enabled = True
Timer8.Enabled = True
Timer9.Enabled = True
tmrEndGame.Enabled = True
End Sub
Private Sub Command1_Click()
frmAbout.Show
End Sub
Private Sub Form_Load()
fiCount1 = 10
fiCount2 = 10
fiCount3 = 10
fiCount4 = 10
fiCount5 = 10
fiCount6 = 10
fiCount7 = 10
fiCount8 = 10
fiCount9 = 10
fiScore = 0
TxtScore.Text = “0″
fiLastPressed = 0
fiNumLeft = 8
’set initial start speeds for each timer
Timer1.Interval = 1000
Timer2.Interval = 1000
Timer3.Interval = 1000
Timer4.Interval = 1000
Timer5.Interval = 1000
Timer6.Interval = 1000
Timer7.Interval = 1000
Timer8.Interval = 1000
Timer9.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If fiCount1 = 0 Then
Timer1.Enabled = False
cmd1.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount1 = fiCount1 - 1
cmd1.Caption = Str(fiCount1)
End If
End Sub
Private Sub Timer2_Timer()
If fiCount2 = 0 Then
Timer2.Enabled = False
cmd2.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount2 = fiCount2 - 1
cmd2.Caption = Str(fiCount2)
End If
End Sub
Private Sub Timer3_Timer()
If fiCount3 = 0 Then
Timer3.Enabled = False
cmd3.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount3 = fiCount3 - 1
cmd3.Caption = Str(fiCount3)
End If
End Sub
Private Sub Timer4_Timer()
If fiCount4 = 0 Then
Timer4.Enabled = False
cmd4.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount4 = fiCount4 - 1
cmd4.Caption = Str(fiCount4)
End If
End Sub
Private Sub Timer5_Timer()
If fiCount5 = 0 Then
Timer5.Enabled = False
cmd5.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount5 = fiCount5 - 1
cmd5.Caption = Str(fiCount5)
End If
End Sub
Private Sub Timer6_Timer()
If fiCount6 = 0 Then
Timer6.Enabled = False
cmd6.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount6 = fiCount6 - 1
cmd6.Caption = Str(fiCount6)
End If
End Sub
Private Sub Timer7_Timer()
If fiCount7 = 0 Then
Timer7.Enabled = False
cmd7.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount7 = fiCount7 - 1
cmd7.Caption = Str(fiCount7)
End If
End Sub
Private Sub Timer8_Timer()
If fiCount8 = 0 Then
Timer8.Enabled = False
cmd8.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount8 = fiCount8 - 1
cmd8.Caption = Str(fiCount8)
End If
End Sub
Private Sub Timer9_Timer()
If fiCount9 = 0 Then
Timer9.Enabled = False
cmd9.Enabled = False
fiNumLeft = fiNumLeft - 1
Else
fiCount9 = fiCount9 - 1
cmd9.Caption = Str(fiCount9)
End If
End Sub
Private Sub tmrEndGame_Timer()
If fiNumLeft = 0 Then
cmd1.Caption = “X”
cmd2.Caption = “X”
cmd3.Caption = “X”
cmd4.Caption = “X”
cmd5.Caption = “X”
cmd6.Caption = “X”
cmd7.Caption = “X”
cmd8.Caption = “X”
cmd9.Caption = “X”
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
frmGameOver.Visible = True
tmrEndGame.Enabled = False
End If
End Sub
frmAbout :
Option Explicit
‘ Reg Key Security Options…
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

‘ Reg Key ROOT Types…
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1 ‘ Unicode nul terminated string
Const REG_DWORD = 4 ‘ 32-bit number
Const gREGKEYSYSINFOLOC = “SOFTWARE\Microsoft\Shared Tools Location”
Const gREGVALSYSINFOLOC = “MSINFO”
Const gREGKEYSYSINFO = “SOFTWARE\Microsoft\Shared Tools\MSINFO”
Const gREGVALSYSINFO = “PATH”
Private Declare Function RegOpenKeyEx Lib “advapi32″ Alias “RegOpenKeyExA” (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib “advapi32″ Alias “RegQueryValueExA” (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib “advapi32″ (ByVal hKey As Long) As Long
Private Sub cmdSysInfo_Click()
Call StartSysInfo
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Public Sub StartSysInfo()
On Error GoTo SysInfoErr
Dim rc As Long
Dim SysInfoPath As String
‘ Try To Get System Info Program Path\Name From Registry…
If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then
‘ Try To Get System Info Program Path Only From Registry…
ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then
‘ Validate Existance Of Known 32 Bit File Version
If (Dir(SysInfoPath & “\MSINFO32.EXE”) <> “”) Then
SysInfoPath = SysInfoPath & “\MSINFO32.EXE”

‘ Error - File Can Not Be Found…
Else
GoTo SysInfoErr
End If
‘ Error - Registry Entry Can Not Be Found…
Else
GoTo SysInfoErr
End If
Call Shell(SysInfoPath, vbNormalFocus)
Exit Sub
SysInfoErr:
MsgBox “System Information Is Unavailable At This Time”, vbOKOnly
End Sub
Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
Dim i As Long ‘ Loop Counter
Dim rc As Long ‘ Return Code
Dim hKey As Long ‘ Handle To An Open Registry Key
Dim hDepth As Long ‘
Dim KeyValType As Long ‘ Data Type Of A Registry Key
Dim tmpVal As String ‘ Tempory Storage For A Registry Key Value
Dim KeyValSize As Long ‘ Size Of Registry Key Variable
‘————————————————————
‘ Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE…}
‘————————————————————
rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ‘ Open Registry Key
If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ‘ Handle Error…
tmpVal = String$(1024, 0) ‘ Allocate Variable Space
KeyValSize = 1024 ‘ Mark Variable Size
‘————————————————————
‘ Retrieve Registry Key Value…
‘————————————————————
rc = RegQueryValueEx(hKey, SubKeyRef, 0, _
KeyValType, tmpVal, KeyValSize) ‘ Get/Create Key Value

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ‘ Handle Errors
If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ‘ Win95 Adds Null Terminated String…
tmpVal = Left(tmpVal, KeyValSize - 1) ‘ Null Found, Extract From String
Else ‘ WinNT Does NOT Null Terminate String…
tmpVal = Left(tmpVal, KeyValSize) ‘ Null Not Found, Extract String Only
End If
‘————————————————————
‘ Determine Key Value Type For Conversion…
‘————————————————————
Select Case KeyValType ‘ Search Data Types…
Case REG_SZ ‘ String Registry Key Data Type
KeyVal = tmpVal ‘ Copy String Value
Case REG_DWORD ‘ Double Word Registry Key Data Type
For i = Len(tmpVal) To 1 Step -1 ‘ Convert Each Bit
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ‘ Build Value Char. By Char.
Next
KeyVal = Format$(”&h” + KeyVal) ‘ Convert Double Word To String
End Select
GetKeyValue = True ‘ Return Success
rc = RegCloseKey(hKey) ‘ Close Registry Key
Exit Function ‘ Exit
GetKeyError: ‘ Cleanup After An Error Has Occured…
KeyVal = “” ‘ Set Return Val To Empty String
GetKeyValue = False ‘ Return Failure
rc = RegCloseKey(hKey) ‘ Close Registry Key
End Function
frmGameOver :
Private Sub cmdOK_Click()
frmGameOver.Visible = False
fiCount1 = 10
fiCount2 = 10
fiCount3 = 10
fiCount4 = 10
fiCount5 = 10
fiCount6 = 10
fiCount7 = 10
fiCount8 = 10
fiCount9 = 10
fiScore = 0
frmGames.TxtScore.Text = “0″
fiLastPressed = 0
fiNumLeft = 9
’set initial start speeds for each timer
frmGames.Timer1.Interval = 1000
frmGames.Timer2.Interval = 1000
frmGames.Timer3.Interval = 1000
frmGames.Timer4.Interval = 1000
frmGames.Timer5.Interval = 1000
frmGames.Timer6.Interval = 1000
frmGames.Timer7.Interval = 1000
frmGames.Timer8.Interval = 1000
frmGames.Timer9.Interval = 1000
End Sub

• Buatlah game dengan format *.exe dengan cara klik file kemudian klik Make Project1.exe
• 

Membuat Aplikasi dengan VB - 156 Source Code Visual Basic

Membuat Aplikasi dengan VB - 156 Source Code Visual Basic

PERHATIAN: Cara Untuk Anda Yang Ingin Jadi Programmer Kilat

Bagaimana Cara Membuat
Aplikasi Visual Basic

untuk berbagai kasus hanya dalam 1 Hari ?

Apakah anda sedang Membuat Aplikasi dengan VB ?
Kemudian terbentur masalah dengan :

• Stress dikejar target waktu dan dead line
• Kasus dalam coding yang belum terpecahkan
• Error dan bug yang harus diperbaiki
• Akan membuat program baru dari Nol

Maka Inilah web halaman yang "terpenting" yang pernah anda baca dan merupakan solusi dari masalah anda.

Kami sediakan untuk Anda :

PAKET DVD SCVB - Koleksi 156 Source Code Program

membuat aplikasi dengan vb (visual basic)

Untuk berbagai Studi Kasus yang siap pakai

Yang perlu anda lakukan hanyalah :

	Pilih Source Code Membuat Aplikasi dengan Visual Basic yang sesuai kebutuhan anda.
	Sedikit modifikasi disesuaikan dengan Bisnis Proses dan Profil Usaha anda
	Aplikasi Siap Digunakan

Ok, Apa Saja Isinya ?

Membuat Aplikasi dengan Visual Basic 6

Aplikasi Akuntansi Aplikasi Akademik Aplikasi Angsuran Barang Aplikasi Antivirus berbasis VB 6 Aplikasi Apotek Aplikasi Asuransi Aplikasi Asuransi (Bumi Asih) Aplikasi Bel Sekolah Aplikasi Bengkel Aplikasi Bengkel Mobil Aplikasi Billing Rental Aplikasi Billing Warnet Aplikasi Buku Retail Aplikasi Buku telepon Aplikasi Gosir Aplikasi Grosir Rokok Aplikasi Hotel (Sheraton Hotel) Aplikasi Inventaris barang Aplikasi Inventarisasi Distribusi Aplikasi Inventory Peralatan Komputer Aplikasi Jasa Pengiriman Barang Aplikasi Kafe Aplikasi Kantin Aplikasi karyawan Aplikasi Kesehatan Aplikasi Klinik Aplikasi Koperasi Aplikasi Manajemen Hotel Aplikasi Parkir Aplikasi Payroll Aplikasi Pelayanan Pasien Aplikasi Pembayaran Uang Kuliah Aplikasi Pendaftaran Sekolah Aplikasi Pendataan Obat Aplikasi penerimaan Mahasiswa Baru (PMB) Aplikasi Pengelolaan Biaya ADM Aplikasi Pengelolaan Hotel Aplikasi Pengelolaan Lab Kesehatan Aplikasi Penggajian Aplikasi Pengontrol Lampu Lalu lintas Aplikasi Penjadwalan CPU Aplikasi Penjualan Aplikasi Penjualan & Stok Air Minum Aplikasi Penjualan Tiket Pesawat

Aplikasi Penjualan Koran Aplikasi Permohonan Kredit Aplikasi Perpustakaan Aplikasi persediaan Barang Aplikasi Persediaan Obat Aplikasi Point of Sales (POS) Aplikasi Ramalan Aplikasi Rekam Medis Aplikasi Remote Control PC Aplikasi Rental CD/DVD Aplikasi Rental Video Aplikasi Restoran Aplikasi Rumah Sakit Aplikasi Sales dan Inventory Aplikasi Sekolah Aplikasi Servis Kendaraan Aplikasi Simpan Pinjam Aplikasi Sistem Informasi Administrasi Jurusan Aplikasi Sistem Informasi Akademis (SMA) Aplikasi Sistem Informasi Dokkes Polda Sumut Aplikasi Sistem Informasi Izin Usaha Aplikasi Sistem Informasi Kriminalitas Aplikasi Sistem Informasi Pelayanan Kesehatan Aplikasi Sistem Informasi pengolahan Data Siswa Aplikasi Sistem Informasi Penjualan Rumah Aplikasi Sistem Informasi PJTKI dan TKI Aplikasi Sistem Informasi Proyek Aplikasi Sistem Pemeliharaan master Mubaligh Aplikasi Sistem pengelolaan Data Keuangan Aplikasi Sistem Penunjang keputusan (SPPK) Aplikasi Sistem Reward Aplikasi SMS Gateway Delphi Aplikasi SMS gateway VB Aplikasi Software Pulsa Aplikasi Supermarket Aplikasi Supermarket (POS) Aplikasi tagihan Aplikasi Toko Buku Aplikasi Toko Olahraga Aplikasi Voting SMS Aplikasi Media Pembelajaran Bahasa Asing Aplikasi game Multiplayer

Membuat Aplikasi dengan Visual Basic .Net

• Membuat Aplikasi Absensi dengan vb .Net
• Membuat Aplikasi Apotek dengan vb .Net
• Membuat Aplikasi Bengkel dengan vb .Net
• Membuat Aplikasi Jual Beli dengan vb .Net
• Membuat Aplikasi Kesiswaan dengan vb .Net
• Membuat Aplikasi LPK (Lembaga Pendidikan Kursus) dengan vb .Net
• Membuat Aplikasi Manajemen Sekolah dengan vb .Net
• Membuat Aplikasi Penggajian dengan vb .Net
• Membuat Aplikasi Penjualan HP dengan vb .Net
• Membuat Aplikasi Penjualan Showroom Motor dengan vb .Net
• Membuat Aplikasi Penyewaan dengan vb .Net
• Membuat Aplikasi Perpustakaan dengan vb .Net
  

Keterangan :
Diatas adalah beberapa contoh Source Code Program Membuat Aplikasi Dengan Visual Basic berbasis Database, Dalam satu tipe studi kasus yang disebutkan diatas, bisa ada lebih dari 1 macam aplikasi.

Tapi Tunggu .. masih Ada Lagi..

# Bonus 1 : Installer Visual Studio 6
Lengkap Dengan MSDN

# Bonus 2 : Installer Crystal Report

# Bonus 3 : Database Converter

# MEGA Bonus : 1000 Tip Trik atau Source Code Sederhana Visual Basic Non Lokal

OK, Berapa investasi yang Anda butuhkan untuk mendapatkan Paket DVD SCVB + Semua Bonusnya ?

Saya ingin Anda tahu, saya telah mengorbankan banyak uang dan waktu untuk mengoleksi & membuat paket DVD SCVB ini. Seharusnya paket DVD Source Code Visual Basic ini saya hargai jutaan rupiah. Walaupun demikian Anda tetap bisa mendapatkannya dengan investasi yang jauh lebih ringan.

Rp. 1.000.000  Rp. 500.000

PAKET INI KAMI JUAL HANYA

Rp.120.000

Sudah Termasuk Ongkos Kirim ke Seluruh Indonesia

(Maaf, ini harga sementara)

GARANSI PENGGANTIAN PAKET

Semua DVD yang kami jual telah di test beberapa kali untuk menjamin dalam kondisi baik. tetapi jika DVD rusak/error, kami memberikan jaminan Penggantian DVD baru.

Kami akan kirim kembali DVD yang baru ke alamat Anda tanpa tambahan biaya.

Intinya posisi Anda adalah tanpa risiko. (sekedar informasi, kejadian error DVD sampai saat ini belum pernah terjadi )

Tidak ada cara lain, inilah alternatif cara membuat aplikasi vb yang cepat.

"Apa lagi yang Anda tunggu, kesempatan terbaik tidak akan bertahan lama."

nb. ~ Saya mendapatkan order 5 - 10 paket per hari dan semakin bertambah setiap harinya. Karena itu segeralah pesan sekarang karena harga bisa berubah sewaktu waktu.

nb 2 . ~ Ada pihak2 dari universitas yang tidak senang saya menjual DVD Source code VB ini. Karena itu saya tidak tahu, sampai kapan saya bisa menjual paket ini.Pastikan Anda segera memilikinya, pesan sekarang