home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 July / PCWorld_2000-07_cd.bin / Software / Vyzkuste / MicroTel / DDESAM / DDESAM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-09  |  8.8 KB  |  285 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "P
  5. klad spolupr
  6. ce MicroTel-u a jin
  7.  aplikace p
  8. es DDE "
  9.    ClientHeight    =   5250
  10.    ClientLeft      =   1410
  11.    ClientTop       =   2805
  12.    ClientWidth     =   9285
  13.    Height          =   5655
  14.    Left            =   1350
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   5250
  19.    ScaleWidth      =   9285
  20.    ShowInTaskbar   =   0   'False
  21.    Top             =   2460
  22.    Width           =   9405
  23.    Begin VB.CommandButton CmdGType 
  24.       Caption         =   "&Typ grafu"
  25.       BeginProperty Font 
  26.          name            =   "MS Sans Serif"
  27.          charset         =   1
  28.          weight          =   700
  29.          size            =   8.25
  30.          underline       =   0   'False
  31.          italic          =   0   'False
  32.          strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   375
  35.       Left            =   7800
  36.       TabIndex        =   6
  37.       Top             =   2040
  38.       Width           =   1335
  39.    End
  40.    Begin VB.CommandButton CmdServ 
  41.       Caption         =   "S&lu
  42.       BeginProperty Font 
  43.          name            =   "MS Sans Serif"
  44.          charset         =   1
  45.          weight          =   700
  46.          size            =   8.25
  47.          underline       =   0   'False
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   375
  52.       Left            =   7800
  53.       TabIndex        =   5
  54.       Top             =   1560
  55.       Width           =   1335
  56.    End
  57.    Begin VB.TextBox MTDDE 
  58.       Height          =   375
  59.       Left            =   7920
  60.       TabIndex        =   4
  61.       Text            =   "Text1"
  62.       Top             =   2640
  63.       Visible         =   0   'False
  64.       Width           =   1095
  65.    End
  66.    Begin VB.CommandButton CmdHard 
  67.       Caption         =   "&Hardware"
  68.       BeginProperty Font 
  69.          name            =   "MS Sans Serif"
  70.          charset         =   1
  71.          weight          =   700
  72.          size            =   8.25
  73.          underline       =   0   'False
  74.          italic          =   0   'False
  75.          strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   375
  78.       Left            =   7800
  79.       TabIndex        =   3
  80.       Top             =   1080
  81.       Width           =   1335
  82.    End
  83.    Begin VB.CommandButton CmdSoft 
  84.       Caption         =   "&Software"
  85.       BeginProperty Font 
  86.          name            =   "MS Sans Serif"
  87.          charset         =   1
  88.          weight          =   700
  89.          size            =   8.25
  90.          underline       =   0   'False
  91.          italic          =   0   'False
  92.          strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   375
  95.       Left            =   7800
  96.       TabIndex        =   2
  97.       Top             =   600
  98.       Width           =   1335
  99.    End
  100.    Begin VB.CommandButton CmdOK 
  101.       Cancel          =   -1  'True
  102.       Caption         =   "&OK"
  103.       Default         =   -1  'True
  104.       BeginProperty Font 
  105.          name            =   "MS Sans Serif"
  106.          charset         =   1
  107.          weight          =   700
  108.          size            =   8.25
  109.          underline       =   0   'False
  110.          italic          =   0   'False
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   375
  114.       Left            =   7800
  115.       TabIndex        =   1
  116.       Top             =   120
  117.       Width           =   1335
  118.    End
  119.    Begin GraphLib.Graph Graph1 
  120.       Height          =   5055
  121.       Left            =   120
  122.       TabIndex        =   0
  123.       Top             =   120
  124.       Width           =   7455
  125.       _version        =   65536
  126.       _extentx        =   13150
  127.       _extenty        =   8916
  128.       _stockprops     =   96
  129.       borderstyle     =   1
  130.       graphtype       =   4
  131.       randomdata      =   0
  132.       colordata       =   0
  133.       extradata       =   0
  134.       extradata[]     =   0
  135.       fontfamily      =   4
  136.       fontsize        =   4
  137.       fontsize[0]     =   120
  138.       fontsize[1]     =   150
  139.       fontsize[2]     =   100
  140.       fontsize[3]     =   100
  141.       fontstyle       =   4
  142.       graphdata       =   1
  143.       graphdata[]     =   5
  144.       graphdata[0,0]  =   0
  145.       graphdata[0,1]  =   0
  146.       graphdata[0,2]  =   0
  147.       graphdata[0,3]  =   0
  148.       graphdata[0,4]  =   0
  149.       labeltext       =   1
  150.       legendtext      =   0
  151.       patterndata     =   0
  152.       symboldata      =   0
  153.       xposdata        =   0
  154.       xposdata[]      =   0
  155.    End
  156. Attribute VB_Name = "Form1"
  157. Attribute VB_Creatable = False
  158. Attribute VB_Exposed = False
  159. Dim Latin2 As String, Windows As String
  160. Private Sub CmdGType_Click()
  161. If Graph1.GraphType < 4 Then
  162.   Graph1.GraphType = Graph1.GraphType + 1
  163.   Graph1.GraphType = 1
  164. End If
  165. Graph1.DrawMode = 2
  166. End Sub
  167. Private Sub CmdHard_Click()
  168. MTDDE.LinkExecute "KEY H"
  169. MTDDE.LinkExecute "KEY ENTER"
  170. MTDDE.LinkExecute "MTREFRESH"
  171. MTDDE.LinkRequest
  172. Graph ("H")
  173. End Sub
  174. Private Sub CmdOK_Click()
  175. MTDDE.LinkExecute "KEY X"
  176. MTDDE.LinkExecute "KEY ENTER"
  177. MTDDE.LinkMode = 0
  178. Unload Me
  179. End Sub
  180. Private Sub CmdServ_Click()
  181. MTDDE.LinkExecute "KEY C"
  182. MTDDE.LinkExecute "KEY ENTER"
  183. MTDDE.LinkExecute "MTREFRESH"
  184. MTDDE.LinkRequest
  185. Graph ("C")
  186. End Sub
  187. Private Sub CmdSoft_Click()
  188. MTDDE.LinkExecute "KEY S"
  189. MTDDE.LinkExecute "KEY ENTER"
  190. MTDDE.LinkExecute "MTREFRESH"
  191. MTDDE.LinkRequest
  192. Graph ("S")
  193. End Sub
  194. Private Sub Form_Load()
  195. SetTables
  196. MTDDE.LinkTimeout = 150
  197. MTDDE.LinkTopic = "MICROTEL|MICROTEL"
  198. MTDDE.LinkItem = "MTSCREEN"
  199. MTDDE.LinkMode = 2
  200. MTDDE.LinkRequest
  201. MTDDE.LinkExecute "MTREFRESH"
  202. Graph ("S")
  203. End Sub
  204. Public Sub Graph(WaitChar As String)
  205. Dim I As Integer, J As Integer
  206. Dim City(1 To 5) As String
  207. Dim XX(1 To 5) As Long
  208. Dim Title As String
  209. For I = 1 To 10
  210.   If Left$(GetLine(MTDDE, 23), 1) = WaitChar Then Exit For
  211.   MTDDE.LinkExecute "MTREFRESH"
  212.   For J = 1 To 1000
  213.   Next
  214.   MTDDE.LinkRequest
  215. Title = Conv(Trim$(GetLine(MTDDE, 4)))
  216. For I = 1 To 5
  217.   City(I) = Conv(Trim$(Left$(GetLine(MTDDE, I + 9), 32)))
  218.   XX(I) = Val(Right$(GetLine(MTDDE, I + 9), 32))
  219. Next I
  220. Graph1.GraphTitle = Title
  221. Graph1.ThisPoint = 1
  222. Graph1.AutoInc = 1
  223. For I = 1 To 5
  224.     Graph1.GraphData = XX(I)
  225. Next I
  226. Graph1.ThisPoint = 1
  227. Graph1.AutoInc = 1
  228. For I = 1 To 5
  229.     Graph1.LabelText = City(I)
  230. Next I
  231. Graph1.DrawMode = 2
  232. End Sub
  233. Public Function GetLine(Txt As String, LineNum As Integer) As String
  234. GetLine = Trim$(Mid$(Txt, (LineNum - 1) * 82 + 1, 80))
  235. End Function
  236. Public Sub SetTables()
  237. Latin2 = Chr$(230) + Chr$(155) + Chr$(166) + Chr$(231)
  238. Latin2 = Latin2 + Chr$(156) + Chr$(167) + Chr$(149)
  239. Latin2 = Latin2 + Chr$(150) + Chr$(232) + Chr$(181)
  240. Latin2 = Latin2 + Chr$(142) + Chr$(145) + Chr$(172)
  241. Latin2 = Latin2 + Chr$(144) + Chr$(183) + Chr$(214)
  242. Latin2 = Latin2 + Chr$(210) + Chr$(213) + Chr$(224)
  243. Latin2 = Latin2 + Chr$(226) + Chr$(153) + Chr$(252)
  244. Latin2 = Latin2 + Chr$(222) + Chr$(233) + Chr$(154)
  245. Latin2 = Latin2 + Chr$(237) + Chr$(234) + Chr$(160)
  246. Latin2 = Latin2 + Chr$(132) + Chr$(146) + Chr$(159)
  247. Latin2 = Latin2 + Chr$(130) + Chr$(216) + Chr$(161)
  248. Latin2 = Latin2 + Chr$(212) + Chr$(229) + Chr$(162)
  249. Latin2 = Latin2 + Chr$(147) + Chr$(148) + Chr$(253)
  250. Latin2 = Latin2 + Chr$(133) + Chr$(163) + Chr$(129)
  251. Latin2 = Latin2 + Chr$(236) + Chr$(245)
  252. Windows = Chr$(138) + Chr$(141) + Chr$(142) + Chr$(154)
  253. Windows = Windows + Chr$(157) + Chr$(158) + Chr$(188)
  254. Windows = Windows + Chr$(190) + Chr$(192) + Chr$(193)
  255. Windows = Windows + Chr$(196) + Chr$(197) + Chr$(200)
  256. Windows = Windows + Chr$(201) + Chr$(204) + Chr$(205)
  257. Windows = Windows + Chr$(207) + Chr$(210) + Chr$(211)
  258. Windows = Windows + Chr$(212) + Chr$(214) + Chr$(216)
  259. Windows = Windows + Chr$(217) + Chr$(218) + Chr$(220)
  260. Windows = Windows + Chr$(221) + Chr$(224) + Chr$(225)
  261. Windows = Windows + Chr$(228) + Chr$(229) + Chr$(232)
  262. Windows = Windows + Chr$(233) + Chr$(236) + Chr$(237)
  263. Windows = Windows + Chr$(239) + Chr$(242) + Chr$(243)
  264. Windows = Windows + Chr$(244) + Chr$(246) + Chr$(248)
  265. Windows = Windows + Chr$(249) + Chr$(250) + Chr$(252)
  266. Windows = Windows + Chr$(253) + Chr$(167)
  267. End Sub
  268. Public Function Conv(TmpStr As String) As String
  269. Dim I As Integer, J As Integer
  270. Dim RetStr As String, TmpChar As String
  271. RetStr = ""
  272. For I = 1 To Len(TmpStr$)
  273.   If Asc(Mid$(TmpStr$, I, 1)) < 128 Then
  274.     RetStr = RetStr + Mid$(TmpStr$, I, 1)
  275.   Else
  276.     TmpChar$ = Mid$(TmpStr$, I, 1)
  277.     J = InStr(Latin2$, TmpChar$)
  278.     If J > 0 Then
  279.       TmpChar$ = Mid$(Windows$, J, 1)
  280.     End If
  281.     RetStr = RetStr + TmpChar
  282.   End If
  283. Conv = RetStr
  284. End Function
  285.