.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

State Property winsock vb6

0 komentar
Constant Value Description
sckClosed 0 Default. Closed
sckOpen 1 Open
sckListening 2 Listening
sckConnectionPending 3 Connection pending
sckResolvingHost 4 Resolving host
sckHostResolved 5 Host resolved
sckConnecting 6 Connecting
sckConnected 7 Connected
sckClosing 8 Peer is closing the connection
sckError 9 Error





Penjelasan :
0 tertutup
2. server membuka / siap menerima koneksi
6. biasa nya sudah terkoneksi sebelum nya tapi terputus maka status tetep connectiong
7. sudah terkoneksi dan bisa saling berhubungan
8. server terputus
9. error
Suni

kumpulan fungsi constant vb6

0 komentar
Key Codes
vbKeyLButton = 0x1 # Left mouse button
vbKeyRButton = 0x2 # Right mouse button
vbKeyCancel = 0x3 # CANCEL key
vbKeyMButton = 0x4 # Middle mouse button
vbKeyBack = 0x8 # BACKSPACE key
vbKeyTab = 0x9 # TAB key
vbKeyClear = 0xC # CLEAR key
vbKeyReturn = 0xD # ENTER key
vbKeyShift = 0x10 # SHIFT key
vbKeyControl = 0x11 # CTRL key
vbKeyMenu = 0x12 # MENU key
vbKeyPause = 0x13 # PAUSE key
vbKeyCapital = 0x14 # CAPS LOCK key
vbKeyEscape = 0x1B # ESC key
vbKeySpace = 0x20 # SPACEBAR key
vbKeyPageUp = 0x21 # PAGE UP key
vbKeyPageDown = 0x22 # PAGE DOWN key
vbKeyEnd = 0x23 # END key
vbKeyHome = 0x24 # HOME key
vbKeyLeft = 0x25 # LEFT ARROW key
vbKeyUp = 0x26 # UP ARROW key
vbKeyRight = 0x27 # RIGHT ARROW key
vbKeyDown = 0x28 # DOWN ARROW key
vbKeySelect = 0x29 # SELECT key
vbKeyPrint = 0x2A # PRINT SCREEN key
vbKeyExecute = 0x2B # EXECUTE key
vbKeySnapshot = 0x2C # SNAPSHOT key
vbKeyInsert = 0x2D # INSERT key
vbKeyDelete = 0x2E # DELETE key
vbKeyHelp = 0x2F # HELP key
vbKeyNumlock = 0x90 # NUM LOCK key


# Form Codes
vbModeless = 0 # UserForm is modeless.
vbModal = 1 # UserForm is modal (default).


# Colour Codes
vbBlack = 0x0 # Black
vbRed = 0xFF # Red
vbGreen = 0xFF00 # Green
vbYellow = 0xFFFF # Yellow
vbBlue = 0xFF0000 # Blue
vbMagenta = 0xFF00FF # Magenta
vbCyan = 0xFFFF00 # Cyan
vbWhite = 0xFFFFFF # White


# Dir etc Codes
vbNormal = 0 # Normal (default for Dir and SetAttr)
vbReadOnly = 1 # Read-only
vbHidden = 2 # Hidden
vbSystem = 4 # System file
vbVolume = 8 # Volume label
vbDirectory = 16 # Directory or folder
vbArchive = 32 # File has changed since last backup


# File Attribute Codes
Normal = 0 # Normal file. No attributes are set.
ReadOnly = 1 # Read-only file. Attribute is read/write.
Hidden = 2 # Hidden file. Attribute is read/write.
System = 4 # System file. Attribute is read/write.
Volume = 8 # Disk drive volume label. Attribute is read-only.
Directory = 16 # Folder or directory. Attribute is read-only.
Archive = 32 # File has changed since last backup. Attribute is read/write.
Alias = 64 # Link or shortcut. Attribute is read-only.
Compressed = 128 # Compressed file. Attribute is read-only.


# Miscellaneous Codes
vbCrLf = "\n" # Carriage returnlinefeed combination
vbCr = chr(13) # Carriage return character
vbLf = chr(10) # Linefeed character
vbNewLine = "\n" # Platform-specific new line character; whichever is appropriate for current platform
vbNullChar = chr(0) # Character having value 0
vbNullString = chr(0) # String having value 0 Not the same as a zero-length string (""); used for calling external procedures
vbObjectError = -2147221504 # User-defined error numbers should be greater than this value. For example: Err.Raise Number = vbObjectError + 1000
vbTab = chr(9) # Tab character
vbBack = chr(8) # Backspace character
vbFormFeed = chr(12) # Not useful in Microsoft Windows
vbVerticalTab = chr(11) # Not useful in Microsoft Windows


