Changeset 17
- Timestamp:
- 04/08/10 11:14:19 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/desktop/mainWindow.rbfrm
r16 r17 138 138 Top = 32 139 139 Underline = "" 140 Value = 0140 Value = 3 141 141 Visible = True 142 142 Width = 637 … … 3439 3439 #tag Events EditField_Byte17 3440 3440 #tag Event 3441 Function KeyDown(Key As String) As Boolean3441 Sub TextChange() 3442 3442 //Make sure we have a valid value if not then set it to something 3443 if val(me.Text) > 255 or val(me.Text) < 0 then 3444 me.Text = "255" 3443 if me.Text <> "" then 3444 if val(me.Text) > 255 or val(me.Text) < 0 then 3445 me.Text = "255" 3446 end if 3445 3447 end if 3446 3448 … … 3450 3452 i = d 3451 3453 ICSSerialPort1.Byte17 = chrb(i) 3452 End Function3454 End Sub 3453 3455 #tag EndEvent 3454 3456 #tag EndEvents 3455 3457 #tag Events EditField_Byte16 3456 3458 #tag Event 3457 Function KeyDown(Key As String) As Boolean3459 Sub TextChange() 3458 3460 //Make sure we have a valid value if not then set it to something 3459 if val(me.Text) > 255 or val(me.Text) < 0 then 3460 me.Text = "255" 3461 if me.Text <> "" then 3462 if val(me.Text) > 255 or val(me.Text) < 0 then 3463 me.Text = "255" 3464 end if 3461 3465 end if 3462 3466 … … 3466 3470 i = d 3467 3471 ICSSerialPort1.Byte16 = chrb(i) 3468 End Function3472 End Sub 3469 3473 #tag EndEvent 3470 3474 #tag EndEvents 3471 3475 #tag Events EditField_Byte15 3472 3476 #tag Event 3473 Function KeyDown(Key As String) As Boolean3477 Sub TextChange() 3474 3478 //Make sure we have a valid value if not then set it to something 3475 if val(me.Text) > 255 or val(me.Text) < 0 then 3476 me.Text = "255" 3479 if me.Text <> "" then 3480 if val(me.Text) > 255 or val(me.Text) < 0 then 3481 me.Text = "255" 3482 end if 3477 3483 end if 3478 3484 … … 3482 3488 i = d 3483 3489 ICSSerialPort1.Byte15 = chrb(i) 3484 End Function3490 End Sub 3485 3491 #tag EndEvent 3486 3492 #tag EndEvents 3487 3493 #tag Events EditField_Byte14 3488 3494 #tag Event 3489 Function KeyDown(Key As String) As Boolean3495 Sub TextChange() 3490 3496 //Make sure we have a valid value if not then set it to something 3491 if val(me.Text) > 255 or val(me.Text) < 0 then 3492 me.Text = "255" 3497 if me.Text <> "" then 3498 if val(me.Text) > 255 or val(me.Text) < 0 then 3499 me.Text = "255" 3500 end if 3493 3501 end if 3494 3502 … … 3498 3506 i = d 3499 3507 ICSSerialPort1.Byte14 = chrb(i) 3500 End Function3508 End Sub 3501 3509 #tag EndEvent 3502 3510 #tag EndEvents 3503 3511 #tag Events EditField_Byte13 3504 3512 #tag Event 3505 Function KeyDown(Key As String) As Boolean3513 Sub TextChange() 3506 3514 //Make sure we have a valid value if not then set it to something 3507 if val(me.Text) > 255 or val(me.Text) < 0 then 3508 me.Text = "255" 3515 if me.Text <> "" then 3516 if val(me.Text) > 255 or val(me.Text) < 0 then 3517 me.Text = "255" 3518 end if 3509 3519 end if 3510 3520 … … 3514 3524 i = d 3515 3525 ICSSerialPort1.Byte13 = chrb(i) 3516 End Function3526 End Sub 3517 3527 #tag EndEvent 3518 3528 #tag EndEvents 3519 3529 #tag Events EditField_Byte12 3520 3530 #tag Event 3521 Function KeyDown(Key As String) As Boolean3531 Sub TextChange() 3522 3532 //Make sure we have a valid value if not then set it to something 3523 if val(me.Text) > 255 or val(me.Text) < 0 then 3524 me.Text = "255" 3533 if me.Text <> "" then 3534 if val(me.Text) > 255 or val(me.Text) < 0 then 3535 me.Text = "255" 3536 end if 3525 3537 end if 3526 3538 … … 3530 3542 i = d 3531 3543 ICSSerialPort1.Byte12 = chrb(i) 3532 End Function3544 End Sub 3533 3545 #tag EndEvent 3534 3546 #tag EndEvents 3535 3547 #tag Events EditField_Byte11 3536 3548 #tag Event 3537 Function KeyDown(Key As String) As Boolean3549 Sub TextChange() 3538 3550 //Make sure we have a valid value if not then set it to something 3539 if val(me.Text) > 255 or val(me.Text) < 0 then 3540 me.Text = "255" 3551 if me.Text <> "" then 3552 if val(me.Text) > 255 or val(me.Text) < 0 then 3553 me.Text = "255" 3554 end if 3541 3555 end if 3542 3556 … … 3546 3560 i = d 3547 3561 ICSSerialPort1.Byte11 = chrb(i) 3548 End Function3562 End Sub 3549 3563 #tag EndEvent 3550 3564 #tag EndEvents 3551 3565 #tag Events EditField_Byte10 3552 3566 #tag Event 3553 Function KeyDown(Key As String) As Boolean3567 Sub TextChange() 3554 3568 //Make sure we have a valid value if not then set it to something 3555 if val(me.Text) > 255 or val(me.Text) < 0 then 3556 me.Text = "255" 3569 if me.Text <> "" then 3570 if val(me.Text) > 255 or val(me.Text) < 0 then 3571 me.Text = "255" 3572 end if 3557 3573 end if 3558 3574 … … 3562 3578 i = d 3563 3579 ICSSerialPort1.Byte10 = chrb(i) 3564 End Function3580 End Sub 3565 3581 #tag EndEvent 3566 3582 #tag EndEvents 3567 3583 #tag Events EditField_Byte9 3568 3584 #tag Event 3569 Function KeyDown(Key As String) As Boolean3585 Sub TextChange() 3570 3586 //Make sure we have a valid value if not then set it to something 3571 if val(me.Text) > 255 or val(me.Text) < 0 then 3572 me.Text = "255" 3587 if me.Text <> "" then 3588 if val(me.Text) > 255 or val(me.Text) < 0 then 3589 me.Text = "255" 3590 end if 3573 3591 end if 3574 3592 … … 3578 3596 i = d 3579 3597 ICSSerialPort1.Byte09 = chrb(i) 3580 End Function3598 End Sub 3581 3599 #tag EndEvent 3582 3600 #tag EndEvents 3583 3601 #tag Events EditField_Byte8 3584 3602 #tag Event 3585 Function KeyDown(Key As String) As Boolean3603 Sub TextChange() 3586 3604 //Make sure we have a valid value if not then set it to something 3587 if val(me.Text) > 255 or val(me.Text) < 0 then 3588 me.Text = "255" 3605 if me.Text <> "" then 3606 if val(me.Text) > 255 or val(me.Text) < 0 then 3607 me.Text = "255" 3608 end if 3589 3609 end if 3590 3610 … … 3594 3614 i = d 3595 3615 ICSSerialPort1.Byte08 = chrb(i) 3596 End Function3616 End Sub 3597 3617 #tag EndEvent 3598 3618 #tag EndEvents 3599 3619 #tag Events EditField_Byte7 3600 3620 #tag Event 3601 Function KeyDown(Key As String) As Boolean3621 Sub TextChange() 3602 3622 //Make sure we have a valid value if not then set it to something 3603 if val(me.Text) > 255 or val(me.Text) < 0 then 3604 me.Text = "255" 3623 if me.Text <> "" then 3624 if val(me.Text) > 255 or val(me.Text) < 0 then 3625 me.Text = "255" 3626 end if 3605 3627 end if 3606 3628 … … 3610 3632 i = d 3611 3633 ICSSerialPort1.Byte07 = chrb(i) 3612 End Function3634 End Sub 3613 3635 #tag EndEvent 3614 3636 #tag EndEvents 3615 3637 #tag Events EditField_Byte6 3616 3638 #tag Event 3617 Function KeyDown(Key As String) As Boolean3639 Sub TextChange() 3618 3640 //Make sure we have a valid value if not then set it to something 3619 if val(me.Text) > 255 or val(me.Text) < 0 then 3620 me.Text = "255" 3641 if me.Text <> "" then 3642 if val(me.Text) > 255 or val(me.Text) < 0 then 3643 me.Text = "255" 3644 end if 3621 3645 end if 3622 3646 … … 3626 3650 i = d 3627 3651 ICSSerialPort1.Byte06 = chrb(i) 3628 End Function3652 End Sub 3629 3653 #tag EndEvent 3630 3654 #tag EndEvents 3631 3655 #tag Events EditField_Byte5 3632 3656 #tag Event 3633 Function KeyDown(Key As String) As Boolean3657 Sub TextChange() 3634 3658 //Make sure we have a valid value if not then set it to something 3635 if val(me.Text) > 255 or val(me.Text) < 0 then 3636 me.Text = "255" 3659 if me.Text <> "" then 3660 if val(me.Text) > 255 or val(me.Text) < 0 then 3661 me.Text = "255" 3662 end if 3637 3663 end if 3638 3664 … … 3642 3668 i = d 3643 3669 ICSSerialPort1.Byte05 = chrb(i) 3644 End Function3670 End Sub 3645 3671 #tag EndEvent 3646 3672 #tag EndEvents 3647 3673 #tag Events EditField_Byte4 3648 3674 #tag Event 3649 Function KeyDown(Key As String) As Boolean3675 Sub TextChange() 3650 3676 //Make sure we have a valid value if not then set it to something 3651 if val(me.Text) > 255 or val(me.Text) < 0 then 3652 me.Text = "255" 3677 if me.Text <> "" then 3678 if val(me.Text) > 255 or val(me.Text) < 0 then 3679 me.Text = "255" 3680 end if 3653 3681 end if 3654 3682 … … 3658 3686 i = d 3659 3687 ICSSerialPort1.Byte04 = chrb(i) 3660 End Function3688 End Sub 3661 3689 #tag EndEvent 3662 3690 #tag EndEvents … … 3665 3693 Sub TextChange() 3666 3694 //Make sure we have a valid value if not then set it to something 3667 if val(me.Text) > 255 or val(me.Text) < 0 then 3668 me.Text = "255" 3695 if me.Text <> "" then 3696 if val(me.Text) > 255 or val(me.Text) < 0 then 3697 me.Text = "255" 3698 end if 3669 3699 end if 3670 3700
Note: See TracChangeset
for help on using the changeset viewer.