[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