# MsgBox Codes
vbOKOnly = 0 # OK button only (default)
vbOKCancel = 1 # OK and Cancel buttons
vbAbortRetryIgnore = 2 # Abort, Retry, and Ignore buttons
vbYesNoCancel = 3 # Yes, No, and Cancel buttons
vbYesNo = 4 # Yes and No buttons
vbRetryCancel = 5 # Retry and Cancel buttons
vbCritical = 16 # Critical message
vbQuestion = 32 # Warning query
vbExclamation = 48 # Warning message
vbInformation = 64 # Information message
vbDefaultButton1 = 0 # First button is default (default)
vbDefaultButton2 = 256 # Second button is default
vbDefaultButton3 = 512 # Third button is default
vbDefaultButton4 = 768 # Fourth button is default
vbApplicationModal = 0 # Application modal message box (default)
vbSystemModal = 4096 # System modal message box
vbMsgBoxHelpButton = 16384 # Adds Help button to the message box
VbMsgBoxSetForeground = 65536 # Specifies the message box window as the foreground window
vbMsgBoxRight = 524288 # Text is right aligned
vbMsgBoxRtlReading = 1048576 # Specifies text should appear as right-to-left reading on Hebrew and Arabic systems
vbOK = 1 # OK button pressed
vbCancel = 2 # Cancel button pressed
vbAbort = 3 # Abort button pressed
vbRetry = 4 # Retry button pressed
vbIgnore = 5 # Ignore button pressed
vbYes = 6 # Yes button pressed
vbNo = 7 # No button pressed


# Shell Codes
vbHide = 0 # Window is hidden and focus is passed to the hidden window.
vbNormalFocus = 1 # Window has focus and is restored to its original size and position.
vbMinimizedFocus = 2 # Window is displayed as an icon with focus.
vbMaximizedFocus = 3 # Window is maximized with focus.
vbNormalNoFocus = 4 # Window is restored to its most recent size and position. The currently active window remains active.
vbMinimizedNoFocus = 6 # Window is displayed as an icon. The currently active window remains active.


# Special Folder Codes
WindowsFolder = 0 # The Windows folder contains files installed by the Windows operating system.
SystemFolder = 1 # The System folder contains libraries, fonts, and device drivers.
TemporaryFolder = 2 # The Temp folder is used to store temporary files. Its path is found in the TMP environment variable.


# StrConv Codes
vbUpperCase = 1 # Converts the string to uppercase characters.
vbLowerCase = 2 # Converts the string to lowercase characters.
vbProperCase = 3 # Converts the first letter of every word in string to uppercase.
vbWide = 4 # Converts narrow (single-byte) characters in string to wide (double-byte) characters. Applies to Far East locales.
vbNarrow = 8 # Converts wide (double-byte) characters in string to narrow (single-byte) characters. Applies to Far East locales.
vbKatakana = 16 # Converts Hiragana characters in string to Katakana characters. Applies to Japan only.
vbHiragana = 32 # Converts Katakana characters in string to Hiragana characters. Applies to Japan only.
vbUnicode = 64 # Converts the string to Unicode using the default code page of the system.
vbFromUnicode = 128 # Converts the string from Unicode to the default code page of the system.


# System Colour Codes
vbScrollBars = 0x80000000 # Scroll bar color
vbDesktop = 0x80000001 # Desktop color
vbActiveTitleBar = 0x80000002 # Color of the title bar for the active window
vbInactiveTitleBar = 0x80000003 # Color of the title bar for the inactive window
vbMenuBar = 0x80000004 # Menu background color
vbWindowBackground = 0x80000005 # Window background color
vbWindowFrame = 0x80000006 # Window frame color
vbMenuText = 0x80000007 # Color of text on menus
vbWindowText = 0x80000008 # Color of text in windows
vbTitleBarText = 0x80000009 # Color of text in caption, size box, and scroll arrow
vbActiveBorder = 0x8000000A # Border color of active window
vbInactiveBorder = 0x8000000B # Border color of inactive window
vbApplicationWorkspace = 0x8000000C # Background color of multiple-document interface (MDI) applications
vbHighlight = 0x8000000D # Background color of items selected in a control
vbHighlightText = 0x8000000E # Text color of items selected in a control
vbButtonFace = 0x8000000F # Color of shading on the face of command buttons
vbButtonShadow = 0x80000010 # Color of shading on the edge of command buttons
vbGrayText = 0x80000011 # Grayed (disabled) text
vbButtonText = 0x80000012 # Text color on push buttons
vbInactiveCaptionText = 0x80000013 # Color of text in an inactive caption
vb3DHighlight = 0x80000014 # Highlight color for 3-D display elements
vb3DDKShadow = 0x80000015 # Darkest shadow color for 3-D display elements
vb3DLight = 0x80000016 # Second lightest 3-D color after vb3DHighlight
vbInfoText = 0x80000017 # Color of text in ToolTips
vbInfoBackground = 0x80000018 # Background color of ToolTips


