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