You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
2.6 KiB
75 lines
2.6 KiB
4 weeks ago
|
Attribute VB_Name = "Module1"
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long
|
||
|
|
|
||
|
|
Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
|
||
|
|
Global card As Integer
|
||
|
|
Global card_number As Integer
|
||
|
|
|
||
|
|
Sub Scale_Change(ByVal g As Long)
|
||
|
|
Select Case g
|
||
|
|
Case 0
|
||
|
|
util9113.Label1(2).Caption = "10.0"
|
||
|
|
util9113.Label1(3).Caption = "5.0"
|
||
|
|
util9113.Label1(4).Caption = "0.0"
|
||
|
|
util9113.Label1(5).Caption = "-5.0"
|
||
|
|
util9113.Label1(6).Caption = "-10.0"
|
||
|
|
Case 1
|
||
|
|
util9113.Label1(2).Caption = "1.0"
|
||
|
|
util9113.Label1(3).Caption = "0.5"
|
||
|
|
util9113.Label1(4).Caption = "0.0"
|
||
|
|
util9113.Label1(5).Caption = "-0.5"
|
||
|
|
util9113.Label1(6).Caption = "-1.0"
|
||
|
|
Case 2
|
||
|
|
util9113.Label1(2).Caption = "0.10"
|
||
|
|
util9113.Label1(3).Caption = "0.05"
|
||
|
|
util9113.Label1(4).Caption = "0.00"
|
||
|
|
util9113.Label1(5).Caption = "-0.05"
|
||
|
|
util9113.Label1(6).Caption = "-0.10"
|
||
|
|
Case 3
|
||
|
|
util9113.Label1(2).Caption = "5.0"
|
||
|
|
util9113.Label1(3).Caption = "2.5"
|
||
|
|
util9113.Label1(4).Caption = "0.00"
|
||
|
|
util9113.Label1(5).Caption = "-2.5"
|
||
|
|
util9113.Label1(6).Caption = "-5.0"
|
||
|
|
Case 4
|
||
|
|
util9113.Label1(2).Caption = "0.50"
|
||
|
|
util9113.Label1(3).Caption = "0.25"
|
||
|
|
util9113.Label1(4).Caption = "0.00"
|
||
|
|
util9113.Label1(5).Caption = "-0.25"
|
||
|
|
util9113.Label1(6).Caption = "-0.50"
|
||
|
|
Case 5
|
||
|
|
util9113.Label1(2).Caption = "0.050"
|
||
|
|
util9113.Label1(3).Caption = "0.025"
|
||
|
|
util9113.Label1(4).Caption = "0.00"
|
||
|
|
util9113.Label1(5).Caption = "-0.025"
|
||
|
|
util9113.Label1(6).Caption = "-0.050"
|
||
|
|
Case 6
|
||
|
|
util9113.Label1(2).Caption = "10.0"
|
||
|
|
util9113.Label1(3).Caption = "7.5"
|
||
|
|
util9113.Label1(4).Caption = "5.0"
|
||
|
|
util9113.Label1(5).Caption = "2.5"
|
||
|
|
util9113.Label1(6).Caption = "0.0"
|
||
|
|
Case 7
|
||
|
|
util9113.Label1(2).Caption = "1.0"
|
||
|
|
util9113.Label1(3).Caption = "0.75"
|
||
|
|
util9113.Label1(4).Caption = "0.50"
|
||
|
|
util9113.Label1(5).Caption = "0.25"
|
||
|
|
util9113.Label1(6).Caption = "0.0"
|
||
|
|
Case 8
|
||
|
|
util9113.Label1(2).Caption = "0.10"
|
||
|
|
util9113.Label1(3).Caption = "0.075"
|
||
|
|
util9113.Label1(4).Caption = "0.05"
|
||
|
|
util9113.Label1(5).Caption = "0.025"
|
||
|
|
util9113.Label1(6).Caption = "0.0"
|
||
|
|
End Select
|
||
|
|
|
||
|
|
util9113.Label1(19).Caption = util9113.Label1(2).Caption
|
||
|
|
util9113.Label1(20).Caption = util9113.Label1(3).Caption
|
||
|
|
util9113.Label1(21).Caption = util9113.Label1(4).Caption
|
||
|
|
util9113.Label1(22).Caption = util9113.Label1(5).Caption
|
||
|
|
util9113.Label1(23).Caption = util9113.Label1(6).Caption
|
||
|
|
End Sub
|
||
|
|
|