# Var Type Codes
vbEmpty = 0 # Uninitialized (default)
vbNull = 1 # Contains no valid data
vbInteger = 2 # Integer
vbLong = 3 # Long integer
vbSingle = 4 # Single-precision floating-point number
vbDouble = 5 # Double-precision floating-point number
vbCurrency = 6 # Currency
vbDate = 7 # Date
vbString = 8 # String
vbObject = 9 # Object
vbError = 10 # Error
vbBoolean = 11 # Boolean
vbVariant = 12 # Variant (used only for arrays of variants)
vbDataObject = 13 # Data access object
vbDecimal = 14 # Decimal
vbByte = 17 # Byte
vbUserDefinedType = 36 # Variants that contain user-defined types
vbArray = 8192 # Array
Suni

Aplikasi Pasien Rawat Jalan Menggunakan PHP MySQL

0 komentar

Buat kawan-kawan semua yang lagi mencari contoh Program aplikasi pasien rawat jalan dengan menggunakan script pemrograman PHP dan Database MySQL bisa di dapatkan pada link download dibawah ini. Pada aplikasi pasien rawat jalan ini memiliki basisdata pasien, pembayaran, poliklinik, dokter, obat dan resep. Kawan-kawan bisa merubah script program ini sesuai dengan kebutuhan, walau terdapat beberapa Bug�script tolong di pelajari kembali.
Silahkan download Aplikasi Pasien Rawat Jalan Di Sini

Terimakasih, jika kurang paham silahkan tinggalkan Comment anda.
Suni

Website Sekolah SMA Negeri 1 Wongsorejo

0 komentar
Website atau situs merupakan sebuah hal yang sangat populer dimasa sekarang ini dikarenakan website berperan sagat besar dalam berbagai bidang kehidupan yang mampu memberikan informasi yang cepat dan tepat tanpa harus mengeluarkan uang yang banyak untuk menyampaikan segala hal tentang apa yang kita anggap perlu untuk di informasikan kepada public.
berikut ini contoh website sekolah yang berguna untuk memberikan informasi tentang sekolah mulai dari data siswa, profil sekolah, data guru, absensi, data prestasi, peta sekolah dan informasi lain.

Model Interface dari website sekolah ini dapat dilihat pada gambar dibawah ini.

souce kodenya dapat didonload di sini

Cara menjalankan website di server local :

anda Instal terlebih dahulu server local untuk menjalakan program ini saya sarankan pakek xampp aja karena lebih mudah.
lalu copy file program yang  di download tadi  lalau pastekan di Drive C Xampp Htdoct.
buat databasenya dengan cara ketik localhost/phpmyadmin web di browser bisa mozila, safari dll, kemudian pilih format bahasa english  maka akan tampil halaman interface phpMyadmin klik acon home dan ciptakan database baru buat namanya sesuai dengan database yang disertakan dalam file yang sudah di download yang berformat SQL. kemuian klik batton ciptakan. apabila database sudah terbuat langkah selanjutnya import file databasenya dengan cara pilih menu import yang ada di toollbar atas, kemudian pilih dengan klik tombol browse untuk memilih dimana anda simpan file databasenya yang berformat Sql tadi. kemudian lanjutkan dengan klik ok dan go. jika semua sudah selesai jalankan program di browser anda, dengan mengetik localhost/nama website yang anda simpan di htdocs tadi.
jika succes maka akan tampilan seperti gambar diatas.

Untuk souce kodenya bisa didapatkan di sini.
Suni

Sistem Akademik Sekolah Menengah Utama (SMU) Berbasis Web

0 komentar
Salam Sejahtera buat pecinta blogger.....sudah beberapa hari ini saya tak sempat update blog ini dikarenakan kesibukan dengan hal lain. Pada kesempatan kali ini saya kembali share contoh sebuah sistem akademik SMU dengan menggunakan bahasa pemrograman PHP dan basisdata MySQL. Pada sistem  ini memberikan informasi  tentang :

    Data Siswa
    Data Guru
    Data Mata Pelajaran
    Data Nilai
    Data Rapor
    Data Alumni

sistem informasi sekolah menengah utama (smu) berbasis web yang sederhana ini mukin dapat di jadikan sebuah referensi atau contoh dalam tahap pembelajaran bagaimana membagun sebuah aplikasi berbasis web buat saubat-saubat semua,  dari medesain tampilantempalte struktur menu dan script program. adapun bentuk dari layout tampilan  seperi pada gambar dibawah ini.  


