[LinuxFocus-icon]
<--  | ��ҳ  | վ���ͼ  | ����  | ����

���� | �����ڿ� | ���� | ����LF
This document is available in: English  Castellano  ChineseGB  Deutsch  Francais  Russian  Turkce  

Jonas Alvarez
by Jonás Alvarez
<jalvarez(at)eitb.com>

��������:

Jonás Alvarez �Ѿ��� UNIX �� Windows �����´����˼����Ӧ�ó��ò¿ª·ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ ���⣬�������ڲ���ϵͳ������ͳ��ò¿ª·ï¿½ï¿½Ä¿Î³Ì¡ï¿½


Ŀ¼:

 

Gambas��Linux �µ� Basic

Dibujo de una gamba

ÕªÒª:

Gambas ������ Linux �������ʹ�õ� Basic ֮һ�� �ڱ���������Ҫ����һ��ʵ���������������ճ������� Gambas �Ƕ�ô�ļ򵥺�ǿ��


_________________ _________________ _________________

 

���

Basic ��ʹ�õ���㷺�ġ���򵥵ı������֮һ�������Ƕ������֡� ����Ϊֹ����õ� Basic ���������� Microsoft �� Visual Basic ���ɿ��������� ������Linux ��ʹ�÷�Χ�Ѿ����쵽�����滷���� ������Ľ����ڷ�����Ӧ�ã�ʹ���˶����쵼�ߣ������ڱ��һ���ͻ��˼�����IJ���ϵͳ�� �����������Ķ������ʼ����������˺����ֱ༭���������� ˳�����ַ�չ���ƣ������˺ü��� Basic ���������� Gambas ��������Ҫ�ڱ����м�����һ����һ�� Basic ��ͼ�ο��������� ������������Ҫ�����ģ����ı�̷��� Visual Basic �dz����� ������Ҳ���Լ����ص��� ��Ҫʹ�õİ汾�� 0.64a�������� SuSE 9.0 ���а��С� ������д������ֵ�ʱ�����ǿ�����������Ŀ��ҳ�Ͽ������µİ汾��0.81�� �����������Ӱ�쵽���ġ�

 

˭��� Gambas ����Ȥ��

��Ϊ���Ѿ�����һ��ʱ��� Visual Basic �����ߣ� �����Ҳ���Ҫʲô����ľͿ���ֱ������������ӡ� ���⣬������һ�νӴ� Gambas����֤�����κ������ù� Visual Basic ���˶��������� ���⣬������һ��˵���ܼ򵥵� Basic �ںܶ������зdz����õ�һ�����ӡ�

 

ʵ������

��Ϊ��ϲ����ѧ��������������ͨ��һ�����ӿ�ʼ�� ����dz��򵥵�Ӧ�ó�����һ������Ļ����ʾ���е���ʱ���ܵ������ ���ǿ������������ĵ���ʱ�䡢ֹͣ������������

������ Gambas ֮�����Ǿ��ܿ������������:

startup


ѡ���½�����������һ���������ǻᱻ�ʵ����������� ���ǵĹ��̽���CountDown�� ���ڶ��Ի���������Ҫѡ������Ŀ¼�� ����ѡ����Ŀ¼�������ڵײ����ı����С�����Ҫ������Ŀ¼����

new project


������ǵ�һ������ Gambas ���߻�û�н������ѡ����ܿ���ÿ�ռ�����ʾ�� �Ķ�����Ȥ�IJ��ҹر�������ڡ������Ѿ��ڿ���������׼����ʼ�����ˡ� �������������Ͽ����������ڡ���������� KDE �������ж�����Ļ���� ����Ҳ���������Ȥ�İ����е�һ���� Gambas ʹ�ã���������ͳһ�������д��ڡ� �͸��˶��ԣ����� KDE �е�һ�������ѡ�����ÿ�����������ʾ�Լ���ͼ�ꡣ

��������Ҫ��������������塣�ڹ��̴��ڵ��κεط������Ҽ��½����塣

new form


�ڶԻ���������Ҫָ���������ƣ�������������FCountDown�� �����Ķ�����Ĭ��ֵ��

new form dialog


���������Ѿ����˵�һ�����壬�������ڻ��ǿյġ�

