Ignisor
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я даже не знаю какую часть скинуть, но думаю эту (этот вариант работает, но так себе):
Код:
Module numbr
integer*8:: T=0
character(256):: X
End
SUBROUTINE CalculatorNum1( dlg, id, callbacktype )
use iflogm
use numbr
implicit none
type (dialog) dlg
integer id, callbacktype
logical lret
include 'resource.fd'
if (callbacktype == dlg_clicked) then
T=(T*10)+1
write (X, *) T
lret = DlgSet(dlg, IDC_EDIT_MAIN, X)
endif
END SUBROUTINE CalculatorNum1
|
А неработает вот так:
Код:
SUBROUTINE CalculatorNum1( dlg, id, callbacktype )
use iflogm
use numbr
implicit none
type (dialog) dlg
integer id, callbacktype
logical lret
include 'resource.fd'
if (callbacktype == dlg_clicked) then
X=X//"1"
lret = DlgSet(dlg, IDC_EDIT_MAIN, X)
endif
END SUBROUTINE CalculatorNum1
|
|