Lebih kurang begitulah bentuk tampilan dari aplikasi sistem informasi ini. untuk link download program  belum tersedia. jika kawan-kawan butuh script/code program  untuk belajar silahkan simpan email di form comment. Terimaksih

Suni

Menghitung Jumlah Harga dengan PHP dan Mysql

0 komentar
Menghitung Jumlah Harga dengan PHP dan Mysql, itu lah judul untuk hari ini tepatnya tanggal 11-agustus-2014, jam 17.23 wib, kondisi cuaca saat ini agak terasa panas (terang benderang). Saat ini saya berada di sebuah warung yang memberikan fasilitas wifi pada konsumennya secara gratis, gratis tapi harus pesan dulu baik itu makanan atau minuman yang telah di sediakan warung tersebut (hehe).
Nama warung tersebut adalah Martabak Mini Afrika Waka-waka.. Martabak Mini Afrika waka-waka adalah sebuah warung berada di sebuah kota kecil tepatnya di Kota Takengon Kabupaten Aceh Tengah, warung ini selain menyediakan martabak mini yang bergaya martabak afrika juga menyediakan berbagai konsumennya, jika anda penasaran dengan rasa martabak di sini silakan datang saja ke takengon hehehe..dan jika anda memang sudah berada di takengon alamat warung ini berada di jalan lintang, masih belum jelas?? jika anda sudah berada di takengon tanyakan sama orang takengon tersebut dimanakah jalan lintang itu berada, dan jika sudah berada di jalan lintang, monggon di tanya lagi di mana keberadaan Martabak Mini Afrika Waka-waka hehe..
Nah, cerita di atas adalah cerita tentang keberadaan saya saat menuliskan postingan yaitu postingan tentang menghitung jumlah harga dengan php dan mysql, melihat judulnya mungkin agak masih bingung ya, jadi sekarang saya akan cerita sedikit tentang judul di atas. menghitung jumlah harga maksudnya adalah ketika anda sedang membuat project yang tabelnya adalah nama_barang dan harga dan anda ingin sekali menampilkan isi tabel tersebut namun juga ingin menjumlahkan secara otomatis kolom harga yang sudah anda input sebelumnya, maka postingan inilah jawabannya..contoh barang lihat gambar di bawah ini.



pertama sekali yang harus anda lakukan sebelum memulainya adalah membaca Bismillah bagi yang muslim.
barulah kemudian dengan pikiran yang sehat kita mulai menyelesaikan masalah di atas dengan sedikit konsentrasi (kalo bisa penuh).

1. buatlah sebuah file kosong dengan nama index.php .
2. copykan script di bawah ini :

<center>
<form action="index.php" method="post">
<input type="text" name="cari" value="<? echo $_GET[cari]?>" />
<input type="submit" value="cari" />
</form>
<table border="0">
<tr><th>No<th>Nama<th>Harga<th>
<?
mysql_connect("localhost","root","");
mysql_select_db("hitungkebawah");
$r=mysql_query("select * from tabel where nama like '%$_POST[cari]%'");
$no=1;
while($t=mysql_fetch_object($r))
{
?>
<tr>
<td><? echo $no; ?><td><? echo $t->nama; ?><td><? echo $t->harga; ?><?
$maybe=$t->harga;
$jlh=$maybe+$jlh;
$no++; }
echo "<tr><td>Jumlah";
echo "<td colspan=5>$jlh";
//echo "by : http://takengondev.blogspot.com";
?>
</table>
NB : Jika ada Pertanyaan segera hubungi <a href="http://takengondev.blogspot.com">http://takengondev.blogspot.com</a><br />
Atau <a href="http://facebook.com/miez.dehard">Facebook</a> admin<br /></center>

3. yang ini untuk tabelnya yang akan di import ke tabelnya setelah database di buat.

CREATE TABLE IF NOT EXISTS `tabel` (
  `id` int(5) NOT NULL auto_increment,
  `nama` varchar(10) NOT NULL,
  `harga` varchar(20) NOT NULL,
  PRIMARY KEY  (`id`)
)
INSERT INTO `tabel` (`id`, `nama`, `harga`) VALUES
(1, 'Topi Gaol', '10000'),
(2, 'Celana Jea', '180000'),
(3, 'Topi Limp ', '150000'),
(4, 'Jaket Kuli', '250000');

4. selesai.

coba di jalankan, jika berhasil saya ucapkan selamat, jika gagal coba lagi dan jika ada pertanyaan ada form komentar di bawah..semoga berhasil.
Suni

Tawk.to