|
![]() |
|
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