form


��������Ҫ������õ��Ŀؼ��������������������������Ҫ�ڴ����а�����Ԫ�ء� �ƶ����ָ�뾭���ؼ��Ϳ��Կ����ؼ������ơ�˫���ؼ����ܰѿؼ����õ���������Ͻǡ� �����ؼ����ܰѿؼ����õ�����������ϲ���ĵط����Ҹı��С�� �����ǵij�����������Ҫһ����ǩ��һ���ı���һ����ʱ���� ������ť��һ���л���ť��

controls


һ�����еĿؼ������ú��ˣ�����������������ӣ���������һЩ��ͬ�� ÿ���˶����԰�������ϲ�÷��ã���

controls in place


һ�����ǰ����еĿؼ������õ��˴������棬���ǾͿ��԰����ǵ����ָ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 ���������� ����ͨ��ͬһ�����ڵĹ������ϵ�ִ����ť�� ���ǻῴ����

Project CountDown


������û�г��ֻ��ߵõ����κδ������Ǿͱ���Ҫ��ͷ�������Ǹղ����ġ� ��ʹ���ǰ���������λ���˳���ťû���κ���;�� ��������ǵ���һ�����񣺰��¼���������ť�����û�����ť��ʱ���¼��������ˡ� �ڼ���֮ǰ��������һ�����������ǵ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 ����һ���������ǶԶ����Ե�֧�֡�����㿴���˴��룬 ��ͻ�ע�⵽�ַ��������ô������������ġ���������֪ͨ Gambas ��������Щ�ַ����ġ� ����ؼ����ı�����Ҫ��Щ�����š����ǵ���Ŀ�Ѿ��dz������ˣ� ���Ǿͻ�Ҫ���������Լ���������ʾ��û��ʲô��������ˡ� ���ǵ����̴��ڵ�����/�����˵���

project properties

�������������ù��̵��������Ҽ����������빤��ѡ� �������ǾͿ��Է���Ի����ˡ��������ǵIJ˵������һ���µ�ѡ�����/���롣 �򿪶Ի��򣬾Ϳ��Կ������빤���Ƿdz���ֱ�ۣ�

project translation

��������������IJ���ѡ��Ŀ�����ԡ�������Ҫ��һ���ַ����� ѡ����������д����IJ��֡��ȵ����е��ַ�����������ˣ� ���֮ǰ���������� LANG ����Ϊ����Ҫ��������ԣ� ���Ǿ������ն�������ó�������ˡ���������뿴�������Ӣ��Ľ���� �ر� Gambas������ִ��

$ LANG=en_US; gambas

Ҫ������һ��״̬��ͨ�� KDE �˵����� Gambas����Ϊ������û�ж��廷�������� �����������������Լ��Ŀ���̨�����档

 

����

������������һ�����������ԣ��������DZ���ȫ����װ���������ǿ�ʼ���� Linux ����Ӧ�ó����һ���õ���㣬���������Ѿ������ģ����dz��ļ򵥣� ��������Ҳ�ܿ��١������ںܶ��ճ������Ѿ��㹻�ˡ�

��ȥ�ļ�/�������˵���������ӣ����߰���Ҳ�dz����꾡�� ���ǻ�����ȥ��Ŀ��ҳ�� ����������һ����кܶ���Ȥ�� Basic ���̡� �������һ����Ŀ�Ŀ�ʼ���������Ѿ�Ԥ�Ե����������õ�δ����

 

����ƪ���·�������

ÿƪ���¶��и��Եķ���ҳ�档�����ҳ����������ύ���ۣ�Ҳ���Բ鿴�������ߵ����ۣ�
 ï¿½ï¿½ï¿½ï¿½Ò³ï¿½ï¿½ 

<--, back to the index of this issue

��ҳ��LinuxFocus�༭��ά��
© Jonás Alvarez, FDL
LinuxFocus.org
������Ϣ:
es --> -- : Jonás Alvarez <jalvarez(at)eitb.com>
es --> en: Miguel Alfageme Sánchez, Samuel Landete Benavente. <mas20(at)tid.es>
en --> zh: �շ��� <shaofanyun(at)yahoo.com.cn>

2004-03-21, generated by lfparser version 2.46