C++
PHP
Java
Linux & UNIX
ColdFusion
Visual Basic
ActionScript
CGI/Perl
JavaScript
HTML/CSS
Other Languages
Bash
ASP
C
mySQL
Python
C#
Assembly
VB.NET
Scheme
Ruby
System Uptime
Byte Format
File Download to Temp Dir
Shutdown Computer from VB
Easy String Writing in Registry
Open/Close your CD-Drive.
Detecting and Aborting Windows Shutdown from VB
Windows XP Task Manager Disabler/Enabler
Is the Program being Debugged?
TextBox Telephone Number Formatting
REMOVING AN APP FROM THE PROCESSES LIST
Unescape
RoundUp and RoundDown functions in VB 6.0
Classic Bouncing Balls
Decimal to Binary
Analog Clock
Stopping the user from exiting out of your app.
RoundUp and RoundDown
Date (in words) to Oracle Date Format
Calculator
Opening / Closing CDROM in VB6 drive using command buttons..
Starting a Screen saver using VB6 code
Flash the Form window
Starting an *.exe file from VB6 code
Playing a Sound File From VB6 appl
Deternining Drive Type Through VB
Convert Number to Equivalent TExt
Inverse Number
Reading a Text file Line by Line
Selecting a an Application's Default Printer and Printing to it
Scroller
Draw Polygon
Open & Saving .txt files
Quadratic Formula
Inserting Hyperlinks in VB
HD serial Number (Hardcoded One)
Encrypt-Decrypt File with Password
Creating An ODBC
PutBackgroung
Find a day in the week
Shell revisited
Enabled/Disabled an array of command button
Projectile Motion
LUHN CHECK PROGRAM
Tic Tac Toe
Basic Spell this Picture Game
Cost Calculator
Data Validation w/o messageBoxes
Random Password
AutoNumber in Access
ADO connection to excel
Mouse Input Test
Number conversions (binary, decimal, hex)
Bubble_sort
Fibonacci Numbers done recrusively
Recrusive dec->x algorithm
Quadratic equation solver
Arabic numeral converter to roman numerals (recursive)
Non repeating random number generator
Return cpu up time (recursively)
Read & Write to file
Return specific pixel RGB code
Split RGB to Red;Green;Blue
Hangman
Elementar calculator
Change screen resolution
Simple database connectivity
Check if a character is alpha(lower or upper) or alpha numeric,
Loading the ProgressBar
Color combination
Find USB Drive Letter
Download file using ftp
User validation
Creating Auto Number Generation
Ghost Mail
Read registry
Write to registry
Prevent a program from running
Am I running from IDE or not ?
My CD Collection
Password Keeper
Finding your application's path
Simple Text Encryption
Change System Date fomat
Run program outside vb
Get System Volume Infomation
Fade out your form
Code :
VISUAL BASIC - HANGMAN
Code Discription :
Simple hangman game, with gui.
Right Click And Copy This Code
VERSION 5.00 Begin VB.Form alus Caption = "Poomine" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 "False Italic = 0 "False Strikethrough = 0 "False EndProperty LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 "Windows Default Begin VB.PictureBox Pilt Appearance = 0 "Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 1575 Left = 3120 ScaleHeight = 1545 ScaleWidth = 1425 TabIndex = 36 Top = 840 Width = 1455 Begin VB.Line Line9 X1 = 840 X2 = 840 Y1 = 480 Y2 = 240 End Begin VB.Line Line8 X1 = 840 X2 = 960 Y1 = 960 Y2 = 1080 End Begin VB.Line Line7 X1 = 840 X2 = 960 Y1 = 720 Y2 = 840 End Begin VB.Line Line6 X1 = 840 X2 = 720 Y1 = 720 Y2 = 840 End Begin VB.Line Line5 X1 = 840 X2 = 720 Y1 = 960 Y2 = 1080 End Begin VB.Line Line4 X1 = 840 X2 = 840 Y1 = 720 Y2 = 960 End Begin VB.Shape Shape1 BackColor = &H80000000& BorderColor = &H8000000C& Height = 255 Left = 795 Shape = 2 "Oval Top = 480 Width = 255 End Begin VB.Line Line1 BorderWidth = 4 X1 = 240 X2 = 240 Y1 = 240 Y2 = 1320 End Begin VB.Line Line2 BorderWidth = 4 X1 = 960 X2 = 240 Y1 = 240 Y2 = 240 End End Begin VB.CommandButton Uus Caption = "Uus" Height = 375 Left = 3120 TabIndex = 33 Top = 2520 Width = 1455 End Begin VB.CommandButton nupp Caption = "Y" Height = 375 Index = 31 Left = 2640 TabIndex = 32 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "X" Height = 375 Index = 30 Left = 2280 TabIndex = 31 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "U" Height = 375 Index = 29 Left = 1920 TabIndex = 30 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "?" Height = 375 Index = 28 Left = 1560 TabIndex = 29 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "?" Height = 375 Index = 27 Left = 1200 TabIndex = 28 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "?" Height = 375 Index = 26 Left = 840 TabIndex = 27 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "W" Height = 375 Index = 25 Left = 480 TabIndex = 26 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "V" Height = 375 Index = 24 Left = 120 TabIndex = 25 Top = 2520 Width = 375 End Begin VB.CommandButton nupp Caption = "U" Height = 375 Index = 23 Left = 2640 TabIndex = 24 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "T" Height = 375 Index = 22 Left = 2280 TabIndex = 23 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "?" Height = 375 Index = 21 Left = 1920 TabIndex = 22 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "Z" Height = 375 Index = 20 Left = 1560 TabIndex = 21 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "?" Height = 375 Index = 19 Left = 1200 TabIndex = 20 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "S" Height = 375 Index = 18 Left = 840 TabIndex = 19 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "R" Height = 375 Index = 17 Left = 480 TabIndex = 18 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "Q" Height = 375 Index = 16 Left = 120 TabIndex = 17 Top = 2160 Width = 375 End Begin VB.CommandButton nupp Caption = "P" Height = 375 Index = 15 Left = 2640 TabIndex = 16 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "O" Height = 375 Index = 14 Left = 2280 TabIndex = 15 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "N" Height = 375 Index = 13 Left = 1920 TabIndex = 14 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "M" Height = 375 Index = 12 Left = 1560 TabIndex = 13 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "L" Height = 375 Index = 11 Left = 1200 TabIndex = 12 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "K" Height = 375 Index = 10 Left = 840 TabIndex = 11 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "J" Height = 375 Index = 9 Left = 480 TabIndex = 10 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "I" Height = 375 Index = 8 Left = 120 TabIndex = 9 Top = 1800 Width = 375 End Begin VB.CommandButton nupp Caption = "H" Height = 375 Index = 7 Left = 2640 TabIndex = 8 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "G" Height = 375 Index = 6 Left = 2280 TabIndex = 7 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "F" Height = 375 Index = 5 Left = 1920 TabIndex = 6 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "E" Height = 375 Index = 4 Left = 1560 TabIndex = 5 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "D" Height = 375 Index = 3 Left = 1200 TabIndex = 4 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "C" Height = 375 Index = 2 Left = 840 TabIndex = 3 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "B" Height = 375 Index = 1 Left = 480 TabIndex = 2 Top = 1440 Width = 375 End Begin VB.CommandButton nupp Caption = "A" Height = 375 Index = 0 Left = 120 TabIndex = 1 Top = 1440 Width = 375 End Begin VB.Label Kaotand Caption = "Kaotus:" Height = 255 Left = 120 TabIndex = 35 Top = 1080 Width = 2895 End Begin VB.Label Punkte Caption = "Punkte:" Height = 255 Left = 120 TabIndex = 34 Top = 840 Width = 2895 End Begin VB.Label Tekst Caption = "Poomine" BeginProperty Font Name = "Tahoma" Size = 24 Charset = 0 Weight = 700 Underline = 0 "False Italic = 0 "False Strikethrough = 0 "False EndProperty Height = 615 Left = 120 TabIndex = 0 Top = 120 Width = 4455 End End Attribute VB_Name = "alus" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim s6na$, t2hestik$, kord%, kaotus%, pt% Private Sub Uus_Click(): kaotus = kaotus + 1: pt = pt - 10: Call Loo_Uus: End Sub Private Sub Form_Load() Call Loo_Uus End Sub Private Sub poo() Select Case kord Case 2: Me.Line2.Visible = True Case 3: Me.Shape1.Visible = True Case 4: Me.Line4.Visible = True Case 5: Me.Line5.Visible = True Case 6: Me.Line6.Visible = True Case 7: Me.Line7.Visible = True Case 8: Me.Line8.Visible = True Case 9: Me.Line9.Visible = True End Select End Sub Private Sub nupp_Click(Index As Integer) Me.Pilt.SetFocus Me.nupp(Index).Enabled = False k = Split(t2hestik, ",") k(Index) = "|" t2hestik = Join(k, ",") saal = Me.Tekst.Caption Me.Tekst.Caption = algolek() If s6na = Me.Tekst.Caption Then pt = pt + (9 - kord) * 5 Call Loo_Uus Else If saal = Me.Tekst.Caption Then kord = kord + 1 If kord = 9 Then Call l2bi Me.Caption = "Poomine ( " & kord & " / 9 )" Call poo End If End Sub Sub l2bi() For i = 0 To 31 Me.nupp(i).Enabled = False Next i End Sub Sub Loo_Uus() t2hestik = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P," _ & "Q,R,S,? ,Z,?½,T,U,V,W,??,??,??,??,X,Y" For i = 0 To 31 Me.nupp(i).Enabled = True Next i kord = 1 s6na = loo_uus_s6na Me.Line2.Visible = False: Me.Shape1.Visible = False Me.Line4.Visible = False: Me.Line5.Visible = False Me.Line6.Visible = False: Me.Line7.Visible = False Me.Line8.Visible = False: Me.Line9.Visible = False Me.Punkte.Caption = "Punkte: " & pt Me.Kaotand.Caption = "Kaotus: " & kaotus Me.Tekst.Caption = algolek() Me.Caption = "Poomine ( " & kord & " / 9 )" End Sub Function algolek() z = Split(t2hestik, ",") x = s6na For i = 0 To UBound(z) x = vaheta(x, z(i)) Next i algolek = Left(s6na, 1) & Mid(x, 2, Len(x) - 1) End Function Function vaheta(s6na, t2ht) vaheta = Replace(s6na, t2ht, "_") End Function Private Function loo_uus_s6na() As String Randomize "add the word you want to guess here s6nad = "bulb,onion,potato,beet,fish,chicken,computer" ms6na = Split(s6nad, ",") loo_uus_s6na = StrConv(ms6na(Rnd() * (UBound(ms6na) - 1)), vbUpperCase) End Function
COPYRIGHT © 2007-2008 BY Lib-Code.All rights reserved.
POWERED BY: Lib-Code V1.3
