|
|
| This document is available in: English Castellano ChineseGB Deutsch Francais Russian Turkce |
by Jonás Alvarez <jalvarez(at)eitb.com> ��������: Jonás Alvarez �Ѿ��� UNIX �� Windows �����´����˼�����Ӧ�ó��������� ���⣬�������ڲ���ϵͳ�������ͳ����Ŀγ̡� Ŀ¼: |
Gambas��Linux �µ� Basic
ժҪ:
Gambas ������ Linux ��������ʹ�õ� Basic ֮һ�� �ڱ���������Ҫ����һ��ʵ�����������������ճ������� Gambas �Ƕ�ô�ļ�ǿ���� |
Basic ��ʹ�õ����㷺�ġ����ı�������֮һ�������Ƕ������֡� ����Ϊֹ����õ� Basic ���������� Microsoft �� Visual Basic ���ɿ��������� ������Linux ��ʹ�÷�Χ�Ѿ����쵽�����滷���� �������Ľ����ڷ�����Ӧ�ã�ʹ���˶����쵼�ߣ������ڱ���һ���ͻ��˼������IJ���ϵͳ�� �����������Ķ������ʼ����������˺����ֱ༭������������ ˳�����ַ�չ���ƣ������˺ü��� Basic ���������� Gambas ��������Ҫ�ڱ����м�����һ����һ�� Basic ��ͼ�ο��������� ������������Ҫ�����ģ����ı��̷����� Visual Basic �dz������� ������Ҳ���Լ����ص��� ��Ҫʹ�õİ汾�� 0.64a�������� SuSE 9.0 ���а��С� ������д�������ֵ�ʱ�������ǿ�����������Ŀ��ҳ�Ͽ������µİ汾��0.81�� ������������Ӱ�쵽���ġ�
��Ϊ���Ѿ�����һ��ʱ���� Visual Basic �����ߣ� �����Ҳ���Ҫʲô�����ľͿ���ֱ�������������ӡ� ���⣬������һ�νӴ� Gambas����֤�����κ������ù� Visual Basic ���˶��������� ���⣬������һ��˵���ܼ� Basic �ںܶ������зdz����õ�һ�����ӡ�
��Ϊ��ϲ����ѧ��������������ͨ��һ�����ӿ�ʼ�� �����dz���Ӧ�ó�����һ������Ļ����ʾ���е���ʱ���ܵ������� ���ǿ������������ĵ���ʱ�䡢ֹͣ������������
������ Gambas ֮�����Ǿ��ܿ�������������:
ѡ���½�����������һ���������ǻᱻ�ʵ����������� ���ǵĹ��̽���CountDown�� ���ڶ��Ի���������Ҫѡ������Ŀ¼�� ����ѡ������Ŀ¼�������ڵײ����ı����С�����Ҫ������Ŀ¼����
�������ǵ�һ������ Gambas ����û�н�������ѡ����ܿ���ÿ�ռ�����ʾ�� �Ķ�����Ȥ�IJ��ҹر��������ڡ������Ѿ��ڿ�������������ʼ�����ˡ� �������������Ͽ����������ڡ����������� KDE �������ж������Ļ���� ����Ҳ����������Ȥ�İ����е�һ���� Gambas ʹ�ã���������ͳһ�������д��ڡ� ���˶��ԣ����� KDE �е�һ��������ѡ������ÿ������������ʾ�Լ���ͼ�ꡣ
��������Ҫ���������������塣�ڹ��̴��ڵ��κεط������Ҽ��½����塣
�ڶԻ���������Ҫָ���������ƣ���������������FCountDown�� �����Ķ�����Ĭ��ֵ��
���������Ѿ����˵�һ�����壬�������ڻ��ǿյġ�
��������Ҫ�������õ��Ŀؼ���������������������������Ҫ�ڴ����а�����Ԫ�ء� �ƶ�����ָ�뾭���ؼ��Ϳ��Կ����ؼ������ơ�˫���ؼ����ܰѿؼ����õ����������Ͻǡ� �����ؼ����ܰѿؼ����õ�����������ϲ���ĵط����Ҹı���С�� �����ǵij�����������Ҫһ����ǩ��һ���ı�����һ����ʱ���� ������ť��һ���л���ť��
һ�����еĿؼ������ú��ˣ������������������ӣ�����������һЩ��ͬ�� ÿ���˶�����������ϲ�÷��ã���
һ�����ǰ����еĿؼ������õ��˴������棬���ǾͿ������ǵ����ָij��������ġ� Ҫ������һ�����༭���Ա������������� ��������Ļ�Ͽ��������Ա�������ͨ�����̴��ڵ�����ť����� Ҫ�ҵ�������ť���ǿ����ڰ�ť���ƶ�����ָ������λ����Ҫ��������ť��
�Ұ� Label1 �ؼ�����Ϊ lblContador�� ���������ؼ�Ȼ���Ϳ��������Ա��������������ˡ� ��һ����Ҫ�༭�������Բ��Ҹ�ֵΪ lblContador�� Ȼ���������ĵô�һЩ��Ҫ������������������������������...��ǩ�� ѡ�� Courier Bold 72 ���岢��ȷ�ϣ�OK���� ��ͬ���ķ������Ұ� ToggleButton1 ����Ϊ tglFuncionando�� TextBox1 �ؼ������� txtSegundos�� Timer1 �ؼ�������clkMiReloj�� Button1 ������cmdPonerSegundos�� �����Ұ� Button2 ����Ϊ cmdSalir�� �����һ��� txtSegundos ���������Ըij����Ҷ�����
��������Ҫ��ʼ����д Basic �����ˡ����dz��ļ����Ҳ���Ǻ��ϸ��� ��������Ҫ���ľ��ǰ��ڴ����м������ı����ij�ʵ�ʵ�ֵ�� ���ܺܶ�ѡ��ڱ仯������Ҳ����ͨ���ؼ������Ա������ģ� �������ַ������κ�һ�ֶ��ܵõ���ͬ�Ľ�����
������һ�����Ǿ���д��������ϣ���Ŀؼ��ı��⡣ ������˵������һ������ʱ��������̸�۵��Ƕ��¼��Ĺ��������ڵ��¼��� ��һ������˫��������û�пؼ��ĵط��� ������һ���༭���ڣ����궨λ��һ���µĹ��̣�Public Sub Form_Open() ��������ǰ�� Visual Basic ����д������������Ҳ����ʹ�� Form_Load �¼����� ��������Ҫ�� lblContador �ؼ���ʾ������ʱ��ʣ���������� �������ĵ�һ�г������������������ӵģ�
' Gambas class file
CONST fSegundosPorDefecto AS Float=120.0
fSegundos AS Float
PRIVATE SUB VerValores()
DIM nMinutos AS Integer
nMinutos = Int(Int(fSegundos) / 60)
lblContador.Caption = nMinutos & ":" & Format (fSegundos -
nMinutos * 60, "00.0")
END
PRIVATE SUB VerActivarDesactivar()
IF tglFuncionando.Value THEN
tglFuncionando.Text = ("&Detener")
ELSE
tglFuncionando.Text = ("&Arrancar")
ENDIF
END
PUBLIC SUB Form_Open()
fSegundos = fSegundosPorDefecto
VerValores
tglFuncionando.Value = FALSE
VerActivarDesactivar
txtSegundos.Text = fSegundos
cmdPonerSegundos.Text = ("&Reiniciar")
cmdSalir.Text = ("&Salir")
END
�����Ѿ��� Gambas �Զ����ɵ�ע�ͣ�'Gambas class file�� ����������һ����������������Ĭ�������ij�����fSegundosPorDefecto�� ����ֵ�� 120 �루�����ӣ�����һ�� fSegundos �����������ֵ���ʱ�� �������ǻ��������������̣�VerValores��������ʾ����ʱ��ֵ�� ���� VerActivarDesactivar�������ı�����/ֹͣ��ť�����֡�
���������Ѿ�����һ���ܹ������Ĵ��塣���������ڻ��������κ����õ����飬 �������������������������������飬�������ֵ��һ�Եġ� ����ͨ�����������������ڱ������ģ�Ȼ���� F5 ������������ ����ͨ��ͬһ�����ڵĹ������ϵ�ִ����ť�� ���ǻῴ����
��������û�г��ֻ��ߵõ����κδ��������Ǿͱ���Ҫ��ͷ�������Ǹղ����ġ� ��ʹ���ǰ���������λ���˳���ťû���κ���;�� ���������ǵ���һ�������¼���������ť�����û�����ť��ʱ�����¼��������ˡ� �ڼ���֮ǰ��������һ�����������ǵij�����������ʲô�� ���ǿ������Ͻǵ� X ���ر����������� SuSE �� KDE ������ �����㿴���ģ�����Ҳ����Ҫ����һ�ַ�ʽ���رմ��ڡ�
���������ð�ť��һЩ���Ĺ��������û����˳���ť��ʱ���ᷢ��ʲô�� ���DZ���Ҫ�رճ�����Ҫ���͵��û���������ť��ʱ��ִ�е� Basic ���룬 ����˫������д���˳��İ�ť��cmbExit���� ���Կ��� Gambas �Ѿ��Զ�������һЩ���룬���걻�����м䡣 �������DZ���Ҫ���ܵĴ��롣�������̻����û�������ť��ʱ��ִ�С� Ҫ�رճ������DZ���ִ�� Me.Close�����������¼��Ĵ����ǣ�
PUBLIC SUB cmdSalir_Click()
ME.Close
END
��һ������Ҫ���Ƶİ�ť����λ����ͬ���ķ����� ˫����ťȻ���� Gambas ��ʾ�����Ĵ��봰�������룺
PUBLIC SUB cmdPonerSegundos_Click()
fSegundos = txtSegundos.Text
VerValores
END
�������ڻ���û�з����κ����顣����Ҫ������һЩ������ ����Ҫ��һ��ʼ�ͼ����������ʱ���ؼ��� Ҫ������һ�����ͱ������ý���ʱ���¼��ļ�����Ҫô����һ�� Form_Open �¼������ô��룬Ҫô���뵽������������Ǿ������������� ���ǵ�������������ʱ������Ȼ�����������Ա������� �ӳ�ֵ�� 1000ms ��Ϊ 100�������Ϳ���ÿʮ��֮һ������һ���¼��� ��Ҳ�����ǵ������ľ��ȡ�
������Ȼû����ÿ��ʱ�Ӽ�����ʱ����ִ�еĴ��룬�Լ������ķ����� Ҫ����ʱ�ӵĴ��룬ʵ����̫�����ˣ�����һֱ���ã�˫������ ���������Ǵ������봰�ڵ���ȷ�ĵط�������Ҫ�����������Ӳ������룺
PUBLIC SUB clkMiReloj_Timer()
IF fSegundos < 0.1 THEN
tglFuncionando.Value = FALSE
tglFuncionando_Click
ELSE
fSegundos = fSegundos - 0.1
VerValores
END IF
END
��������Ҫ�����û�����Ըͨ���л���ť������������ ��������һֱ��û�йܵ��ġ�˫��������ťȻ���������룺
PUBLIC SUB tglFuncionando_Click() clkMiReloj.Enabled = tglFuncionando.Value VerActivarDesactivar END
���������Ѿ����Բ������ǵĹ����ˡ�
Gambas ����һ���������ǶԶ����Ե�֧�֡������㿴���˴��룬 ���ͻ�ע��ַ��������ô������������ġ���������֪ͨ Gambas ��������Щ�ַ����ġ� �����ؼ����ı�����Ҫ��Щ�����š����ǵ���Ŀ�Ѿ��dz������ˣ� ���Ǿͻ�Ҫ���������Լ���������ʾ��û��ʲô�����������ˡ� ���ǵ����̴��ڵ�����/�����˵���
�������������ù��̵��������Ҽ����������빤��ѡ� �������ǾͿ��Է����Ի����ˡ��������ǵIJ˵�������һ���µ�ѡ�����/���롣 �Ի��Ϳ��Կ������빤���Ƿdz���ֱ�ۣ�
���������������IJ���ѡ��Ŀ�����ԡ�������Ҫ��һ���ַ����� ѡ����������д�����IJ��֡��ȵ����е��ַ������������ˣ� ����֮ǰ���������� LANG ����Ϊ����Ҫ���������ԣ� ���Ǿ������ն��������ó��������ˡ����������뿴��������Ӣ���Ľ����� �ر� Gambas������ִ��
$ LANG=en_US; gambas
Ҫ������һ��״̬��ͨ�� KDE �˵����� Gambas����Ϊ������û�ж��廷�������� �����������������Լ��Ŀ���̨�����档
������������һ�����������ԣ��������DZ���ȫ����װ���������ǿ�ʼ���� Linux ����Ӧ�ó�����һ���õ����㣬���������Ѿ������ģ����dz��ļ� ��������Ҳ�ܿ��١������ںܶ��ճ������Ѿ��㹻�ˡ�
��ȥ�ļ�/���������˵����������ӣ����߰���Ҳ�dz����꾡�� ���ǻ�����ȥ��Ŀ��ҳ�� ����������һ����кܶ���Ȥ�� Basic ���̡� ��������һ����Ŀ�Ŀ�ʼ���������Ѿ�Ԥ�Ե����������õ�δ����
|
|
��ҳ��LinuxFocus�༭��ά��
© Jonás Alvarez, FDL LinuxFocus.org |
������Ϣ:
|
2004-03-21, generated by lfparser version 2.46