by sherif rofael (15 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th July 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
hangman , the famous game, this program takes 5 days from me to finish but finally i finished it, it contains a database of 140 words and very
VBcoders
Dim X As String
Dim I1 As Integer
Dim eee As String
Dim tr As Integer
Private Sub Command1_Click()
Command1.Caption = "first letter"
Dim SW As String
Dim Sv As String
SW = LCase$(Left$(X, 1))
Label1.Caption = SW
SW = LCase$(Left$(X, 2))
Sv = LCase$(Right$(SW, 1))
If tr = 1 Then Label2.Caption = Sv
SW = LCase$(Left$(X, 3))
Sv = LCase$(Right$(SW, 1))
If tr = 2 Then Label3.Caption = Sv
If tr < 3 Then tr = tr + 1
If tr = 1 Then Command1.Caption = "second letter"
If tr = 2 Then Command1.Caption = "third letter"
If tr = 3 Then Command1.Caption = " NO MORE HINTS"
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
Dim T As Integer
I1 = Len(X)
T = InStr(X, Chr(KeyAscii))
If T = 0 Then m = 1 + m
If T = 0 Then eee = KeyAscii
N = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
T = InStr(T + 1, X, Chr(KeyAscii))
R = LABEL(T, KeyAscii)
U1 = draw(m)
TT = CHECK()
End Sub
Function LABEL(T, KeyAscii)
Select Case T
Case 1
Label1.Caption = Chr(KeyAscii)
Case 2
Label2.Caption = Chr(KeyAscii)
Case 3
Label3.Caption = Chr(KeyAscii)
Case 4
Label4.Caption = Chr(KeyAscii)
Case 5
Label5.Caption = Chr(KeyAscii)
Case 6
Label6.Caption = Chr(KeyAscii)
Case 7
Label7.Caption = Chr(KeyAscii)
Case 8
Label8.Caption = Chr(KeyAscii)
Case 9
Label9.Caption = Chr(KeyAscii)
Case 10
Label10.Caption = Chr(KeyAscii)
Case 11
Label11.Caption = Chr(KeyAscii)
Case 12
Label12.Caption = Chr(KeyAscii)
End Select
End Function
Function draw(m)
z = 250
Select Case m
Case 1
'Circle (1440, 3120), 620, RGB(200, 250, 10)
Image1.Visible = True
Label15.Caption = Chr(eee)
Case 2
Line (1440, 3720 - z)-(1440, 5280 - z), RGB(110, 10, 110)
Label16.Caption = Chr(eee)
Case 3
Line (1440, 4080 - z)-(720, 4680 - z), RGB(20, 180, 110)
Label17.Caption = Chr(eee)
Case 4
Line (1440, 4080 - z)-(2160, 4680 - z), RGB(210, 10, 10)
Label18.Caption = Chr(eee)
Case 5
Line (1440, 5280 - z)-(720, 5880 - z), RGB(250, 10, 250)
Label19.Caption = Chr(eee)
Case 6
Line (1440, 5280 - z)-(2160, 5880 - z), RGB(100, 80, 110)
Label20.Caption = Chr(eee)
Image3.Visible = True
Command1.Caption = "THANKS"
Image4.Visible = True
Label13.Caption = X
Command1.Visible = False
Label21.Visible = False
End Select
End Function
Function DRAWAG(I1)
Select Case I1
Case 6
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Case 7
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Case 8
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Label8.Caption = "."
Case 9
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Label8.Caption = "."
Label9.Caption = "."
Case 10
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Label8.Caption = "."
Label9.Caption = "."
Label10.Caption = "."
Case 11
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Label8.Caption = "."
Label9.Caption = "."
Label10.Caption = "."
Label11.Caption = "."
Case 12
Label1.Caption = "."
Label2.Caption = "."
Label3.Caption = "."
Label4.Caption = "."
Label5.Caption = "."
Label6.Caption = "."
Label7.Caption = "."
Label8.Caption = "."
Label9.Caption = "."
Label10.Caption = "."
Label11.Caption = "."
Label12.Caption = "."
End Select
End Function
Private Sub Form_Load()
Randomize Timer
Dim P As Integer
P = Int(1 + 147 * Rnd)
Select Case P
Case 0
X = "handsome"
Case 1
X = "administration"
Case 2
X = "microwave"
Case 3
X = "wavelength"
Case 4
X = "waveguide"
Case 5
X = "egyptology"
Case 6
X = "unicef"
Case 7
X = "ronaldo"
Case 8
X = "elzamalek"
Case 9
X = "islamic"
Case 10
X = "christianity"
Case 11
X = "madness"
Case 12
X = "programming"
Case 14
X = "talent"
Case 15
X = "abbreviation"
Case 16
X = "children"
Case 17
X = "chilli"
Case 18
X = "chimney"
Case 19
X = "chimpanzee"
Case 20
X = "chlorine"
Case 21
X = "cholesterol"
Case 22
X = "christian"
Case 23
X = "christmas"
Case 24
X = "cinema"
Case 25
X = "circuit"
Case 26
X = "circle"
Case 27
X = "civilian"
Case 28
X = "cladding"
Case 29
X = "classical"
Case 30
X = "clearance"
Case 31
X = "client"
Case 32
X = "climate"
Case 33
X = "flipflop"
Case 34
X = "dancehall"
Case 35
X = "darwinian"
Case 36
X = "Database"
Case 37
X = "decision"
Case 38
X = "declaration"
Case 39
X = "decoder"
Case 40
X = "decompress"
Case 41
X = "deduction"
Case 42
X = "Default"
Case 43
X = "defensive"
Case 44
X = "definition"
Case 45
X = "delivery"
Case 46
X = "demagnetize"
Case 47
X = "denominate"
Case 48
X = "amplifier"
Case 49
X = "analysis"
Case 50
X = "clarify"
Case 51
X = "distribution"
Case 52
X = "immunity"
Case 53
X = "earthquake"
Case 54
X = "easter"
Case 55
X = "rabbit"
Case 56
X = "previous"
Case 57
X = "remember"
Case 58
X = "england"
Case 59
X = "comedian"
Case 60
X = "alahly"
Case 61
X = "alzamalek"
Case 62
X = "alesmaeily"
Case 63
X = "alkuwait"
Case 64
X = "alsudan"
Case 65
X = "egyptian"
Case 66
X = "islamic"
Case 67
X = "wisdom"
Case 68
X = "alexandria"
Case 69
X = "america"
Case 70
X = "border"
Case 71
X = "paradise"
Case 72
X = "polarity"
Case 73
X = "capacitor"
Case 74
X = "transistor"
Case 75
X = "Transform"
Case 76
X = "football"
Case 77
X = "rivaldo"
Case 78
X = "ronaldinho"
Case 79
X = "brazil"
Case 80
X = "germany"
Case 81
X = "france"
Case 82
X = "tunisia"
Case 83
X = "africa"
Case 84
X = "europe"
Case 85
X = "soccer"
Case 86
X = "country"
Case 87
X = "street"
Case 88
X = "pavement"
Case 89
X = "traffic"
Case 90
X = "commericals"
Case 91
X = "freezer"
Case 92
X = "television"
Case 93
X = "mubarak"
Case 94
X = "georgebush"
Case 95
X = "newspaper"
Case 96
X = "magazine"
Case 97
X = "picture"
Case 98
X = "cupboard"
Case 99
X = "handkerchief"
Case 100
X = "household"
Case 101
X = "domestic"
Case 102
X = "national"
Case 103
X = "demand"
Case 104
X = "protest"
Case 105
X = "surplus"
Case 106
X = "prohibition"
Case 107
X = "profit"
Case 108
X = "profit"
Case 109
X = "tolerance"
Case 110
X = "republic"
Case 111
X = "admittance"
Case 112
X = "publicist"
Case 113
X = "tailor"
Case 114
X = "calculator"
Case 115
X = "automatic"
Case 116
X = "computer"
Case 117
X = "movies"
Case 118
X = "australia"
Case 119
X = "britain"
Case 120
X = "reception"
Case 121
X = "worker"
Case 122
X = "worldwide"
Case 123
X = "youngster"
Case 124
X = "yourself"
Case 125
X = "Slovak"
Case 126
X = "teacher"
Case 127
X = "selfish"
Case 128
X = "hamburger"
Case 129
X = "catalyst"
Case 130
X = "morocco"
Case 131
X = "galaxy"
Case 132
X = "trigonometry"
Case 133
X = "triangular"
Case 134
X = "tarboosh"
Case 135
X = "mention"
Case 136
X = "mechanism"
Case 137
X = "hotmail"
Case 138
X = "hotmail"
Case 139
X = "spacecraft"
Case 140
X = "spaceman"
Case 141
X = "special"
Case 142
X = "astronaut"
Case 143
X = "symmetry"
Case 144
X = "petroleum"
Case 145
X = "periodic"
Case 146
X = "official"
Case 147
X = "assistant"
End Select
I1 = Len(X)
Print I1
e1 = DRAWAG(I1)
End Sub
Function CHECK()
If Label1.Caption <> "." And Label1.Caption <> " " And Label2.Caption <> "." And Label2.Caption <> " " And Label3.Caption <> "." And Label3.Caption <> " " And Label4.Caption <> "." And Label4.Caption <> " " And Label5.Caption <> "." And Label5.Caption <> " " And Label6.Caption <> "." And Label6.Caption <> " " And Label7.Caption <> "." And Label7.Caption <> " " And Label8.Caption <> "." And Label8.Caption <> " " And Label9.Caption <> "." And Label9.Caption <> " " And Label10.Caption <> "." And Label10.Caption <> " " And Label11.Caption <> "." And Label11.Caption <> " " And Label12.Caption <> "." And Label12.Caption <> " " Then rr = 2
If rr = 2 Then Image2.Visible = True
If rr = 2 Then Image4.Visible = True
If rr = 2 Then Command1.Visible = False
If rr = 2 Then Label21.Visible = False
R = 0
End Function
No comments have been posted about hangman , the famous game, this program takes 5 days from me to finish but finally i finished it, i. Why not be the first to post a comment about hangman , the famous game, this program takes 5 days from me to finish but finally i finished it, i.
