home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno2a / technote.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-24  |  12.8 KB  |  297 lines

  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    ClientHeight    =   4875
  4.    ClientLeft      =   4185
  5.    ClientTop       =   2655
  6.    ClientWidth     =   7125
  7.    BeginProperty Font 
  8.       Name            =   "MS Sans Serif"
  9.       Size            =   12
  10.       Charset         =   0
  11.       Weight          =   400
  12.       Underline       =   0   'False
  13.       Italic          =   0   'False
  14.       Strikethrough   =   0   'False
  15.    EndProperty
  16.    Icon            =   "technotes.frx":0000
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   4875
  19.    ScaleWidth      =   7125
  20.    Begin VB.CommandButton Command3 
  21.       Caption         =   "&Home James"
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   615
  32.       Left            =   5400
  33.       TabIndex        =   5
  34.       Top             =   4080
  35.       Width           =   1575
  36.    End
  37.    Begin VB.CommandButton Cndengineer 
  38.       Caption         =   "&You might be an engineer if..."
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   615
  49.       Left            =   120
  50.       TabIndex        =   4
  51.       Top             =   4080
  52.       Width           =   1695
  53.    End
  54.    Begin VB.CommandButton Command2 
  55.       Caption         =   "&Sponsors"
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   615
  66.       Left            =   3720
  67.       TabIndex        =   3
  68.       Top             =   4080
  69.       Width           =   1575
  70.    End
  71.    Begin VB.CommandButton Command1 
  72.       Caption         =   "&Tech Notes"
  73.       BeginProperty Font 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   8.25
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   615
  83.       Left            =   1920
  84.       TabIndex        =   2
  85.       Top             =   4080
  86.       Width           =   1695
  87.    End
  88.    Begin VB.Label Label3 
  89.       BeginProperty Font 
  90.          Name            =   "Tahoma"
  91.          Size            =   14.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   2775
  99.       Left            =   240
  100.       TabIndex        =   1
  101.       Top             =   960
  102.       Width           =   6615
  103.       WordWrap        =   -1  'True
  104.    End
  105.    Begin VB.Label Label2 
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "TECH NOTES"
  108.       BeginProperty Font 
  109.          Name            =   "Tahoma"
  110.          Size            =   21.75
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   -1  'True
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H00FF0000&
  118.       Height          =   615
  119.       Left            =   0
  120.       TabIndex        =   0
  121.       Top             =   0
  122.       Width           =   7095
  123.    End
  124. Attribute VB_Name = "Form1"
  125. Attribute VB_GlobalNameSpace = False
  126. Attribute VB_Creatable = False
  127. Attribute VB_PredeclaredId = True
  128. Attribute VB_Exposed = False
  129. Private Sub Cndengineer_Click()
  130.  'YOU MIGHT BE AN ENGINEER IF ...
  131. Label2.Caption = "You might be an engineer if ..."
  132. a = "...choosing to buy flowers for your girlfriend or upgrading your RAM is a moral dilemma."
  133. b = "...you take a cruise so you can go on a personal tour of the engine room."
  134. c = "...the sales people at the local computer store can't answer any of your questions."
  135. d = "...you bought your wife a new CD-ROM drive for her birthday."
  136. e = "...you can quote scenes from any Monty Python movie."
  137. f = "...you can type 70 words per minute but can't read your own handwriting."
  138. g = "...you comment to your wife that her straight hair is nice and parallel."
  139. h = "...you have saved every power cord from all your broken appliances."
  140. i = "...you have more friends on the Internet than in real life."
  141. j = "...you know what http:// stands for."
  142. k = "...you look forward to Christmas so you can put the kids' toys together."
  143. l = "...you see a good design and still have to change it."
  144. m = "...you window shop at Radio Shack. "
  145. n = "...your wife hasn't the foggiest idea of what you do at work."
  146. o = "...you've already calculated how much you make per second."
  147. p = "...you've tried to repair a $5 radio."
  148. q = "...your laptop computer costs more than your car."
  149. r = "THE END"
  150. If Label3.Caption = "" Then
  151. Label3.Caption = a
  152. ElseIf Label3.Caption = a Then
  153. Label3.Caption = b
  154. ElseIf Label3.Caption = b Then
  155. Label3.Caption = c
  156. ElseIf Label3.Caption = c Then
  157. Label3.Caption = d
  158. ElseIf Label3.Caption = d Then
  159. Label3.Caption = e
  160. ElseIf Label3.Caption = e Then
  161. Label3.Caption = f
  162. ElseIf Label3.Caption = f Then
  163. Label3.Caption = g
  164. ElseIf Label3.Caption = g Then
  165. Label3.Caption = h
  166. ElseIf Label3.Caption = h Then
  167. Label3.Caption = i
  168. ElseIf Label3.Caption = i Then
  169. Label3.Caption = j
  170. ElseIf Label3.Caption = j Then
  171. Label3.Caption = k
  172. ElseIf Label3.Caption = k Then
  173. Label3.Caption = l
  174. ElseIf Label3.Caption = l Then
  175. Label3.Caption = m
  176. ElseIf Label3.Caption = m Then
  177. Label3.Caption = n
  178. ElseIf Label3.Caption = n Then
  179. Label3.Caption = o
  180. ElseIf Label3.Caption = o Then
  181. Label3.Caption = p
  182. ElseIf Label3.Caption = p Then
  183. Label3.Caption = q
  184. ElseIf Label3.Caption = q Then
  185. Label3.Caption = r
  186. Label3.Caption = ""
  187. End If
  188. End Sub
  189. Private Sub Command1_Click()
  190.   'TechNotes
  191.  Label2.Caption = "Technical Difficulties"
  192. a = "When a tech says he's coming right over, go for coffee. It's nothing to us to remember 2700 screen saver passwords."
  193. b = "When you call us to have your computer moved, be sure to leave it buried under half a ton of postcards, baby pictures, stuffed animals, dried flowers, bowling trophies and Popsicle art. We don't have a life, and we find it deeply moving to catch a fleeting glimpse of yours."
  194. c = "When tech support sends you an e-mail with high importance, delete it at once. We're just testing out the public groups."
  195. d = "When a tech is eating lunch at his desk, walk right in and spill your guts out. We exist only to serve."
  196. e = "When a tech is having a smoke outside, ask him a computer question.  The only reason why we smoke at all is to ferret out those clients who don't have e-mail or a telephone line."
  197. f = "Send urgent e-mail ALL IN UPPERCASE. The mail server picks it up and flags it as a rush delivery."
  198. g = "When you call a tech's direct line, press 5 to skip the bilingual greeting that says he's out of town for a week, record your message, and wait exactly 24 hours before you send an e-mail straight to the director because no one ever returned your call. You're entitled to common courtesy"
  199. h = "When the photocopier doesn't work, call computer support. There's electronics in it."
  200. i = "When you're getting a NO DIAL TONE message at home, call computer support. We can fix your line from here."
  201. j = "When something's wrong with your home PC, dump it on a tech's chair with no name, no phone number and no description of the problem. We love a puzzle."
  202. k = "When you have a tech on the phone walking you through changing a setting; read the paper. We don't actually mean for you to DO anything; we just love to hear ourselves talk."
  203. l = "When we offer training on the upcoming OS upgrade, don't bother.  We'll be there to hold your hand after it is done."
  204. m = "When the printer won't print, re-send the job at least 20 times.  Print jobs frequently get sucked into black holes."
  205. n = "When the printer still won't print after 20 tries, send the job to all 68 printers in the office. One of them is bound to work."
  206. o = "Don't use online help. Online help is for wimps."
  207. p = "If you're taking night classes in computer science, feel free to go around and update the network drivers for you and all you co-workers.  We're grateful for the overtime money."
  208. q = "When you have a tech fixing your computer at a quarter past two, eat your lunch in his face. We function better when slightly dizzy."
  209. r = "Don't ever thank us. We're getting paid for this."
  210. s = "When a tech asks you whether you've installed any new software on this computer, lie. It's nobody's business what you've got on your computer."
  211. t = "If the mouse cable keeps knocking down the framed picture of your dog, lift the computer and stuff the cable under it. Mouse cables were designed to have 45 lbs. of computer sitting on top of them."
  212. u = "If the space bar on your keyboard doesn't work, blame it on the mail upgrade. Keyboards are actually very happy with half a pound of muffin crumbs and nail clippings in them."
  213. v = "When you get the message saying ""Are you sure?"", click on that Yes button as fast as you can. Hell, if you weren't sure, you wouldn't be doing it, would you?"
  214. w = "Feel perfectly free to say things like ""I don't know nothing about that computer crap"". We don't mind at all hearing our area of professional expertise referred to as crap."
  215. x = "When you need to change the toner cartridge, call tech support.  Changing a toner cartridge is an extremely complex task, and Hewlett-Packard recommends that it be performed only by a professional engineer with an Master's degree in nuclear physics."
  216. y = "When something's the matter with your computer, ask your secretary to call the help desk. We enjoy the challenge of having to deal with a third party who doesn't know jack shit about the problem."
  217. z = "When you receive a 30-meg movie file, send it to everyone as a mail attachment. We got lots of disk space on that mail server."
  218. AA = "Don't even think of breaking large print jobs down into smaller chunks. Somebody else might get a chance to squeeze into a queue."
  219. ab = "When you bump into a tech in the grocery store on a Saturday, ask a computer question. We don't do weekends."
  220. ac = "If your son is a student in computer science, have him come in on the weekends and do his projects on your office computer. We'll be there for you when his illegal copy of Visual Basic 6.0 makes your Access 95 database flip out."
  221. ad = "When you bring your own personal home PC for repair at the office, leave the documentation at home. We'll find the jumper settings on the internet."
  222. ae = "Scott Wellbrock 1999" & Chr(13) & Chr(10) & "Scottw68@msn.com"
  223. If Label3.Caption = "" Then
  224. Label3.Caption = a
  225. ElseIf Label3.Caption = a Then
  226. Label3.Caption = b
  227. ElseIf Label3.Caption = b Then
  228. Label3.Caption = c
  229. ElseIf Label3.Caption = c Then
  230. Label3.Caption = d
  231. ElseIf Label3.Caption = d Then
  232. Label3.Caption = e
  233. ElseIf Label3.Caption = e Then
  234. Label3.Caption = f
  235. ElseIf Label3.Caption = f Then
  236. Label3.Caption = g
  237. ElseIf Label3.Caption = g Then
  238. Label3.Caption = h
  239. ElseIf Label3.Caption = h Then
  240. Label3.Caption = i
  241. ElseIf Label3.Caption = i Then
  242. Label3.Caption = j
  243. ElseIf Label3.Caption = j Then
  244. Label3.Caption = k
  245. ElseIf Label3.Caption = k Then
  246. Label3.Caption = l
  247. ElseIf Label3.Caption = l Then
  248. Label3.Caption = m
  249. ElseIf Label3.Caption = m Then
  250. Label3.Caption = n
  251. ElseIf Label3.Caption = n Then
  252. Label3.Caption = o
  253. ElseIf Label3.Caption = o Then
  254. Label3.Caption = p
  255. ElseIf Label3.Caption = p Then
  256. Label3.Caption = q
  257. ElseIf Label3.Caption = q Then
  258. Label3.Caption = r
  259. ElseIf Label3.Caption = r Then
  260. Label3.Caption = s
  261. ElseIf Label3.Caption = s Then
  262. Label3.Caption = t
  263. ElseIf Label3.Caption = t Then
  264. Label3.Caption = u
  265. ElseIf Label3.Caption = u Then
  266. Label3.Caption = v
  267. ElseIf Label3.Caption = v Then
  268. Label3.Caption = w
  269. ElseIf Label3.Caption = w Then
  270. Label3.Caption = x
  271. ElseIf Label3.Caption = x Then
  272. Label3.Caption = y
  273. ElseIf Label3.Caption = y Then
  274. Label3.Caption = z
  275. ElseIf Label3.Caption = z Then
  276. Label3.Caption = ab
  277. ElseIf Label3.Caption = ab Then
  278. Label3.Caption = ac
  279. ElseIf Label3.Caption = ac Then
  280. Label3.Caption = ad
  281. ElseIf Label3.Caption = ad Then
  282. Label3.Caption = ae
  283. Label3.Caption = ""
  284. End If
  285. End Sub
  286. Private Sub Command2_Click()
  287. Frmstech.Show
  288. Unload Me
  289. End Sub
  290. Private Sub Command3_Click()
  291. FrmStart.Show
  292. Unload Me
  293. End Sub
  294. Private Sub Form_Load()
  295. Label2.Caption = "Tech Notes"
  296. End Sub
  297.